Scratch

Greenatic wrote:

dreamod wrote:

Greenatic wrote:

Dreamod, I tried filing in your patch and got a "Message not understood: scanFrom:" error.      Do I need to file it into a new Scratch image or my Block Library image?

whoops, I have one exclamation marks too many! Too bad I can't edit my posts, well remove the first exclamation mark on the second line, that should do the trick.

So this is the new patch, fixed?

Code:

'From MIT Squeak 0.9.4 (June 1, 2003) [No updates present.] on 13 May 2012 at 11:49:13 am'!
BlockMorph subclass: #CommandBlockMorph
    instanceVariableNames: 'isStop commandSpec argPermutation argMorphs titleMorph receiver selector isReporter isTimed wantsName wantsPossession numberArgFlags '
    classVariableNames: 'ArgMorphsDictionary NotWatcherBlocks '
    poolDictionaries: ''
    category: 'Scratch-Blocks'!
!CommandBlockMorph methodsFor: 'private' stamp: 'dreamod 5/13/2012 11:45'!
isStop
    ^ isStop! !

!CommandBlockMorph methodsFor: 'private' stamp: 'dreamod 5/13/2012 11:45'!
isStop: t1
       isStop _ t1! !

!ScriptableScratchMorph methodsFor: 'blocks' stamp: 'dreamod 5/13/2012 11:48'!
blockFromSpec: t1 color: t2 
    | t3 t4 t5 t6 t7 t8 t9 |
    t3 _ ScratchTranslator translationFor: (t1 at: 1).
    t9 _ CommandBlockMorph argPermutationForSpec: (t1 at: 1)
                withTranslation: t3.
    t4 _ t1 at: 2.
    t5 _ (t1 at: 3) asSymbol.
    t6 _ self defaultArgsFor: t1.
    (#(#E #K #M #S #W ) includes: t4)
        ifTrue: [^ (self hatBlockType: t4)
                color: t2].
    (t4 includes: $c)
        ifTrue: [t5 = #doIfElse
                ifTrue: [t7 _ IfElseBlockMorph new isSpecialForm: true]
                ifFalse: [t7 _ CBlockMorph new isSpecialForm: true]]
        ifFalse: [(t4 includes: $r)
                | (t4 includes: $b)
                ifTrue: [t7 _ ReporterBlockMorph new]
                ifFalse: [t7 _ CommandBlockMorph new]].
    (t4 includes: $b)
        ifTrue: [t7 isBoolean: true].
    (t4 includes: $s)
        ifTrue: [t7 isSpecialForm: true].
    (t4 includes: $u)
        ifTrue: [t7 isStop: true].
        (t4 includes: $y)
        ifTrue: [t7 isStop: true; isSpecialForm: true].
    (t4 includes: $t)
        ifTrue: [t7 isTimed: true].
    (ScriptableScratchMorph isSpriteSpecificTarget: self selector: t5)
        ifTrue: [t8 _ self]
        ifFalse: [t8 _ self ownerThatIsA: ScratchStageMorph].
    ^ t7 argPermutation: t9;
     color: t2;
     selector: t5;
     commandSpec: t3;
     defaultArgs: t6;
     receiver: t8! !

That should work.

Greenatic wrote:

Problems right away.   

I get "NonBoolean receiver: Proceed for truth" whenever I try to save the image or change block categories.

oh no, I forgot to file-out the initialization method for CommandBlockMorph!
add this as well

!CommandBlockMorph methodsFor: 'initialization'!
initialize
    super initialize.
    commandSpec _ ''.
    argMorphs _ OrderedCollection new.
    receiver _ nil.
    selector _ nil.
    isTimed _ false.
    isStop _ false! !

dreamod wrote:

Greenatic wrote:

Problems right away.   

I get "NonBoolean receiver: Proceed for truth" whenever I try to save the image or change block categories.

oh no, I forgot to file-out the initialization method for CommandBlockMorph!
add this as well

Code:

!CommandBlockMorph methodsFor: 'initialization'!
initialize
    super initialize.
    commandSpec _ ''.
    argMorphs _ OrderedCollection new.
    receiver _ nil.
    selector _ nil.
    isTimed _ false.
    isStop _ false! !

That fixes it.   

Pecola1 wrote:

I have a suggestion, why not make this an img rather than a patch? Or both. I didn't realize this would basically be a mod, it removes any already made blocks and changes the name of the browser, it also removes share menu.

I was busy and I just put the patch in and saved the image for end user, now the few blocks i never put in the block library, (due to too many codes needed), are down the drain. 

At least warn the user that it will mess up their image. 

We'll probably create an image after we finish developing.   

blob8108 wrote:

sparks wrote:

...so I'm kinda hoping someone will HTML it for me 

Will this do? 
You need blocks.gif, too.

(I don't really have any time, but I like to suppose I have a little taste.  )

Do you like? 

sparks wrote:

... AWESOME! I love it! Thanks very much, I think I'm gonna tweak the layout a bit, add cap blocks and get the right colour for the Panther "Files" category but it looks pretty good!

Cool 

EDIT: I just noticed, did you use CSS to make the pallet category images? That's really neat!

I did. I like CSS. 

Pecola1 wrote:

I have a suggestion, why not make this an img rather than a patch? Or both. I didn't realize this would basically be a mod, it removes any already made blocks and changes the name of the browser, it also removes share menu.

I was busy and I just put the patch in and saved the image for end user, now the few blocks i never put in the block library, (due to too many codes needed), are down the drain. 

At least warn the user that it will mess up their image. 

Well, I'm working on another patch that you would file-in and then instructions on how to modify other areas that are usually customized. There is an image available as well with an updating feature. Did you read the license?

Block Importer License

The Block Importer is open source, and you are free to edit it as you please. If you choose to install the patch included to your own mod, or a copy of anybody else's mod, than you must agree to the following terms.

1. I, Dreamod do not take responsibility for any loss in your code or negative impacts on your mod.

2. The block library does not take responsibility in this, and they should not be blamed for anything within this project.

3. Any projects made with this may NOT be uploaded to the scratch website.

The application is a modified version of the Scratch VM.
The following features are taken from panther:
FormatCodeParser
The basis for the Create A Block Dialog
ScrollingStringDialog
Word args ($String$ , $Number$)

MIT does not endorse this project.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

you did notice the download link, right?
http://www.mediafire.com/?g9e76w9x690tf7o

Man, I really wish I could tell you to try Panther and I really wish I could endorse Panther since I worked on it.

But that would be off topic, so I guess I can't tell you to try Panther 

Panther's colour blocks happen to be black (or more accurately, #333333), but the file ones are dark blue (#2C78C3)

dreamod wrote:

here's the color hex for the category 'files': #2C78C3
files

whoops, I posted this before I saw sparks post, sorry.

blob8108 wrote:

dreamod wrote:

dreamod wrote:

here's the color hex for the category 'files': #2C78C3
files

whoops, I posted this before I saw sparks post, sorry.

He totally ninja'd you there.

While I'm off topic: why should I try Panther...? 

You should try panther because it's one of my personal favorite mods. That's one reason, not including the fact that it has color reporters, custom blocks that can be saved into projects, and file i/o.

dreamod wrote:

[...] Too bad I can't edit my posts [...]

Woah, you're a new Scratcher? You should be a Scratcher by now, that's strange.