summaryrefslogtreecommitdiff
path: root/itcl/iwidgets3.0.0/demos/datefield
diff options
context:
space:
mode:
Diffstat (limited to 'itcl/iwidgets3.0.0/demos/datefield')
-rwxr-xr-xitcl/iwidgets3.0.0/demos/datefield17
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