#!/usr/bin/env wish
set tick_value 0

proc tick {} {
  global tick_value
  set tick_value [ incr tick_value ]
  .ticker configure -text $tick_value
  # wait 1 second to reinvoke
  after 1000 tick  
}


label .l1 -text "This" -relief raised
label .l2 -text "That" -relief sunken
label .l3 -bitmap @/usr/include/X11/bitmaps/calculator
label .ticker 
pack .l1 -side left
pack .l2 -side right
pack .l3 .ticker

# start the ball rolling
tick  

bind . <Key-q> exit