27 lines
513 B
Tcl
27 lines
513 B
Tcl
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
|
|
#
|
|
# $Id: namesp.tcl,v 1.2 2002/11/13 21:12:18 idiscovery Exp $
|
|
#
|
|
# This file tests the pixmap image reader
|
|
#
|
|
|
|
proc About {} {
|
|
return "This file performs test on name space"
|
|
}
|
|
|
|
proc Test {} {
|
|
namespace mySpace {
|
|
variable hsl ".hsl"
|
|
proc creatHSL {} {
|
|
global hsl
|
|
tixScrolledHList $hsl
|
|
}
|
|
proc packHSL {} {
|
|
global hsl
|
|
pack $hsl
|
|
}
|
|
}
|
|
mySpace::creatHSL
|
|
mySpace::packHSL
|
|
}
|