Index: doc/example-scripts/rosetta-abstract-type.tcl =================================================================== diff -u -rf858f142f5fab4f88996b3eb709c3afa55114be9 -r24cb8f4bffd49c9375c1c64aa0610933b62511bb --- doc/example-scripts/rosetta-abstract-type.tcl (.../rosetta-abstract-type.tcl) (revision f858f142f5fab4f88996b3eb709c3afa55114be9) +++ doc/example-scripts/rosetta-abstract-type.tcl (.../rosetta-abstract-type.tcl) (revision 24cb8f4bffd49c9375c1c64aa0610933b62511bb) @@ -24,10 +24,13 @@ # Define a concrete queue (named ListQueue) based # on the Abstract Queue nx::Class create ListQueue -superclass AbstractQueue { + :variable list {} + :public method enqueue {item} { lappend :list $item } + :public method dequeue {} { set item [lindex ${:list} 0] set :list [lrange ${:list} 1 end] @@ -46,4 +49,4 @@ # Enqueue and dequeue items ? {$q enqueue 100} 100 ? {$q enqueue 101} "100 101" -? {$q dequeue} 100 \ No newline at end of file +? {$q dequeue} 100