summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/bargraph.tcl240
-rw-r--r--tests/base.tcl100
-rw-r--r--tests/crosshairs.tcl19
-rw-r--r--tests/legend.tcl65
-rw-r--r--tests/linegraph.tcl54
5 files changed, 286 insertions, 192 deletions
diff --git a/tests/bargraph.tcl b/tests/bargraph.tcl
index e5bf16a..993646c 100644
--- a/tests/bargraph.tcl
+++ b/tests/bargraph.tcl
@@ -1,199 +1,55 @@
-set all 0
-set sleep 1000
-
-proc bltPlot {w title} {
- toplevel $w
- wm title $w $title
- wm protocol $w WM_DELETE_WINDOW [list bltPlotDestroy $w]
-
- set mb ${w}mb
- menu $mb
- $w configure -menu $mb
-}
-
-proc bltPlotDestroy {w} {
- destroy ${w}mb
- destroy $w
-}
-
-proc bltTest {graph option value} {
- global sleep
-
- echo " $option $value"
- set org [$graph cget $option]
- $graph configure $option $value
- update
- after $sleep
- $graph configure $option $org
- update
- after $sleep
-}
-
-proc bltTest2 {graph which option value} {
- global sleep
-
- echo " $option $value"
- set org [$graph $which cget $option]
- $graph $which configure $option $value
- update
- after $sleep
- $graph $which configure $option $org
- update
- after $sleep
-}
+source base.tcl
set w .bar
-set title "Bar Graph Test"
-bltPlot $w $title
-set graph [blt::barchart ${w}.gr \
- -width 600 \
- -height 500 \
- -title $title \
- -barwidth .2 \
- -barmode aligned \
- ]
-pack $graph -expand yes -fill both
-
-$graph element create bar1 \
- -xdata { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } \
- -ydata { 13 25 36 46 55 64 70 75 80 90}\
- -color blue
-$graph element create bar2 \
- -xdata { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } \
- -ydata { 26 50 72 92 110 128 140 150 160 180}\
- -color red
-$graph legend configure -title "Legend"
-
-update
-after $sleep
+set graph [bltBarGraph $w]
# Graph
-if {$all} {
- bltTest $graph -aspect 2
- bltTest $graph -background red
- bltTest $graph -barmode overlap
- bltTest $graph -barwidth .15
- #bltTest $graph -baseline
- bltTest $graph -bd 50
- bltTest $graph -bg green
- bltTest $graph -bm 50
- bltTest $graph -borderwidth 50
- bltTest $graph -bottommargin 50
- #bltTest $graph -bottomvariable
- #bltTest $graph -bufferelements
- #bltTest $graph -buffergraph
- bltTest $graph -cursor cross
- #bltTest $graph -fg
- bltTest $graph -font "times 36 bold italic"
- #bltTest $graph -foreground
- #bltTest $graph -halo
- bltTest $graph -height 300
- #bltTest $graph -highlightbackground
- #bltTest $graph -highlightcolor
- #bltTest $graph -highlightthickness
- bltTest $graph -invertxy yes
- #bltTest $graph -justify
- bltTest $graph -leftmargin 50
- #bltTest $graph -leftvariable
- bltTest $graph -lm 50
- bltTest $graph -plotbackground cyan
- bltTest $graph -plotborderwidth 50
- bltTest $graph -plotpadx 50
- bltTest $graph -plotpady 50
- bltTest $graph -plotrelief groove
- bltTest $graph -relief groove
- bltTest $graph -rightmargin 50
- #bltTest $graph -rightvariable
- bltTest $graph -rm 50
- #bltTest $graph -stackaxes
- #bltTest $graph -takefocus
- bltTest $graph -title "This is a Title"
- bltTest $graph -tm 50
- bltTest $graph -topmargin 50
- #bltTest $graph -topvariable
- bltTest $graph -width 300
- bltTest $graph -plotwidth 300
- bltTest $graph -plotheight 300
-}
-
-# Grid
-
-# Crosshairs
-
-if {$all} {
- #bltTest2 $graph crosshairs -color green
- #bltTest2 $graph crosshairs -dashes "dotdot"
- #bltTest2 $graph crosshairs -dashes "5 8 3"
- #bltTest2 $graph crosshairs -hide yes
- #bltTest2 $graph crosshairs -linewidth 3
- #bltTest2 $graph crosshairs -position "@1,50"
-
- #$graph crosshairs on
- #$graph crosshairs off
- #$graph crosshairs toggle
-}
-
-# Legend
-
-if {$all} {
- #bltTest2 $graph legend -activebackground
- #bltTest2 $graph legend -activeborderwidth
- #bltTest2 $graph legend -activeforeground
- #bltTest2 $graph legend -activerelief
- bltTest2 $graph legend -anchor s
- bltTest2 $graph legend -bg pink
- bltTest2 $graph legend -background cyan
- bltTest2 $graph legend -borderwidth 20
- bltTest2 $graph legend -bd 20
- bltTest2 $graph legend -columns 2
- #bltTest2 $graph legend -exportselection
- #bltTest2 $graph legend -focusdashes
- #bltTest2 $graph legend -focusforeground
- bltTest2 $graph legend -font "times 18 bold italic"
- bltTest2 $graph legend -fg yellow
- bltTest2 $graph legend -foreground purple
- bltTest2 $graph legend -hide yes
- bltTest2 $graph legend -ipadx 20
- bltTest2 $graph legend -ipady 20
- #bltTest2 $graph legend -nofocusselectbackground
- #bltTest2 $graph legend -nofocusselectforeground
- bltTest2 $graph legend -padx 20
- bltTest2 $graph legend -pady 20
- bltTest2 $graph legend -position leftmargin
- bltTest2 $graph legend -position topmargin
- bltTest2 $graph legend -position bottommargin
- bltTest2 $graph legend -position "@250,100"
- bltTest2 $graph legend -raised yes
- bltTest2 $graph legend -relief groove
- bltTest2 $graph legend -rows 1
- #bltTest2 $graph legend -selectbackground
- #bltTest2 $graph legend -selectborderwidth
- #bltTest2 $graph legend -selectcommand
- #bltTest2 $graph legend -selectforeground
- #bltTest2 $graph legend -selectmode
- #bltTest2 $graph legend -selectrelief
- #bltTest2 $graph legend -takefocus
- bltTest2 $graph legend -title "Hello World"
- ##bltTest2 $graph legend -titleanchor center
- ##bltTest2 $graph legend -titlecolor red
- bltTest2 $graph legend -titlefont "times 24 bold italic"
-
- #$graph active
- #$graph bind
- #$graph curselection
- #$graph deactive
- #$graph focus
- #$graph get
- #$graph selection anchor
- #$graph selection clear
- #$graph selection clearall
- #$graph selection includes
- #$graph selection mark
- #$graph selection present
- #$graph selection set
- #$graph selection toggle
-}
+bltTest $graph -aspect 2
+bltTest $graph -background red
+bltTest $graph -barmode overlap
+bltTest $graph -barwidth .15
+#bltTest $graph -baseline
+bltTest $graph -bd 50
+bltTest $graph -bg green
+bltTest $graph -bm 50
+bltTest $graph -borderwidth 50
+bltTest $graph -bottommargin 50
+#bltTest $graph -bottomvariable
+#bltTest $graph -bufferelements
+#bltTest $graph -buffergraph
+bltTest $graph -cursor cross
+#bltTest $graph -fg
+bltTest $graph -font "times 36 bold italic"
+#bltTest $graph -foreground
+#bltTest $graph -halo
+bltTest $graph -height 300
+#bltTest $graph -highlightbackground
+#bltTest $graph -highlightcolor
+#bltTest $graph -highlightthickness
+bltTest $graph -invertxy yes
+#bltTest $graph -justify
+bltTest $graph -leftmargin 50
+#bltTest $graph -leftvariable
+bltTest $graph -lm 50
+bltTest $graph -plotbackground cyan
+bltTest $graph -plotborderwidth 50
+bltTest $graph -plotpadx 50
+bltTest $graph -plotpady 50
+bltTest $graph -plotrelief groove
+bltTest $graph -relief groove
+bltTest $graph -rightmargin 50
+#bltTest $graph -rightvariable
+bltTest $graph -rm 50
+#bltTest $graph -stackaxes
+#bltTest $graph -takefocus
+bltTest $graph -title "This is a Title"
+bltTest $graph -tm 50
+bltTest $graph -topmargin 50
+#bltTest $graph -topvariable
+bltTest $graph -width 300
+bltTest $graph -plotwidth 300
+bltTest $graph -plotheight 300
echo "done"
-#bltPlotDestroy .line
+#bltPlotDestroy $w
diff --git a/tests/base.tcl b/tests/base.tcl
new file mode 100644
index 0000000..4ce0e23
--- /dev/null
+++ b/tests/base.tcl
@@ -0,0 +1,100 @@
+set sleep 1000
+
+proc bltPlot {w title} {
+ toplevel $w
+ wm title $w $title
+ wm protocol $w WM_DELETE_WINDOW [list bltPlotDestroy $w]
+
+ set mb ${w}mb
+ menu $mb
+ $w configure -menu $mb
+}
+
+proc bltPlotDestroy {w} {
+ destroy ${w}mb
+ destroy $w
+}
+
+proc bltTest {graph option value} {
+ global sleep
+
+ echo " $option $value"
+ set org [$graph cget $option]
+ $graph configure $option $value
+ update
+ after $sleep
+ $graph configure $option $org
+ update
+ after $sleep
+}
+
+proc bltTest2 {graph which option value} {
+ global sleep
+
+ echo " $option $value"
+ set org [$graph $which cget $option]
+ $graph $which configure $option $value
+ update
+ after $sleep
+ $graph $which configure $option $org
+ update
+ after $sleep
+}
+
+proc bltBarGraph {w} {
+ global sleep
+
+ set title "Bar Graph"
+ bltPlot $w $title
+ set graph [blt::barchart ${w}.gr \
+ -width 600 \
+ -height 500 \
+ -title $title \
+ -barwidth .2 \
+ -barmode aligned \
+ ]
+ pack $graph -expand yes -fill both
+
+ $graph element create data1 \
+ -xdata { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } \
+ -ydata { 13 25 36 46 55 64 70 75 80 90}\
+ -color blue
+ $graph element create data2 \
+ -xdata { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } \
+ -ydata { 26 50 72 92 110 128 140 150 160 180}\
+ -color red
+ $graph legend configure -title "Legend"
+
+ update
+ after $sleep
+
+ return $graph
+}
+
+proc bltLineGraph {w} {
+ global sleep
+
+ set title "Line Graph"
+ bltPlot $w $title
+ set graph [blt::graph ${w}.gr \
+ -width 600 \
+ -height 500 \
+ -title $title \
+ ]
+ pack $graph -expand yes -fill both
+
+ $graph element create data1 \
+ -xdata { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } \
+ -ydata { 13 25 36 46 55 64 70 75 80 90}\
+ -color blue
+ $graph element create data2 \
+ -xdata { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } \
+ -ydata { 26 50 72 92 110 128 140 150 160 180}\
+ -color red
+ $graph legend configure -title "Legend"
+
+ update
+ after $sleep
+
+ return $graph
+}
diff --git a/tests/crosshairs.tcl b/tests/crosshairs.tcl
new file mode 100644
index 0000000..0406eb8
--- /dev/null
+++ b/tests/crosshairs.tcl
@@ -0,0 +1,19 @@
+source base.tcl
+
+set w .ch
+set graph [bltLineGraph $w]
+
+#bltTest2 $graph crosshairs -color green
+#bltTest2 $graph crosshairs -dashes "dotdot"
+#bltTest2 $graph crosshairs -dashes "5 8 3"
+#bltTest2 $graph crosshairs -hide yes
+#bltTest2 $graph crosshairs -linewidth 3
+#bltTest2 $graph crosshairs -position "@1,50"
+
+#$graph crosshairs on
+#$graph crosshairs off
+#$graph crosshairs toggle
+
+echo "done"
+#bltPlotDestroy $w
+
diff --git a/tests/legend.tcl b/tests/legend.tcl
new file mode 100644
index 0000000..b3cffdf
--- /dev/null
+++ b/tests/legend.tcl
@@ -0,0 +1,65 @@
+source base.tcl
+
+set w .lgd
+set graph [bltLineGraph $w]
+
+#bltTest2 $graph legend -activebackground
+#bltTest2 $graph legend -activeborderwidth
+#bltTest2 $graph legend -activeforeground
+#bltTest2 $graph legend -activerelief
+bltTest2 $graph legend -anchor s
+bltTest2 $graph legend -bg pink
+bltTest2 $graph legend -background cyan
+bltTest2 $graph legend -borderwidth 20
+bltTest2 $graph legend -bd 20
+bltTest2 $graph legend -columns 2
+#bltTest2 $graph legend -exportselection
+#bltTest2 $graph legend -focusdashes
+#bltTest2 $graph legend -focusforeground
+bltTest2 $graph legend -font "times 18 bold italic"
+bltTest2 $graph legend -fg yellow
+bltTest2 $graph legend -foreground purple
+bltTest2 $graph legend -hide yes
+bltTest2 $graph legend -ipadx 20
+bltTest2 $graph legend -ipady 20
+#bltTest2 $graph legend -nofocusselectbackground
+#bltTest2 $graph legend -nofocusselectforeground
+bltTest2 $graph legend -padx 20
+bltTest2 $graph legend -pady 20
+bltTest2 $graph legend -position leftmargin
+bltTest2 $graph legend -position topmargin
+bltTest2 $graph legend -position bottommargin
+bltTest2 $graph legend -position "@250,100"
+bltTest2 $graph legend -raised yes
+bltTest2 $graph legend -relief groove
+bltTest2 $graph legend -rows 1
+#bltTest2 $graph legend -selectbackground
+#bltTest2 $graph legend -selectborderwidth
+#bltTest2 $graph legend -selectcommand
+#bltTest2 $graph legend -selectforeground
+#bltTest2 $graph legend -selectmode
+#bltTest2 $graph legend -selectrelief
+#bltTest2 $graph legend -takefocus
+bltTest2 $graph legend -title "Hello World"
+##bltTest2 $graph legend -titleanchor center
+##bltTest2 $graph legend -titlecolor red
+bltTest2 $graph legend -titlefont "times 24 bold italic"
+
+#$graph active
+#$graph bind
+#$graph curselection
+#$graph deactive
+#$graph focus
+#$graph get
+#$graph selection anchor
+#$graph selection clear
+#$graph selection clearall
+#$graph selection includes
+#$graph selection mark
+#$graph selection present
+#$graph selection set
+#$graph selection toggle
+
+echo "done"
+#bltPlotDestroy $w
+
diff --git a/tests/linegraph.tcl b/tests/linegraph.tcl
new file mode 100644
index 0000000..b33afe4
--- /dev/null
+++ b/tests/linegraph.tcl
@@ -0,0 +1,54 @@
+source base.tcl
+
+set w .line
+set graph [bltLineGraph $w]
+
+bltTest $graph -aspect 2
+bltTest $graph -background red
+bltTest $graph -barmode overlap
+bltTest $graph -barwidth .15
+#bltTest $graph -baseline
+bltTest $graph -bd 50
+bltTest $graph -bg green
+bltTest $graph -bm 50
+bltTest $graph -borderwidth 50
+bltTest $graph -bottommargin 50
+#bltTest $graph -bottomvariable
+#bltTest $graph -bufferelements
+#bltTest $graph -buffergraph
+bltTest $graph -cursor cross
+#bltTest $graph -fg
+bltTest $graph -font "times 36 bold italic"
+#bltTest $graph -foreground
+#bltTest $graph -halo
+bltTest $graph -height 300
+#bltTest $graph -highlightbackground
+#bltTest $graph -highlightcolor
+#bltTest $graph -highlightthickness
+bltTest $graph -invertxy yes
+#bltTest $graph -justify
+bltTest $graph -leftmargin 50
+#bltTest $graph -leftvariable
+bltTest $graph -lm 50
+bltTest $graph -plotbackground cyan
+bltTest $graph -plotborderwidth 50
+bltTest $graph -plotpadx 50
+bltTest $graph -plotpady 50
+bltTest $graph -plotrelief groove
+bltTest $graph -relief groove
+bltTest $graph -rightmargin 50
+#bltTest $graph -rightvariable
+bltTest $graph -rm 50
+#bltTest $graph -stackaxes
+#bltTest $graph -takefocus
+bltTest $graph -title "This is a Title"
+bltTest $graph -tm 50
+bltTest $graph -topmargin 50
+#bltTest $graph -topvariable
+bltTest $graph -width 300
+bltTest $graph -plotwidth 300
+bltTest $graph -plotheight 300
+
+echo "done"
+#bltPlotDestroy $w
+
generated by cgit v0.12 at 2024-07-21 05:24:48 (GMT)