Changeset 1015

Timestamp:

Jun 8, 2008 4:46:08 PM (15 years ago)

Author:

gah

Message:

 

File:

• trunk/optimizer/examples/simple.tcl (modified) (2 diffs)

trunk/optimizer/examples/simple.tcl

@@ -61 +61 @@
 pack .value -side left -expand yes -fill both
 
-proc SetAbortFlag {} {
-    global doAbort
-    set doAbort 1
-}
-set doAbort 0
-button .quit -text Quit -command SetAbortFlag
+button .quit -text Quit -command "optim abort yes"
 pack .quit
 set colors {magenta purple blue DeepSkyBlue cyan green yellow Gold orange tomato red FireBrick black}
@@ -91 +86 @@
     fvec$pop append [$xmlobj get output.number(f).current]
     incr jobnumber
-    global doAbort
-    if { $doAbort } {
-        optim abort yes
-    }
 }