Context Navigation

source: branches/1.3/gui/scripts/numberresult.tcl @ 4941

Last change on this file since 4941 was 3844, checked in by ldelgass, 11 years ago
Sync with trunk. Branch now differs only from trunk by r3722 (branch is version 1.3, trunk is version 1.4)
File size: 56.0 KB

Rev	Line
[3330]	1	# -- mode: tcl; indent-tabs-mode: nil --
[1943]	2
[766]	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
[3177]	14	# Copyright (c) 2004-2012 HUBzero Foundation, LLC
[766]	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
[1943]	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
[766]	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
[1943]	65	option add *NumberResult.autoColors $autocolors widgetDefault
[766]	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 ""
[1943]	74	itk_option define -autocolors autoColors AutoColors ""
[766]	75
[1943]	76	constructor {args} {
[2744]	77	# defined below
[1943]	78	}
	79	destructor {
[2744]	80	# defined below
[1943]	81	}
[766]	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
[1943]	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}}
[3765]	97	private method ResetLegend {}
[766]	98
	99	private variable _dispatcher "" ;# dispatcher for !events
	100
	101	private variable _dlist "" ;# list of data objects
[1943]	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
[766]	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
[1943]	130	$_dispatcher dispatch $this !rebuild "[itcl::code $this Rebuild]; list"
[766]	131
	132	array set _downloadPopup {
[1929]	133	format csv
[766]	134	}
	135
	136	option add hull.width hull.height
	137	pack propagate $itk_component(hull) no
	138
[1943]	139	itk_component add main {
	140	Rappture::SidebarFrame $itk_interior.main
[766]	141	}
[1943]	142	pack $itk_component(main) -expand yes -fill both
	143	set f [$itk_component(main) component controls]
[766]	144
	145	itk_component add reset {
[1943]	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]
[766]	150	} {
[1929]	151	usual
[1943]	152	ignore -borderwidth -highlightthickness
[766]	153	}
[1943]	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"
[766]	157
[1943]	158	set f [$itk_component(main) component frame]
[766]	159	itk_component add plot {
[1943]	160	blt::graph $f.plot \
	161	-highlightthickness 0 -plotpadx 0 -plotpady 4 \
[1929]	162	-rightmargin 10
[766]	163	} {
[1929]	164	keep -background -foreground -cursor -font
[766]	165	}
	166	pack $itk_component(plot) -expand yes -fill both
[1943]	167
[766]	168	$itk_component(plot) pen configure activeLine \
[1943]	169	-symbol square -pixels 3 -linewidth 2 \
	170	-outline black -fill red -color black
[766]	171
	172	# Add bindings so you can mouse over points to see values:
	173	bind $itk_component(plot) <Motion> \
[1943]	174	[itcl::code $this Hilite at %x %y]
[766]	175	bind $itk_component(plot) <Leave> \
[1943]	176	[itcl::code $this Hilite off %x %y]
[766]	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 \
[1943]	202	"%.6g" "Auto" \
[1929]	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"
[766]	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" \
[1929]	218	-variable [itcl::scope _axisPopup(scale)] -value "linear"
[766]	219	pack $inner.scales.linear -side left
	220	radiobutton $inner.scales.log -text "Logarithmic" \
[1929]	221	-variable [itcl::scope _axisPopup(scale)] -value "log"
[766]	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} {
[1943]	227	set _axisPopup(format-$axis) "%.6g"
[766]	228	}
[1943]	229	Axis scale x linear
	230	Axis scale y linear
[766]	231
[1943]	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
[3765]	246	after idle [itcl::code $this ResetLegend]
	247
