"Prototípus tervminta"

"Ebben a példában azt láthatjuk, hogyan lehet egy szabályt leklónozni."

“Prototype Version” 
Object subclass: #Policy
instanceVariableNames: 'policyNumber coverageStartDate
lengthOfCoverage organization procedureRules'
classVariableNames: ''
poolDictionaries: '' 

Policy>>postCopy
 "See general comments in superimplementor." 
 "Make an independent copy of this Policy's attributes"
 | newDictionary |
 newDictionary := Dictionary new.
 procedureRules keysAndValuesDo:[:key :value | 
  newDictionary at: key put: value copy].
 procedureRules := newDictionary.
 organization:= organization copy