Changeset 476

Timestamp:

Dec 4, 2009 5:06:48 PM (13 years ago)

Author:

toby

Message:

# on 2001/10/31 20:02:37, toby did:
manual zoom option

File:

• trunk/liveplot (modified) (2 diffs, 3 props)

trunk/liveplot

@@ -1382 +1382 @@
 }
 
+#-------------------------------------------------------------------------
+# manual zoom option
+proc BLTmanualZoom {} {
+    global graph
+    catch {toplevel .zoom}
+    eval destroy [grid slaves .zoom]
+    raise .zoom
+    wm title .zoom {Manual Scaling}
+    grid [label .zoom.l1 -text minimum] -row 1 -column 2 
+    grid [label .zoom.l2 -text maximum] -row 1 -column 3 
+    grid [label .zoom.l3 -text x] -row 2 -column 1 
+    grid [label .zoom.l4 -text y] -row 3 -column 1 
+    grid [entry .zoom.xmin -textvariable graph(xmin) -width 10] -row 2 -column 2 
+    grid [entry .zoom.xmax -textvariable graph(xmax) -width 10] -row 2 -column 3 
+    grid [entry .zoom.ymin -textvariable graph(ymin) -width 10] -row 3 -column 2 
+    grid [entry .zoom.ymax -textvariable graph(ymax) -width 10] -row 3 -column 3 
+    grid [frame .zoom.b] -row 4 -column 1 -columnspan 3
+    grid [button .zoom.b.1 -text "Set Scaling" \
+             -command "SetManualZoom set"]  -row 4 -column 1 -columnspan 2
+    grid [button .zoom.b.2 -text Reset \
+            -command "SetManualZoom clear"] -row 4 -column 3
+    grid [button .zoom.b.3 -text Close -command "destroy .zoom"] -row 4 -column 4 
+    grid rowconfigure .zoom 1 -weight 1 -pad 5
+    grid rowconfigure .zoom 2 -weight 1 -pad 5
+    grid rowconfigure .zoom 3 -weight 1 -pad 5
+    grid rowconfigure .zoom 4 -weight 0 -pad 5
+    grid columnconfigure .zoom 1 -weight 1 -pad 20
+    grid columnconfigure .zoom 1 -weight 1 
+    grid columnconfigure .zoom 3 -weight 1 -pad 10
+    foreach item {min min max max} \
+            format {3   2   3   2} \
+            axis   {x   y   x   y} {
+        set val [$graph(blt) ${axis}axis cget -${item}]
+        set graph(${axis}${item}) {(auto)}
+        catch {set graph(${axis}${item}) [format %.${format}f $val]}
+    }
+}
+
+proc SetManualZoom {mode} {
+    global graph
+    if {$mode == "clear"} {
+        foreach item {xmin ymin xmax ymax} {
+            set graph($item) {(auto)}
+        }
+    }
+    foreach item {xmin ymin xmax ymax} {
+        set $item {}
+        catch {set $item [expr $graph($item)]}  
+    }
+    # reset the zoomstack
+    catch {Blt_ZoomStack $graph(blt)}
+    catch {$graph(blt) xaxis config -min $xmin -max $xmax}
+    catch {$graph(blt) yaxis config -min $ymin -max $ymax}
+}
 
 source [file join $expgui(scriptdir) gsascmds.tcl]
@@ -1486 +1540 @@
     eval $box element config 4 $graph(ElementHideOption) 
 }
+bind . <Key-z> {BLTmanualZoom}
+bind . <Key-Z> {BLTmanualZoom}
+
 $box yaxis config -title {} 
 setlegend $box $graph(legend)