Neatware Header
Home   Products   Forums   Partners   Buy   Company   Contact   Blog   

Java Examples

  1. Call AWT
    package require java

    create an awt frame

    set f [java::new java.awt.Frame]
    $f setTitle "Hello World!"

    create an awt textarea, write text, and add to component

    set text [java::new java.awt.TextArea]
    $text setText "Java text example in MyrmecoX."
    $f {add java.awt.Component} $text

    set frame position, pack and show

    $f setLocation 256 100; $f pack; $f toFront; $f show
  2. Java Regression Testing
  3. Following example shows how easy to use MyrmecoX to test the Java codes with tcltest.

    package require java
    package require tcltest

    Test Java charAt() method. "1.1" is the name, or identifier, of the test.

    tcltest::test 1.1 {
      java.lang.String.charAt() method work?}  { 

    test and compare the return result. If the 7th char is not H, the test will return an error result. We can write any test scripts in the test body.

      set s [::java::new String "I am a Java String"]
      $s charAt 7 
    } H