Scratch

Splodgey wrote:

pjtnt11 wrote:

Where do you put the code?

when gf clicked
repeat until <(You know where to put the code?) = [true]>
  say [Where do you put the code?]
end

Corrected grammar. Sorry, I couldn't resist.

Thanks!!!

Also, a block librarian should fix the top of the library--it still says to install antidote 

Yeah. I'm gonna send nXIII another email, see what he's doing!

bobbybee wrote:

Greenatic wrote:

bobbybee wrote:

Also, a block librarian should fix the top of the library--it still says to install antidote 

The reason we're not touching it is because the moment one of the posts is edited, all the invalid images in it will stop working...   

You still need to transfer hosts, huh. 

We've got a few transferred, but we're hesitating before doing a full update, due to the possibility of a blockspec-to-image API.

bobbybee wrote:

Greenatic wrote:

bobbybee wrote:

You still need to transfer hosts, huh. 

We've got a few transferred, but we're hesitating before doing a full update, due to the possibility of a blockspec-to-image API.

Would it be possible to leverage JSO's parser? Just a thought.

It would certainly be possible, however his is designed to colour any unknown blocks red, so that would take a lot of editing to change this, I think, plus it can't draw booleans, which I think is a major flaw! However, nXIII worked on a similar system which could be more suited to our needs - we're waiting to see what comes up with!

YourLocalBlockLib wrote:

http://scratch.mit.edu/redirect/url?lin … 678216.gifShared by johnnydean1
Block number: [25]    [view source] [What is this?]
Notes:
Converts a string to a list, starting a new line using a chosen breaker as a marker.

Could you turn this into a reporter, and make the value it reports A list please? (I have no understanding of Sqeak Smalltalk) - like BYOB?

Last edited by DigiTechs (2012-04-20 13:29:08)

nathanprocks wrote:

DigiTechs wrote:

YourLocalBlockLib wrote:

http://scratch.mit.edu/redirect/url?lin … 678216.gifShared by johnnydean1
Block number: [25]    [view source] [What is this?]
Notes:
Converts a string to a list, starting a new line using a chosen breaker as a marker.

Could you turn this into a reporter, and make the value it reports A list please? (I have no understanding of Sqeak Smalltalk) - like BYOB?

You can't report lists in Panther because lists in Panther are not first class.

Oh. If only they were. I could then use it for a project I'm making.

l-drago100000 wrote:

Can I have an " Open browser with URL: ( insert website here) block?

they made it already...

delete line# of list $List$

need it for Panther... and needs to work for all lines!

Squawkers13 wrote:

Code:

delete line# of list $List$

need it for Panther... and needs to work for all lines!

Yup! As rookwood points out, the

line (1 v) of list [list v]

line (variable) of list [list v]

DigiTechs wrote:

Could someone make me a "Save image for end user" block and a "Save Project at directory $String$" block - I really need these for somthing I'm making.

I could.

1st

dreamod
save image for end user
-
#E6A822
| t1 |
t1 _ (self ownerThatIsA: ScratchFrameMorph).
t1 ifNotNil: [t1 saveImageForEndUser].

2nd

dreamod
save project at directory $String$
-
#E6A822
    | t2 t3 |
    t3 _ '| t1 t2 t3 |
    t1 _ ''' , t1 , '''.
    self closeMediaEditorsAndDialogs ifFalse: [^ self].
    self stopAll.
    t1 size = 0 ifTrue: [^ self].
    self updateLastHistoryEntryIfNeeded.
    t3 _ (self nameFromFileName: t1)
                , ''.pt''.
    projectDirectory _ FileDirectory on: (FileDirectory dirPathFor: t3).
    projectName _ FileDirectory localNameFor: t3.
    projectInfo at: ''author'' put: author.
    self updateHistoryProjectName: projectName op: ''save''.
    self writeScratchProject'.
    t2 _ self ownerThatIsA: ScratchFrameMorph.
    t2
        ifNotNil: [Compiler
                evaluate: t3
                for: t2
                notifying: nil
                logged: false]

DigiTechs wrote:

dreamod wrote:

DigiTechs wrote:

Could someone make me a "Save image for end user" block and a "Save Project at directory $String$" block - I really need these for somthing I'm making.

I could.

1st

Code:

dreamod
save image for end user
-
#E6A822
| t1 |
t1 _ (self ownerThatIsA: ScratchFrameMorph).
t1 ifNotNil: [t1 saveImageForEndUser].

2nd

Code:

dreamod
save project at directory $String$
-
#E6A822
    | t2 t3 |
    t3 _ '| t1 t2 t3 |
    t1 _ ''' , t1 , '''.
    self closeMediaEditorsAndDialogs ifFalse: [^ self].
    self stopAll.
    t1 size = 0 ifTrue: [^ self].
    self updateLastHistoryEntryIfNeeded.
    t3 _ (self nameFromFileName: t1)
                , ''.pt''.
    projectDirectory _ FileDirectory on: (FileDirectory dirPathFor: t3).
    projectName _ FileDirectory localNameFor: t3.
    projectInfo at: ''author'' put: author.
    self updateHistoryProjectName: projectName op: ''save''.
    self writeScratchProject'.
    t2 _ self ownerThatIsA: ScratchFrameMorph.
    t2
        ifNotNil: [Compiler
                evaluate: t3
                for: t2
                notifying: nil
                logged: false]

Thanks!
EDIT: The save project at directory block seemed to crash my Panther - it isn't responding.

It worked for me. sorry.

Greenatic wrote:

dreamod wrote:

DigiTechs wrote:

Thanks!
EDIT: The save project at directory block seemed to crash my Panther - it isn't responding.

It worked for me. sorry.

Looks like there's a typo:

Code:

| t2 t3 |
    t3 _ '| t1 t2 t3 |
    t1 _ ''' , t1 , '''.

Try this (I haven't tested it):

Code:

dreamod (improved by Greenatic)
save project at directory $String$
-
#E6A822
    |t1 t2 t3|
    self closeMediaEditorsAndDialogs ifFalse: [^ self].
    self stopAll.
    t1 size = 0 ifTrue: [^ self].
    self updateLastHistoryEntryIfNeeded.
    t3 _ (self nameFromFileName: t1)
                , ''.pt''.
    projectDirectory _ FileDirectory on: (FileDirectory dirPathFor: t3).
    projectName _ FileDirectory localNameFor: t3.
    projectInfo at: ''author'' put: author.
    self updateHistoryProjectName: projectName op: ''save''.
    self writeScratchProject'.
    t2 _ self ownerThatIsA: ScratchFrameMorph.
    t2
        ifNotNil: [Compiler
                evaluate: t3
                for: t2
                notifying: nil
                logged: false]

That wasn't a typo. t3 is supposed to store a string with text that is going to be interpreted as code for a ScratchFrameMorph, The string quotes are supposed to be there.