[766]	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	# ----------------------------------------------------------------------
[1943]	261	# USAGE: add <dataobj> ?<settings>?
[766]	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 {
[1929]	269	-color auto
	270	-brightness 0
	271	-width 1
	272	-type "line"
	273	-raise 0
	274	-linestyle solid
	275	-description ""
	276	-param ""
[766]	277	}
[3800]	278	array set params $settings
[766]	279
	280	# if type is set to "scatter", then override the width
	281	if {"scatter" == $params(-type)} {
[1929]	282	set params(-width) 0
[766]	283	}
	284
	285	if {$params(-color) == "auto" \|\| $params(-color) == "autoreset"} {
[1929]	286	set params(-color) #0000ff
[766]	287	}
	288
	289	# if -brightness is set, then update the color
	290	if {$params(-brightness) != 0} {
[1929]	291	set params(-color) [Rappture::color::brightness \
	292	$params(-color) $params(-brightness)]
[766]	293
[1929]	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	}
[766]	303	}
	304
[3844]	305	set pos [lsearch -exact $_dlist $dataobj]
[766]	306	if {$pos < 0} {
[1929]	307	lappend _dlist $dataobj
[1943]	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)
[766]	313
[1929]	314	$_dispatcher event -idle !rebuild
[766]	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 {
[1943]	328	if {[info exists _dataobj2raise($obj)] && $_dataobj2raise($obj)} {
[1929]	329	set i [lsearch -exact $dlist $obj]
	330	if {$i >= 0} {
	331	set dlist [lreplace $dlist $i $i]
	332	lappend dlist $obj
	333	}
	334	}
[766]	335	}
	336	return $dlist
	337	}
	338
	339	# ----------------------------------------------------------------------
[1943]	340	# USAGE: delete ?<dataobj2> <dataobj2> ...?
[766]	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} {
[1929]	347	set args $_dlist
[766]	348	}
	349
	350	# delete all specified data objects
	351	set changed 0
	352	foreach dataobj $args {
[1929]	353	set pos [lsearch -exact $_dlist $dataobj]
	354	if {$pos >= 0} {
	355	set _dlist [lreplace $_dlist $pos $pos]
[1943]	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)
[1929]	364	}
	365	}
	366	set changed 1
	367	}
[766]	368	}
	369
	370	# if anything changed, then rebuild the plot
	371	if {$changed} {
[1929]	372	$_dispatcher event -idle !rebuild
[766]	373	}
[1943]	374	# Nothing left? then start over with auto colors
	375	if {[llength $_dlist] == 0} {
	376	set _autoColorI 0
	377	}
[766]	378	}
	379
	380	# ----------------------------------------------------------------------
[1943]	381	# USAGE: scale ?<dataobj1> <dataobj2> ...?
[766]	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 {
[1943]	393	Axis scale $axis linear
[766]	394	}
	395
	396	set ally [$itk_component(plot) y2axis use]
	397	lappend ally y ;# fix main y-axis too
	398	foreach axis $ally {
[1943]	399	Axis scale $axis linear
[766]	400	}
	401
	402	catch {unset _limits}
[1943]	403	foreach dataobj $args {
[1929]	404	# find the axes for this data object (e.g., {x y2})
[1943]	405	foreach {map(x) map(y)} [GetAxes $dataobj] break
[766]	406
[1929]	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 {
[1943]	429	set min [set max [GetValue $dataobj y]]
[1929]	430	}
[766]	431
[1929]	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	}
[766]	447	}
[1943]	448	ResetLimits
[766]	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} {
[1929]	466	# store results -- ex: _limits(x2log-min)
	467	set id x$type
[766]	468
[1929]	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	}
[766]	484
[1929]	485	if {"" != $min && "" != $max} {
	486	set _limits($id-min) $min
	487	set _limits($id-max) $max
	488	}
