Changeset 1015


Ignore:
Timestamp:
Jun 8, 2008 4:46:08 PM (16 years ago)
Author:
gah
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/optimizer/examples/simple.tcl

    r987 r1015  
    6161pack .value -side left -expand yes -fill both
    6262
    63 proc SetAbortFlag {} {
    64     global doAbort
    65     set doAbort 1
    66 }
    67 set doAbort 0
    68 button .quit -text Quit -command SetAbortFlag
     63button .quit -text Quit -command "optim abort yes"
    6964pack .quit
    7065set colors {magenta purple blue DeepSkyBlue cyan green yellow Gold orange tomato red FireBrick black}
     
    9186    fvec$pop append [$xmlobj get output.number(f).current]
    9287    incr jobnumber
    93     global doAbort
    94     if { $doAbort } {
    95         optim abort yes
    96     }
    9788}
    9889
Note: See TracChangeset for help on using the changeset viewer.