Scratch

you mean

set cursor to [default v]

Bklecka wrote:

you mean

set cursor to [default v]

Yes, that's the block I'm talking about. I've seen that it's in several mods and it looks pretty cool. It was in the list of blocks in the Scratch Wiki for several of the Scratch Modifications.

jvvg wrote:

The code is:

Code:

cursor: t1 
    t1 = 'normal' ifTrue: [^ Cursor normal show].
    t1 = 'working' ifTrue: [^ Cursor wait show].
    t1 = 'crosshair' ifTrue: [^ Cursor crossHair show].
    t1 = 'read' ifTrue: [^ Cursor read show].
    t1 = 'write' ifTrue: [^ Cursor write show].
    t1 = 'eyedropper' ifTrue: [^ Cursor eyedropper show].
    t1 = 'execute' ifTrue: [^ Cursor execute show].
    t1 = 'origin' ifTrue: [^ Cursor origin show].
    t1 = 'paint bucket' ifTrue: [^ Cursor paintBucket show].
    t1 = 'stamp' ifTrue: [^ Cursor stamp show].
    t1 = 'invisible' ifTrue: [^ Cursor blank show].
    t1 = 'right arrow' ifTrue: [^ Cursor rightArrow show].
    t1 = 'square' ifTrue: [^ Cursor square show].
    t1 = 'down arrow' ifTrue: [^ Cursor down show].
    t1 = 'up arrow' ifTrue: [^ Cursor up show].
    t1 = 'marker' ifTrue: [^ Cursor marker show].
    t1 = 'move' ifTrue: [^ Cursor move show].
    t1 = 'question mark' ifTrue: [^ Cursor questionMark show].
    t1 = 'menu' ifTrue: [^ Cursor menu show].
    t1 = 'hand' ifTrue: [^ Cursor handOpen show].
    t1 = 'fist' ifTrue: [^ Cursor handClosed show].
    t1 = 'corner' ifTrue: [^ Cursor corner show].
    t1 = 'resize diagonal' ifTrue: [^ Cursor resizeCorner show].
    t1 = 'resize horizontal' ifTrue: [^ Cursor resizeHorizontally show].
    ^ Cursor normal show

Also, I totally ripped that off from Bingo, and put it in my own mod. 

How do I get the block to show it as a drop-down menu. I want to add it to my mod.

Hardmath123 wrote:

Put this under sensing ops:

Code:

    handNames
        ^ #('default', 'the', 'rest', 'in', 'a', 'list', 'like', 'this', '...' )

And under (Scratch-Blocks -> CommandBlockMorph -> private -> uncoloredArgMorphFor:)
add a line:

Code:

    $j = t2 ifTrue: [^ ChoiceArgMorph new getOptionsSelector: #handNames;
             choice: 'default'].

And your blockspec:

Code:

('Set cursor to %j' #- #cursor:)

Good luck! 

Ok, thanks