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]"}
}
}