/usr/share/doc/nam/examples/tcl/observer.tcl is in nam-examples 1.15-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | #
# Inspiried by Java java.util.Observer
# for MCV
Class Observer
Observer set uniqueID_ 0
Observer proc getid {} {
set id [Observer set uniqueID_]
Observer set uniqueID_ [expr $id + 1]
return $id
}
Observer instproc init {} {
$self instvar id_
set id_ [Observer getid]
}
Observer instproc id {} {
$self instvar id_
return $id_
}
# Needs to be overwritten
Observer instproc update {} {
}
|