home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / tcl / 2205 < prev    next >
Encoding:
Text File  |  1992-12-22  |  1021 b   |  39 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!uunet.ca!choreo!news
  3. From: news@choreo.ca (Choreo NetNews Administration Account(Ottawa))
  4. Subject: suspending events
  5. X-Disclaimer:  This news article was written by an employee or customer of
  6.                Choreo Systems Inc., and does not necessarily reflect the
  7.                opinions or views of the Managament of Choreo Systems Inc.
  8. Reply-To: chare@choreo.ca
  9. Organization: Choreo Systems, Ottawa Canada
  10. Date: Tue, 22 Dec 1992 14:15:09 GMT
  11. Message-ID: <1992Dec22.141509.28807@choreo.ca>
  12. Followup-To: poster
  13. Lines: 24
  14.  
  15. I have a tcl/tk script which handles some error processing, and displays
  16. a dialog box with the information message to the user when an error occurs.
  17. I set focus to the error window.  How do I keep the script from executing
  18. until the user presses the OK button?
  19.  
  20. For example
  21.  
  22. if .... {
  23.    errorDialog "message"
  24.    update
  25. }
  26.             <- I don't to continue here until an OK button is pressed.
  27. more code 
  28. ...
  29.  
  30.  
  31. proc errorDialog {} {
  32.    ....
  33. }
  34.  
  35.  
  36. Thanks
  37.  
  38.  
  39.