tasks a-s
This commit is contained in:
parent
47bf37c096
commit
b83f433714
12433 changed files with 156208 additions and 123 deletions
6
Task/Null-object/Smalltalk/null-object-1.st
Normal file
6
Task/Null-object/Smalltalk/null-object-1.st
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
object isNil ifTrue: [ "true block" ]
|
||||
ifFalse: [ "false block" ].
|
||||
nil isNil ifTrue: [ 'true!' displayNl ]. "output: true!"
|
||||
foo isNil ifTrue: [ 'ouch' displayNl ].
|
||||
x := (foo == nil).
|
||||
x := foo isNil
|
||||
6
Task/Null-object/Smalltalk/null-object-2.st
Normal file
6
Task/Null-object/Smalltalk/null-object-2.st
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
foo := nil.
|
||||
foo class. "-> UndefinedObject"
|
||||
foo respondsTo: #'bar'. "asking if a message is implemented"
|
||||
|
||||
foo class compile:'fancyOperation ^ 123'.
|
||||
foo fancyOperation "->123"
|
||||
Loading…
Add table
Add a link
Reference in a new issue