Changeset 22 for trunk/gui/scripts/booleanentry.tcl

Timestamp:

Jul 16, 2005, 2:31:32 PM (19 years ago)

Author:

mmc

Message:

Lots of changes to support Huckel-IV:

• Support for embedded <tool> declarations
• New <integer> entry
• Support for numbers and structures as output elements
• Atom numbers/symbols in MoleculeViewer?

File:

• trunk/gui/scripts/booleanentry.tcl (modified) (8 diffs)

trunk/gui/scripts/booleanentry.tcl

@@ -14 +14 @@
     inherit itk::Widget
 
-    constructor {xmlobj path args} { # defined below }
+    constructor {owner path args} { # defined below }
 
     public method value {args}
@@ -23 +23 @@
     protected method _newValue {}
 
-    private variable _xmlobj ""   ;# XML containing description
+    private variable _owner ""    ;# thing managing this control
     private variable _path ""     ;# path in XML to this number
 }
@@ -37 +37 @@
 # CONSTRUCTOR
 # ----------------------------------------------------------------------
-itcl::body Rappture::BooleanEntry::constructor {xmlobj path args} {
-    if {![Rappture::library isvalid $xmlobj]} {
-        error "bad value \"$xmlobj\": should be Rappture::library"
+itcl::body Rappture::BooleanEntry::constructor {owner path args} {
+    if {[catch {$owner isa Rappture::ControlOwner} valid] != 0 || !$valid} {
+        error "bad object \"$owner\": should be Rappture::ControlOwner"
     }
-    set _xmlobj $xmlobj
+    set _owner $owner
     set _path $path
 
@@ -54 +54 @@
     bind $itk_component(switch) <<Value>> [itcl::code $this _newValue]
 
-    set color [$xmlobj get $path.about.color]
+    set color [$_owner xml get $path.about.color]
     if {$color != ""} {
         $itk_component(switch) configure -oncolor $color
@@ -60 +60 @@
 
     # if the control has an icon, plug it in
-    set str [$xmlobj get $path.about.icon]
+    set str [$_owner xml get $path.about.icon]
     if {$str != ""} {
         $itk_component(switch) configure -onimage \
@@ -71 +71 @@
     # Assign the default value to this widget, if there is one.
     #
-    set str [$xmlobj get $path.default]
+    set str [$_owner xml get $path.default]
     if {"" != $str != ""} { $itk_component(switch) value $str }
 }
@@ -118 +118 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::BooleanEntry::label {} {
-    set label [$_xmlobj get $_path.about.label]
+    set label [$_owner xml get $_path.about.label]
     if {"" == $label} {
         set label "Boolean"
@@ -134 +134 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::BooleanEntry::tooltip {} {
-    set str [$_xmlobj get $_path.about.description]
+    set str [$_owner xml get $_path.about.description]
 
-    set units [$_xmlobj get $_path.units]
-    set min [$_xmlobj get $_path.min]
-    set max [$_xmlobj get $_path.max]
+    set units [$_owner xml get $_path.units]
+    set min [$_owner xml get $_path.min]
+    set max [$_owner xml get $_path.max]
 
     if {$units != "" || $min != "" || $max != ""} {