Index: doc/example-scripts/container.tcl =================================================================== diff -u -re884c2b0d63fa1b5a691e866ccff8d4094a2a8e4 -re8f971bcbd344b5f723856408cd76f24f95a2b2e --- doc/example-scripts/container.tcl (.../container.tcl) (revision e884c2b0d63fa1b5a691e866ccff8d4094a2a8e4) +++ doc/example-scripts/container.tcl (.../container.tcl) (revision e8f971bcbd344b5f723856408cd76f24f95a2b2e) @@ -6,7 +6,7 @@ package req nx package req nx::test -nx::Test parameter count 1 +nx::test configure -count 1 # == Simple Container # @@ -95,13 +95,13 @@ ? {container2 new} "::container2::member3" # The elements of the container are obtained via the method +items+. -? {container2 items} "::container2::member1 ::container2::member2 ::container2::member3" +? {container2 items get} "::container2::member1 ::container2::member2 ::container2::member3" # When we delete an item in the container ... ? {container2 delete ::container2::member2} "" # the item is as well removed from the +items+ list. -? {container2 items} "::container2::member1 ::container2::member3" +? {container2 items get} "::container2::member1 ::container2::member3" # == Sorted Container # @@ -129,14 +129,14 @@ :variable values {} :variable index {} - :property key + :public method index {} { return ${:index}} :public method new {args} { set item [${:memberClass} create [:]::[:autoname ${:prefix}] {*}$args] if {[info exists :key]} { - set value [$item ${:key}] + set value [$item cget -${:key}] set pos [lsearch -bisect ${:values} $value] set :values [linsert ${:values} [expr {$pos + 1}] $value] set :index [linsert ${:index} [expr {$pos + 1}] $item] @@ -154,7 +154,6 @@ set :index [lreplace ${:index} $pos $pos] next } - } # Create a container for class +D+ with key +name+: @@ -168,7 +167,7 @@ ? {container3 new -name gustaf} "::container3::member3" # The method +items+ returns the items in the order of insertion (as before): -? {container3 items} "::container3::member1 ::container3::member2 ::container3::member3" +? {container3 items get} "::container3::member1 ::container3::member2 ::container3::member3" # The method +index+ returns the items in sorting order (sorted by the +name+ member): ? {container3 index} "::container3::member3 ::container3::member2 ::container3::member1" @@ -177,6 +176,6 @@ ? {container3 delete ::container3::member2} "" # The item is as well removed from the result lists -? {container3 items} "::container3::member1 ::container3::member3" +? {container3 items get} "::container3::member1 ::container3::member3" -? {container3 index} "::container3::member3 ::container3::member1" \ No newline at end of file +? {container3 index} "::container3::member3 ::container3::member1"