[Xotcl] small example: clock.xotcl

[Gustaf Neumann]

Dear community,
here is a really small example of XOTcl + Tk: a small digital
clock that runs under unix and Win.

best regards
-gustaf
===============================================================================	
#!/usr/local/bin/xowish
Class Clock -parameter top
Clock instproc init {} {
  [self] instvar W
  set W [label [[self] set top].[self]]
  pack $W
  [self] tick
}
Clock instproc tick {} {
  [[self] set W] conf -text [clock format [clock seconds] -format %H:%M:%S]
  after 1000 [self] tick
}

Clock c -top .