| # Licensed to the Apache Software Foundation (ASF) under one | |
| # or more contributor license agreements. See the NOTICE file | |
| # distributed with this work for additional information | |
| # regarding copyright ownership. The ASF licenses this file | |
| # to you under the Apache License, Version 2.0 (the | |
| # "License"); you may not use this file except in compliance | |
| # with the License. You may obtain a copy of the License at | |
| # | |
| # http://www.apache.org/licenses/LICENSE-2.0 | |
| # | |
| # Unless required by applicable law or agreed to in writing, | |
| # software distributed under the License is distributed on an | |
| # "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY | |
| # KIND, either express or implied. See the License for the | |
| # specific language governing permissions and limitations | |
| # under the License. | |
| # 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)" | |