From 8d4c509404eedc0d3765182eb8c5521df5150f3a Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Tue, 20 Jan 2004 21:22:56 +0000
Subject: All the runtime scripts are called runme.tcl now for easier testing

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5651 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Examples/tcl/enum/example.tcl | 32 --------------------------------
 Examples/tcl/enum/index.html  |  2 +-
 Examples/tcl/enum/runme.tcl   | 32 ++++++++++++++++++++++++++++++++
 3 files changed, 33 insertions(+), 33 deletions(-)
 delete mode 100644 Examples/tcl/enum/example.tcl
 create mode 100644 Examples/tcl/enum/runme.tcl

(limited to 'Examples/tcl/enum')

diff --git a/Examples/tcl/enum/example.tcl b/Examples/tcl/enum/example.tcl
deleted file mode 100644
index 3a9213d4d..000000000
--- a/Examples/tcl/enum/example.tcl
+++ /dev/null
@@ -1,32 +0,0 @@
-# file: example.tcl
-
-catch { load ./example[info sharedlibextension] example}
-
-# ----- Object creation -----
-
-# Print out the value of some enums
-puts "*** color ***"
-puts "    RED    = $RED"
-puts "    BLUE   = $BLUE"
-puts "    GREEN  = $GREEN"
-
-puts "\n*** Foo::speed ***"
-puts "    Foo_IMPULSE   = $Foo_IMPULSE"
-puts "    Foo_WARP      = $Foo_WARP"
-puts "    Foo_LUDICROUS = $Foo_LUDICROUS"
-
-
-puts "\nTesting use of enums with functions\n"
-
-enum_test $RED   $Foo_IMPULSE
-enum_test $BLUE  $Foo_WARP
-enum_test $GREEN $Foo_LUDICROUS
-enum_test 1234   5678
-
-puts "\nTesting use of enum with class method"
-Foo f
-
-f enum_test $Foo_IMPULSE
-f enum_test $Foo_WARP
-f enum_test $Foo_LUDICROUS
-
diff --git a/Examples/tcl/enum/index.html b/Examples/tcl/enum/index.html
index 1299946fd..4390e38ab 100644
--- a/Examples/tcl/enum/index.html
+++ b/Examples/tcl/enum/index.html
@@ -21,7 +21,7 @@ of enumerated types are handled as integers.
 <ul>
 <li><a href="example.h">example.h</a>.  Header file containing some enums.
 <li><a href="example.i">example.i</a>.  Interface file.
-<li><a href="example.tcl">example.tcl</a>. Sample Tcl script.
+<li><a href="runme.tcl">runme.tcl</a>. Sample Tcl script.
 </ul>
 
 <h2>Notes</h2>
diff --git a/Examples/tcl/enum/runme.tcl b/Examples/tcl/enum/runme.tcl
new file mode 100644
index 000000000..3d4e52ac5
--- /dev/null
+++ b/Examples/tcl/enum/runme.tcl
@@ -0,0 +1,32 @@
+# file: runme.tcl
+
+catch { load ./example[info sharedlibextension] example}
+
+# ----- Object creation -----
+
+# Print out the value of some enums
+puts "*** color ***"
+puts "    RED    = $RED"
+puts "    BLUE   = $BLUE"
+puts "    GREEN  = $GREEN"
+
+puts "\n*** Foo::speed ***"
+puts "    Foo_IMPULSE   = $Foo_IMPULSE"
+puts "    Foo_WARP      = $Foo_WARP"
+puts "    Foo_LUDICROUS = $Foo_LUDICROUS"
+
+
+puts "\nTesting use of enums with functions\n"
+
+enum_test $RED   $Foo_IMPULSE
+enum_test $BLUE  $Foo_WARP
+enum_test $GREEN $Foo_LUDICROUS
+enum_test 1234   5678
+
+puts "\nTesting use of enum with class method"
+Foo f
+
+f enum_test $Foo_IMPULSE
+f enum_test $Foo_WARP
+f enum_test $Foo_LUDICROUS
+
-- 
cgit v1.2.1