home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / demos / IWidgets / scopedobject < prev    next >
Encoding:
Text File  |  2001-10-22  |  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.