[766]	489	}
[1943]	490	ResetLimits
[766]	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] {
[1929]	502	set _xval2label($xval) $xlab
	503	if {![string match $xval* $xlab]} {
	504	set havenums 0
	505	}
[766]	506	}
	507	if {$havenums} {
[1929]	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 \
[1943]	512	-command [itcl::code $this Axis format x]
[1929]	513	}
[766]	514	} else {
[1929]	515	set _xlabels 1
	516	$itk_component(plot) xaxis configure \
[1943]	517	-command [itcl::code $this Axis format x] \
[1929]	518	-majorticks [lsort -real [array names _xval2label]]
[766]	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 {
[1929]	536	coming {
	537	# nothing to do
	538	}
	539	controls {
[1943]	540	set popup .numberresultdownload
	541	if {![winfo exists .numberresultdownload]} {
[1929]	542	# if we haven't created the popup yet, do it now
[1943]	543	Rappture::Balloon $popup \
[2744]	544	-title "[Rappture::filexfer::label downloadWord] as..."
[1929]	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
[1943]	552	radiobutton $inner.image -text "Image (PS/PDF/PNG/JPEG)" \
[1929]	553	-variable Rappture::NumberResult::_downloadPopup(format) \
[1943]	554	-value image
	555	pack $inner.image -anchor w
[1929]	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 {
[1943]	569	set popup .numberresultdownload
	570	if {[winfo exists .numberresultdownload]} {
[1929]	571	$popup deactivate
	572	}
	573	switch -- $_downloadPopup(format) {
[2744]	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	}
[1943]	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
[1929]	635	}
[1943]	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
[1929]	645	}
	646	}
	647	}
	648	default {
	649	error "bad option \"$option\": should be coming, controls, now"
	650	}
[766]	651	}
	652	}
	653
	654	# ----------------------------------------------------------------------
[1943]	655	# USAGE: Rebuild
[766]	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	# ----------------------------------------------------------------------
[1943]	661	itcl::body Rappture::NumberResult::Rebuild {} {
[766]	662	set g $itk_component(plot)
	663
	664	# first clear out the widget
	665	eval $g element delete [$g element names]
[1943]	666	eval $g marker delete [$g marker names]
[766]	667	foreach axis [$g axis names] {
[1929]	668	$g axis configure $axis -hide yes -checklimits no
[766]	669	}
[1943]	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
[766]	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
[1943]	683	foreach dataobj [get] {
[1929]	684	foreach ax {x y} {
[1943]	685	set label [GetInfo about.label $dataobj ${ax}]
[1929]	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
[766]	699
[1929]	700	# if this axis has a description, add it as a tooltip
[1943]	701	set desc [string trim [GetInfo about.description $dataobj ${ax}]]
[1929]	702	Rappture::Tooltip::text $g-$axis $desc
	703	}
	704	}
	705	}
[766]	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} {
[1929]	714	lappend all $ax
[766]	715
[1929]	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	}
[766]	725	}
	726
	727	foreach axis $all {
[1943]	728	set _axisPopup(format-$axis) "%.6g"
[766]	729
[1929]	730	$g axis bind $axis <Enter> \
[1943]	731	[itcl::code $this Axis hilite $axis on]
[1929]	732	$g axis bind $axis <Leave> \
[1943]	733	[itcl::code $this Axis hilite $axis off]
	734	$g axis bind $axis <ButtonPress-1> \
	735	[itcl::code $this Axis click $axis %x %y]
[1929]	736	$g axis bind $axis <B1-Motion> \
[1943]	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]
[1929]	740	$g axis bind $axis <KeyPress> \
	741	[list ::Rappture::Tooltip::tooltip cancel]
[766]	742	}
	743
	744	#
	745	# Plot all of the data objects.
	746	#
	747	set count 0
[1943]	748	foreach dataobj $_dlist {
	749	set label [$dataobj get about.label]
	750	foreach {mapx mapy} [GetAxes $dataobj] break
[766]	751
[1943]	752	foreach {xv yv} [GetValue $dataobj] break
[766]	753
[1943]	754	if {[info exists _dataobj2color($dataobj)]} {
	755	set color $_dataobj2color($dataobj)
[1929]	756	} else {
[1943]	757	set color [$dataobj get about.color]
[1929]	758	if {"" == $color} {
	759	set color $itk_option(-activecolor)
	760	}
	761	}
[766]	762
[1929]	763	set sym square
	764	set pixels 6
[766]	765
[1929]	766	set elem "elem[incr count]"
[1943]	767	set _elem2dataobj($elem) $dataobj
[1929]	768	$g element create $elem -x $xv -y $yv \
	769	-symbol $sym -pixels $pixels -label $label \
	770	-color $color -mapx $mapx -mapy $mapy
[766]	771	}
	772	}
	773
	774	# ----------------------------------------------------------------------
