Scratch

 'From MIT Squeak 0.9.4 (June 1, 2003) [No updates present.] on 31 December 2009 at 5:42:38 pm'!

!CommandBlockMorph methodsFor: 'evaluation'!
argumentAt: t1 
    (#(#totalArgsAnd #totalArgsOr ) includes: selector)
        ifTrue: [^ argMorphs at: t1].
    argPermutation ifNil: [^ argMorphs at: t1].
    ^ argMorphs at: (argPermutation at: t1)! !

!CommandBlockMorph methodsFor: 'evaluation'!
evaluateWithArgs: t1 
    | t2 |
    selector isInfix ifTrue: [^ self evaluateInfixWithArgs: t1].
    t2 _ self coerceArgs: t1.
    (#(#totalArgsAnd #totalArgsOr ) includes: selector)
        ifTrue: [^ self perform: selector].
    (#(#abs #not #rounded #sqrt #truncated ) includes: selector)
        ifTrue: [^ t2 first perform: selector].
    ^ receiver perform: selector withArguments: t2! !

!CommandBlockMorph methodsFor: 'menus'!
rightButtonMenu
    | t1 t2 t3 t4 |
    t2 _ CustomMenu new.
    t2 add: 'help' action: #presentHelpScreen.
    (owner isKindOf: ScratchBlockPaletteMorph)
        ifFalse: 
            [t2 addLine.
            (#(#+ #- #* #/ #\\ ) includes: selector)
                ifTrue: [#(#+ #- #* #/ #mod ) with: #(#+ #- #* #/ #\\ ) do: [:t5 :t6 | t2 add: t5 action: t6]].
            (#(#< #= #> ) includes: selector)
                ifTrue: [#(#< #= #> ) do: [:t6 | t2 add: t6 action: t6]].
            (#(#& #| ) includes: selector)
                ifTrue: [#(#and #or ) with: #(#& #| ) do: [:t5 :t6 | t2 add: t5 action: t6]].
            t2 addLine.
            t2 add: 'duplicate' action: #duplicate.
            (self owner isKindOf: BlockMorph)
                ifFalse: [t2 add: 'delete' action: #delete].
            (#(#& #| #totalArgsOr #totalArgsAnd ) includes: selector)
                ifTrue: 
                    [t2 addLine.
                    (#(#& #totalArgsAnd ) includes: selector)
                        ifTrue: [t2 add: 'add argument' action: #addAnd]
                        ifFalse: [t2 add: 'add argument' action: #addOr]]].
    t3 _ self ownerThatIsA: ScratchFrameMorph.
    (t3 notNil and: [#(#sensor: #sensorPressed: ) includes: selector])
        ifTrue: 
            [t2 addLine.
            t2 add: 'show ScratchBoard watcher' action: #showSensorBoard].
    DebugMenu
        ifTrue: 
            [t2 addLine.
            t2 add: 'show tuples' action: #showTuples].
    (t4 _ t2 localize; startUp) ifNil: [^ self].
    (#(#presentHelpScreen #duplicate #delete ) includes: t4)
        ifTrue: [^ self perform: t4].
    t4 = #showSensorBoard
        ifTrue: 
            [t3 showSensorBoard.
            ^ self].
    t4 = #showTuples ifTrue: [^ self showTuples].
    t1 _ '%n ' , t4 , ' %n'.
    '\\' = t4 ifTrue: [t1 _ '%n mod %n'].
    '&' = t4 ifTrue: [t1 _ '%b and %b'].
    '|' = t4 ifTrue: [t1 _ '%b or %b'].
    #addAnd = t4
        ifTrue: 
            [t1 _ self commandSpec , ' and %b'.
            t4 _ #totalArgsAnd.
            self argPermutation: argPermutation , {argMorphs size + 1}].
    #addOr = t4
        ifTrue: 
            [t1 _ self commandSpec , ' or %b'.
            t4 _ #totalArgsOr.
            self argPermutation: argPermutation , {argMorphs size + 1}].
    self commandSpec: t1.
    self selector: t4! !

!CommandBlockMorph methodsFor: 'as yet unclassified'!
totalArgsAnd
    | t1 |
    t1 _ OrderedCollection new.
    1 to: argMorphs size do: [:t2 | t1 add: (self argumentAt: t2) evaluate].
    ^ (t1 includes: false) not! !

!CommandBlockMorph methodsFor: 'as yet unclassified'!
totalArgsOr
    | t1 |
    t1 _ OrderedCollection new.
    1 to: argMorphs size do: [:t2 | t1 add: (self argumentAt: t2) evaluate].
    ^ t1 includes: true! !