23 Mar
2001
23 Mar
'01
8:23 p.m.
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 .