Tcl Source Code

Artifact 51b1efe20c724b96a9cca806ff5cfd8c81bf3979:

Attachment "jtest.tcl" to ticket [2008248fff] added by ajpasadyn 2008-07-02 03:51:39.

---

package require java

proc make_array {} {
    set a(String) [java::new String "hello"]
    set a(Object) [java::new Object]
    set a(Double) [java::new Double 4.2]
    return [array get a]
}

foreach {n v} [make_array] {
    puts "$n: [$v toString]"
}