blob: 9da6977a6d71823cceea3490cc1e39eb6d10c309 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/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
|