Changeset 22 for trunk/gui/scripts/groupentry.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/groupentry.tcl (modified) (5 diffs)

trunk/gui/scripts/groupentry.tcl

@@ -15 +15 @@
     inherit itk::Widget
 
-    constructor {xmlobj path args} { # defined below }
+    constructor {owner path args} { # defined below }
 
     public method value {args}
@@ -22 +22 @@
     public method tooltip {}
 
-    private variable _xmlobj ""   ;# XML containing description
+    private variable _owner ""    ;# thing managing this control
     private variable _path ""     ;# path in XML to this number
 }
@@ -36 +36 @@
 # CONSTRUCTOR
 # ----------------------------------------------------------------------
-itcl::body Rappture::GroupEntry::constructor {xmlobj path args} {
-    if {![Rappture::library isvalid $xmlobj]} {
-        error "bad value \"$xmlobj\": should be Rappture::library"
+itcl::body Rappture::GroupEntry::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
 
@@ -67 +67 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::GroupEntry::label {} {
-    return [$_xmlobj get $_path.about.label]
+    return [$_owner xml get $_path.about.label]
 }
 
@@ -79 +79 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::GroupEntry::tooltip {} {
-    return [$_xmlobj get $_path.about.description]
+    return [$_owner xml get $_path.about.description]
 }