Toyz Smalltalk Core.Object false none toyzData ToyzInc (none) Toyz class class initialization new ^super new initialize Toyz instance-creation initialize toyzData := FileStuff new. Toyz accessing getEmployees ^toyzData getEmployees. Employee Smalltalk Core.Object false none number level firstName lastName ToyzInc (none) Employee class class initialization new ^super new Employee accessing firstName ^firstName firstName: aName firstName := aName. lastName ^lastName lastName: aName lastName := aName. level ^level level: aLevel level := aLevel. number ^number number: aNumber number := aNumber. number: aNumber level: aLevel firstName: aFirstName lastName: aLastName self firstName: aFirstName. self number: aNumber. self lastName: aLastName. self level: aLevel. Employee printing printOn: aStream aStream nextPutAll: (lastName, ':', firstName). Employee operators <= aEmployee ^self lastName <= aEmployee lastName FileStuff Smalltalk Core.Object false none employees directory ToyzInc (none) FileStuff class class initialization new ^super new initialize FileStuff instance-creation initialize directory := 'c:\vw72nc\web\sandbox\db\'. employees := SortedCollection new. FileStuff accessing getEmployees | empFile separator stream number level firstName lastName | empFile := (directory, 'employees.txt') asFilename. separator := $,. "comma" stream := empFile readStream lineEndCRLF. [stream atEnd] whileFalse: [ number := (stream upTo: separator). level := (stream upTo: separator). lastName := (stream upTo: separator). firstName := (stream upTo: separator). stream upTo: (Character cr). employees add: ((Employee new) number: number level: level firstName: firstName lastName: lastName ). ]. stream close. ^employees.