#!/bin/sh
# ----------------------------------------------------------------------
#  DEMO: line in [incr Widgets]
# ----------------------------------------------------------------------
#\
exec itkwish "$0" ${1+"$@"}
package require Iwidgets 3.0
source load.tcl

#
# Demo script for line class
#

button         .a -text Please, -relief flat
iwidgets::line .b -relief raised
button         .c -text resize  -relief flat
iwidgets::line .d -background green
button         .e -text the -relief flat
iwidgets::line .f -xmargin 5 -ymargin 10 -foreground red -relief flat -background blue
button         .g -text window. -relief flat

pack .g .f -side right -expand 1 -fill both
pack .a .b .c .d .e -side top -expand 1 -fill both