[1943]	775	# USAGE: ResetLimits
[766]	776	#
	777	# Used internally to apply automatic limits to the axes for the
	778	# current plot.
	779	# ----------------------------------------------------------------------
[1943]	780	itcl::body Rappture::NumberResult::ResetLimits {} {
[766]	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] {
[1929]	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 }
[766]	798
[1929]	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	}
[766]	820
[1929]	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)
[766]	831
[1929]	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	}
[766]	845	}
	846	}
	847
	848	# ----------------------------------------------------------------------
[1943]	849	# USAGE: Zoom reset
[766]	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	# ----------------------------------------------------------------------
[1943]	854	itcl::body Rappture::NumberResult::Zoom {option args} {
[766]	855	switch -- $option {
[1929]	856	reset {
[1943]	857	ResetLimits
[3186]	858	Rappture::Logger::log number zoom -reset
[1929]	859	}
[766]	860	}
	861	}
	862
	863	# ----------------------------------------------------------------------
[1943]	864	# USAGE: Hilite <state> <x> <y>
[766]	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	# ----------------------------------------------------------------------
[1943]	870	itcl::body Rappture::NumberResult::Hilite {state x y} {
[766]	871	set g $itk_component(plot)
	872	set elem ""
[1943]	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 ""
[766]	880	if {$state == "at"} {
[1929]	881	if {[$g element closest $x $y info -interpolate yes]} {
	882	# for dealing with xy line plots
	883	set elem $info(name)
[1943]	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	}
[766]	891
[1929]	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)]
[766]	898
[1943]	899	if {[info exists _elem2dataobj($elem)]} {
	900	set dataobj $_elem2dataobj($elem)
	901	set tip [GetInfo about.label $dataobj y]
[1929]	902	if {[info exists info(y)]} {
[1943]	903	set val [Axis format y dummy $info(y)]
	904	set units [GetInfo units $dataobj y]
[1929]	905	append tip "\n$val$units"
[766]	906
[1943]	907	if {[info exists _dataobj2param($dataobj)]} {
	908	set val [lindex $_dataobj2param($dataobj) 0]
[1929]	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)
[1943]	919	foreach {mapx mapy} [GetAxes $_elem2dataobj($elem)] break
[766]	920
[1929]	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)]
[766]	926
[1943]	927	if {[info exists _elem2dataobj($elem)]} {
	928	set dataobj $_elem2dataobj($elem)
	929	set tip [GetInfo about.label $dataobj y]
[1929]	930	if {[info exists info(y)]} {
[1943]	931	set val [Axis format y dummy $info(y)]
	932	set units [GetInfo units $dataobj y]
[1929]	933	append tip "\n$val$units"
[766]	934
[1943]	935	if {[info exists _dataobj2param($dataobj)]} {
	936	set val [lindex $_dataobj2param($dataobj) 0]
[1929]	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	}
[766]	947	}
	948
	949	if {$state} {
[1929]	950	#
	951	# Highlight ON:
	952	# - activate trace
	953	# - multiple axes? dim other axes
	954	# - pop up tooltip about data
[3010]	955	if {$_hilite(elem) ne ""} {
	956	$g element deactivate $_hilite(elem)
	957	}
[2744]	958	$g crosshairs configure -hide yes
	959	Rappture::Tooltip::tooltip cancel
[2715]	960
[1929]	961	$g element activate $elem
	962	set _hilite(elem) $elem
[766]	963
[1929]	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	}
[766]	971
[1943]	972	foreach {mapx mapy} [GetAxes $_elem2dataobj($elem)] break
[766]	973
[1929]	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	}
[766]	1000
[1929]	1001	if {"" != $tip} {
	1002	$g crosshairs configure -hide no -position @$x,$y
[766]	1003
[1929]	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
[3186]	1032	Rappture::Logger::log tooltip -for "number probe -- [string map [list \n " // "] $tip]"
[1929]	1033	}
[766]	1034	} else {
[1929]	1035	#
	1036	# Highlight OFF:
	1037	# - deactivate (color back to normal)
	1038	# - put all axes back to normal color
	1039	# - take down tooltip
	1040	#
[3010]	1041	if {$_hilite(elem) ne ""} {
	1042	$g element deactivate $_hilite(elem)
	1043	}
[766]	1044
[2744]	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	}
[766]	1053
[2744]	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	}
[766]	1062
[1929]	1063	$g crosshairs configure -hide yes
[766]	1064
[1929]	1065	# only cancel in plotting area or we'll mess up axes
	1066	if {[$g inside $x $y]} {
	1067	Rappture::Tooltip::tooltip cancel
	1068	}
