Context Navigation

source: trunk/gui/scripts/numberresult.tcl @ 4661

Last change on this file since 4661 was 3813, checked in by ldelgass, 11 years ago
Fix bug in 'add' method of viewer widgets: list search for existing dataobj entry was wrong (list and pattern transposed), causing potential duplicate entries in dataobj list.
File size: 56.0 KB

Line
1	# -- mode: tcl; indent-tabs-mode: nil --
2
3	# ----------------------------------------------------------------------
4	# COMPONENT: numberresult - plot of numbers in a ResultSet
5	#
6	# This widget is an X/Y plot, meant to points produced as <number>
7	# or <integer> outputs from the run of a Rappture tool. Use the
8	# "add" and "delete" methods to control the points showing on the
9	# plot. One interesting thing that this result does is configure
10	# the x-axis according to the current result control (simulation
11	# number or other active parameter).
12	# ======================================================================
13	# AUTHOR: Michael McLennan, Purdue University
14	# Copyright (c) 2004-2012 HUBzero Foundation, LLC
15	#
16	# See the file "license.terms" for information on usage and
17	# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
18	# ======================================================================
19	package require Itk
20	package require BLT
21
22	set autocolors {
23	#0000cd
24	#cd0000
25	#00cd00
26	#3a5fcd
27	#cdcd00
28	#cd1076
29	#009acd
30	#00c5cd
31	#a2b5cd
32	#7ac5cd
33	#66cdaa
34	#a2cd5a
35	#cd9b9b
36	#cdba96
37	#cd3333
38	#cd6600
39	#cd8c95
40	#cd00cd
41	#9a32cd
42	#6ca6cd
43	#9ac0cd
44	#9bcd9b
45	#00cd66
46	#cdc673
47	#cdad00
48	#cd5555
49	#cd853f
50	#cd7054
51	#cd5b45
52	#cd6889
53	#cd69c9
54	#551a8b
55	}
56
57	option add *NumberResult.width 3i widgetDefault
58	option add *NumberResult.height 3i widgetDefault
59	option add *NumberResult.gridColor #d9d9d9 widgetDefault
60	option add *NumberResult.activeColor blue widgetDefault
61	option add *NumberResult.dimColor gray widgetDefault
62	option add *NumberResult.controlBackground gray widgetDefault
63	option add *NumberResult.font \
64	--helvetica-medium-r-normal--12-* widgetDefault
65	option add *NumberResult.autoColors $autocolors widgetDefault
66	option add NumberResultBalloon*Entry.background white widgetDefault
67
68	itcl::class Rappture::NumberResult {
69	inherit itk::Widget
70
71	itk_option define -gridcolor gridColor GridColor ""
72	itk_option define -activecolor activeColor ActiveColor ""
73	itk_option define -dimcolor dimColor DimColor ""
74	itk_option define -autocolors autoColors AutoColors ""
75
76	constructor {args} {
77	# defined below
78	}
79	destructor {
80	# defined below
81	}
82	public method add {dataobj {settings ""}}
83	public method get {}
84	public method delete {args}
85	public method scale {args}
86	public method parameters {title args}
87	public method download {option args}
88
89	protected method Rebuild {}
90	protected method ResetLimits {}
91	protected method Zoom {option args}
92	protected method Hilite {state x y}
93	protected method Axis {option args}
94	protected method GetAxes {dataobj}
95	protected method GetValue {dataobj {which both}}
96	protected method GetInfo {what dataobj {which both}}
97	private method ResetLegend {}
98
99	private variable _dispatcher "" ;# dispatcher for !events
100
101	private variable _dlist "" ;# list of data objects
102	private variable _dataobj2color ;# maps data object => plotting color
103	private variable _dataobj2width ;# maps data object => line width
104	private variable _dataobj2raise ;# maps data object => raise flag 0/1
105	private variable _dataobj2desc ;# maps data object => description of data
106	private variable _dataobj2param ;# maps data object => x-axis value
107	private variable _elem2dataobj ;# maps graph element => data object
108	private variable _label2axis ;# maps axis label => axis ID
109	private variable _params "" ;# complete description of x-axis
110	private variable _xval2label ;# maps x-axis value => tick label
111	private variable _xlabels 0 ;# non-zero => use _xval2label
112	private variable _limits ;# axis limits: x-min, x-max, etc.
113
114	private variable _hilite ;# info for element currently highlighted
115	private variable _axis ;# info for axis manipulations
116	private variable _axisPopup ;# info for axis being edited in popup
117	common _downloadPopup ;# download options from popup
118	}
119
120	itk::usual NumberResult {
121	keep -background -foreground -cursor -font
122	}
123
124	# ----------------------------------------------------------------------
125	# CONSTRUCTOR
126	# ----------------------------------------------------------------------
127	itcl::body Rappture::NumberResult::constructor {args} {
128	Rappture::dispatcher _dispatcher
129	$_dispatcher register !rebuild
130	$_dispatcher dispatch $this !rebuild "[itcl::code $this Rebuild]; list"
131
132	array set _downloadPopup {
133	format csv
134	}
135
136	option add hull.width hull.height
137	pack propagate $itk_component(hull) no
138
139	itk_component add main {
140	Rappture::SidebarFrame $itk_interior.main
141	}
142	pack $itk_component(main) -expand yes -fill both
143	set f [$itk_component(main) component controls]
144
145	itk_component add reset {
146	button $f.reset -borderwidth 1 -padx 1 -pady 1 \
147	-highlightthickness 0 \
148	-image [Rappture::icon reset-view] \
149	-command [itcl::code $this Zoom reset]
150	} {
151	usual
152	ignore -borderwidth -highlightthickness
153	}
154	pack $itk_component(reset) -padx 4 -pady 2 -anchor e
155	Rappture::Tooltip::for $itk_component(reset) \
156	"Reset the view to the default zoom level"
157
158	set f [$itk_component(main) component frame]
159	itk_component add plot {
160	blt::graph $f.plot \
161	-highlightthickness 0 -plotpadx 0 -plotpady 4 \
162	-rightmargin 10
163	} {
164	keep -background -foreground -cursor -font
165	}
166	pack $itk_component(plot) -expand yes -fill both
167
168	$itk_component(plot) pen configure activeLine \
169	-symbol square -pixels 3 -linewidth 2 \
170	-outline black -fill red -color black
171
172	# Add bindings so you can mouse over points to see values:
173	bind $itk_component(plot) <Motion> \
174	[itcl::code $this Hilite at %x %y]
175	bind $itk_component(plot) <Leave> \
176	[itcl::code $this Hilite off %x %y]
177
178	#
179	# Add support for editing axes:
180	#
181	Rappture::Balloon $itk_component(hull).axes -title "Axis Options"
182	set inner [$itk_component(hull).axes component inner]
183
184	label $inner.labell -text "Label:"
185	entry $inner.label -width 15 -highlightbackground $itk_option(-background)
186	grid $inner.labell -row 1 -column 0 -sticky e
187	grid $inner.label -row 1 -column 1 -sticky ew -pady 4
188
189	label $inner.minl -text "Minimum:"
190	entry $inner.min -width 15 -highlightbackground $itk_option(-background)
191	grid $inner.minl -row 2 -column 0 -sticky e
192	grid $inner.min -row 2 -column 1 -sticky ew -pady 4
193
194	label $inner.maxl -text "Maximum:"
195	entry $inner.max -width 15 -highlightbackground $itk_option(-background)
196	grid $inner.maxl -row 3 -column 0 -sticky e
197	grid $inner.max -row 3 -column 1 -sticky ew -pady 4
198
199	label $inner.formatl -text "Format:"
200	Rappture::Combobox $inner.format -width 15 -editable no
201	$inner.format choices insert end \
202	"%.6g" "Auto" \
203	"%.0f" "X" \
204	"%.1f" "X.X" \
205	"%.2f" "X.XX" \
206	"%.3f" "X.XXX" \
207	"%.6f" "X.XXXXXX" \
208	"%.1e" "X.Xe+XX" \
209	"%.2e" "X.XXe+XX" \
210	"%.3e" "X.XXXe+XX" \
211	"%.6e" "X.XXXXXXe+XX"
212	grid $inner.formatl -row 4 -column 0 -sticky e
213	grid $inner.format -row 4 -column 1 -sticky ew -pady 4
214
215	label $inner.scalel -text "Scale:"
216	frame $inner.scales
217	radiobutton $inner.scales.linear -text "Linear" \
218	-variable [itcl::scope _axisPopup(scale)] -value "linear"
219	pack $inner.scales.linear -side left
220	radiobutton $inner.scales.log -text "Logarithmic" \
221	-variable [itcl::scope _axisPopup(scale)] -value "log"
222	pack $inner.scales.log -side left
223	grid $inner.scalel -row 5 -column 0 -sticky e
224	grid $inner.scales -row 5 -column 1 -sticky ew -pady 4
225
226	foreach axis {x y} {
227	set _axisPopup(format-$axis) "%.6g"
228	}
229	Axis scale x linear
230	Axis scale y linear
231
232	$itk_component(plot) legend configure -hide yes
233
234	#
235	# Add legend for editing hidden/elements:
236	#
237	set inner [$itk_component(main) insert end \
238	-title "Legend" \
239	-icon [Rappture::icon wrench]]
240	$inner configure -borderwidth 4
241
242	itk_component add legend {
243	Rappture::XyLegend $inner.legend $itk_component(plot)
244	}
245	pack $itk_component(legend) -expand yes -fill both
246	after idle [itcl::code $this ResetLegend]
247
248	# quick-and-dirty zoom functionality, for now...
249	Blt_ZoomStack $itk_component(plot)
250	eval itk_initialize $args
251	set _hilite(elem) ""
252	}
253
254	# ----------------------------------------------------------------------
255	# DESTRUCTOR
256	# ----------------------------------------------------------------------
257	itcl::body Rappture::NumberResult::destructor {} {
258	}
259
260	# ----------------------------------------------------------------------
261	# USAGE: add <dataobj> ?<settings>?
262	#
263	# Clients use this to add a data object to the plot. The optional
264	# <settings> are used to configure the plot. Allowed settings are
265	# -color, -brightness, -width, -linestyle and -raise.
266	# ----------------------------------------------------------------------
267	itcl::body Rappture::NumberResult::add {dataobj {settings ""}} {
268	array set params {
269	-color auto
270	-brightness 0
271	-width 1
272	-type "line"
273	-raise 0
274	-linestyle solid
275	-description ""
276	-param ""
277	}
278	array set params $settings
279
280	# if type is set to "scatter", then override the width
281	if {"scatter" == $params(-type)} {
282	set params(-width) 0
283	}
284
285	if {$params(-color) == "auto" \|\| $params(-color) == "autoreset"} {
286	set params(-color) #0000ff
287	}
288
289	# if -brightness is set, then update the color
290	if {$params(-brightness) != 0} {
291	set params(-color) [Rappture::color::brightness \
292	$params(-color) $params(-brightness)]
293
294	set bg [$itk_component(plot) cget -plotbackground]
295	foreach {h s v} [Rappture::color::RGBtoHSV $bg] break
296	if {$v > 0.5} {
297	set params(-color) [Rappture::color::brightness_max \
298	$params(-color) 0.8]
299	} else {
300	set params(-color) [Rappture::color::brightness_min \
301	$params(-color) 0.2]
302	}
303	}
304
305	set pos [lsearch -exact $_dlist $dataobj]
306	if {$pos < 0} {
307	lappend _dlist $dataobj
308	set _dataobj2color($dataobj) $params(-color)
309	set _dataobj2width($dataobj) $params(-width)
310	set _dataobj2raise($dataobj) $params(-raise)
311	set _dataobj2desc($dataobj) $params(-description)
312	set _dataobj2param($dataobj) $params(-param)
313
314	$_dispatcher event -idle !rebuild
315	}
316	}
317
318	# ----------------------------------------------------------------------
319	# USAGE: get
320	#
321	# Clients use this to query the list of objects being plotted, in
322	# order from bottom to top of this result.
323	# ----------------------------------------------------------------------
324	itcl::body Rappture::NumberResult::get {} {
325	# put the dataobj list in order according to -raise options
326	set dlist $_dlist
327	foreach obj $dlist {
328	if {[info exists _dataobj2raise($obj)] && $_dataobj2raise($obj)} {
329	set i [lsearch -exact $dlist $obj]
330	if {$i >= 0} {
331	set dlist [lreplace $dlist $i $i]
332	lappend dlist $obj
333	}
334	}
335	}
336	return $dlist
337	}
338
339	# ----------------------------------------------------------------------
340	# USAGE: delete ?<dataobj2> <dataobj2> ...?
341	#
342	# Clients use this to delete a data object from the plot. If no
343	# objects are specified, then all objects are deleted.
344	# ----------------------------------------------------------------------
345	itcl::body Rappture::NumberResult::delete {args} {
346	if {[llength $args] == 0} {
347	set args $_dlist
348	}
349
350	# delete all specified data objects
351	set changed 0
352	foreach dataobj $args {
353	set pos [lsearch -exact $_dlist $dataobj]
354	if {$pos >= 0} {
355	set _dlist [lreplace $_dlist $pos $pos]
356	catch {unset _dataobj2color($dataobj)}
357	catch {unset _dataobj2width($dataobj)}
358	catch {unset _dataobj2raise($dataobj)}
359	catch {unset _dataobj2desc($dataobj)}
360	catch {unset _dataobj2param($dataobj)}
361	foreach elem [array names _elem2dataobj] {
362	if {$_elem2dataobj($elem) == $dataobj} {
363	unset _elem2dataobj($elem)
364	}
365	}
366	set changed 1
367	}
368	}
369
370	# if anything changed, then rebuild the plot
371	if {$changed} {
372	$_dispatcher event -idle !rebuild
373	}
374	# Nothing left? then start over with auto colors
375	if {[llength $_dlist] == 0} {
376	set _autoColorI 0
377	}
378	}
379
380	# ----------------------------------------------------------------------
381	# USAGE: scale ?<dataobj1> <dataobj2> ...?
382	#
383	# Sets the default limits for the overall plot according to the
384	# limits of the data for all of the given data objects. This
385	# accounts for all objects--even those not showing on the screen.
386	# Because of this, the limits are appropriate for all objects as
387	# the user scans through data in the ResultSet viewer.
388	# ----------------------------------------------------------------------
389	itcl::body Rappture::NumberResult::scale {args} {
390	set allx [$itk_component(plot) x2axis use]
391	lappend allx x ;# fix main x-axis too
392	foreach axis $allx {
393	Axis scale $axis linear
394	}
395
396	set ally [$itk_component(plot) y2axis use]
397	lappend ally y ;# fix main y-axis too
398	foreach axis $ally {
399	Axis scale $axis linear
400	}
401
402	catch {unset _limits}
403	foreach dataobj $args {
404	# find the axes for this data object (e.g., {x y2})
405	foreach {map(x) map(y)} [GetAxes $dataobj] break
406
407	foreach axis {x y} {
408	# get defaults for both linear and log scales
409	foreach type {lin log} {
410	# store results -- ex: _limits(x2log-min)
411	set id $map($axis)$type
412	if {$axis == "x"} {
413	set min [set max ""]
414	foreach {xlab xval} [lrange $_params 1 end] {
415	if {$type == "log"} {
416	set xval [expr {abs($xval)}]
417	if {$xval == 0} {
418	continue
419	}
420	}
421	if {"" == $min} {
422	set min [set max $xval]
423	} else {
424	if {$xval < $min} { set min $xval }
425	if {$xval > $max} { set max $xval }
426	}
427	}
428	} else {
429	set min [set max [GetValue $dataobj y]]
430	}
431
432	if {"" != $min && "" != $max} {
433	if {![info exists _limits($id-min)]} {
434	set _limits($id-min) $min
435	set _limits($id-max) $max
436	} else {
437	if {$min < $_limits($id-min)} {
438	set _limits($id-min) $min
439	}
440	if {$max > $_limits($id-max)} {
441	set _limits($id-max) $max
442	}
443	}
444	}
445	}
446	}
447	}
448	ResetLimits
449	}
450
451	# ----------------------------------------------------------------------
452	# USAGE: parameters <title> <label1> <value1> <label2> <value2> ...
453	#
454	# Called when the resultset changes to convey information about the
455	# current set of results being displayed. The <title> is the name
456	# of the parameter being explored, and each <label>/<value> represents
457	# a data point.
458	# ----------------------------------------------------------------------
459	itcl::body Rappture::NumberResult::parameters {args} {
460	set _params $args
461
462	#
463	# Fix up the x-axis limits for the primary axis.
464	#
465	foreach type {lin log} {
466	# store results -- ex: _limits(x2log-min)
467	set id x$type
468
469	set min [set max ""]
470	foreach {xlab xval} [lrange $_params 1 end] {
471	if {$type == "log"} {
472	set xval [expr {abs($xval)}]
473	if {$xval == 0} {
474	continue
475	}
476	}
477	if {"" == $min} {
478	set min [set max $xval]
479	} else {
480	if {$xval < $min} { set min $xval }
481	if {$xval > $max} { set max $xval }
482	}
483	}
484
485	if {"" != $min && "" != $max} {
486	set _limits($id-min) $min
487	set _limits($id-max) $max
488	}
489	}
490	ResetLimits
491
492	#
493	# Figure out a good set of ticks for the x-axis.
494	# If this is a numeric axis, then labels will be like
495	# 0.3V <=> 0.3, 0.4V <=> 0.4, etc.
496	# Otherwise, they will be more like
497	# red <=> 0, green <=> 1, etc.
498	#
499	set havenums 1
500	catch {unset _xval2label}
501	foreach {xlab xval} [lrange $_params 1 end] {
502	set _xval2label($xval) $xlab
503	if {![string match $xval* $xlab]} {
504	set havenums 0
505	}
506	}
507	if {$havenums} {
508	set _xlabels 0
509	$itk_component(plot) xaxis configure -command "" -majorticks ""
510	if {![$itk_component(plot) axis cget x -logscale]} {
511	$itk_component(plot) xaxis configure \
512	-command [itcl::code $this Axis format x]
513	}
514	} else {
515	set _xlabels 1
516	$itk_component(plot) xaxis configure \
517	-command [itcl::code $this Axis format x] \
518	-majorticks [lsort -real [array names _xval2label]]
519	}
520
521	$_dispatcher event -idle !rebuild
522	}
523
524	# ----------------------------------------------------------------------
525	# USAGE: download coming
526	# USAGE: download controls <downloadCommand>
527	# USAGE: download now
528	#
529	# Clients use this method to create a downloadable representation
530	# of the plot. Returns a list of the form {ext string}, where
531	# "ext" is the file extension (indicating the type of data) and
532	# "string" is the data itself.
533	# ----------------------------------------------------------------------
534	itcl::body Rappture::NumberResult::download {option args} {
535	switch $option {
536	coming {
537	# nothing to do
538	}
539	controls {
540	set popup .numberresultdownload
541	if {![winfo exists .numberresultdownload]} {
542	# if we haven't created the popup yet, do it now
543	Rappture::Balloon $popup \
544	-title "[Rappture::filexfer::label downloadWord] as..."
545	set inner [$popup component inner]
546	label $inner.summary -text "" -anchor w
547	pack $inner.summary -side top
548	radiobutton $inner.csv -text "Data as Comma-Separated Values" \
549	-variable Rappture::NumberResult::_downloadPopup(format) \
550	-value csv
551	pack $inner.csv -anchor w
552	radiobutton $inner.image -text "Image (PS/PDF/PNG/JPEG)" \
553	-variable Rappture::NumberResult::_downloadPopup(format) \
554	-value image
555	pack $inner.image -anchor w
556	button $inner.go -text [Rappture::filexfer::label download] \
557	-command [lindex $args 0]
558	pack $inner.go -pady 4
559	} else {
560	set inner [$popup component inner]
561	}
562	set num [llength [get]]
563	set num [expr {($num == 1) ? "1 result" : "$num results"}]
564	$inner.summary configure -text "[Rappture::filexfer::label downloadWord] $num in the following format:"
565	update idletasks ;# fix initial sizes
566	return $popup
567	}
568	now {
569	set popup .numberresultdownload
570	if {[winfo exists .numberresultdownload]} {
571	$popup deactivate
572	}
573	switch -- $_downloadPopup(format) {
574	csv {
575	# March through the values in order and report
576	# all data points
577	set csvdata ""
578	set xtitle [$itk_component(plot) xaxis cget -title]
579	set ytitle [$itk_component(plot) yaxis cget -title]
580
581	set desc ""
582	set dataobj [lindex [get] end]
583
584	# the "Simulation" axis shows all values
585	# -- no need for assumptions
586	if {$xtitle != "Simulation"
587	&& [info exists _dataobj2desc($dataobj)]} {
588	foreach line [split $_dataobj2desc($dataobj) \n] {
589	# skip the current axis and the Simulation axis
590	# Other values show assumptions about values reported
591	if {[string match "$xtitle =*" $line]
592	\|\| [string match "Simulation =*" $line]} {
593	continue
594	}
595	set indent [expr {("" == $desc) ? "for:" : " "}]
596	append desc " $indent $line\n"
597	}
598	}
599	if {[string length $desc] > 0} {
600	append csvdata "[string repeat - 60]\n"
601	append csvdata $desc
602	append csvdata "[string repeat - 60]\n"
603	}
604
605	append csvdata "$xtitle, $ytitle\n"
606	foreach xval [lsort -real [array names _xval2label]] {
607	set dataobj ""
608	set param [list $_xval2label($xval) $xval]
609	foreach obj $_dlist {
610	if {[info exists _dataobj2param($obj)]
611	&& [string equal $_dataobj2param($obj) $param]} {
612	set dataobj $obj
613	break
614	}
615	}
616	if {"" != $dataobj} {
617	set yval [$dataobj get current]
618	append csvdata "$_xval2label($xval), $yval\n"
619	}
620	}
621	return [list .txt $csvdata]
622	}
623	image {
624	set popup .numberresultprintdownload
625	if { ![winfo exists $popup] } {
626	# Create a popup for the print dialog
627	Rappture::Balloon $popup -title "Save as image..."
628	set inner [$popup component inner]
629	# Create the print dialog widget and add it to the
630	# the balloon popup.
631	Rappture::XyPrint $inner.print
632	$popup configure \
633	-deactivatecommand [list $inner.print reset]
634	blt::table $inner 0,0 $inner.print -fill both
635	}
636	update
637	# Activate the popup and call for the output.
638	foreach { widget toolName plotName } $args break
639	$popup activate $widget left
640	set inner [$popup component inner]
641	set output [$inner.print print $itk_component(plot) \
642	$toolName $plotName]
643	$popup deactivate
644	return $output
645	}
646	}
647	}
648	default {
649	error "bad option \"$option\": should be coming, controls, now"
650	}
651	}
652	}
653
654	# ----------------------------------------------------------------------
655	# USAGE: Rebuild
656	#
657	# Called automatically whenever something changes that affects the
658	# data in the widget. Clears any existing data and rebuilds the
659	# widget to display new data.
660	# ----------------------------------------------------------------------
661	itcl::body Rappture::NumberResult::Rebuild {} {
662	set g $itk_component(plot)
663
664	# first clear out the widget
665	eval $g element delete [$g element names]
666	eval $g marker delete [$g marker names]
667	foreach axis [$g axis names] {
668	$g axis configure $axis -hide yes -checklimits no
669	}
670	# Presumably you want at least an X-axis and Y-axis displayed.
671	$g xaxis configure -hide no
672	$g yaxis configure -hide no
673	catch {unset _label2axis}
674
675	#
676	# Scan through all objects and create a list of all axes.
677	# The first x-axis gets mapped to "x". The second, to "x2".
678	# Beyond that, we must create new axes "x3", "x4", etc.
679	# We do the same for y.
680	#
681	set anum(x) 0
682	set anum(y) 0
683	foreach dataobj [get] {
684	foreach ax {x y} {
685	set label [GetInfo about.label $dataobj ${ax}]
686	if {"" != $label} {
687	if {![info exists _label2axis($ax-$label)]} {
688	switch [incr anum($ax)] {
689	1 { set axis $ax }
690	2 { set axis ${ax}2 }
691	default {
692	set axis $ax$anum($ax)
693	catch {$g axis create $axis}
694	}
695	}
696	$g axis configure $axis -title $label -hide no \
697	-checklimits no
698	set _label2axis($ax-$label) $axis
699
700	# if this axis has a description, add it as a tooltip
701	set desc [string trim [GetInfo about.description $dataobj ${ax}]]
702	Rappture::Tooltip::text $g-$axis $desc
703	}
704	}
705	}
706	}
707
708	#
709	# All of the extra axes get mapped to the x2/y2 (top/right)
710	# position.
711	#
712	set all ""
713	foreach ax {x y} {
714	lappend all $ax
715
716	set extra ""
717	for {set i 2} {$i <= $anum($ax)} {incr i} {
718	lappend extra ${ax}$i
719	}
720	eval lappend all $extra
721	$g ${ax}2axis use $extra
722	if {$ax == "y"} {
723	$g configure -rightmargin [expr {($extra == "") ? 10 : 0}]
724	}
725	}
726
727	foreach axis $all {
728	set _axisPopup(format-$axis) "%.6g"
729
730	$g axis bind $axis <Enter> \
731	[itcl::code $this Axis hilite $axis on]
732	$g axis bind $axis <Leave> \
733	[itcl::code $this Axis hilite $axis off]
734	$g axis bind $axis <ButtonPress-1> \
735	[itcl::code $this Axis click $axis %x %y]
736	$g axis bind $axis <B1-Motion> \
737	[itcl::code $this Axis drag $axis %x %y]
738	$g axis bind $axis <ButtonRelease-1> \
739	[itcl::code $this Axis release $axis %x %y]
740	$g axis bind $axis <KeyPress> \
741	[list ::Rappture::Tooltip::tooltip cancel]
742	}
743
744	#
745	# Plot all of the data objects.
746	#
747	set count 0
748	foreach dataobj $_dlist {
749	set label [$dataobj get about.label]
750	foreach {mapx mapy} [GetAxes $dataobj] break
751
752	foreach {xv yv} [GetValue $dataobj] break
753
754	if {[info exists _dataobj2color($dataobj)]} {
755	set color $_dataobj2color($dataobj)
756	} else {
757	set color [$dataobj get about.color]
758	if {"" == $color} {
759	set color $itk_option(-activecolor)
760	}
761	}
762
763	set sym square
764	set pixels 6
765
766	set elem "elem[incr count]"
767	set _elem2dataobj($elem) $dataobj
768	$g element create $elem -x $xv -y $yv \
769	-symbol $sym -pixels $pixels -label $label \
770	-color $color -mapx $mapx -mapy $mapy
771	}
772	}
773
774	# ----------------------------------------------------------------------
775	# USAGE: ResetLimits
776	#
777	# Used internally to apply automatic limits to the axes for the
778	# current plot.
779	# ----------------------------------------------------------------------
780	itcl::body Rappture::NumberResult::ResetLimits {} {
781	set g $itk_component(plot)
782
783	#
784	# HACK ALERT!
785	# Use this code to fix up the y-axis limits for the BLT graph.
786	# The auto-limits don't always work well. We want them to be
787	# set to a "nice" number slightly above or below the min/max
788	# limits.
789	#
790	foreach axis [$g axis names] {
791	if {[info exists _limits(${axis}lin-min)]} {
792	set log [$g axis cget $axis -logscale]
793	if {$log} {
794	set min $_limits(${axis}log-min)
795	if {$min == 0} { set min 1 }
796	set max $_limits(${axis}log-max)
797	if {$max == 0} { set max 1 }
798
799	if {$min == $max} {
800	set logmin [expr {floor(log10(abs(0.9*$min)))}]
801	set logmax [expr {ceil(log10(abs(1.1*$max)))}]
802	} else {
803	set logmin [expr {floor(log10(abs($min)))}]
804	set logmax [expr {ceil(log10(abs($max)))}]
805	if {[string match y* $axis]} {
806	# add a little padding
807	set delta [expr {$logmax-$logmin}]
808	if {$delta == 0} { set delta 1 }
809	set logmin [expr {$logmin-0.05*$delta}]
810	set logmax [expr {$logmax+0.05*$delta}]
811	}
812	}
813	if {$logmin < -300} {
814	set min 1e-300
815	} elseif {$logmin > 300} {
816	set min 1e+300
817	} else {
818	set min [expr {pow(10.0,$logmin)}]
819	}
820
821	if {$logmax < -300} {
822	set max 1e-300
823	} elseif {$logmax > 300} {
824	set max 1e+300
825	} else {
826	set max [expr {pow(10.0,$logmax)}]
827	}
828	} else {
829	set min $_limits(${axis}lin-min)
830	set max $_limits(${axis}lin-max)
831
832	# add a little padding
833	set delta [expr {$max-$min}]
834	set min [expr {$min-0.05*$delta}]
835	set max [expr {$max+0.05*$delta}]
836	}
837	if {$min < $max} {
838	$g axis configure $axis -min $min -max $max
839	} else {
840	$g axis configure $axis -min "" -max ""
841	}
842	} else {
843	$g axis configure $axis -min "" -max ""
844	}
845	}
846	}
847
848	# ----------------------------------------------------------------------
849	# USAGE: Zoom reset
850	#
851	# Called automatically when the user clicks on one of the zoom
852	# controls for this widget. Changes the zoom for the current view.
853	# ----------------------------------------------------------------------
854	itcl::body Rappture::NumberResult::Zoom {option args} {
855	switch -- $option {
856	reset {
857	ResetLimits
858	Rappture::Logger::log number zoom -reset
859	}
860	}
861	}
862
863	# ----------------------------------------------------------------------
864	# USAGE: Hilite <state> <x> <y>
865	#
866	# Called automatically when the user brushes one of the elements
867	# on the plot. Causes the element to highlight and a tooltip to
868	# pop up with element info.
869	# ----------------------------------------------------------------------
870	itcl::body Rappture::NumberResult::Hilite {state x y} {
871	set g $itk_component(plot)
872	set elem ""
873
874	# Peek inside of Blt_ZoomStack package to see if we're currently in the
875	# middle of a zoom selection.
876	if {[info exists ::zoomInfo($g,corner)] && $::zoomInfo($g,corner) == "B" } {
877	return;
878	}
879	set tip ""
880	if {$state == "at"} {
881	if {[$g element closest $x $y info -interpolate yes]} {
882	# for dealing with xy line plots
883	set elem $info(name)
884	# Some elements are generated dynamically and therefore will
885	# not have a data object associated with them.
886	set mapx [$g element cget $elem -mapx]
887	set mapy [$g element cget $elem -mapy]
888	if {[info exists _elem2dataobj($elem)]} {
889	foreach {mapx mapy} [GetAxes $_elem2dataobj($elem)] break
890	}
891
892	# search again for an exact point -- this time don't interpolate
893	set tip ""
894	if {[$g element closest $x $y info -interpolate no]
895	&& $info(name) == $elem} {
896	set x [$g axis transform $mapx $info(x)]
897	set y [$g axis transform $mapy $info(y)]
898
899	if {[info exists _elem2dataobj($elem)]} {
900	set dataobj $_elem2dataobj($elem)
901	set tip [GetInfo about.label $dataobj y]
902	if {[info exists info(y)]} {
903	set val [Axis format y dummy $info(y)]
904	set units [GetInfo units $dataobj y]
905	append tip "\n$val$units"
906
907	if {[info exists _dataobj2param($dataobj)]} {
908	set val [lindex $_dataobj2param($dataobj) 0]
909	append tip " @ $val"
910	}
911	}
912	set tip [string trim $tip]
913	}
914	}
915	set state 1
916	} elseif {[$g element closest $x $y info -interpolate no]} {
917	# for dealing with xy scatter plot
918	set elem $info(name)
919	foreach {mapx mapy} [GetAxes $_elem2dataobj($elem)] break
920
921	# search again for an exact point -- this time don't interpolate
922	set tip ""
923	if {$info(name) == $elem} {
924	set x [$g axis transform $mapx $info(x)]
925	set y [$g axis transform $mapy $info(y)]
926
927	if {[info exists _elem2dataobj($elem)]} {
928	set dataobj $_elem2dataobj($elem)
929	set tip [GetInfo about.label $dataobj y]
930	if {[info exists info(y)]} {
931	set val [Axis format y dummy $info(y)]
932	set units [GetInfo units $dataobj y]
933	append tip "\n$val$units"
934
935	if {[info exists _dataobj2param($dataobj)]} {
936	set val [lindex $_dataobj2param($dataobj) 0]
937	append tip " @ $val"
938	}
939	}
940	set tip [string trim $tip]
941	}
942	}
943	set state 1
944	} else {
945	set state 0
946	}
947	}
948
949	if {$state} {
950	#
951	# Highlight ON:
952	# - activate trace
953	# - multiple axes? dim other axes
954	# - pop up tooltip about data
955	if {$_hilite(elem) ne ""} {
956	$g element deactivate $_hilite(elem)
957	}
958	$g crosshairs configure -hide yes
959	Rappture::Tooltip::tooltip cancel
960
961	$g element activate $elem
962	set _hilite(elem) $elem
963
964	set dlist [$g element show]
965	set i [lsearch -exact $dlist $elem]
966	if {$i >= 0} {
967	set dlist [lreplace $dlist $i $i]
968	lappend dlist $elem
969	$g element show $dlist
970	}
971
972	foreach {mapx mapy} [GetAxes $_elem2dataobj($elem)] break
973
974	set allx [$g x2axis use]
975	if {[llength $allx] > 0} {
976	lappend allx x ;# fix main x-axis too
977	foreach axis $allx {
978	if {$axis == $mapx} {
979	$g axis configure $axis -color $itk_option(-foreground) \
980	-titlecolor $itk_option(-foreground)
981	} else {
982	$g axis configure $axis -color $itk_option(-dimcolor) \
983	-titlecolor $itk_option(-dimcolor)
984	}
985	}
986	}
987	set ally [$g y2axis use]
988	if {[llength $ally] > 0} {
989	lappend ally y ;# fix main y-axis too
990	foreach axis $ally {
991	if {$axis == $mapy} {
992	$g axis configure $axis -color $itk_option(-foreground) \
993	-titlecolor $itk_option(-foreground)
994	} else {
995	$g axis configure $axis -color $itk_option(-dimcolor) \
996	-titlecolor $itk_option(-dimcolor)
997	}
998	}
999	}
1000
1001	if {"" != $tip} {
1002	$g crosshairs configure -hide no -position @$x,$y
1003
1004	if {$x > 0.5*[winfo width $g]} {
1005	if {$x < 4} {
1006	set tipx "-0"
1007	} else {
1008	set tipx "-[expr {$x-4}]" ;# move tooltip to the left
1009	}
1010	} else {
1011	if {$x < -4} {
1012	set tipx "+0"
1013	} else {
1014	set tipx "+[expr {$x+4}]" ;# move tooltip to the right
1015	}
1016	}
1017	if {$y > 0.5*[winfo height $g]} {
1018	if {$y < 4} {
1019	set tipy "-0"
1020	} else {
1021	set tipy "-[expr {$y-4}]" ;# move tooltip to the top
1022	}
1023	} else {
1024	if {$y < -4} {
1025	set tipy "+0"
1026	} else {
1027	set tipy "+[expr {$y+4}]" ;# move tooltip to the bottom
1028	}
1029	}
1030	Rappture::Tooltip::text $g $tip
1031	Rappture::Tooltip::tooltip show $g $tipx,$tipy
1032	Rappture::Logger::log tooltip -for "number probe -- [string map [list \n " // "] $tip]"
1033	}
1034	} else {
1035	#
1036	# Highlight OFF:
1037	# - deactivate (color back to normal)
1038	# - put all axes back to normal color
1039	# - take down tooltip
1040	#
1041	if {$_hilite(elem) ne ""} {
1042	$g element deactivate $_hilite(elem)
1043	}
1044
1045	set allx [$g x2axis use]
1046	if {[llength $allx] > 0} {
1047	lappend allx x ; # fix main x-axis too
1048	foreach axis $allx {
1049	$g axis configure $axis -color $itk_option(-foreground) \
1050	-titlecolor $itk_option(-foreground)
1051	}
1052	}
1053
1054	set ally [$g y2axis use]
1055	if {[llength $ally] > 0} {
1056	lappend ally y ; # fix main y-axis too
1057	foreach axis $ally {
1058	$g axis configure $axis -color $itk_option(-foreground) \
1059	-titlecolor $itk_option(-foreground)
1060	}
1061	}
1062
1063	$g crosshairs configure -hide yes
1064
1065	# only cancel in plotting area or we'll mess up axes
1066	if {[$g inside $x $y]} {
1067	Rappture::Tooltip::tooltip cancel
1068	}
1069
1070	# there is no currently highlighted element
1071	set _hilite(elem) ""
1072	}
1073	}
1074
1075	# ----------------------------------------------------------------------
1076	# USAGE: Axis hilite <axis> <state>
1077	#
1078	# USAGE: Axis click <axis> <x> <y>
1079	# USAGE: Axis drag <axis> <x> <y>
1080	# USAGE: Axis release <axis> <x> <y>
1081	#
1082	# USAGE: Axis edit <axis>
1083	# USAGE: Axis changed <axis> <what>
1084	# USAGE: Axis format <axis> <widget> <value>
1085	# USAGE: Axis scale <axis> linear\|log
1086	#
1087	# Used internally to handle editing of the x/y axes. The hilite
1088	# operation causes the axis to light up. The edit operation pops
1089	# up a panel with editing options. The changed operation applies
1090	# changes from the panel.
1091	# ----------------------------------------------------------------------
1092	itcl::body Rappture::NumberResult::Axis {option args} {
1093	set inner [$itk_component(hull).axes component inner]
1094
1095	switch -- $option {
1096	hilite {
1097	if {[llength $args] != 2} {
1098	error "wrong # args: should be \"Axis hilite axis state\""
1099	}
1100	set g $itk_component(plot)
1101	set axis [lindex $args 0]
1102	set state [lindex $args 1]
1103
1104	if {$state} {
1105	$g axis configure $axis \
1106	-color $itk_option(-activecolor) \
1107	-titlecolor $itk_option(-activecolor)
1108
1109	set x [expr {[winfo pointerx $g]+4}]
1110	set y [expr {[winfo pointery $g]+4}]
1111	Rappture::Tooltip::tooltip pending $g-$axis @$x,$y
1112	} else {
1113	$g axis configure $axis \
1114	-color $itk_option(-foreground) \
1115	-titlecolor $itk_option(-foreground)
1116	Rappture::Tooltip::tooltip cancel
1117	}
1118	}
1119	click {
1120	if {[llength $args] != 3} {
1121	error "wrong # args: should be \"Axis click axis x y\""
1122	}
1123	set axis [lindex $args 0]
1124	set x [lindex $args 1]
1125	set y [lindex $args 2]
1126	set g $itk_component(plot)
1127
1128	set _axis(moved) 0
1129	set _axis(click-x) $x
1130	set _axis(click-y) $y
1131	foreach {min max} [$g axis limits $axis] break
1132	set _axis(min0) $min
1133	set _axis(max0) $max
1134	Rappture::Tooltip::tooltip cancel
1135	}
1136	drag {
1137	if {[llength $args] != 3} {
1138	error "wrong # args: should be \"Axis drag axis x y\""
1139	}
1140	if {![info exists _axis(moved)]} {
1141	return ;# must have skipped click event -- ignore
1142	}
1143	set axis [lindex $args 0]
1144	set x [lindex $args 1]
1145	set y [lindex $args 2]
1146	set g $itk_component(plot)
1147
1148	if {[info exists _axis(click-x)] && [info exists _axis(click-y)]} {
1149	foreach {x0 y0 pw ph} [$g extents plotarea] break
1150	switch -glob $axis {
1151	x* {
1152	set pix $x
1153	set pix0 $_axis(click-x)
1154	set pixmin $x0
1155	set pixmax [expr {$x0+$pw}]
1156	}
1157	y* {
1158	set pix $y
1159	set pix0 $_axis(click-y)
1160	set pixmin [expr {$y0+$ph}]
1161	set pixmax $y0
1162	}
1163	}
1164	set log [$g axis cget $axis -logscale]
1165	set min $_axis(min0)
1166	set max $_axis(max0)
1167	set dpix [expr {abs($pix-$pix0)}]
1168	set v0 [$g axis invtransform $axis $pixmin]
1169	set v1 [$g axis invtransform $axis [expr {$pixmin+$dpix}]]
1170	if {$log} {
1171	set v0 [expr {log10($v0)}]
1172	set v1 [expr {log10($v1)}]
1173	set min [expr {log10($min)}]
1174	set max [expr {log10($max)}]
1175	}
1176
1177	if {$pix > $pix0} {
1178	set delta [expr {$v1-$v0}]
1179	} else {
1180	set delta [expr {$v0-$v1}]
1181	}
1182	set min [expr {$min-$delta}]
1183	set max [expr {$max-$delta}]
1184	if {$log} {
1185	set min [expr {pow(10.0,$min)}]
1186	set max [expr {pow(10.0,$max)}]
1187	}
1188	$g axis configure $axis -min $min -max $max
1189
1190	# move axis, don't edit on release
1191	set _axis(move) 1
1192	}
1193	}
1194	release {
1195	if {[llength $args] != 3} {
1196	error "wrong # args: should be \"Axis release axis x y\""
1197	}
1198	if {![info exists _axis(moved)]} {
1199	return ;# must have skipped click event -- ignore
1200	}
1201	set axis [lindex $args 0]
1202	set x [lindex $args 1]
1203	set y [lindex $args 2]
1204
1205	if {!$_axis(moved)} {
1206	# small movement? then treat as click -- pop up axis editor
1207	set dx [expr {abs($x-$_axis(click-x))}]
1208	set dy [expr {abs($y-$_axis(click-y))}]
1209	if {$dx < 2 && $dy < 2} {
1210	Axis edit $axis
1211	return
1212	}
1213	}
1214	# one last movement
1215	Axis drag $axis $x $y
1216
1217	# log this change
1218	Rappture::Logger::log number axis $axis \
1219	-drag [$itk_component(plot) axis limits $axis]
1220
1221	catch {unset _axis}
1222	}
1223	edit {
1224	if {[llength $args] != 1} {
1225	error "wrong # args: should be \"Axis edit axis\""
1226	}
1227	set axis [lindex $args 0]
1228	set _axisPopup(current) $axis
1229
1230	# apply last value when deactivating
1231	$itk_component(hull).axes configure -deactivatecommand \
1232	[itcl::code $this Axis changed $axis focus]
1233
1234	# fix axis label controls...
1235	set label [$itk_component(plot) axis cget $axis -title]
1236	$inner.label delete 0 end
1237	$inner.label insert end $label
1238	bind $inner.label <Return> \
1239	[itcl::code $this Axis changed $axis label]
1240	bind $inner.label <KP_Enter> \
1241	[itcl::code $this Axis changed $axis label]
1242	bind $inner.label <FocusOut> \
1243	[itcl::code $this Axis changed $axis label]
1244
1245	# fix min/max controls...
1246	foreach {min max} [$itk_component(plot) axis limits $axis] break
1247	$inner.min delete 0 end
1248	$inner.min insert end $min
1249	bind $inner.min <Return> \
1250	[itcl::code $this Axis changed $axis min]
1251	bind $inner.min <KP_Enter> \
1252	[itcl::code $this Axis changed $axis min]
1253	bind $inner.min <FocusOut> \
1254	[itcl::code $this Axis changed $axis min]
1255
1256	$inner.max delete 0 end
1257	$inner.max insert end $max
1258	bind $inner.max <Return> \
1259	[itcl::code $this Axis changed $axis max]
1260	bind $inner.max <KP_Enter> \
1261	[itcl::code $this Axis changed $axis max]
1262	bind $inner.max <FocusOut> \
1263	[itcl::code $this Axis changed $axis max]
1264
1265	# fix format control...
1266	set fmts [$inner.format choices get -value]
1267	set i [lsearch -exact $fmts $_axisPopup(format-$axis)]
1268	if {$i < 0} { set i 0 } ;# use Auto choice
1269	$inner.format value [$inner.format choices get -label $i]
1270
1271	bind $inner.format <<Value>> \
1272	[itcl::code $this Axis changed $axis format]
1273
1274	# fix scale control...
1275	if {[$itk_component(plot) axis cget $axis -logscale]} {
1276	set _axisPopup(scale) "log"
1277	$inner.format configure -state disabled
1278	} else {
1279	set _axisPopup(scale) "linear"
1280	$inner.format configure -state normal
1281	}
1282	$inner.scales.linear configure \
1283	-command [itcl::code $this Axis changed $axis scale]
1284	$inner.scales.log configure \
1285	-command [itcl::code $this Axis changed $axis scale]
1286
1287	#
1288	# Figure out where the window should pop up.
1289	#
1290	set x [winfo rootx $itk_component(plot)]
1291	set y [winfo rooty $itk_component(plot)]
1292	set w [winfo width $itk_component(plot)]
1293	set h [winfo height $itk_component(plot)]
1294	foreach {x0 y0 pw ph} [$itk_component(plot) extents plotarea] break
1295	switch -glob -- $axis {
1296	x {
1297	set x [expr {round($x + $x0+0.5*$pw)}]
1298	set y [expr {round($y + $y0+$ph + 0.5*($h-$y0-$ph))}]
1299	set dir "above"
1300	}
1301	x* {
1302	set x [expr {round($x + $x0+0.5*$pw)}]
1303	set dir "below"
1304	set allx [$itk_component(plot) x2axis use]
1305	set max [llength $allx]
1306	set i [lsearch -exact $allx $axis]
1307	set y [expr {round($y + ($i+0.5)*$y0/double($max))}]
1308	}
1309	y {
1310	set x [expr {round($x + 0.5*$x0)}]
1311	set y [expr {round($y + $y0+0.5*$ph)}]
1312	set dir "right"
1313	}
1314	y* {
1315	set y [expr {round($y + $y0+0.5*$ph)}]
1316	set dir "left"
1317	set ally [$itk_component(plot) y2axis use]
1318	set max [llength $ally]
1319	set i [lsearch -exact $ally $axis]
1320	set y [expr {round($y + ($i+0.5)*$y0/double($max))}]
1321	set x [expr {round($x+$x0+$pw + ($i+0.5)*($w-$x0-$pw)/double($max))}]
1322	}
1323	}
1324	$itk_component(hull).axes activate @$x,$y $dir
1325	}
1326	changed {
1327	if {[llength $args] != 2} {
1328	error "wrong # args: should be \"Axis changed axis what\""
1329	}
1330	set axis [lindex $args 0]
1331	set what [lindex $args 1]
1332	if {$what == "focus"} {
1333	set what [focus]
1334	if {[winfo exists $what]} {
1335	set what [winfo name $what]
1336	}
1337	}
1338
1339	switch -- $what {
1340	label {
1341	set val [$inner.label get]
1342	$itk_component(plot) axis configure $axis -title $val
1343	Rappture::Logger::log number axis $axis -title $val
1344	}
1345	min {
1346	set val [$inner.min get]
1347	if {![string is double -strict $val]} {
1348	Rappture::Tooltip::cue $inner.min "Must be a number"
1349	bell
1350	return
1351	}
1352
1353	set max [lindex [$itk_component(plot) axis limits $axis] 1]
1354	if {$val >= $max} {
1355	Rappture::Tooltip::cue $inner.min "Must be <= max ($max)"
1356	bell
1357	return
1358	}
1359	catch {
1360	# can fail in log mode
1361	$itk_component(plot) axis configure $axis -min $val
1362	Rappture::Logger::log number axis $axis -min $val
1363	}
1364	foreach {min max} [$itk_component(plot) axis limits $axis] break
1365	$inner.min delete 0 end
1366	$inner.min insert end $min
1367	}
1368	max {
1369	set val [$inner.max get]
1370	if {![string is double -strict $val]} {
1371	Rappture::Tooltip::cue $inner.max "Should be a number"
1372	bell
1373	return
1374	}
1375
1376	set min [lindex [$itk_component(plot) axis limits $axis] 0]
1377	if {$val <= $min} {
1378	Rappture::Tooltip::cue $inner.max "Must be >= min ($min)"
1379	bell
1380	return
1381	}
1382	catch {
1383	# can fail in log mode
1384	$itk_component(plot) axis configure $axis -max $val
1385	Rappture::Logger::log number axis $axis -max $val
1386	}
1387	foreach {min max} [$itk_component(plot) axis limits $axis] break
1388	$inner.max delete 0 end
1389	$inner.max insert end $max
1390	}
1391	format {
1392	set fmt [$inner.format translate [$inner.format value]]
1393	set _axisPopup(format-$axis) $fmt
1394
1395	# force a refresh
1396	$itk_component(plot) axis configure $axis -min \
1397	[$itk_component(plot) axis cget $axis -min]
1398	}
1399	scale {
1400	Axis scale $axis $_axisPopup(scale)
1401	Rappture::Logger::log number axis $axis -scale $_axisPopup(scale)
1402
1403	if {$_axisPopup(scale) == "log"} {
1404	$inner.format configure -state disabled
1405	} else {
1406	$inner.format configure -state normal
1407	}
1408
1409	foreach {min max} [$itk_component(plot) axis limits $axis] break
1410	$inner.min delete 0 end
1411	$inner.min insert end $min
1412	$inner.max delete 0 end
1413	$inner.max insert end $max
1414	}
1415	default {
1416	# be lenient so we can handle the "focus" case
1417	}
1418	}
1419	}
1420	format {
1421	if {[llength $args] != 3} {
1422	error "wrong # args: should be \"Axis format axis widget value\""
1423	}
1424	set axis [lindex $args 0]
1425	set value [lindex $args 2]
1426
1427	if {$axis == "x" && $_xlabels
1428	&& [info exists _xval2label($value)]} {
1429	return $_xval2label($value)
1430	}
1431	if {[$itk_component(plot) axis cget $axis -logscale]} {
1432	set fmt "%.6g"
1433	} else {
1434	set fmt $_axisPopup(format-$axis)
1435	}
1436	return [format $fmt $value]
1437	}
1438	scale {
1439	if {[llength $args] != 2} {
1440	error "wrong # args: should be \"Axis scale axis type\""
1441	}
1442	set axis [lindex $args 0]
1443	set type [lindex $args 1]
1444
1445	if {$type == "log"} {
1446	catch {$itk_component(plot) axis configure $axis -logscale 1}
1447	# leave format alone in log mode
1448	$itk_component(plot) axis configure $axis -command ""
1449	} else {
1450	catch {$itk_component(plot) axis configure $axis -logscale 0}
1451	# use special formatting for linear mode
1452	$itk_component(plot) axis configure $axis -command \
1453	[itcl::code $this Axis format $axis]
1454	}
1455	}
1456	default {
1457	error "bad option \"$option\": should be changed, edit, hilite, or format"
1458	}
1459	}
1460	}
1461
1462	# ----------------------------------------------------------------------
1463	# USAGE: GetAxes <dataobj>
1464	#
1465	# Used internally to figure out the axes used to plot the given
1466	# <dataobj>. Returns a list of the form {x y}, where x is the
1467	# x-axis name (x, x2, x3, etc.), and y is the y-axis name.
1468	# ----------------------------------------------------------------------
1469	itcl::body Rappture::NumberResult::GetAxes {dataobj} {
1470	# rebuild if needed, so we know about the axes
1471	if {[$_dispatcher ispending !rebuild]} {
1472	$_dispatcher cancel !rebuild
1473	$_dispatcher event -now !rebuild
1474	}
1475
1476	# what is the x axis? x? x2? x3? ...
1477	set xlabel "Simulation #"
1478	if {[info exists _label2axis(x-$xlabel)]} {
1479	set mapx $_label2axis(x-$xlabel)
1480	} else {
1481	set mapx "x"
1482	}
1483
1484	# what is the y axis? y? y2? y3? ...
1485	set ylabel [$dataobj get about.label]
1486	if {[info exists _label2axis(y-$ylabel)]} {
1487	set mapy $_label2axis(y-$ylabel)
1488	} else {
1489	set mapy "y"
1490	}
1491
1492	return [list $mapx $mapy]
1493	}
1494
1495	# ----------------------------------------------------------------------
1496	# USAGE: GetValue <dataobj> ?<axis>?
1497	#
1498	# Used internally to get the {x y} value from this <dataobj>.
1499	# Returns x, y, or {x y} in the expected units for this object.
1500	# ----------------------------------------------------------------------
1501	itcl::body Rappture::NumberResult::GetValue {dataobj {which both}} {
1502	if {[info exists _dataobj2param($dataobj)]} {
1503	set x [lindex $_dataobj2param($dataobj) 1]
1504	} else {
1505	set x 0
1506	}
1507
1508	set y [$dataobj get current]
1509	set units [$dataobj get units]
1510	if {$units != ""} {
1511	set y [Rappture::Units::convert $y -context $units -to $units -units off]
1512	}
1513	if {![string is double -strict $y]} {
1514	set y 0
1515	}
1516
1517	switch -- $which {
1518	x { return $x }
1519	y { return $y }
1520	both { return [list $x $y] }
1521	default { error "bad value \"$which\": should be x, y, both" }
1522	}
1523	}
1524
1525	# ----------------------------------------------------------------------
1526	# USAGE: GetInfo <what> <dataobj> ?<axis>?
1527	#
1528	# Used internally to get the {x y} labels from this <dataobj>.
1529	# Returns xlabel, ylabel, or {xlabel ylabel}.
1530	# ----------------------------------------------------------------------
1531	itcl::body Rappture::NumberResult::GetInfo {what dataobj {which both}} {
1532	set x [lindex $_params 0]
1533	set y [$dataobj get $what]
1534	if {$what == "about.label"} {
1535	set units [$dataobj get units]
1536	if {"" != $units} {
1537	append y " ($units)"
1538	}
1539	}
1540
1541	switch -- $which {
1542	x { return $x }
1543	y { return $y }
1544	both { return [list $x $y] }
1545	default { error "bad value \"$which\": should be x, y, both" }
1546	}
1547	}
1548
1549	# ----------------------------------------------------------------------
1550	# CONFIGURATION OPTION: -gridcolor
1551	# ----------------------------------------------------------------------
1552	itcl::configbody Rappture::NumberResult::gridcolor {
1553	if {"" == $itk_option(-gridcolor)} {
1554	$itk_component(plot) grid off
1555	} else {
1556	$itk_component(plot) grid configure -color $itk_option(-gridcolor)
1557	$itk_component(plot) grid on
1558	}
1559	}
1560
1561	#
1562	# ResetLegend --
1563	#
1564	itcl::body Rappture::NumberResult::ResetLegend {} {
1565	set g $itk_component(plot)
1566	update idletasks
1567	$itk_component(legend) reset [$g element show]
1568	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: