# A silly little calculator implemented in Jacl using | |
# Java components for the UI. | |
# Rony G. Flatscher, 2006-08-08 | |
package require java | |
set p [bsf lookupBean "centerPanel"] | |
$p setLayout [java::new java.awt.BorderLayout] | |
$p add "Center" [java::new java.awt.Label "Middle from Jacl"] | |
$p add "North" [java::new java.awt.TextField "north text from Jacl"] | |
$p add "South" [java::new java.awt.TextField "south text from Jacl"] | |
$p add "East" [java::new java.awt.Button "inner east from Jacl"] | |
$p add "West" [java::new java.awt.Button "inner west from Jacl"] | |
$p setBackground [java::field java.awt.Color pink] | |
set f [$p getParent] | |
# needed, because the getParent() returns a "java.awt.Container" not "java.awt.Frame" | |
# in the Jacl engine! The following does not hint at the Java class (other than | |
# java.lang.Object) such that the Jacl engine *seems* to start reflection at the | |
# class from which the object got created from | |
set f [bsf lookupBean "parentFrame"] | |
$f setTitle "Hello from Jacl (title reset from Jacl)" | |