home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Tools / ObjectTcl-1.1 / examples / TicTacToe / PlayerServer.tcl < prev    next >
Encoding:
Text File  |  1995-06-30  |  573 b   |  27 lines
  1. otclInterface PlayerServer {
  2.    classMethod playerAvailable {name player}
  3.    classMethod playerNotAvailable {player}
  4.    classMethod giveAvailablePlayers {}
  5. }
  6.  
  7. otclImplementation PlayerServer {
  8.  
  9.    classMethod playerAvailable {name player} {
  10.       set players($player) $name
  11.    }
  12.  
  13.    classMethod playerNotAvailable {player} {
  14.       unset players($player)
  15.    }
  16.  
  17.    classMethod giveAvailablePlayers {} {
  18.       set result ""
  19.       foreach i [array names players] {
  20.          lappend result "$players($i) $i"
  21.       }
  22.      return $result
  23.    }
  24.    
  25.    classAttribute players() {}
  26. }
  27.