diff options
Diffstat (limited to 'itcl/iwidgets3.0.0/demos/scopedobject')
-rw-r--r-- | itcl/iwidgets3.0.0/demos/scopedobject | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/itcl/iwidgets3.0.0/demos/scopedobject b/itcl/iwidgets3.0.0/demos/scopedobject new file mode 100644 index 00000000000..e42884c6dad --- /dev/null +++ b/itcl/iwidgets3.0.0/demos/scopedobject @@ -0,0 +1,18 @@ +#!/bin/sh +# \ + exec itkwish -f "$0" ${1+"$@"} + +package require Iwidgets 3.0 + +# +# Demo script for the Scopedobject class +# +proc scopedobject_demo {} { + iwidgets::scopedobject #auto \ + -exitscopecommand {puts "enter scopedobject_demo"} \ + -exitscopecommand {puts "exit scopedobject_demo"} +} + +scopedobject_demo + + |