Changeset 987

Timestamp:

Apr 2, 2008, 2:34:22 PM (17 years ago)

Author:

gah

Message:

augmented example with abort button

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
+pack .quit
 set colors {magenta purple blue DeepSkyBlue cyan green yellow Gold orange tomato red FireBrick black}
 
@@ -84 +91 @@
     fvec$pop append [$xmlobj get output.number(f).current]
     incr jobnumber
+    global doAbort
+    if { $doAbort } {
+        optim abort yes
+    }
 }