home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / drdobbs / 1990 / 05 / ayers / checker.cls < prev    next >
Text File  |  1990-02-24  |  701b  |  40 lines
  1.  
  2. MarketActor subclass: #Checker
  3.   instanceVariableNames: 
  4.     'bagger customer '
  5.   classVariableNames: ''
  6.   poolDictionaries: '' !
  7.  
  8. !Checker class methods !
  9.  
  10. alternateImageName 
  11.     ^'PersonLeft'.! !
  12.  
  13.  
  14. !Checker methods !
  15.  
  16. bagger:aBagger 
  17.     bagger := aBagger.!
  18.  
  19. checkOutCustomer
  20.     customer := self receive.!
  21.  
  22. gotIt
  23.     running
  24.         ifTrue:[
  25.             self
  26.                 display;
  27.                 send:#removeItemFromCart to:customer].!
  28.  
  29. release
  30.     bagger := nil.  customer := nil.  super release.!
  31.  
  32. takeItem
  33.     running
  34.         ifTrue:[
  35.             self
  36.                 animate;
  37.                 send:#takeItem to:bagger;
  38.                 sleep:1;
  39.                 send:#gotIt to:customer].! !
  40.