From 11fa862fc42344474c061958daa4b79fc49c80d7 Mon Sep 17 00:00:00 2001 From: marko Date: Tue, 15 Nov 2005 12:35:35 +0000 Subject: [PATCH] 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: --- cfgparse.tcl | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/cfgparse.tcl b/cfgparse.tcl index 4593d92..c994fbc 100755 --- 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] - } } } -- 2.39.5