Scratch

To fit C blocks into strings:
Go to scratchBlocks > commandBlockMorph > all > add a code:

isReporter
^ true

With just only a few flaws:
1. All the existing C blocks become reporters.
2. It still has it's regular shape.
3. It doesn't report stuff, it just keeps running, often freezing scratch.
4. It doesn't fit command blocks inside of it.
Cool Stuff:
1. It fits into strings!
2. It has boxes next to them!

Last edited by zorket (2010-10-28 08:07:27)

Right, you figured out how to make them fit in alright. If you dont mind having a little bit sticking out, I can easily help you. Not giving you too much info, of course!

So, to start off, you'll want to make a brand new block type for command blocks which report something. Do this in ScriptableScratchMorph's blockFromSpec:color: method. Basically, to make it easy, replace the whole thing with the code below. dont do it just yet though, because we'll need to add a couple methods to CBlockMorph!

blockFromSpec: spec color: blockColor
    "Create a block from the given block specification. Answer nil if I don't implement the block spec selector."

    | blockLabelSpec blockType selector defaultArgs block rcvr argPermutation |
    blockLabelSpec _ ScratchTranslator translationFor: (spec at: 1).
    argPermutation _ CommandBlockMorph argPermutationForSpec: (spec at: 1) withTranslation: blockLabelSpec.
    blockType _ spec at: 2.
    selector _ (spec at: 3) asSymbol.
    defaultArgs _ self defaultArgsFor: spec.

    (#(E K M S W B) includes: blockType) ifTrue: [
        ^ (self hatBlockType: blockType) color: blockColor].

    "basic block type: normal or C-shaped"
    (blockType includes: $c)
        ifTrue:    [
            selector = #doIfElse
                ifTrue: [block _ IfElseBlockMorph new isSpecialForm: true]
                ifFalse: [block _ CBlockMorph new isSpecialForm: true]]
        ifFalse:    [
            (blockType includes: $r) | (blockType includes: $b)
                ifTrue: [block _ ReporterBlockMorph new]
                ifFalse: [(blockType includes: $m) ifTrue: [^ CBlockMorph new isReporter: true]
                        ifFalse: [block _ CommandBlockMorph new]]].

    (blockType includes: $b) ifTrue: [block isBoolean: true].
    (blockType includes: $s) ifTrue: [block isSpecialForm: true].
    (blockType includes: $t) ifTrue: [block isTimed: true].

    (ScriptableScratchMorph isSpriteSpecificTarget: self selector: selector)
        ifTrue: [rcvr _ self]
        ifFalse: [rcvr _ self ownerThatIsA: ScratchStageMorph].

    ^ block
        argPermutation: argPermutation;
        color: blockColor;
        selector: selector;
        commandSpec: blockLabelSpec;
        defaultArgs: defaultArgs;
        receiver: rcvr

and these methods are:
navigate to CBlockMorph in Scratch-Blocks. add an instance variable called isRep. Wait for the whole thing to recompile.

then, under accessing, add the method below:

isReporter: aBool
isRep _ aBool

now you can replace the code in ScriptableScratchMorph successfully!

after this, we need to take care of whether strings and other arguments accept the block. (by the way, if you want the fancy block tip taken away, you'll have to edit the drawBottomBarOn: method i think)

to do this, we'll need to add yet another method called isReporter to the CBlockMorph (wherever you want)

code:
isReporter
^ isRep

and that should do it.

but, if you were too impatient to wait until this bit and tried to click the block and see what it did, you'll have been a bit disappointed that it just ran and (probably) reported an error. so we'll need to add another little bit of code. this time in the CBlockMorph's category 'private'.

evaulate
self isRep = true ifTrue: [^ self submorphs asString].
super evaulate

that makes it report whatever it has in it (as a string) if it is set to report, otherwise does its normal job!

NOTE: this is all untested theory. sorry if it doesnt work!

now, if you try using the #m block type it should work as you want it to. that is:
.::example block spec::.
('testing this block' m yourself)

i hope it really does work...
btw, you can change that line above highlited in blue if you should ever need the reported stuff to be a picture or something 

Last edited by LS97 (2010-11-04 08:24:00)

oooooooh....
well, if you got that to work then there you go! you'll have to add a little extra code saying that if it's a reporter it has to draw without bit sticking out, and vice versa! 

Bump!!!!!!!! 

Calm down zorket. (I seem to remember saying that before.)

You would need to create a new type of block to be a special form reporter. You then have to change ReporterBlockMorph's evaluate method to start a ScratchProcess for the block if it is a special form. You have to write code in the execution engine to return the value generated to the ReporterBlockMorph.

I'll put this in my mod, when it is released I give you permission to nick it all.

LS97 also gave you an answer, instead of bumping, how about you ask a new question related to what you want?

Yes, I read a lot of your posts. And that one I have already read and some people don't know how to do things, and some may not understand what you want, so just try to give as much info as possible, it'll work out. 

Ride, horsey! bump, bump, bump! Hey, slow down coward, there a log in fr... BUMP

I'm trying to figure this out too!