home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jalert.tcl < prev    next >
Encoding:
Text File  |  1995-02-09  |  1.1 KB  |  38 lines
  1. # jalert.tcl - notification panel
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. ######################################################################
  8. # j:alert ?options? - alert box
  9. # options include
  10. #   -title (default "Alert")
  11. #   -text (default "Alert!" - not really optional)
  12. ######################################################################
  13.  
  14. proc j:alert { args } {
  15.   j:parse_args {
  16.     {title "Alert"}
  17.     {text "Alert!"}
  18.   }
  19.   set old_focus [j:current_focus]    ;# so we can restore original focus
  20.   toplevel .alert
  21.   wm title .alert $title
  22.   
  23.   message .alert.msg -width 300 -anchor w -text $text
  24.   j:buttonbar .alert.b -default ok -buttons {{ok OK {destroy .alert}}}
  25.   
  26.   pack .alert.msg -side top -fill both -expand yes -padx 10 -pady 10
  27.   pack [j:rule .alert -width 200] -side top -fill x
  28.   pack .alert.b -side bottom -fill both
  29.   
  30.   j:dialogue .alert        ;# position in centre of screen
  31.  
  32.   focus .alert
  33.   j:default_button .alert.b.ok .alert
  34.   grab .alert
  35.   tkwait window .alert
  36.   focus $old_focus
  37. }
  38.