The busy dialog should also be closed in case of any errors. This is accomplished by overwriting the tcl commands "error", "catch" and "bgerror" in error.tcl.
Definition at line 27 of file busy.tcl.
Public Member Functions | |
CdgBusy (TclList args) | |
compute (TclString text, TclList args) | |
interrupt (TclList args) | |
Public Attributes | |
TclNumber | wait = 500 |
Private Member Functions | |
blink () | |
enterAction (TclWidget w, TclNumber x, TclNumber y) | |
leaveAction () | |
reset () | |
Private Attributes | |
TclString | blinkJob = "" |
TclString | computeText = "" |
TclNumber | isActive = 0 |
TclNumber | ledState = 0 |
TclString | oldCursor = "" |
|
constructor |
|
indicate computation |
|
execute the command. This method first shows the dialog and the spawns an
References _errorFlag. |
|
display the busy balloon. This slot is connected to the <enter> event. Definition at line 179 of file busy.tcl. |
|
interrupt the current computation. Definition at line 121 of file busy.tcl. References _errorFlag. |
|
disable the busy balloon. This slot is connected to the <leave> event. Definition at line 187 of file busy.tcl. |
|
reset the blinker to a normal state. |