" Student class "
Object subclass: #Student
instanceVariableNames: 'studentName studentNumber numberOfTests marks'
classVariableNames: ''
poolDictionaries: ''
category: 'Student'.
studentName
^studentName.
studentNumber
^studentNumber.
numberOfTests
^numberOfTests.
marks
^marks.
setName:name studentName := name.
| newStudent |
newStudent := Student new.
newStudent setName: 'Stephen'.
Transcript show: getName.
IiBTdHVkZW50IGNsYXNzICIKT2JqZWN0IHN1YmNsYXNzOiAjU3R1ZGVudAogICAgaW5zdGFuY2VWYXJpYWJsZU5hbWVzOiAnc3R1ZGVudE5hbWUgc3R1ZGVudE51bWJlciBudW1iZXJPZlRlc3RzIG1hcmtzJwogICAgY2xhc3NWYXJpYWJsZU5hbWVzOiAnJwogICAgcG9vbERpY3Rpb25hcmllczogJycKICAgIGNhdGVnb3J5OiAnU3R1ZGVudCcuCiAgICAKc3R1ZGVudE5hbWUKICAgIF5zdHVkZW50TmFtZS4KCnN0dWRlbnROdW1iZXIKICAgIF5zdHVkZW50TnVtYmVyLgoKbnVtYmVyT2ZUZXN0cwogICAgXm51bWJlck9mVGVzdHMuCgptYXJrcwogICAgXm1hcmtzLgoKc2V0TmFtZTpuYW1lIHN0dWRlbnROYW1lIDo9IG5hbWUuCiAgICAKfCBuZXdTdHVkZW50IHwKbmV3U3R1ZGVudCA6PSBTdHVkZW50IG5ldy4KbmV3U3R1ZGVudCBzZXROYW1lOiAnU3RlcGhlbicuClRyYW5zY3JpcHQgc2hvdzogZ2V0TmFtZS4K