12 lines
302 B
Tcl
12 lines
302 B
Tcl
|
oo::class create example {
|
||
|
|
# Note that this is otherwise syntactically the same as a local variable
|
||
|
|
variable objVar
|
||
|
|
constructor {} {
|
||
|
|
set objVar "This is an object variable"
|
||
|
|
}
|
||
|
|
method showOff {} {
|
||
|
|
puts "variable objVar holds \"$objVar\""
|
||
|
|
}
|
||
|
|
}
|
||
|
|
[example new] showOff
|