From cedd64adcb77c03bad4a578e980bbeddc7671bdf Mon Sep 17 00:00:00 2001
From: "R. Timothy Edwards" <tim@opencircuitdesign.com>
Date: Tue, 24 Feb 2026 16:40:07 -0500
Subject: [PATCH] Quick fix to the script use of "units", which needs to expand
 the list argument if the units were saved as a variable.

---
 tcltk/drcmgr.tcl  |  2 +-
 tcltk/toolkit.tcl |  6 +++---
 tcltk/tools.tcl   | 10 +++++-----
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/tcltk/drcmgr.tcl b/tcltk/drcmgr.tcl
index d3c4970f..fabb8728 100644
--- a/tcltk/drcmgr.tcl
+++ b/tcltk/drcmgr.tcl
@@ -53,7 +53,7 @@ proc magic::drccallback {command} {
 	    magic::findbox zoom
 	    magic::zoom 2
 	    magic::resumeall
-	    units $curunits
+	    units {*}$curunits
 	 }
       }
    }
diff --git a/tcltk/toolkit.tcl b/tcltk/toolkit.tcl
index 57570692..75b5620d 100644
--- a/tcltk/toolkit.tcl
+++ b/tcltk/toolkit.tcl
@@ -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
diff --git a/tcltk/tools.tcl b/tcltk/tools.tcl
index 3a60696b..5e9cc666 100644
--- a/tcltk/tools.tcl
+++ b/tcltk/tools.tcl
@@ -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
 }
 
 #---------------------------------------------------------------------