diff options
Diffstat (limited to 'iwidgets/demos/scopedobject')
-rw-r--r-- | iwidgets/demos/scopedobject | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/iwidgets/demos/scopedobject b/iwidgets/demos/scopedobject new file mode 100644 index 00000000000..81fb31a6359 --- /dev/null +++ b/iwidgets/demos/scopedobject @@ -0,0 +1,16 @@ +#!/bin/sh +# \ + exec wish8.4 -f $0 $* + +package require Iwidgets 4.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 |