#!/bin/sh
# \
        exec itkwish "$0" ${1+"$@"}

# Create a tool bar
toolbar .tb -helpvariable statusVar

# Add some tool bar buttons
.tb add button line \
		-helpstr "Draw a line" \
		-bitmap @line.xbm \
		-balloonstr "Line" \
		-command {puts LINE}
.tb add button box \
		-helpstr "Draw a box" \
		-bitmap @box.xbm \
		-balloonstr "Box" \
		-command {puts BOX}
.tb add button oval \
		-helpstr "Draw an oval" \
		-bitmap @oval.xbm \
		-balloonstr "Oval" \
		-command {puts OVAL}
.tb add button points \
		-helpstr "Draw poly points" \
		-bitmap @points.xbm \
		-balloonstr "Points" \
		-command {puts POINTS}
.tb add frame filler \
		-borderwidth 1 \
		-width 10 \
		-height 10
.tb add button text \
		-bitmap @text.xbm \
		-helpstr "Enter text" \
		-balloonstr "Text" \
		-command {puts TEXT}
pack .tb -side top -anchor nw

# help status window
entry .e -textvariable statusVar
pack .e -side top -anchor nw

