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

#
# Demo script for the Dialog class
#
wm withdraw .

dialog .d -modality application
.d buttonconfigure OK -command {puts OK; .d deactivate 1}
.d buttonconfigure Apply -command {puts Apply}
.d buttonconfigure Cancel -command {puts Cancel; .d deactivate 0}
.d buttonconfigure Help -command {puts Help}
 
listbox [.d childsite].lb -relief sunken
pack [.d childsite].lb -expand yes -fill both

if {[.d activate]} {
    puts "Exit via OK button"
} else {
    puts "Exit via Cancel button"
}




