diff options
Diffstat (limited to 'itcl/iwidgets/demos/watch')
-rw-r--r-- | itcl/iwidgets/demos/watch | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/itcl/iwidgets/demos/watch b/itcl/iwidgets/demos/watch new file mode 100644 index 00000000000..4c30756b816 --- /dev/null +++ b/itcl/iwidgets/demos/watch @@ -0,0 +1,16 @@ +# ---------------------------------------------------------------------- +# DEMO: watch in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +set tk_strictMotif 1 + +iwidgets::watch .w -state disabled -showampm no -width 155 -height 155 +pack .w -padx 10 -pady 10 -fill both -expand yes + +proc fix_time {} { + if {! [winfo exists .w]} return + .w show + after 1000 fix_time +} +fix_time |