[766]	1069
[1929]	1070	# there is no currently highlighted element
	1071	set _hilite(elem) ""
[766]	1072	}
	1073	}
	1074
	1075	# ----------------------------------------------------------------------
[1943]	1076	# USAGE: Axis hilite <axis> <state>
[766]	1077	#
[1943]	1078	# USAGE: Axis click <axis> <x> <y>
	1079	# USAGE: Axis drag <axis> <x> <y>
	1080	# USAGE: Axis release <axis> <x> <y>
[766]	1081	#
[1943]	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
[766]	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	# ----------------------------------------------------------------------
[1943]	1092	itcl::body Rappture::NumberResult::Axis {option args} {
[766]	1093	set inner [$itk_component(hull).axes component inner]
	1094
	1095	switch -- $option {
[1929]	1096	hilite {
	1097	if {[llength $args] != 2} {
[1943]	1098	error "wrong # args: should be \"Axis hilite axis state\""
[1929]	1099	}
	1100	set g $itk_component(plot)
	1101	set axis [lindex $args 0]
	1102	set state [lindex $args 1]
[766]	1103
[1929]	1104	if {$state} {
	1105	$g axis configure $axis \
	1106	-color $itk_option(-activecolor) \
	1107	-titlecolor $itk_option(-activecolor)
[766]	1108
[1929]	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} {
[1943]	1121	error "wrong # args: should be \"Axis click axis x y\""
[1929]	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)
[766]	1127
[1929]	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} {
[1943]	1138	error "wrong # args: should be \"Axis drag axis x y\""
[1929]	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)
[766]	1147
[1929]	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	}
[766]	1176
[1929]	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
[766]	1189
[1929]	1190	# move axis, don't edit on release
	1191	set _axis(move) 1
	1192	}
	1193	}
	1194	release {
	1195	if {[llength $args] != 3} {
[1943]	1196	error "wrong # args: should be \"Axis release axis x y\""
[1929]	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]
[766]	1204
[1929]	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} {
[2715]	1210	Axis edit $axis
[3186]	1211	return
[1929]	1212	}
	1213	}
