Index: doc/example-scripts/tk-horse-race.html =================================================================== diff -u -r6ad7855cd7aba089f7a160293802e1639d0d6198 -rd31c271afb2488abafa0642b07538a3e62106130 --- doc/example-scripts/tk-horse-race.html (.../tk-horse-race.html) (revision 6ad7855cd7aba089f7a160293802e1639d0d6198) +++ doc/example-scripts/tk-horse-race.html (.../tk-horse-race.html) (revision d31c271afb2488abafa0642b07538a3e62106130) @@ -737,15 +737,15 @@ .nx-variable {color: #AF663F; font-weight: normal; font-style: normal;}
package require Tk -package require nx::callback +package require nx::trait ############################################################################## # Trait ListUtils # # Some list utilities, not part of a package we can require here. ############################################################################## - nx::Trait create TListUtils { + nx::Trait create ::nx::traits::listUtils { :protected method lpick {list} { # return a random entry from a given list @@ -773,8 +773,8 @@ :property canvas:required ;# the canvas, on which the horse is drawn :property n:integer,required ;# the position on the canvas - :require trait nx::TCallback - :require trait TListUtils + :require trait nx::traits::callback + :require trait nx::traits::listUtils :method draw {x y} { set hide [:lpick {black brown white gray brown3 brown4}] @@ -812,8 +812,8 @@ :property {height 330} ;# height of the canvas :property {horses} ;# a list of horse names participating in the game - :require trait nx::TCallback - :require trait TListUtils + :require trait nx::traits::callback + :require trait nx::traits::listUtils :method init {} { # @@ -889,7 +889,7 @@