Scratch

rubiks_cube_guy238 · 2010-12-24 14:13:28

I just found out that you can add a new block like this:

Code:

('nameOfBlock' #rs #blockCode)

and you can make a special-form reporter block. This means that the code should be executed in the ScratchProcess. However, it appears to be that a little tweaking has to be done in order for this to work. Can anyone look into this a little bit?

johnnydean1 · 2010-12-24 15:01:01

Let me have a look, im not promising. nXIII could help more - but I haven't heard from him recently.

TheSuccessor · 2010-12-25 05:30:53

I got this to work once... I'll dig out my code now. Even though it's Christmas Day.

TheSuccessor · 2010-12-25 06:05:25

I couldn't find my experimental code, so I quickly wrote this. IT IS UNTESTED. Hopefullly it will work. To return the value to the block from the method in ScratchProcess, use returnValueToParentFrame:.
Add this to ReporterBlockMorph:

Code:

showValue: msg

    | tmsg tooltip w worldBounds |
    tmsg _ msg.
    (self isBooleanReporter or: [msg = 'Error!']) ifTrue: [
        tmsg _ msg localized].
    tooltip _ (ScratchReporterToolTipMorph string: tmsg for: self)
        left: self right;
        bottom: self top.
    ScratchTranslator isRTL ifTrue: [tooltip right: self left].
    (msg = 'Error!') ifTrue: [tooltip messageColor: Color red darker].

    w _ self world.
    w addMorphFront: tooltip.
    ((worldBounds _ w bounds) containsRect: tooltip bounds) ifFalse:
        [tooltip bounds: (tooltip bounds translatedToBeWithin: worldBounds)].

    self setProperty: #toolTip toValue: tooltip.
    tooltip initialCursorPoint: Sensor cursorPoint.
    tooltip startStepping.

Add an instance variable to ReporterBlockMorph called returnValue.

Add this method as well:

Code:

returnValue: aValue
    returnValue _ aValue.

Replace toggleProcess with this:

Code:

toggleProcess

    | toolTip |
    toolTip _ self valueOfProperty: #toolTip.
    toolTip ifNotNil: [
        toolTip delete.
        self setProperty: #toolTip toValue: nil.
        ^ self].

    self isSpecialForm ifTrue: [super toggleProcess. self showValue: returnValue] ifFalse: [self showValue].

In ScratchProcess, replace returnValueToParentFrame with this:

Code:

returnValueToParentFrame: anObject
    "Append the given object to the argument list of my parent frame."

    | f b |
    stackFrame ifNil: [^ self].
    f _ stackFrame parentFrame.
    [f notNil and: [f shouldUnlight]] whileTrue: [
        f _ f parentFrame].
    f ifNil: [b _ stackFrame expression. (b isKindOf: ReporterBlockMorph) ifTrue: [b returnValue: anObject]] ifNotNil: [f addArgument: anObject].

Hope it works smile

TheSuccessor · 2010-12-27 11:54:05

Bump

zorket · 2010-12-27 18:40:21

Yeah, BYOB has a special form reporter called The script. Guessed blockspec: ('the script %z' #rs #theScript)
This probably is the wrong blockspec, because I don't have BYOB.
The users LS97, nxiii, TheSuccessor, and zorket probably can figure out the mystery.

rubiks_cube_guy238 · 2010-12-27 21:22:45

zorket wrote:
Yeah, BYOB has a special form reporter called The script. Guessed blockspec: ('the script %z' #rs #theScript)
This probably is the wrong blockspec, because I don't have BYOB.
The users LS97, nxiii, TheSuccessor, and zorket probably can figure out the mystery.

Believe it or not, that block actually has 2 commandSpecs.
They are:

Code:

('the script' #q #procedure)

and

Code:

('the script. Input names: %s' #q #procedureWithArgs)

.
The first commandSpec is the block you see in the palette, but it actually turns into an entirely new block (but with the same nested script) when you press the little arrow on the side.

And, actually, the block is not evaluated in the ScratchProcess.
You can find the evaluation method hidden under the codename 'optimized' tongue

Code:

optimized
    | newBlock reportBlock sel body a rcv |

    rcv _ self receiver.
    rcv ifNil: [rcv _ ScriptableScratchMorph new].
    (#(function #autoBlock) includes: selector)
        ifTrue: [sel _ #procedure]
        ifFalse: [sel _ #procedureWithArgs].
    newBlock _ rcv blockFromSpec: (rcv wholeBlockSpecForSelector: sel) 
                            color: (ScriptableScratchMorph blockColorFor: 'operators').

    newBlock isAtomic: (isAtomic or: [self isKindOf: OSlotMorph]).

    reportBlock _ rcv blockFromSpec: (rcv wholeBlockSpecForSelector: #doAnswer) 
                            color: (ScriptableScratchMorph blockColorFor: 'control').

    body _ self body.
    body ifNotNil:[
        reportBlock replaceArgMorph: (reportBlock argMorphs first) by: body].

    2 to: argMorphs size - 1 do: [:i |
        newBlock addItem ].

    2 to: argMorphs size do: [:i |
        a _ (argMorphs at: i) fullCopy.
        newBlock replaceArgMorph: (newBlock argMorphs at: i - 1) by: a ].

    newBlock attachBlock: reportBlock.
    newBlock parameters: parameters.
    newBlock variables: variables.
    newBlock fixInitialFrame.
    ^newBlock

(although I doubt that will make any sense to anyone except Jens or bharvey)

rubiks_cube_guy238 · 2010-12-28 12:17:06

To make a special-form reporter block, all you have to do is make an exception in CommandBlockMorph evaluate.
Example: Let's say I wanted to make a boolean block that reports if the nested reporter block will cause an error when evaluated. To do this, we go to CommandBlockMorph evaluate, as I mentioned above, and change it to

Code:

evaluate
    selector = #willRaiseError:
        ifTrue: 
            [[(self argumentAt: 1) evaluate]
                ifError: [^ true].
            ^ false].
    ^ self evaluateWithArgs: self args

TheSuccessor · 2010-12-29 05:30:06

Did my method work?

rubiks_cube_guy238 · 2010-12-29 09:35:47

Um, No. (Scratch froze. It's a good thing I didn't save before testing it.)
And if you had read my last post, you would have seen that I had found a way to make reporter blocks act as special forms.

Last edited by rubiks_cube_guy238 (2010-12-29 09:37:11)

Scratch

archived forums

#1 2010-12-24 14:13:28

Special form reporter blocks

Code:

#2 2010-12-24 15:01:01

Re: Special form reporter blocks

#3 2010-12-25 05:30:53

Re: Special form reporter blocks

#4 2010-12-25 06:05:25

Re: Special form reporter blocks

Code:

Code:

Code:

Code:

#5 2010-12-27 11:54:05

Re: Special form reporter blocks

#6 2010-12-27 18:40:21

Re: Special form reporter blocks

#7 2010-12-27 21:22:45

Re: Special form reporter blocks

zorket wrote:

Code:

Code:

Code:

#8 2010-12-28 12:17:06

Re: Special form reporter blocks

Code:

#9 2010-12-29 05:30:06

Re: Special form reporter blocks

#10 2010-12-29 09:35:47

Re: Special form reporter blocks

Board footer