aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Call-an-object-method/Smalltalk/call-an-object-method-1.st Normal file
View file

@ -0,0 +1,17 @@
" Class "
MyClass selector: someArgument .
" or equivalently "
foo := MyClass .
foo selector: someArgument.
" Instance "
myInstance selector: someArgument.
" Message with multiple arguments "
myInstance fooWithRed:arg1 green:arg2 blue:arg3 .
" Message with no arguments "
myInstance selector.
" Binary (operator) message"
myInstance + argument .

1
Task/Call-an-object-method/Smalltalk/call-an-object-method-2.st Normal file
View file

@ -0,0 +1 @@
theCar := (someCondition ifTrue:[ Ford ] ifFalse: [ Jaguar ]) new.

2
Task/Call-an-object-method/Smalltalk/call-an-object-method-3.st Normal file
View file

@ -0,0 +1,2 @@
whichMessage := #( #'red' #'green' #'blue') at: computedIndex.
foo perform: whichMessage

2
Task/Call-an-object-method/Smalltalk/call-an-object-method-4.st Normal file
View file

@ -0,0 +1,2 @@
theMessage := ('handleFileType' , suffix) asSymbol.
foo perform: theMessage.

5
Task/Call-an-object-method/Smalltalk/call-an-object-method-5.st Normal file
View file

@ -0,0 +1,5 @@
[
foo perform: theMessage
] on: MessageNotUnderstood do:[
Dialog information: 'sorry'
]