6 lines
179 B
Smalltalk
6 lines
179 B
Smalltalk
accessing
|
|
retrieveLocalContents
|
|
| profileTemp |
|
|
profileTemp := self class stored detect: [ :each | each userName = self userName ].
|
|
profileTemp getLocalMessages.
|
|
^ profileTemp |