Changeset 966 for trunk/gui

Timestamp:

Mar 27, 2008 4:17:12 PM (16 years ago)

Author:

gah

Message:

add -markers style option to nanovisviewer. The reverts the -levels option back to its old format

Location:

trunk/gui/scripts

Files:

• isomarker.tcl (modified) (1 diff)
• nanovisviewer.tcl (modified) (4 diffs)

trunk/gui/scripts/isomarker.tcl

@@ -37 +37 @@
                 -tags "$this $obj" -state hidden]
         set _label [$c create text 0 $h \
-                -anchor n -fill white -font "Helvetica 6" \
+                -anchor n -fill white -font "Helvetica 8" \
                 -tags "$this $obj" -state hidden]
         $c bind $_tick <Enter> [itcl::code $this HandleEvent "enter"]

trunk/gui/scripts/nanovisviewer.tcl

@@ -868 +868 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::NanovisViewer::_receive_legend { ivol vmin vmax size } {
-    puts stderr "called _receive_legend $ivol $vmin $vmax $size"
     if { [isconnected] } {
         set bytes [ReceiveBytes $size]
@@ -906 +905 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::NanovisViewer::_receive_data { args } {
-    puts stderr "called _receive_data $args"
     if { [isconnected] } {
         array set info $args
@@ -930 +928 @@
             $_dispatcher event -idle !send_transfuncs
         }
-        puts stderr "compute limits are "
-        parray _limits
     }
 }
@@ -1515 +1511 @@
     regsub -all "," $levels " " levels
     for {set i 1} { $i <= $levels } {incr i} {
-        set x [expr {double($i)/($nLevels+1)}]
+        set x [expr {double($i)/($levels+1)}]
         set m [IsoMarker \#auto $c $this]
         $m SetRelativeValue $x