58 lines
1.9 KiB
Diff
58 lines
1.9 KiB
Diff
diff -r -u tklib-tklib_0_6-ori/modules/widget/dateentry.tcl tklib-tklib_0_6/modules/widget/dateentry.tcl
|
|
--- tklib-tklib_0_6-ori/modules/widget/dateentry.tcl 2014-11-11 16:48:25.994498100 +0100
|
|
+++ tklib-tklib_0_6/modules/widget/dateentry.tcl 2014-11-11 16:50:48.619383900 +0100
|
|
@@ -314,29 +314,29 @@
|
|
# TEST CODE ##
|
|
##############
|
|
|
|
-if { [info script] eq $argv0 } {
|
|
- set auto_path [linsert $auto_path 0 [file dirname [info script]]]
|
|
- package require widget::dateentry
|
|
- destroy {*}[winfo children .]
|
|
- proc getDate { args } {
|
|
- puts [info level 0]
|
|
- puts "DATE $::DATE"
|
|
- update idle
|
|
- }
|
|
+# if { [info script] eq $argv0 } {
|
|
+# set auto_path [linsert $auto_path 0 [file dirname [info script]]]
|
|
+# package require widget::dateentry
|
|
+# destroy {*}[winfo children .]
|
|
+# proc getDate { args } {
|
|
+# puts [info level 0]
|
|
+# puts "DATE $::DATE"
|
|
+# update idle
|
|
+# }
|
|
|
|
- # Samples
|
|
- # package require widget::dateentry
|
|
- set ::DATE ""
|
|
- set start [widget::dateentry .s -textvariable ::DATE \
|
|
- -dateformat "%d.%m.%Y %H:%M" \
|
|
- -command [list getDate .s]]
|
|
- set end [widget::dateentry .e \
|
|
- -command [list getDate .e] \
|
|
- -highlightcolor dimgrey \
|
|
- -font {Courier 10} \
|
|
- -firstday sunday]
|
|
- grid [label .sl -text "Start:"] $start -padx 4 -pady 4
|
|
- grid [label .el -text "End:" ] $end -padx 4 -pady 4
|
|
+# # Samples
|
|
+# # package require widget::dateentry
|
|
+# set ::DATE ""
|
|
+# set start [widget::dateentry .s -textvariable ::DATE \
|
|
+# -dateformat "%d.%m.%Y %H:%M" \
|
|
+# -command [list getDate .s]]
|
|
+# set end [widget::dateentry .e \
|
|
+# -command [list getDate .e] \
|
|
+# -highlightcolor dimgrey \
|
|
+# -font {Courier 10} \
|
|
+# -firstday sunday]
|
|
+# grid [label .sl -text "Start:"] $start -padx 4 -pady 4
|
|
+# grid [label .el -text "End:" ] $end -padx 4 -pady 4
|
|
|
|
- puts [$end get]
|
|
-}
|
|
+# puts [$end get]
|
|
+# }
|