Lines Matching refs:watch
79 method watch {args}
108 proc ::iwidgets::watch {pathName args} {
194 watch create oval 0 0 2 2 -width 5 -tags clock
198 # inner perimeter of the watch.
204 watch create arc 0 0 0 0 \
213 # of the watch. Add bindings to allow the mouse to move and set the
216 watch create arc 1 1 1 1 -extent 30 -tags minute
217 watch create arc 1 1 1 1 -extent 30 -tags hour
218 watch create arc 1 1 1 1 -tags second
221 # Create the canvas item for displaying the center of the watch in which
224 watch create oval 0 0 1 1 -width 5 -fill black -tags pivot
227 # Position the "AM/PM" button frame and watch canvas.
288 watch coords $tag \
294 watch itemconfigure $tag -start $start -extent $_extent($tag)
321 # METHOD: watch ?args?
325 itcl::body iwidgets::Watch::watch {args} {
339 watch coords $tag \
345 watch itemconfigure $tag -start $start
403 # Set the radius of the watch, pivot, hour, minute and second items.
410 set outerWidth [watch itemcget clock -width]
419 watch coords clock $x1Outer $y1Outer $x2Outer $y2Outer
430 watch coords tick$i $x1Tick $y1Tick $x2Tick $y2Tick
434 watch itemconfigure big -width $maxTickWidth
435 watch itemconfigure little -width [expr {round($maxTickWidth/2)}]
444 watch coords pivot $x1Center $y1Center $x2Center $y2Center
449 watch itemconfigure hour -extent $_extent(hour)
452 watch itemconfigure minute -extent $_extent(minute)
455 watch itemconfigure second -extent $_extent(second)
470 # watch are not selectabled.
474 watch bind minute <B1-Motion> \
476 watch bind minute <ButtonRelease-1> \
479 watch bind hour <B1-Motion> \
481 watch bind hour <ButtonRelease-1> \
484 watch bind second <B1-Motion> \
486 watch bind second <ButtonRelease-1> \
493 watch bind minute <B1-Motion> {}
494 watch bind minute <ButtonRelease-1> {}
496 watch bind hour <B1-Motion> {}
497 watch bind hour <ButtonRelease-1> {}
499 watch bind second <B1-Motion> {}
500 watch bind second <ButtonRelease-1> {}
543 watch itemconfigure pivot -fill $itk_option(-pivotcolor)
552 watch itemconfigure clock -stipple $itk_option(-clockstipple)
561 watch itemconfigure clock -fill $itk_option(-clockcolor)
570 watch itemconfigure hour -fill $itk_option(-hourcolor)
579 watch itemconfigure minute -fill $itk_option(-minutecolor)
588 watch itemconfigure second -fill $itk_option(-secondcolor)
597 watch itemconfigure tick -outline $itk_option(-tickcolor)