*** empty log message ***

1 files changed, 15 insertions, 23 deletions

diff --git a/tests/base.tcl b/tests/base.tcl
index 6c50063..d69e609 100644
--- a/tests/base.tcl
+++ b/tests/base.tcl
@@ -63,6 +63,19 @@ proc bltCmd {graph args} {
     after $sleep
 }
 
+proc bltElements {graph} {
+    $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}\
+ 	-yerror {10 10 10 10 10 10 10 10 10 10 10} \
+	-color red
+    $graph legend configure -title "Legend"
+}
+
 proc bltBarGraph {w} {
     global sleep
 
@@ -76,20 +89,10 @@ proc bltBarGraph {w} {
 		   -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"
+    bltElements $graph
 
     update
     after $sleep
-
     return $graph
 }
 
@@ -104,20 +107,9 @@ proc bltLineGraph {w} {
 		   -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} \
-	-yerror {10 10 10 10 10 10 10 10 10 10 10} \
-	-color red
-    $graph legend configure -title "Legend"
+    bltElements $graph
 
     update
     after $sleep
-
     return $graph
 }