Object subclass: #MyClass
instanceVariableNames: 'myVariable'
classVariableNames: ''
poolDictionaries: ''
category: 'UserDefinedClasses'.
!MyClass methodsFor: 'accessing'!
setMyVariable: aValue
myVariable := aValue! !
!MyClass methodsFor: 'accessing'!
myVariable
^ myVariable! !
"Example Usage"
| anInstance |
anInstance := MyClass new.
anInstance setMyVariable: 'Hello Smalltalk!'.
anInstance perform: #myVariable put: 'Wat'.
Transcript show: anInstance myVariable; cr.
T2JqZWN0IHN1YmNsYXNzOiAjTXlDbGFzcwogICAgaW5zdGFuY2VWYXJpYWJsZU5hbWVzOiAnbXlWYXJpYWJsZScKICAgIGNsYXNzVmFyaWFibGVOYW1lczogJycKICAgIHBvb2xEaWN0aW9uYXJpZXM6ICcnCiAgICBjYXRlZ29yeTogJ1VzZXJEZWZpbmVkQ2xhc3NlcycuCgohTXlDbGFzcyBtZXRob2RzRm9yOiAnYWNjZXNzaW5nJyEKc2V0TXlWYXJpYWJsZTogYVZhbHVlCiAgICBteVZhcmlhYmxlIDo9IGFWYWx1ZSEgIQoKIU15Q2xhc3MgbWV0aG9kc0ZvcjogJ2FjY2Vzc2luZychCm15VmFyaWFibGUKICAgIF4gbXlWYXJpYWJsZSEgIQoKIkV4YW1wbGUgVXNhZ2UiCnwgYW5JbnN0YW5jZSB8CmFuSW5zdGFuY2UgOj0gTXlDbGFzcyBuZXcuCmFuSW5zdGFuY2Ugc2V0TXlWYXJpYWJsZTogJ0hlbGxvIFNtYWxsdGFsayEnLgphbkluc3RhbmNlIHBlcmZvcm06ICNteVZhcmlhYmxlIHB1dDogJ1dhdCcuClRyYW5zY3JpcHQgc2hvdzogYW5JbnN0YW5jZSBteVZhcmlhYmxlOyBjci4=