Index: doc/tutorial2.html =================================================================== diff -u -rbe3ba45f303ed61511b034e73e0bba5d10d10982 -rea3bbe8b1039c45baa2c027c005151e04e57d4b1 --- doc/tutorial2.html (.../tutorial2.html) (revision be3ba45f303ed61511b034e73e0bba5d10d10982) +++ doc/tutorial2.html (.../tutorial2.html) (revision ea3bbe8b1039c45baa2c027c005151e04e57d4b1) @@ -609,7 +609,7 @@ # But we only remove matching playernames of type "Player". We do # not want to remove another club member type who has the same # name. - if{[$player info is type Player] && [$player name] eq $playername} { + if{[$player info has type Player] && [$player name] eq $playername} { # We simply 'move' the player object to the destination team. # Again we use a unique autoname in the new scope $player move ${destinationTeam}::[$destinationTeam autoname player%02d] @@ -629,7 +629,7 @@ SoccerTeam method printPlayers {} { puts "Players of ${:name}:" foreach m [:info children] { - if {[$m info is type Player]} {puts " [$m name]"} + if {[$m info has type Player]} {puts " [$m name]"} } }