1 files changed, 45 insertions, 0 deletions
diff --git a/itcl/iwidgets/demos/toolbar b/itcl/iwidgets/demos/toolbar
new file mode 100644
index 00000000000..5b0175785fd
--- /dev/null
+++ b/itcl/iwidgets/demos/toolbar
@@ -0,0 +1,45 @@
+# ----------------------------------------------------------------------
+#  DEMO: toolbar in [incr Widgets]
+# ----------------------------------------------------------------------
+package require Iwidgets 4.0
+
+label .status -textvariable statusVar -width 40 -anchor w
+pack .status -side bottom
+
+iwidgets::toolbar .tb -helpvariable statusVar -orient vertical
+pack .tb -side left -anchor nw -padx 4 -pady 4
+
+set imagedir [file join ${iwidgets::library} demos images]
+
+.tb add button select \
+    -helpstr "Select drawing elements" \
+    -image [image create photo -file [file join $imagedir select.gif]] \
+    -balloonstr "Selection tool" \
+    -command {puts "tool: select"}
+
+.tb add button magnify \
+    -helpstr "Magnify drawing area" \
+    -image [image create photo -file [file join $imagedir mag.gif]] \
+    -balloonstr "Zoom tool" \
+    -command {puts "tool: magnify"}
+
+.tb add button ruler \
+    -helpstr "Measure distances on drawing" \
+    -image [image create photo -file [file join $imagedir ruler.gif]] \
+    -balloonstr "Ruler tool" \
+    -command {puts "tool: ruler"}
+
+.tb add frame filler \
+    -borderwidth 1 \
+    -width 10 \
+    -height 10
+
+.tb add button poly \
+    -helpstr "Draw a polygon" \
+    -image [image create photo -file [file join $imagedir poly.gif]] \
+    -balloonstr "Polygon tool" \
+    -command {puts "tool: polygon"}
+
+canvas .worksp -width 2i -height 3i \
+    -borderwidth 2 -relief sunken -background white
+pack .worksp -side right -expand yes -fill both -padx 4 -pady 4