qse/ase/test/stx/test.st

25 lines
465 B
Smalltalk
Raw Normal View History

2005-06-12 12:33:31 +00:00
"isNil" "test if self is nil"
2005-07-07 16:52:48 +00:00
perform: method with: x with: y with: z with: a1 with: b2 with: c2
2005-06-11 18:01:25 +00:00
2005-06-12 12:33:31 +00:00
| a b c d e f g |
2005-07-07 07:46:54 +00:00
< primitive: 16 >
2005-06-23 04:59:00 +00:00
"
2005-06-19 16:16:33 +00:00
a := 'this is ''good'.
2005-06-23 04:59:00 +00:00
a := #xxx niceMethod.
"
2005-07-12 16:16:42 +00:00
b := 12345 xxx nil this.
2005-07-10 16:50:50 +00:00
b := 30 + 20.
2005-07-12 16:16:42 +00:00
b := 'zzzzzz' xxx: 'cccccc' xy zzzz: 30 ccc:10 ccc: 'cccccc'.
2005-07-11 13:41:59 +00:00
$3 asString.
2005-07-12 16:16:42 +00:00
$4 asString.
$4 asString.
$5 asString.
$5 asString.
2005-06-23 04:59:00 +00:00
2005-07-10 09:21:46 +00:00
selector := 20.
"
2005-06-23 04:59:00 +00:00
(jjj xxx: 10 xy) zzz: (10 fuck: 20 you: 40) yyy: kkk.
2005-07-08 11:32:50 +00:00
[ spec plus: 20].
2005-07-10 09:21:46 +00:00
^10."