diff options
author | Tim Edwards <tim@opencircuitdesign.com> | 2015-10-13 21:22:55 -0400 |
---|---|---|
committer | Tim Edwards <tim@opencircuitdesign.com> | 2015-10-13 21:22:55 -0400 |
commit | b444a3fa01283972eee8d6ad28f9754d3870de91 (patch) | |
tree | 6828b312258e7acaea29834b30ffca1fb8fb9ef5 /qrouter.tcl.in | |
parent | d104462b6956510498e76f776cdedd0257af7866 (diff) |
Revised the "-k" command switch so that it takes a number which
indicated the number of additional attempts after things start
looking bad. This option is mirrored in the command option
"stage2 tries <n>".
Diffstat (limited to 'qrouter.tcl.in')
-rw-r--r-- | qrouter.tcl.in | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/qrouter.tcl.in b/qrouter.tcl.in index 6c553ee..346defc 100644 --- a/qrouter.tcl.in +++ b/qrouter.tcl.in @@ -137,18 +137,19 @@ set appname .qrouter set appframe ${appname}.dframe set drawwindow ${appframe}.drawing -toplevel ${appname} -frame ${appframe} +if {![catch toplevel ${appname}]} { + frame ${appframe} -pack ${appframe} -side left -expand true -fill both -simple ${drawwindow} -width 1000 -height 800 -pack ${drawwindow} -expand true -fill both + pack ${appframe} -side left -expand true -fill both + simple ${drawwindow} -width 1000 -height 800 + pack ${drawwindow} -expand true -fill both -bind ${appframe} <Expose> redraw -bind ${appframe} <Visibility> redraw -bind ${appframe} <Configure> redraw + bind ${appframe} <Expose> redraw + bind ${appframe} <Visibility> redraw + bind ${appframe} <Configure> redraw -wm withdraw . + wm withdraw . +} proc qrouter::lowerconsole {} { consoledown |