Subversion Repositories or1k_old

#!/bin/sh

# ----------------------------------------------------------------------

#  DEMO: buttonbox in [incr Widgets]

# ----------------------------------------------------------------------

#\

exec itkwish "$0" ${1+"$@"}

package require Iwidgets 3.0

#

# Demo script for Buttonbox class

#

iwidgets::buttonbox .bb

.bb add OK -text OK -command "puts OK"

.bb add Apply -text Apply -command "puts Apply"

.bb add Cancel -text Cancel -command "puts Cancel"

.bb default OK

pack .bb -expand yes -fill both