mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-24 20:01:15 +00:00
21 lines
288 B
Smalltalk
21 lines
288 B
Smalltalk
|
" talkToServer.stalk
|
||
|
|
|
||
|
|
Server script example
|
||
|
|
|
||
|
|
Ussage:
|
||
|
|
stalk Server talkToServer.st [message]
|
||
|
|
"
|
||
|
|
| message |
|
||
|
|
|
||
|
|
((Args count) < 1 )
|
||
|
|
ifTrue:
|
||
|
|
[
|
||
|
|
message := 'Hello!'. ^0
|
||
|
|
]
|
||
|
|
ifFalse:
|
||
|
|
[
|
||
|
|
message := Args objectAtIndex: 0. ^0
|
||
|
|
].
|
||
|
|
|
||
|
|
Server say:message
|