diff options
Diffstat (limited to 'itcl/iwidgets3.0.0/demos/datefield')
-rwxr-xr-x | itcl/iwidgets3.0.0/demos/datefield | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/itcl/iwidgets3.0.0/demos/datefield b/itcl/iwidgets3.0.0/demos/datefield new file mode 100755 index 00000000000..e348c7441dc --- /dev/null +++ b/itcl/iwidgets3.0.0/demos/datefield @@ -0,0 +1,17 @@ +#!/bin/sh +# ---------------------------------------------------------------------- +# DEMO: datefield in [incr Widgets] +# ---------------------------------------------------------------------- +#\ +exec itkwish "$0" ${1+"$@"} +package require Iwidgets 3.0 + +# +# Demo script for Datefield class +# +proc returnCmd {} { + puts [.df get] +} + +iwidgets::datefield .df -labeltext "Date:" -command returnCmd +pack .df -fill x -expand yes -padx 10 -pady 10 |