home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / scopedobject < prev    next >
Text File  |  2003-09-01  |  314b  |  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.