st/False.st

   1
   2
   3 "logical operations"
   4
   5 False method!
   6 & aBoolean
   7         ^ false!
   8
   9 False method!
  10 | aBoolean
  11         ^ aBoolean!
  12
  13 False method!
  14 not
  15         ^ true!
  16
  17
  18 "controlling"
  19
  20 False method!
  21 ifTrue: trueBlock
  22         ^ nil!
  23
  24 False method!
  25 ifFalse: falseBlock
  26         ^ falseBlock value!
  27
  28 False method!
  29 ifTrue: trueBlock ifFalse: falseBlock
  30         ^ falseBlock value!
  31
  32 False method!
  33 ifFalse: falseBlock ifTrue: trueBlock
  34         ^ falseBlock value!
  35
  36 False method!
  37 and: aBlock
  38         ^ false!
  39
  40 False method!
  41 or: aBlock
  42         ^ aBlock value!
  43
  44
  45 "printing"
  46 False method!
  47 printOn: aStream
  48         aStream nextPutAll: 'false'!