Main Page | Namespace List | Class Hierarchy | Alphabetical List | Class List | File List | Namespace Members | Class Members | File Members | Related Pages

error.tcl File Reference


Detailed Description

Overwrite the tcl error suite to deactivated the CdgBusy dialog in case of an error.

Author:
Michael Daum (see also AUTHORS and THANKS for more)
Id
error.tcl,v 1.7 2004/02/25 14:40:41 micha Exp

Definition in file error.tcl.

Go to the source code of this file.

Functions

 bgerror (TclList args)
 catch (TclCommand script, TclString varName="")
 error (TclString message, TclString info="", TclCommand code="")

Variables

TclNumber _catchFlag = 0
TclNumber _errorFlag = 0


Function Documentation

bgerror TclList  args  ) 
 

overwrite the system bgerror command. This function simply flags the error in the global variable _errorFlag = 1 when it is encountered, deactivates a CdgBusy dialog and the delegates the rest of the call to the origninal bgerror having been renamed to _bgerror. Definition at line 43 of file error.tcl.

References bgerror().

Referenced by bgerror().

catch TclCommand  script,
TclString  varName = ""
 

overwrite the system cache command. This function basically sets the global variable catchFlag = 1 before it then calls the system cache command (which was renamed to catch). After having done that it sets catchFlag = 0 again. So we track the part of call that is being catched, the effect of which is that we want to deactivate the CdgBusy dialog only once in error(). Definition at line 58 of file error.tcl.

error TclString  message,
TclString  info = "",
TclCommand  code = ""
 

overwrite the system error command. This flag safely deactivates the CdgBusy dialog, i.e. when the _catchFlag is not set. If so it also flags the error having taken place in _errorFlag = 1. Definition at line 78 of file error.tcl.

References error().

Referenced by CdgMenu::_setFlag(), error(), MyTable::hscrollmode(), Parse::init(), and MyTable::vscrollmode().


Variable Documentation

TclNumber _catchFlag = 0
 

global flags used in catch(), error() and bgerror()

Definition at line 26 of file error.tcl.

TclNumber _errorFlag = 0
 

global flags used in catch(), error() and bgerror()

Definition at line 23 of file error.tcl.

Referenced by CdgBusy::compute(), CdgMenu::init_data(), and CdgBusy::interrupt().


XCDG 0.95 (20 Oct 2004)