Changeset 13 for trunk/gui/scripts/tool.tcl

Timestamp:

Jun 8, 2005 5:37:19 PM (19 years ago)

Author:

mmc

Message:

Many improvements, including a new energy level viewer
for Huckel-IV. Added support for a new <boolean> type.
Fixed the cloud/field stuff so that when a cloud is 1D,
it reverts to BLT vectors so it will plot correctly.
Fixed the install script to work better on Windows.

File:

• trunk/gui/scripts/tool.tcl (modified) (3 diffs)

trunk/gui/scripts/tool.tcl

@@ -24 +24 @@
 
     public method load {xmlobj}
-    public method changed {path}
     public method run {args}
     public method abort {}
 
     public method widgetfor {path {widget ""}}
+    public method changed {path}
     public method sync {}
+    public method tool {}
 
     private variable _xmlobj ""      ;# XML overall <run> object
@@ -155 +156 @@
 # USAGE: widgetfor <path> ?<widget>?
 #
-# Used by descendents such as a Controls panel to register the
+# Used by embedded widgets such as a Controls panel to register the
 # various controls associated with this page.  That way, this Tool
 # knows what widgets to look at when syncing itself to the underlying
@@ -227 +228 @@
     }
 }
+
+# ----------------------------------------------------------------------
+# USAGE: tool
+#
+# Clients use this to figure out which tool is associated with
+# this object.  Since this is a tool, it returns itself.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Tool::tool {} {
+    return $this
+}