# 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)"