scopedobject

来自「这是一个Linux下的集成开发环境」· 代码 · 共 19 行

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