Changeset 6 for trunk/gui/scripts/analyzer.tcl

Timestamp:

Mar 23, 2005, 8:19:29 PM (19 years ago)

Author:

mmc

Message:

Fixed the Tcl library to mirror the API developed for XML
libraries on the Python side. The Tcl Rappture::library
now has methods like "children", "element", "put", etc.
One difference: On the Tcl side, the default -flavor for
element/children is "component", since that works better
in Tcl code. In Python, the default is flavor=object.

Also fixed the Tcl install script to install not just
the tcl/scripts library, but also the ../gui and ../lib
directories.

File:

• trunk/gui/scripts/analyzer.tcl (modified) (5 diffs)

trunk/gui/scripts/analyzer.tcl

@@ -258 +258 @@
 # ----------------------------------------------------------------------
 itcl::configbody Rappture::Analyzer::tool {
-    if {![Rappture::Library::valid $itk_option(-tool)]} {
+    if {![Rappture::library isvalid $itk_option(-tool)]} {
         error "bad value \"$itk_option(-tool)\": should be Rappture::Library"
     }
@@ -276 +276 @@
 itcl::configbody Rappture::Analyzer::device {
     if {$itk_option(-device) != ""
-          && ![Rappture::Library::valid $itk_option(-device)]} {
+          && ![Rappture::library isvalid $itk_option(-device)]} {
         error "bad value \"$itk_option(-device)\": should be Rappture::Library"
     }
@@ -289 +289 @@
 # ----------------------------------------------------------------------
 itcl::configbody Rappture::Analyzer::analysis {
-    if {![Rappture::Library::valid $itk_option(-analysis)]} {
+    if {![Rappture::library isvalid $itk_option(-analysis)]} {
         error "bad value \"$itk_option(-analysis)\": should be Rappture::Library"
     }
@@ -299 +299 @@
 
     set counter 0
-    foreach item [$itk_option(-analysis) get -children] {
+    foreach item [$itk_option(-analysis) children] {
         switch -glob -- $item {
             xyplot* {
@@ -311 +311 @@
 
                 set _widgets($item) [Rappture::Xyplot $page.#auto \
-                    -layout [$itk_option(-analysis) get -object $item]]
+                    -layout [$itk_option(-analysis) element -flavor object $item]]
                 pack $_widgets($item) -expand yes -fill both
             }