1 files changed, 22 insertions, 0 deletions
diff --git a/tix/tests/itcl/namesp.tcl b/tix/tests/itcl/namesp.tcl
new file mode 100644
index 00000000000..0f565242093
--- /dev/null
+++ b/tix/tests/itcl/namesp.tcl
@@ -0,0 +1,22 @@
+# 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
+}