Index: examples/canvas/crosshairs_for_axes.tcl
==================================================================
--- examples/canvas/crosshairs_for_axes.tcl
+++ examples/canvas/crosshairs_for_axes.tcl
@@ -1,5 +1,11 @@
+#! /bin/sh
+# The next line restarts with tclsh \
+exec tclsh "$0" ${1+"$@"}
+
+package require Tk
+
# test_axis.tcl --
# Test the drawing of the axis: nice rounded values?
# And vertical text to right axis?
#
# NOTE:
@@ -10,15 +16,11 @@
#
# TODO:
# Floor and Ceil and less stringent check for bounds!
#
-set base [file dirname [file dirname [file dirname [file normalize [info script]]]]]
-
-source "$base/modules/plotchart/plotchart.tcl"
-source "$base/modules/crosshair/crosshair.tcl"
-
+package require crosshair
package require Plotchart
grid [canvas .c1] [canvas .c2]
grid [canvas .c3] [canvas .c4]
Index: examples/canvas/crosshairs_for_multixyplot.tcl
==================================================================
--- examples/canvas/crosshairs_for_multixyplot.tcl
+++ examples/canvas/crosshairs_for_multixyplot.tcl
@@ -1,13 +1,15 @@
+#! /bin/sh
+# The next line restarts with tclsh \
+exec tclsh "$0" ${1+"$@"}
+
+package require Tk
+
# test_txplot.tcl --
# Test the -box options for time-x-plots
-set base [file dirname [file dirname [file dirname [file normalize [info script]]]]]
-
-source "$base/modules/plotchart/plotchart.tcl"
-source "$base/modules/crosshair/crosshair.tcl"
-
+package require crosshair
package require Plotchart
pack [canvas .c -width 600 -height 410 -bg white]
::Plotchart::plotstyle configure default xyplot bottomaxis subtextcolor blue
Index: examples/canvas/crosshairs_scaled.tcl
==================================================================
--- examples/canvas/crosshairs_scaled.tcl
+++ examples/canvas/crosshairs_scaled.tcl
@@ -1,5 +1,11 @@
+#! /bin/sh
+# The next line restarts with tclsh \
+exec tclsh "$0" ${1+"$@"}
+
+package require Tk
+
# test_axis.tcl --
# Test the drawing of the axis: nice rounded values?
# And vertical text to right axis?
#
# NOTE:
@@ -10,15 +16,11 @@
#
# TODO:
# Floor and Ceil and less stringent check for bounds!
#
-set base [file dirname [file dirname [file dirname [file normalize [info script]]]]]
-
-source "$base/modules/plotchart/plotchart.tcl"
-source "$base/modules/crosshair/crosshair.tcl"
-
+package require crosshair
package require Plotchart
grid [canvas .c1] [canvas .c2]
grid [canvas .c3] [canvas .c4]
grid [canvas .c5] [canvas .c6]
