- Timestamp:
- Apr 2, 2008, 2:34:22 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/optimizer/examples/simple.tcl
r903 r987 61 61 pack .value -side left -expand yes -fill both 62 62 63 proc SetAbortFlag {} { 64 global doAbort 65 set doAbort 1 66 } 67 set doAbort 0 68 button .quit -text Quit -command SetAbortFlag 69 pack .quit 63 70 set colors {magenta purple blue DeepSkyBlue cyan green yellow Gold orange tomato red FireBrick black} 64 71 … … 84 91 fvec$pop append [$xmlobj get output.number(f).current] 85 92 incr jobnumber 93 global doAbort 94 if { $doAbort } { 95 optim abort yes 96 } 86 97 } 87 98
Note: See TracChangeset
for help on using the changeset viewer.