home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2005 March / PCWELT_3_2005.ISO / pcwsoft / framework-2.2.exe / scopedobject < prev    next >
Encoding:
Text File  |  2003-09-01  |  314 b   |  17 lines
  1. #!/bin/sh
  2. # \
  3.     exec wish8.4 -f $0 $*
  4.  
  5. package require Iwidgets 4.0
  6.  
  7. #
  8. # Demo script for the Scopedobject class
  9. #
  10. proc scopedobject_demo {} {
  11.   iwidgets::scopedobject #auto \
  12.         -exitscopecommand {puts "enter scopedobject_demo"} \
  13.         -exitscopecommand {puts "exit scopedobject_demo"}
  14. }
  15.  
  16. scopedobject_demo
  17.