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