st/True.st

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