summaryrefslogtreecommitdiff
path: root/Examples/tcl/java/runme.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Examples/tcl/java/runme.tcl')
-rw-r--r--Examples/tcl/java/runme.tcl15
1 files changed, 15 insertions, 0 deletions
diff --git a/Examples/tcl/java/runme.tcl b/Examples/tcl/java/runme.tcl
new file mode 100644
index 0000000..6caf007
--- /dev/null
+++ b/Examples/tcl/java/runme.tcl
@@ -0,0 +1,15 @@
+catch { load ./example[info sharedlibextension] example}
+
+JvCreateJavaVM NULL
+JvAttachCurrentThread NULL NULL
+Example e1 1
+Example e2 2
+
+puts "[e1 cget -mPublicInt]"
+puts "[e2 cget -mPublicInt]"
+
+puts "[e2 Add 1 2]"
+puts "[e2 Add 1.0 2.0]"
+puts "[e2 Add '1' '2']"
+
+JvDetachCurrentThread