https://wiki.sugarlabs.org/index.php?action=history&feed=atom&title=The_Undiscoverable%2FSmalltalk
The Undiscoverable/Smalltalk - Revision history
2026-05-17T10:45:52Z
Revision history for this page on the wiki
MediaWiki 1.43.0
https://wiki.sugarlabs.org/index.php?title=The_Undiscoverable/Smalltalk&diff=82535&oldid=prev
Mokurai: New stub
2012-08-24T22:47:52Z
<p>New stub</p>
<p><b>New page</b></p><div>{{stub}}<br />
<br />
The following code is taken from a tutorial that unfortunately does not include every step the beginner needs to have explained.<br />
<br />
[http://static.squeak.org/tutorials/BankAccount.html BankAccount tutorial]<br />
<br />
Object subclass: #NameOfClass<br />
<br />
instanceVariableNames: 'instVarName1 instVarName2'<br />
<br />
classVariableNames: 'ClassVarName1 ClassVarName2'<br />
<br />
poolDictionaries: ''<br />
<br />
category: 'My Stuff'<br />
<br />
Object subclass: #BankAccount<br />
<br />
instanceVariableNames: 'balance'<br />
<br />
classVariableNames: ''<br />
<br />
poolDictionaries: ''<br />
<br />
category: 'My Stuff'<br />
<br />
b _ BankAccount new.<br />
b inspect <br />
b balance.<br />
<br />
<br />
<br />
message selector and argument names<br />
"comment stating purpose of message"<br />
<br />
| temporary variable names |<br />
statements <br />
<br />
<br />
balance<br />
<br />
"Return the balance"<br />
<br />
^ balance<br />
<br />
<br />
initialize<br />
<br />
balance _ 0.<br />
<br />
<br />
deposit: amount<br />
<br />
balance _ balance + amount.<br />
<br />
<br />
withdraw: amount<br />
<br />
amount > balance ifTrue: [<br />
<br />
^ self inform: 'sorry, not enough funds']. <br />
<br />
balance _ balance - amount.<br />
<br />
<br />
Object subclass: #BankAccount<br />
<br />
instanceVariableNames: 'balance history '<br />
<br />
classVariableNames: ''<br />
<br />
poolDictionaries: ''<br />
<br />
category: 'My Stuff'<br />
<br />
<br />
initialize<br />
<br />
balance _ 0.<br />
<br />
history _ OrderedCollection new.<br />
<br />
<br />
balance: newBalance<br />
<br />
balance _ newBalance.<br />
<br />
history addLast: newBalance.<br />
<br />
<br />
withdraw: amount<br />
<br />
amount > balance ifTrue: [<br />
<br />
^ self inform: 'sorry, not enough funds']. <br />
<br />
self balance: balance - amount.<br />
<br />
See also [http://web.cecs.pdx.edu/~black/OOP/Tutorial/SqueakLanguageRef.html Squeak Smalltalk: Language Reference]</div>
Mokurai