Package: magic
Version: 8.3.105+ds.1-1.1
Severity: normal
Tags: patch
Dear Maintainer,
I'm planning to upgrade blt to 3.0 shortly after the release of trixie,
and this upgrade will affect the magic package. There is the
techbuilder.tcl script that uses blt to display its user interface
via the blt::tabset widget. The widget's behavior changes a bit in blt
3.0, so some modifications are required to adapt to the changes. The
attached patch does that. Note that the modifications do not lose
compatibility with blt 2, so they can be applied any moment.
Cheers!
--
Sergei Golovan
--- a/tcltk/techbuilder.tcl
+++ b/tcltk/techbuilder.tcl
@@ -6,7 +6,7 @@
package require BLT
toplevel .techwizard
-blt::tabset .techwizard.parts -relief sunken -borderwidth 2
+blt::tabset .techwizard.parts -borderwidth 2
magic::windowcaption off
magic::windowscrollbars off
@@ -79,14 +79,16 @@
::unset j
.techwizard.parts configure -tiers 2
-.techwizard.parts insert end "tech" "planes" "layers" "connect" "compose" \
- "cifinput" "cifoutput" "extract" "drc" \
- "wiring" "router" "plowing" "plot"
+foreach label {"tech" "planes" "layers" "connect" "compose"
+ "cifinput" "cifoutput" "extract" "drc"
+ "wiring" "router" "plowing" "plot"} {
+ .techwizard.parts insert end $label
+}
.techwizard.parts tab configure "layers" -window .techwizard.parts.layers
-fill both
.techwizard.parts tab configure "drc" -window .techwizard.parts.drc -fill both
-.techwizard.parts tab configure "tech" -window .techwizard.parts.tech
-.techwizard.parts tab configure "planes" -window .techwizard.parts.planes
+.techwizard.parts tab configure "tech" -window .techwizard.parts.tech -fill
none
+.techwizard.parts tab configure "planes" -window .techwizard.parts.planes
-fill none
# Add styles to layout for selection
