luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Quick fix to the script use of "units", which needs to expand the 

list argument if the units were saved as a variable.
This commit is contained in:
R. Timothy Edwards 2026-02-24 16:40:07 -05:00
parent afca58f162
commit cedd64adcb
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tcltk/drcmgr.tcl
View File

@ -53,7 +53,7 @@ proc magic::drccallback {command} {
magic::findbox zoom
magic::zoom 2
magic::resumeall
units $curunits
units {*}$curunits
}
}
}

6
tcltk/toolkit.tcl
View File

@ -881,7 +881,7 @@ proc magic::gencell_change {instname gencell_type library parameters} {
}
identify $newinstname
eval "box values $savebox"
units $curunits
units {*}$curunits
# Update window
if {$gname != $old_gname} {
@ -969,7 +969,7 @@ proc magic::gencell_change_orig {instname gencell_type library parameters} {
}
identify $newinstname
eval "box values $savebox"
units $curunits
units {*}$curunits
resumeall
redraw
}
@ -1123,7 +1123,7 @@ proc magic::gencell_create {gencell_type library parameters {orient 0}} {
identify $newinstname
set instname $newinstname
}
units $curunits
units {*}$curunits
resumeall
redraw
return $instname

10
tcltk/tools.tcl
View File

@ -142,7 +142,7 @@ proc magic::pushstack {{name ""}} {
set curunits [units]
units internal
lappend editstack [view get]
units $curunits
units {*}$curunits
lappend editstack [cellname list window]
set ltag [tag load]
tag load {}
@ -166,7 +166,7 @@ proc magic::popstack {} {
set curunits [units]
units internal
view [lindex $editstack end-1]
units $curunits
units {*}$curunits
catch {magic::cellmanager}
catch {magic::captions}
resumeall
@ -201,7 +201,7 @@ proc magic::pushbox {{values {}}} {
} else {
lappend boxstack $values
}
units $curunits
units {*}$curunits
return
}
@ -236,7 +236,7 @@ proc magic::popbox {{type values}} {
}
}
set boxstack [lrange $boxstack 0 end-1]
units $curunits
units {*}$curunits
return $b
}
@ -415,7 +415,7 @@ proc magic::ruler {{text {}} {orient auto}} {
element configure l3_$Opts(rulers) flags arrowbottom
}
}
units $curunits
units {*}$curunits
}
#---------------------------------------------------------------------