Examples/tcl/java/runme.tcl

   1 catch { load ./example[info sharedlibextension] example}
   2
   3 JvCreateJavaVM  NULL
   4 JvAttachCurrentThread NULL NULL
   5 Example e1 1
   6 Example e2 2
   7
   8 puts "[e1 cget -mPublicInt]"
   9 puts "[e2 cget -mPublicInt]"
  10
  11 puts "[e2 Add 1 2]"
  12 puts "[e2 Add 1.0 2.0]"
  13 puts "[e2 Add '1' '2']"
  14
  15 JvDetachCurrentThread