Bugfix: opening old-style (single-canvas) config files in CLI mode should

now work.

Bug found by:	Miljenko
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/cfgparse.tcl b/cfgparse.tcl
index 4593d92ba30ba0e06792e6e24be4ba04bc351196..c994fbc2eec7cb6e8abebe87248f31b68facdabc 100755 (executable)
--- a/cfgparse.tcl
+++ b/cfgparse.tcl
@@ -303,19 +303,9 @@ proc loadCfg { cfg } {
     # Hack for comaptibility with old format files (no canvases)
     #
     if { $canvas_list == "" } {
-       global curcanvas sizex sizey
-
        set curcanvas [newCanvas ""]
        foreach node $node_list {
            setNodeCanvas $node $curcanvas
-           set x [lindex [getNodeCoords $node] 0]
-           set y [lindex [getNodeCoords $node] 1]
-           if { $x > $sizex } {
-               set sizex [expr $x + 32]
-           }
-           if { $y > $sizey } {
-               set sizey [expr $y + 32]
-           }
        }
     }