Scratch

computerexpertFELIX wrote:

I don't know the code for this block and I don't have the image.
Here is it.
It's a sensing block and here is it's string.
Question.
It reports the last question asked with the ask blocks.

I could make it.

lol i just noticed the panther "download block" block gives you a message that says "sucess!"

lol, that got completely ignored.

YourLocalBlockLib wrote:

http://dl.dropbox.com/u/6273449/BlockLibraryTitle.png
^Back to Scratch blocks
http://scratch.mit.edu/redirect/url?lin … ibDiv2.png
http://scratch.mit.edu/redirect/url?lin … 621999.png
http://scratch.mit.edu/redirect/url?lin … ibDiv2.png

How to download a Scratch block
Credit to nXIII for his patcher, which this code was based on.

This is a way how you can make an "import block" item in the file menu so you can download and import blocks from the library.

Beware: this feature is untested! If you want to test it for us, great, but don't use this in your production environment yet!

The Importer
Installing the block importer is the hardest (but not very hard) thing you must do in order to import blocks. Simply follow these instructions:
Step 1: Open Scratch
Step 2: Press and hold the "shift" key while clicking the loop of the "R" in the Scratch logo
Step 3: Select "turn fill-screen off" from the popup menu which shows up
Not showing up? Make sure you're clicking inside the loop of the "R"; the "logo" referred to is the one that says "Scratch" in the top-left corner.
Step 4: Click anywhere in the "white space" which shows up at the bottom and right sides of the window
Step 5: Select "open..." from the popup menu
Step 6: Select "workspace" from the subsequent popup menu
Step 7: Copy the following text and paste it into the textbox-like window with (Windows) Alt+V or (Mac) Command+V, or by clicking the "-" button above the scrollbar (appears when the mouse is over the "workspace" window) and selecting "paste (v)"

Code:

'From MIT Squeak 0.9.4 (June 1, 2003) [No updates present.] on 18 June 2010 at 5:06:17 pm'!

!ScratchFileChooserDialog methodsFor: 'initialization'!
createBlockFileChooserFor: t1 
    scratchFrame _ nil.
    readingScratchFile _ true.
    list _ ScratchFilePicker new extensions: #(#block ).
    self removeAllMorphs.
    bottomSpacer delete.
    bottomSpacer _ nil.
    mainColumn addMorphBack: list.
    self title: 'Import Block'.
    list scratchInfoClient: nil.
    mainColumn addMorphBack: (Morph new extent: 5 @ 9;
         color: Color transparent);
     addMorphBack: newTitleBin.
    fileInfoColumn addMorphBack: buttonRow.
    self addMorphBack: shortcutColumn;
     addMorphBack: mainColumn;
     addMorphBack: fileInfoColumn! !


!ScratchFrameMorph methodsFor: 'menu/button actions'!
addBlock
    | t1 t2 t3 t4 |
    t1 _ ScratchFileChooserDialog new createBlockFileChooserFor: self;
             type: #block.
    t2 _ t1 getUserResponse.
    t2 = #cancelled ifTrue: [^ self].
    t3 _ (FileDirectory forFileName: t2)
                oldFileNamed: t2.
    t4 _ t3 contentsOfEntireFile.
    (ReadWriteStream
        on: t4
        from: 1
        to: t4 size) fileIn! !

!ScratchFrameMorph methodsFor: 'menu/button actions'!
fileMenu: t1 
    | t2 |
    t2 _ CustomMenu new.
    t2 add: 'New' action: #newScratchProject.
    t2 add: 'Open' action: #openScratchProject.
    t2 add: 'Save' action: #saveScratchProjectNoDialog.
    t2 add: 'Save As' action: #saveScratchProject.
    t2 addLine.
    t2 add: 'Import Project' action: #importScratchProject.
    t2 add: 'Export Sprite' action: #exportSprite.
    t2 addLine.
    t2 add: 'Import Block' action: #addBlock.
    t2 addLine.
    t2 add: 'Project Notes' action: #editNotes.
    Sensor shiftPressed
        ifTrue: 
            [t2 addLine.
            t2 add: 'Write Project Summary' action: #writeSummaryFile.
            t2 add: 'Write Multiple Project Summaries' action: #writeMultipleSummaries].
    t2 addLine.
    t2 add: 'Quit' action: #quitScratch.
    t2 localize.
    #(2 4 5 6 7 8 ) do: [:t3 | t2 labels at: t3 put: ((t2 labels at: t3)
                copyFrom: 1 to: (t2 labels at: t3) size - 1)
                , ScratchTranslator ellipsesSuffix].
    t2 invokeOn: self at: t1 bottomLeft + (0 @ 10)! !

