#!/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