Import Tix 8.4.3.5 (as of svn r86089)

tests/itcl/namesp.tcl

@@ -0,0 +1,26 @@
+# -*- 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
+}