The Inbox: Kernel-maga.1054.mcz

> A new version of Kernel was added to project The Inbox:
> http://source.squeak.org/inbox/Kernel-maga.1054.mcz
>
> ==================== Summary ====================
>
> Name: Kernel-maga.1054
> Author: maga
> Time: 23 January 2017, 1:22:40.269653 pm
> UUID: 32d479b9-040c-4441-ad6c-528dc7845676
> Ancestors: Kernel-eem.1053
>
> Provide altTrue as an alternative to false. May be required for US
> government approved use of Squeak starting 2017.
>
> =============== Diff against Kernel-eem.1053 ===============
>
> Item was added:
> + False subclass: #AlternateTrue
> + instanceVariableNames: ''
> + classVariableNames: ''
> + poolDictionaries: ''
> + category: 'Kernel-Objects'!
> +
> + !AlternateTrue commentStamp: 'maga 1/23/2017 12:40' prior: 0!
> + AlternateTrue defines the behavior of its single instance, altTrue --
> the opposite of true. It can be used in place of false whenever facts are
> inconvenient.
> +
> + 3 = 4 ifAltTrue: [Transcript show: 'Great!!'; cr]!
>
> Item was added:
> + ----- Method: AlternateTrue class>>initialize (in category 'class
> initialization') -----
> + initialize
> + Smalltalk globals at: #altTrue ifAbsentPut: [self basicNew].
> + !
>
> Item was added:
> + ----- Method: AlternateTrue>>ifAltTrue: (in category 'controlling')
> -----
> + ifAltTrue: alternativeBlock
> + "Answer the value of alternativeBlock."
> +
> + ^alternativeBlock value!
>
> Item was added:
> + ----- Method: AlternateTrue>>ifTrue: (in category 'controlling') -----
> + ifTrue: alternativeBlock
> + "Since the condition is altTrue, answer the value of the alternate-true
> block,
> + which is nil."
> +
> + ^nil!
>
> Item was added:
> + ----- Method: AlternateTrue>>ifTrue:ifAltTrue: (in category
> 'controlling') -----
> + ifTrue: trueBlock ifAltTrue: alternateTrueBlock
> + "Since the condition is altTrue, answer the value of
> alternateTrueBlock."
> +
> + ^alternateTrueBlock value!
>
> Item was added:
> + ----- Method: AlternateTrue>>printOn: (in category 'printing') -----
> + printOn: aStream
> + aStream nextPutAll: 'altTrue'!
>
> Item was added:
> + ----- Method: Boolean>>ifAltTrue: (in category 'controlling') -----
> + ifAltTrue: alternativeBlock
> + "If the receiver is true (i.e., the condition is true), then the value
> is the
> + true alternative, which is nil. Otherwise answer the result of
> evaluating
> + the argument, alternativeBlock. Create an error notification if the
> + receiver is nonBoolean."
> +
> + self subclassResponsibility!
>
> Item was added:
> + ----- Method: Boolean>>ifTrue:ifAltTrue: (in category 'controlling')
> -----
> + ifTrue: trueBlock ifAltTrue: alternateTrueBlock
> + "If the receiver is true (i.e., the condition is true), then answer the
> value
> + of the argument trueBlock. If the receiver is altTrue, answer the
> + result of evaluating the argument alternateTrueBlock. If the receiver
> + is a nonBoolean then create an error notification."
> +
> + self subclassResponsibility!
>
> Item was added:
> + ----- Method: False>>ifAltTrue: (in category 'controlling') -----
> + ifAltTrue: alternativeBlock
> + "Answer the value of alternativeBlock."
> +
> + ^alternativeBlock value!
>
> Item was added:
> + ----- Method: False>>ifTrue:ifAltTrue: (in category 'controlling') -----
> + ifTrue: trueBlock ifAltTrue: alternateTrueBlock
> + "Answer the value of alternateTrueBlock."
> +
> + ^alternateTrueBlock value!
>
> Item was added:
> + ----- Method: True>>ifAltTrue: (in category 'controlling') -----
> + ifAltTrue: alternativeBlock
> + "Since the condition is true, the value is the true alternative, which
> is nil."
> +
> + ^nil!
>
> Item was added:
> + ----- Method: True>>ifTrue:ifAltTrue: (in category 'controlling') -----
> + ifTrue: trueBlock ifAltTrue: alternateTrueBlock
> + "Answer with the value of trueBlock."
> +
> + ^trueBlock value!
>
>
>