[3186]	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
[1929]	1221	catch {unset _axis}
	1222	}
	1223	edit {
	1224	if {[llength $args] != 1} {
[1943]	1225	error "wrong # args: should be \"Axis edit axis\""
[1929]	1226	}
	1227	set axis [lindex $args 0]
	1228	set _axisPopup(current) $axis
[766]	1229
[1929]	1230	# apply last value when deactivating
	1231	$itk_component(hull).axes configure -deactivatecommand \
[1943]	1232	[itcl::code $this Axis changed $axis focus]
[766]	1233
[1929]	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
[3454]	1238	bind $inner.label <Return> \
[1943]	1239	[itcl::code $this Axis changed $axis label]
[3454]	1240	bind $inner.label <KP_Enter> \
	1241	[itcl::code $this Axis changed $axis label]
[1929]	1242	bind $inner.label <FocusOut> \
[1943]	1243	[itcl::code $this Axis changed $axis label]
[766]	1244
[1929]	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
[3454]	1249	bind $inner.min <Return> \
[1943]	1250	[itcl::code $this Axis changed $axis min]
[3454]	1251	bind $inner.min <KP_Enter> \
	1252	[itcl::code $this Axis changed $axis min]
[1929]	1253	bind $inner.min <FocusOut> \
[1943]	1254	[itcl::code $this Axis changed $axis min]
[766]	1255
[1929]	1256	$inner.max delete 0 end
	1257	$inner.max insert end $max
[3454]	1258	bind $inner.max <Return> \
[1943]	1259	[itcl::code $this Axis changed $axis max]
[3454]	1260	bind $inner.max <KP_Enter> \
	1261	[itcl::code $this Axis changed $axis max]
[1929]	1262	bind $inner.max <FocusOut> \
[1943]	1263	[itcl::code $this Axis changed $axis max]
[766]	1264
[1929]	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]
[766]	1270
[1929]	1271	bind $inner.format <<Value>> \
[1943]	1272	[itcl::code $this Axis changed $axis format]
[766]	1273
[1929]	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 \
[1943]	1283	-command [itcl::code $this Axis changed $axis scale]
[1929]	1284	$inner.scales.log configure \
[1943]	1285	-command [itcl::code $this Axis changed $axis scale]
[766]	1286
[1929]	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} {
[1943]	1328	error "wrong # args: should be \"Axis changed axis what\""
[1929]	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	}
[766]	1338
[1929]	1339	switch -- $what {
	1340	label {
	1341	set val [$inner.label get]
	1342	$itk_component(plot) axis configure $axis -title $val
[3186]	1343	Rappture::Logger::log number axis $axis -title $val
[1929]	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	}
[766]	1352
[1929]	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
[3186]	1362	Rappture::Logger::log number axis $axis -min $val
[1929]	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	}
[766]	1375
[1929]	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
[3186]	1385	Rappture::Logger::log number axis $axis -max $val
[1929]	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
[766]	1394
[1929]	1395	# force a refresh
	1396	$itk_component(plot) axis configure $axis -min \
	1397	[$itk_component(plot) axis cget $axis -min]
	1398	}
	1399	scale {
[1943]	1400	Axis scale $axis $_axisPopup(scale)
[3186]	1401	Rappture::Logger::log number axis $axis -scale $_axisPopup(scale)
[766]	1402
[1929]	1403	if {$_axisPopup(scale) == "log"} {
	1404	$inner.format configure -state disabled
	1405	} else {
	1406	$inner.format configure -state normal
	1407	}
[766]	1408
[1929]	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} {
[1943]	1422	error "wrong # args: should be \"Axis format axis widget value\""
[1929]	1423	}
	1424	set axis [lindex $args 0]
	1425	set value [lindex $args 2]
[766]	1426
[1929]	1427	if {$axis == "x" && $_xlabels
	1428	&& [info exists _xval2label($value)]} {
	1429	return $_xval2label($value)
	1430	}
	1431	if {[$itk_component(plot) axis cget $axis -logscale]} {
[1943]	1432	set fmt "%.6g"
[1929]	1433	} else {
	1434	set fmt $_axisPopup(format-$axis)
	1435	}
	1436	return [format $fmt $value]
	1437	}
	1438	scale {
	1439	if {[llength $args] != 2} {
[1943]	1440	error "wrong # args: should be \"Axis scale axis type\""
[1929]	1441	}
	1442	set axis [lindex $args 0]
	1443	set type [lindex $args 1]
[766]	1444
[1929]	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 \
[1943]	1453	[itcl::code $this Axis format $axis]
[1929]	1454	}
	1455	}
	1456	default {
	1457	error "bad option \"$option\": should be changed, edit, hilite, or format"
	1458	}
[766]	1459	}
	1460	}
	1461
	1462	# ----------------------------------------------------------------------
[1943]	1463	# USAGE: GetAxes <dataobj>
[766]	1464	#
	1465	# Used internally to figure out the axes used to plot the given