Step 8: Select all the text by click-and-drag or by pressing (Windows) Alt+A or (Mac) Command+A
Step 9: File in the selection by clicking on the "-" in the top left corner; choosing "more...", then "file it in"
Step 10: Shift-click the loop of the "R" in the Scratch logo again and select "save image for end-user" then select "yes" when prompted. Scratch should close, and when restarted you will see a new option in the file menu: "Import Block..."

http://scratch.mit.edu/redirect/url?lin … ibDiv2.png

^Back to Scratch blocks

I looked at the new method it added to the system browser. It appears it gets Smalltalk code from the file and files it in. That means you could make a fake block file that installs new morph types or deletes everything in the entire image file!!!!! On Panther to access the things you do with Shift-Click R on Scratch you use the source image wich has a menu called 'Dev'. So it could also do some like install this block:

[!random colorina!]

Jonathan50 wrote:

Did you say just post to request a scratchblock?
the blockspec is ('one item menu %s' #- #oneItemMenu:)
the procedure is called oneItemMenu:
it's code is

Code:

oneItemMenu: t1
       | menu |
        menu _ customMenu new.
        menu add: t1.

do tab instead of the spaces (tab is what you get when you press the tab key.)

Try to avoid quoting the entire first post--it's huge.   

That method won't work, for multiple reasons:
1.  It's CustomMenu, not customMenu.
2.  There needs to be an action: for the add: method.  See below method.
3.  There's nothing to start-up the list.

Try this method instead:

oneItemMenu: t1
| menu |
        menu _ CustomMenu new.
        menu add: t1 action: ''.
^ menu localize startUp

the last question asked block would require an instance variable to be added but otherwise it's pretty simple.
declare the variable lastQuestion by typing this code and doing it

ScriptableScratchMorph addInstVarName: 'lastQuestion'

blockspec

('last question' #r #lastQuestion)

ScriptableScratchMorph

lastQuestion
^ lastQuestion

ScriptableScratchMorph

lastQuestion: t1
^ lastQuestion

ScratchProcess

doAsk
    "Ask the user a question and wait until the user types some text and hits the accept button."

    | block args question prompter |
    block _ stackFrame expression.
    args _ stackFrame arguments.

    "first time (args size = 0): open prompter"
    args size = 0
        ifTrue: [
            block receiver promptInProgress ifTrue: [
                self pushStackFrame: (ScratchStackFrame new shouldYield: true).
                ^ self].
            question _ block args first asString.
            prompter _ block receiver promptForInput: question]
        ifFalse: [
            prompter _ args first].

    "if all processes have stopped, pop this frame and we're done."
    prompter isDone ifTrue: [^ self popStackFrame].

    "Set up the wait loop. We need to:
        1.  yield to another process
        2.  evaluate the termination expression again
    Push these onto stack in reverse order."

    "2.  evaluate this block again"
    "(Remove the current frame and replace it with one that will force the termination expression to be re-evaluated.)"
    self popStackFrameNoUnhightlight.
    self pushStackFrame: (ScratchStackFrame new expression: block; addArgument: prompter).
    stackFrame expression receiver lastQuestion: question.
    "1.  yield to another process"
    self pushStackFrame: (ScratchStackFrame new shouldYield: true).

hey I really need help with these blocks. Thanks!

Requset:

[close scratch]

P110 wrote:

hey I really need help with these blocks. Thanks!

fetchydog567 wrote:

exit panther

Exit Panther uses the same code as the exit Scratch block. You can just change the blockspec to make the block say "exit Panther" instead of "exit Scratch".

P110 wrote:

P110 wrote:

P110 wrote:

hey I really need help with these blocks. Thanks!

stop quoting yourself!
Find out how to mod BYOB!!!

777w wrote:

Squawkers13 wrote:

P110 wrote:

stop quoting yourself!
Find out how to mod BYOB!!!

in spanish?

I have tried! But I can't! I'll try again...