1 files changed, 105 insertions, 0 deletions
diff --git a/blt/demos/graph3.tcl b/blt/demos/graph3.tcl
new file mode 100755
index 00000000000..45bbe4128ff
--- /dev/null
+++ b/blt/demos/graph3.tcl
@@ -0,0 +1,105 @@
+#!../src/bltwish
+
+package require BLT
+# --------------------------------------------------------------------------
+# Starting with Tcl 8.x, the BLT commands are stored in their own 
+# namespace called "blt".  The idea is to prevent name clashes with
+# Tcl commands and variables from other packages, such as a "table"
+# command in two different packages.  
+#
+# You can access the BLT commands in a couple of ways.  You can prefix
+# all the BLT commands with the namespace qualifier "blt::"
+#  
+#    blt::graph .g
+#    blt::table . .g -resize both
+# 
+# or you can import all the command into the global namespace.
+#
+#    namespace import blt::*
+#    graph .g
+#    table . .g -resize both
+#
+# --------------------------------------------------------------------------
+if { $tcl_version >= 8.0 } {
+    namespace import blt::*
+    namespace import -force blt::tile::*
+}
+source scripts/demo.tcl
+source scripts/stipples.tcl
+
+set visual [winfo screenvisual .]
+if { $visual != "staticgray" && $visual != "grayscale" } {
+    option add *Button.Background		red
+    option add *TextMarker.Foreground	black
+    option add *TextMarker.Background	yellow
+    option add *LineMarker.Foreground	black
+    option add *LineMarker.Background	yellow
+    option add *PolyMarker.Fill		yellow2
+    option add *PolyMarker.Outline	""
+    option add *PolyMarker.Stipple	fdiagonal1
+    option add *activeLine.Color	red4
+    option add *activeLine.Fill		red2
+    option add *Element.Color		purple
+}
+
+image create photo bgTexture \
+    -file ./images/chalk.gif
+
+option add *Tile		bgTexture
+option add *Button.Tile		""
+option add *Text.font			-*-times*-bold-r-*-*-18-*-*
+option add *header.font			-*-times*-medium-r-*-*-18-*-*
+option add *footer.font			-*-times*-medium-r-*-*-18-*-*
+option add *HighlightThickness		0
+
+set graph [graph .g]
+source scripts/graph3.tcl
+
+
+
+text .header \
+    -wrap word \
+    -width 0 \
+    -height 3
+
+set text {
+This is an example of a bitmap marker.  Try zooming in on 
+a region by clicking the left button, moving the pointer, 
+and clicking again.  Notice that the bitmap scales too. 
+To restore the last view, click on the right button.  
+}
+regsub -all "\n" $text "" text
+.header insert end "$text\n"
+.header configure -state disabled
+
+htext .footer -text {Hit the %%
+    set im [image create photo -file ./images/stopsign.gif]
+    button $htext(widget).quit -image $im -command { exit }
+    $htext(widget) append $htext(widget).quit 
+%% button when you've seen enough. %%
+    label $htext(widget).logo -bitmap BLT
+    $htext(widget) append $htext(widget).logo 
+%%}
+
+table . \
+    .header 0,0 -fill x -padx 4 -pady 4\
+    $graph 1,0 -fill both  \
+    .footer 2,0 -fill x -padx 4 -pady 4
+
+table configure . r0 r2 -resize none
+
+source scripts/ps.tcl
+
+bind $graph <Shift-ButtonPress-1> { 
+    MakePsLayout $graph
+}
+
+if 0 {
+set printer [printer open [lindex [printer names] 0]]
+after 2000 {
+	$graph print2 $printer
+}
+}
+after 2000 {
+    PsDialog $graph
+}