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

#
# Demo script for Entryfield class
# 
option add *textBackground white

proc returnCmd {} {
    puts stdout "Return Pressed"
}

proc invalidCmd {} {
    puts stdout "Alphabetic contents invalid"
}

entryfield .ef -command returnCmd 
entryfield .fef -labeltext "Fixed:" -fixed 10 -width 12 
entryfield .nef -labeltext "Numeric:" -validate numeric -width 12
entryfield .ief -labeltext "Integer:" -validate integer -width 12
entryfield .hef -labeltext "Hex:" -validate hexidecimal -width 12
entryfield .ref -labeltext "Real:" -validate real -width 12
entryfield .anef -labeltext "AlphaNumeric:" -validate alphanumeric -width 12
entryfield .aef -labeltext "Alphabetic:" -validate alphabetic -width 12 \
	-invalid invalidCmd
entryfield .pef -labeltext "Password:" -show \267 -width 12 -command returnCmd

Labeledwidget::alignlabels .ef .fef .nef .ief .hef .ref .anef .aef .pef

pack .ef -fill x -expand yes -padx 10 -pady 5
pack .fef -fill x -expand yes -padx 10 -pady 5
pack .nef -fill x -expand yes -padx 10 -pady 5
pack .ief -fill x -expand yes -padx 10 -pady 5
pack .hef -fill x -expand yes -padx 10 -pady 5
pack .ref -fill x -expand yes -padx 10 -pady 5
pack .anef -fill x -expand yes -padx 10 -pady 5
pack .aef -fill x -expand yes -padx 10 -pady 5
pack .pef -fill x -expand yes -padx 10 -pady 5