[1943]	1466	# <dataobj>. Returns a list of the form {x y}, where x is the
[766]	1467	# x-axis name (x, x2, x3, etc.), and y is the y-axis name.
	1468	# ----------------------------------------------------------------------
[1943]	1469	itcl::body Rappture::NumberResult::GetAxes {dataobj} {
[766]	1470	# rebuild if needed, so we know about the axes
	1471	if {[$_dispatcher ispending !rebuild]} {
[1929]	1472	$_dispatcher cancel !rebuild
	1473	$_dispatcher event -now !rebuild
[766]	1474	}
	1475
	1476	# what is the x axis? x? x2? x3? ...
	1477	set xlabel "Simulation #"
	1478	if {[info exists _label2axis(x-$xlabel)]} {
[1929]	1479	set mapx $_label2axis(x-$xlabel)
[766]	1480	} else {
[1929]	1481	set mapx "x"
[766]	1482	}
	1483
	1484	# what is the y axis? y? y2? y3? ...
[1943]	1485	set ylabel [$dataobj get about.label]
[766]	1486	if {[info exists _label2axis(y-$ylabel)]} {
[1929]	1487	set mapy $_label2axis(y-$ylabel)
[766]	1488	} else {
[1929]	1489	set mapy "y"
[766]	1490	}
	1491
	1492	return [list $mapx $mapy]
	1493	}
	1494
	1495	# ----------------------------------------------------------------------
[1943]	1496	# USAGE: GetValue <dataobj> ?<axis>?
[766]	1497	#
[1943]	1498	# Used internally to get the {x y} value from this <dataobj>.
[766]	1499	# Returns x, y, or {x y} in the expected units for this object.
	1500	# ----------------------------------------------------------------------
[1943]	1501	itcl::body Rappture::NumberResult::GetValue {dataobj {which both}} {
	1502	if {[info exists _dataobj2param($dataobj)]} {
[3099]	1503	set x [lindex $_dataobj2param($dataobj) 1]
[766]	1504	} else {
[1929]	1505	set x 0
[766]	1506	}
	1507
[1943]	1508	set y [$dataobj get current]
	1509	set units [$dataobj get units]
[766]	1510	if {$units != ""} {
[1929]	1511	set y [Rappture::Units::convert $y -context $units -to $units -units off]
[766]	1512	}
	1513	if {![string is double -strict $y]} {
[1929]	1514	set y 0
[766]	1515	}
	1516
	1517	switch -- $which {
[1929]	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" }
[766]	1522	}
	1523	}
	1524
	1525	# ----------------------------------------------------------------------
[1943]	1526	# USAGE: GetInfo <what> <dataobj> ?<axis>?
[766]	1527	#
[1943]	1528	# Used internally to get the {x y} labels from this <dataobj>.
[766]	1529	# Returns xlabel, ylabel, or {xlabel ylabel}.
	1530	# ----------------------------------------------------------------------
[1943]	1531	itcl::body Rappture::NumberResult::GetInfo {what dataobj {which both}} {
[766]	1532	set x [lindex $_params 0]
[1943]	1533	set y [$dataobj get $what]
[766]	1534	if {$what == "about.label"} {
[1943]	1535	set units [$dataobj get units]
[1929]	1536	if {"" != $units} {
	1537	append y " ($units)"
	1538	}
[766]	1539	}
	1540
	1541	switch -- $which {
[1929]	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" }
[766]	1546	}
	1547	}
	1548
	1549	# ----------------------------------------------------------------------
	1550	# CONFIGURATION OPTION: -gridcolor
	1551	# ----------------------------------------------------------------------
	1552	itcl::configbody Rappture::NumberResult::gridcolor {
	1553	if {"" == $itk_option(-gridcolor)} {
[1929]	1554	$itk_component(plot) grid off
[766]	1555	} else {
[1929]	1556	$itk_component(plot) grid configure -color $itk_option(-gridcolor)
	1557	$itk_component(plot) grid on
[766]	1558	}
	1559	}
[3765]	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: