LottoCustomer subclass: #TracingLottoCustomer
  instanceVariableNames: ''
  classVariableNames: ''
  poolDictionaries: ''    !


!TracingLottoCustomer methods !

playTicket: aTicket
   super playTicket: aTicket.
   Transcript cr;
       nextPutAll: 'picked ticket: ';
       nextPutAll: aTicket printString;
       cr;
       nextPutAll: self winnings printString! !