etoys-dev July 2011

etoys-dev@lists.squeakfoundation.org

10 participants
41 discussions

Re: [etoys-dev] Stencils in Etoys
by Steve Thomas 02 Dec '11

02 Dec '11

Subbu, Thanks this is a lot of fun and useful. So I tried to use it for fractions (although I really like your art work project at Ofset <http://community.ofset.org/index.php/Grab_area_button>better, but I am thinking about fractions lately) I used the "do menu item | stencil a sketch" scripting tile in a "Mouse Down" script. The rectangle then moves forward by its width. So with a series of successive clicks you can make a fraction. It get's my vote for inclusion in the next release. Thanks, Stephen On Fri, Jul 22, 2011 at 10:02 PM, K. K. Subramaniam <kksubbu.ml(a)gmail.com>wrote: > Hi Steve, > > I have attached a patch to Morphic that adds three functions to 'extras...' > menu for any Morph. These enable anyone to quick convert an assembly of > morphs > into a sketch (e.g. a car assembled using rectangles and ellipses), use any > morph as a stencil to cut out a sketch from underlying screen area and to > create silhouette (shadow) sketch respectively. > > To use the patch, just drop it into Etoys and select "file it in". I would > appreciate it if you could use it and let me know if it is useful. If so, I > will send it to Etoys Inbox. > > Subbu >

3 12

Etoys: ReleaseBuilder-kfr.12.mcz
by commits＠source.squeak.org 31 Jul '11

31 Jul '11

Karl Ramberg uploaded a new version of ReleaseBuilder to project Etoys: http://source.squeak.org/etoys/ReleaseBuilder-kfr.12.mcz ==================== Summary ==================== Name: ReleaseBuilder-kfr.12 Author: kfr Time: 31 July 2011, 8:34:33 pm UUID: 73adee3e-0c81-6c4a-8816-3aca61c35978 Ancestors: ReleaseBuilder-bf.9 Fixing ancestry =============== Diff against ReleaseBuilder-bf.9 =============== Item was changed: ReleaseBuilder subclass: #ReleaseBuilderSqueakland instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ReleaseBuilder'! + !ReleaseBuilderSqueakland commentStamp: '<historical>' prior: 0! - !ReleaseBuilderSqueakland commentStamp: 'bf 10/13/2010 01:16' prior: 0! Note: as of this writing, the only reliable way to get rid of all but the current project is to execute the following, one line at a time... + Smalltalk zapAllOtherProjects. "close inspector if it popped up" - Smalltalk zapAllOtherProjects. ProjectHistory currentHistory initialize. Smalltalk garbageCollect. Project rebuildAllProjects. ReleaseBuilderSqueakland new prepareReleaseImage.!

1 0

Etoys: ReleaseBuilder-kfr.10.mcz
by commits＠source.squeak.org 31 Jul '11

31 Jul '11

Karl Ramberg uploaded a new version of ReleaseBuilder to project Etoys: http://source.squeak.org/etoys/ReleaseBuilder-kfr.10.mcz ==================== Summary ==================== Name: ReleaseBuilder-kfr.10 Author: kfr Time: 31 July 2011, 3:44:03 pm UUID: ac4444aa-8366-d44d-a648-9daed2803b8b Ancestors: ReleaseBuilder-kfr.10 Testing =============== Diff against ReleaseBuilder-kfr.10 ===============

1 0

Etoys: Tools-kfr.8.mcz
by commits＠source.squeak.org 30 Jul '11

30 Jul '11

Karl Ramberg uploaded a new version of Tools to project Etoys: http://source.squeak.org/etoys/Tools-kfr.8.mcz ==================== Summary ==================== Name: Tools-kfr.8 Author: kfr Time: 30 July 2011, 11:58:22 pm UUID: deb2e1f6-3c30-1048-ada9-9a77fbe679d4 Ancestors: Tools-kfr.7 Make own category for Sounds in FileList =============== Diff against Tools-kfr.6 =============== Item was changed: ----- Method: FileList2 class>>endingSpecs (in category 'blue ui') ----- endingSpecs "Answer a collection of specs to build the selective 'find anything' tool called by the Navigator. This version uses the services registry to do so." "FileList2 morphicViewGeneralLoaderInWorld: World" | categories services specs rejects | rejects _ #(addFileToNewZip: compressFile: openInZipViewer: extractAllFrom: openOn: openGIFInWindow:). categories _ #( ('Art' ('bmp' 'gif' 'jpg' 'jpeg' 'form' 'png' 'pcx' 'xbm' 'xpm' 'ppm' 'pbm')) ('Morphs' ('morph' 'morphs' 'sp')) ('Projects' ('extseg' 'project' 'pr')) ('Books' ('bo')) + ('Sounds' ('wav')) + ('Music' ('mid')) - ('Music' ('mid' 'wav')) ('Movies' ('movie' 'mpg' 'mpeg' 'qt' 'mov')) "('Code' ('st' 'cs'))" ('Flash' ('swf')) ('TrueType' ('ttf')) ('3ds' ('3ds')) ('Tape' ('tape')) ('Wonderland' ('wrl')) ('HTML' ('htm' 'html')) ). categories first at: 2 put: ImageReadWriter allTypicalFileExtensions. specs _ OrderedCollection new. categories do: [ :cat | | catSpecs catServices okExtensions | services _ Dictionary new. catSpecs _ Array new: 3. catServices _ OrderedCollection new. okExtensions _ Set new. cat second do: [ :ext | (FileList itemsForFile: 'fred.',ext) do: [ :i | (rejects includes: i selector) ifFalse: [ okExtensions add: ext. services at: i label put: i ]]]. services do: [ :svc | catServices add: svc ]. services isEmpty ifFalse: [ catSpecs at: 1 put: cat first translated; at: 2 put: okExtensions; at: 3 put: catServices. specs add: catSpecs ] ]. ^specs !

1 0

A request and an idea for single step debugging and documenting scripts
by Steve Thomas 30 Jul '11

30 Jul '11

In the last two pages "Fractionator<http://www.squeakland.org/showcase/project.jsp?id=11093>" I used a magnifier and some next/prev line buttons to "document/explain" how the line drawing script worked. I would like to be able to walk through the scripting tiles to "highlight them." For example if I had a reference, I could increase the border size and change its color. I use the speech bubble to have the tiles "say/think" what they are doing. For now it is simply text, but it can be anything Etoys can do, including a mini Quickguide in a bubble). I would also like to be able to control the "firing" each scripting tile. So If I could reference each tile in a "Script Editor" the way I can reference items in a Collection, I would think a script could be written that executes the first tile, then when a particular key is hit (say <n>) the next tile is executed, we could also either associate speech bubble contents with each tile, or just use something similar to the holder method I used to get started and play with the idea (Tests and Repeats may offer a small challenge). Thanks, Stephen

2 1

Etoys Inbox: Morphic-kks.67.mcz
by commits＠source.squeak.org 30 Jul '11

30 Jul '11

A new version of Morphic was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Morphic-kks.67.mcz ==================== Summary ==================== Name: Morphic-kks.67 Author: kks Time: 30 July 2011, 5:18:47 pm UUID: 33db131b-2c4b-40e6-883a-77678befec97 Ancestors: Morphic-kfr.66 Create a silhouette from any morph or use one as a stencil to create a sketch. see in "extras.." sub-menu. =============== Diff against Morphic-kfr.66 =============== Item was added: + ----- Method: EllipseMorph class>>fromHand: (in category 'class initialization') ----- + fromHand: aHand + "Create an EllipseMorph interactively" + | origin color ellipse w drawBlock savecursor | + w _ self currentWorld. + Cursor crossHair showWhile: [ + [Sensor noButtonPressed] whileTrue: [w displayWorldSafely; runStepMethods]. + origin _ Sensor cursorPoint]. + color _ Color yellow alpha: 0.2. + ellipse _ EllipseMorph new extent: 10@10; center: origin; color: color; width: 2. + ellipse openInWorld: w. + drawBlock _ [:p | + ellipse extent: (p - origin) abs * 2; center: origin. + w displayWorldSafely; runStepMethods]. + savecursor _ Sensor currentCursor. + Cursor corner show. + [true] whileTrue: [ + [Sensor anyButtonPressed] whileTrue: [ drawBlock value: Sensor cursorPoint ]. + (Sensor cursorPoint dist: origin) > 3 ifTrue: [ + drawBlock value: Sensor cursorPoint. + aHand position: Sensor cursorPoint. + savecursor show. + ellipse color: (ellipse color alpha: 1.0). + ^ellipse delete]. + [Sensor noButtonPressed] whileTrue: [ drawBlock value: Sensor cursorPoint ]. + ]. + " + EllipseMorph fromHand: ActiveHand + "! Item was added: + ----- Method: EllipseMorph class>>newFrom: (in category 'class initialization') ----- + newFrom: aHand + "Create a new ellipse interactively" + | e | + e _ self fromHand: aHand. + e openInWorld: aHand world. + " + EllipseMorph newFrom: ActiveHand. + "! Item was changed: ----- Method: Morph>>addMiscExtrasTo: (in category 'menus') ----- addMiscExtrasTo: aMenu "Add a submenu of miscellaneous extra items to the menu." | realOwner realMorph subMenu | subMenu _ MenuMorph new defaultTarget: self. (Preferences eToyFriendly not and: [self isWorldMorph not and: [self renderedMorph isSystemWindow not]]) ifTrue: [subMenu add: 'put in a window' translated action: #embedInWindow]. self isWorldMorph ifFalse: [subMenu add: 'adhere to edge...' translated action: #adhereToEdge. subMenu addLine]. realOwner _ (realMorph _ self topRendererOrSelf) owner. (realOwner isKindOf: TextPlusPasteUpMorph) ifTrue: [subMenu add: 'GeeMail stuff...' translated subMenu: (realOwner textPlusMenuFor: realMorph)]. Preferences eToyFriendly ifFalse: [ subMenu add: 'add mouse up action' translated action: #addMouseUpAction; add: 'remove mouse up action' translated action: #removeMouseUpAction; add: 'hand me tiles to fire this button' translated action: #handMeTilesToFire. subMenu addLine. ]. Preferences eToyFriendly ifFalse: [ subMenu add: 'arrowheads on pen trails...' translated action: #setArrowheads. subMenu addLine. ]. subMenu defaultTarget: self topRendererOrSelf. (self isWorldMorph not and: [(self renderedMorph isSystemWindow) not]) ifTrue: [ subMenu add: 'draw new path' translated action: #definePath. subMenu add: 'follow existing path' translated action: #followPath. subMenu add: 'delete existing path' translated action: #deletePath. subMenu addLine. ]. self addGestureMenuItems: subMenu hand: ActiveHand. self isWorldMorph ifFalse: [subMenu add: 'balloon help for this object' translated action: #editBalloonHelpText]. + subMenu addLine. + subMenu add: 'sketch this' translated action: #sketchIt. + subMenu add: 'sketch a silhouette' translated action: #sketchASilhouette. + subMenu add: 'stencil a sketch' translated action: #stencilASketch. + subMenu submorphs isEmpty ifFalse: [ aMenu add: 'extras...' translated subMenu: subMenu + ]. + ! - ].! Item was added: + ----- Method: Morph>>silhouetteForm (in category 'drawing') ----- + silhouetteForm + "Return a form representing the 'shadow' of the receiver including all its submorphs" + | bnds canvas form | + bnds _ self fullBounds. + canvas _ (Display defaultCanvasClass extent: bnds extent depth: 1) + asShadowDrawingCanvas: Color black. "Color black represents one for 1bpp" + canvas translateBy: bnds topLeft negated + during:[:tempCanvas| + self fullDrawOn: tempCanvas]. + form _ ColorForm mappingWhiteToTransparentFrom: canvas form. + ^form offset: bnds topLeft. + ! Item was added: + ----- Method: Morph>>sketchASilhouette (in category 'as yet unclassified') ----- + sketchASilhouette + | w m | + w _ self world ifNil: [ActiveWorld ]. + m _ w drawingClass withForm: self silhouetteForm. + m openInHand.! Item was added: + ----- Method: Morph>>sketchIt (in category 'as yet unclassified') ----- + sketchIt + | w m | + w _ self world ifNil: [ActiveWorld]. + m _ w drawingClass withMorph: self. + m openInHand.! Item was added: + ----- Method: Morph>>stencilASketch (in category 'as yet unclassified') ----- + stencilASketch + | m | + self world ifNil: [^self ]. + m _ SketchMorph withStencil: self. + m openInHand.! Item was changed: ----- Method: PasteUpMorph>>grabFloodFromScreen: (in category 'world menu') ----- grabFloodFromScreen: evt "Allow the user to plant a flood seed on the Display, and create a new drawing morph from the resulting region. Attach the result to the hand." | screenForm exterior p1 box | Cursor crossHair showWhile: [p1 _ Sensor waitButton]. box _ Display floodFill: Color transparent at: p1. exterior _ ((Display copy: box) makeBWForm: Color transparent) reverse. self world invalidRect: box; displayWorldSafely. (box area > (Display boundingBox area // 2)) ifTrue: [^ PopUpMenu notify: 'Sorry, the region was too big']. (exterior deepCopy reverse anyShapeFill reverse) "save interior bits" displayOn: exterior at: 0@0 rule: Form and. screenForm _ Form fromDisplay: box. screenForm eraseShape: exterior. screenForm isAllWhite ifFalse: + [(evt ifNil: [ActiveHand] ifNotNil: [ evt hand]) attachMorph: (self drawingClass withForm: screenForm)]! - [evt hand attachMorph: (self drawingClass withForm: screenForm)]! Item was added: + ----- Method: PolygonMorph class>>newFrom: (in category 'instance creation') ----- + newFrom: aHand + "Rubber-band tool for polygons" + | polygon | + polygon _ self fromHand: aHand. + polygon makeClosed; color: (Color orange lighter alpha: 0.7). + polygon openInWorld: aHand world. + " + PolygonMorph newFrom: ActiveHand. + " + ! Item was added: + ----- Method: PolygonMorph class>>newLassoFrom: (in category 'instance creation') ----- + newLassoFrom: aHand + "Smooth Polygon tool" + | polygon | + polygon _ self fromHandFreehand: aHand. + polygon makeClosed; color: (Color orange lighter alpha: 0.7). + polygon openInWorld: aHand world. + " + PolygonMorph newLassoOn: ActiveHand. + " + ! Item was added: + ----- Method: RectangleMorph class>>fromHand: (in category 'class initialization') ----- + fromHand: hand + "Let the user draw a rectangle by indicating top left origin and bottom right corner" + | rect | + rect := Rectangle fromUser. + ^self authoringPrototype + position: rect origin; + extent: rect extent. + + " + RectangleMorph fromHand: ActiveHand + " + ! Item was added: + ----- Method: RectangleMorph class>>newFrom: (in category 'class initialization') ----- + newFrom: hand + "Let the user draw a rectangle by indicating top left origin and bottom right corner" + | m | + m _ self fromHand: hand. + m openInWorld: hand world. + " + RectangleMorph fromHand: ActiveHand + " + ! Item was added: + ----- Method: SketchMorph class>>fromLasso (in category 'instance creation') ----- + fromLasso + "Create a sketch by rubber-banding a region interactively" + | lasso | + lasso _ PolygonMorph fromHandFreehand: self currentHand. + lasso makeClosed. + (self withStencil: lasso) openInHand. + " + SketchMorph fromLasso. + "! Item was added: + ----- Method: SketchMorph class>>fromPolygon (in category 'instance creation') ----- + fromPolygon + "Create a sketch by rubber-banding a region" + | polygon | + polygon _ PolygonMorph fromHand: self currentHand. + polygon makeClosed. + (self withStencil: polygon) openInHand. + " + SketchMorph fromPolygon. + "! Item was added: + ----- Method: SketchMorph class>>withMorph: (in category 'instance creation') ----- + withMorph: aMorph + "Create a sketch from a Morph and its submorphs" + + | bnds canvas | + bnds _ aMorph fullBounds. + canvas _ Display defaultCanvasClass extent: bnds extent. + canvas translateBy: bnds topLeft negated during: [ :tmpCanvas | + aMorph fullDrawOn: tmpCanvas]. + ^SketchMorph withForm: (canvas form offset: bnds topLeft). + ! Item was added: + ----- Method: SketchMorph class>>withStencil: (in category 'instance creation') ----- + withStencil: stencilMorph + "Create a sketch from Display by using a morph as a stencil" + + | w outline topLeft baseForm finalForm | + w _ stencilMorph world ifNil: [ActiveWorld]. + outline _ stencilMorph silhouetteForm. + topLeft _ outline offset. + stencilMorph hide. + w displayWorldSafely. + baseForm _ stencilMorph pasteUpMorphOrWorld imageFormForRectangle: (topLeft extent: outline extent). + stencilMorph show. + finalForm _ (baseForm eraseShape: (outline reverse offset: 0@0)) trimBordersOfColor: Color transparent. + ^SketchMorph withForm: finalForm. + + " + (SketchMorph withStencil: (EllipseMorph new position: Display center)) openInHand + " + !

1 0

Etoys: ReleaseBuilder-kfr.11.mcz
by commits＠source.squeak.org 27 Jul '11

27 Jul '11

Karl Ramberg uploaded a new version of ReleaseBuilder to project Etoys: http://source.squeak.org/etoys/ReleaseBuilder-kfr.11.mcz ==================== Summary ==================== Name: ReleaseBuilder-kfr.11 Author: kfr Time: 27 July 2011, 11:19:27 pm UUID: ed20b290-f7bb-5e49-ad67-03d9b7f48031 Ancestors: ReleaseBuilder-bf.9 Package was dirty. Testing again =============== Diff against ReleaseBuilder-bf.9 =============== Item was changed: ReleaseBuilder subclass: #ReleaseBuilderSqueakland instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ReleaseBuilder'! + !ReleaseBuilderSqueakland commentStamp: '<historical>' prior: 0! - !ReleaseBuilderSqueakland commentStamp: 'bf 10/13/2010 01:16' prior: 0! Note: as of this writing, the only reliable way to get rid of all but the current project is to execute the following, one line at a time... + Smalltalk zapAllOtherProjects. "close inspector if it popped up" - Smalltalk zapAllOtherProjects. ProjectHistory currentHistory initialize. Smalltalk garbageCollect. + Project rebuildAllProjects. - Project rebuildAllProjects. ReleaseBuilderSqueakland new prepareReleaseImage.!

1 0

Etoys: Etoys-kfr.86.mcz
by commits＠source.squeak.org 26 Jul '11

26 Jul '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.86.mcz ==================== Summary ==================== Name: Etoys-kfr.86 Author: kfr Time: 26 July 2011, 7:55:34 pm UUID: 1e086f71-3caf-c34a-927a-9e7340ed53f4 Ancestors: Etoys-kfr.85 http://tracker.squeakland.org/browse/SQ-955 =============== Diff against Etoys-kfr.84 =============== Item was changed: ----- Method: CategoryViewer>>phraseForTest (in category 'entries') ----- phraseForTest "Answer a phrase for the non-slot-like command represented by aMethodInterface - classic tiles" | aPhrase aRow | aPhrase _ PhraseTileForTest new. aRow _ ViewerLine newRow. aRow addMorphBack: ScriptingSystem buttonSpacer. aRow addMorphBack: self spacerAfterButton. aRow addMorphBack: aPhrase. + aRow setBalloonText: 'Press here to tear off a TEST/YES/NO unit which you can drop into your script' translated. - aRow setBalloonText: 'Press here to tear off a TEST/YES/NO unit which you can drop into your script' translated. ^ aRow. ! Item was changed: ----- Method: Morph class>>helpContributions (in category '*eToys-scripting') ----- helpContributions "Answer a list of pairs of the form (<symbol> <help message> ) to contribute to the system help dictionary" "NB: Many of the items here are not needed any more since they're specified as part of command definitions now. Someone needs to take the time to go through the list and remove items no longer needed. But who's got that kind of time?" ^ #( (acceptScript:for: 'submit the contents of the given script editor as the code defining the given selector') (actorState 'return the ActorState object for the receiver, creating it if necessary') (addInstanceVariable 'start the interaction for adding a new variable to the object') (addPlayerMenuItemsTo:hand: 'add player-specific menu items to the given menu, on behalf of the given hand. At present, these are only commands relating to the turtle') (addYesNoToHand + 'Press here to tear off a TEST/YES/NO unit which you can drop into your script') - 'Press here to tear off a TEST/YES/NO unit which you can drop into your script') (allScriptEditors 'answer a list off the extant ScriptEditors for the receiver') (amount 'The amount of displacement') (angle 'The angular displacement') (anonymousScriptEditorFor: 'answer a new ScriptEditor object to serve as the place for scripting an anonymous (unnamed, unsaved) script for the receiver') (append: 'add an object to this container') (prepend: 'add an object to this container') (assignDecrGetter:setter:amt: 'evaluate the decrement variant of assignment') (assignGetter:setter:amt: 'evaluate the vanilla variant of assignment') (assignIncrGetter:setter:amt: 'evalute the increment version of assignment') (assignMultGetter:setter:amt: 'evaluate the multiplicative version of assignment') (assureEventHandlerRepresentsStatus 'make certain that the event handler associated with my current costume is set up to conform to my current script-status') (assureExternalName 'If I do not currently have an external name assigned, get one now') (assureUniClass 'make certain that I am a member a uniclass (i.e. a unique subclass); if I am not, create one now and become me into an instance of it') (availableCostumeNames 'answer a list of strings representing the names of all costumes currently available for me') (availableCostumesForArrows 'answer a list of actual, instantiated costumes for me, which can be cycled through as the user hits a next-costume or previous-costume button in a viewer') (beep: 'make the specified sound') (borderColor 'The color of the object''s border') (borderWidth 'The width of the object''s border') (bottom 'My bottom edge, measured downward from the top edge of the world') (bounce: 'If object strayed beyond the boundaries of its container, make it reflect back into it, making the specified noise while doing so.') (bounce 'If object strayed beyond the boundaries of its container, make it reflect back into it') (chooseTrigger 'When this script should run. "normal" means "only when called"') (clearTurtleTrails 'Clear all the pen trails in the interior.') (clearOwnersPenTrails 'Clear all the pen trails in my container.') (color 'The object''s interior color') (colorSees 'Whether a given color in the object is over another given color') (colorUnder 'The color under the center of the object') (copy 'Return a new object that is very much like this one') (cursor 'The index of the chosen element') (deleteCard 'Delete the current card.') (dismiss 'Click here to dismiss me') (doMenuItem: 'Do a menu item, the same way as if it were chosen manually') (doScript: 'Perform the given script once, on the next tick.') (elementNumber 'My element number as seen by my owner') (fire 'Run any and all button-firing scripts of this object') (firstPage 'Go to first page of book') (followPath 'Retrace the path the object has memorized, if any.') (forward: 'Moves the object forward in the direction it is heading') (goto: 'Go to the specfied book page') (goToNextCardInStack 'Go to the next card') (goToPreviousCardInStack 'Go to the previous card.') (goToRightOf: 'Align the object just to the right of any specified object.') (heading 'Which direction the object is facing. 0 is straight up') (height 'The distance between the top and bottom edges of the object') (hide 'Make the object so that it does not display and cannot handle input') (initiatePainting 'Initiate painting of a new object in the standard playfield.') (initiatePaintingIn: 'Initiate painting of a new object in the given place.') (isOverColor 'Whether any part of this object is directly over the specified color') (isUnderMouse 'Whether any part of this object is beneath the current mouse-cursor position') (lastPage 'Go to the last page of the book.') (left 'My left edge, measured from the left edge of the World') (leftRight 'The horizontal displacement') (liftAllPens 'Lift the pens on all the objects in my interior.') (lowerAllPens 'Lower the pens on all the objects in my interior.') (mouseX 'The x coordinate of the mouse pointer') (mouseY 'The y coordinate of the mouse pointer') (moveToward: 'Move in the direction of another object.') (insertCard 'Create a new card.') (nextPage 'Go to next page.') (numberAtCursor 'The number held by the object at the chosen element') (objectNameInHalo 'Object''s name -- To change: click here, edit, hit ENTER') (obtrudes 'Whether any part of the object sticks out beyond its container''s borders') (offerScriptorMenu 'The Scriptee. Press here to get a menu') (pauseScript: 'Make a running script become paused.') (penDown 'Whether the object''s pen is down (true) or up (false)') (penColor 'The color of the object''s pen') (penSize 'The size of the object''s pen') (clearPenTrails 'Clear all pen trails in the current playfield') (playerSeeingColorPhrase 'The player who "sees" a given color') (previousPage 'Go to previous page') (show 'If object was hidden, make it show itself again.') (startScript: 'Make a script start running.') (stopScript: 'Make a script stop running.') (top 'My top edge, measured downward from the top edge of the world') (right 'My right edge, measured from the left edge of the world') (roundUpStrays 'Bring all out-of-container subparts back into view.') (scaleFactor 'The amount by which the object is scaled') (stopScript: 'make the specified script stop running') (tellAllSiblings: 'send a message to all of my sibling instances') (try 'Run this command once.' translatedNoop) (tryMe 'Click here to run this script once; hold button down to run repeatedly' translatedNoop) (turn: 'Change the heading of the object by the specified amount') (unhideHiddenObjects 'Unhide all hidden objects.') (upDown 'The vertical displacement') (userScript 'This is a script defined by you.') (userSlot 'This is a variable defined by you. Click here to change its type') (valueAtCursor 'The chosen element') (wearCostumeOf: 'Make this object''s appearance be the same as that of another object') (width 'The distance between the left and right edges of the object') (wrap 'If object has strayed beond the boundaries of its container, make it reappear from the opposite edge.') (x 'The x coordinate, measured from the left of the container') (y 'The y-coordinate, measured upward from the bottom of the container') ) !

1 0

Etoys: Morphic-kfr.66.mcz
by commits＠source.squeak.org 26 Jul '11

26 Jul '11

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.66.mcz ==================== Summary ==================== Name: Morphic-kfr.66 Author: kfr Time: 26 July 2011, 7:28:11 pm UUID: 53deb299-91d2-9846-893d-ef07b87fb326 Ancestors: Morphic-kfr.65 http://tracker.squeakland.org/browse/SQ-968 =============== Diff against Morphic-kfr.65 =============== Item was changed: ----- Method: PolygonMorph>>specifyDashedLine (in category 'menu') ----- specifyDashedLine | executableSpec newSpec | executableSpec _ FillInTheBlank request: 'Enter a dash specification as { major dash length. minor dash length. minor dash color } The major dash will have the normal border color. A blank response will remove the dash specification. [Note: You may give 5 items as, eg, {10. 5. Color white. 0. 3} + where the 4th item is zero, and the 5th is the number of pixels - where the 4th ityem is zero, and the 5th is the number of pixels by which the dashes will move in each step of animation]' translated initialAnswer: '{ 10. 5. Color red }'. executableSpec isEmpty ifTrue: [^ self stopStepping; dashedBorder: nil]. newSpec _ [Compiler evaluate: executableSpec] ifError: [^ self stopStepping; dashedBorder: nil]. newSpec first isNumber & newSpec second isNumber & newSpec third isColor ifFalse: [^ self stopStepping; dashedBorder: nil]. newSpec size = 3 ifTrue: [^ self stopStepping; dashedBorder: newSpec]. (newSpec size = 5 and: [newSpec fourth isNumber & newSpec fifth isNumber]) ifTrue: [^ self dashedBorder: newSpec; startStepping]. !

1 0

Etoys: MorphicExtras-kfr.27.mcz
by commits＠source.squeak.org 26 Jul '11

26 Jul '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.27.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.27 Author: kfr Time: 26 July 2011, 7:22:36 pm UUID: 97555dda-22cb-1346-a674-f28eedd1ce15 Ancestors: MorphicExtras-kfr.26 http://tracker.squeakland.org/browse/SQ-967 =============== Diff against MorphicExtras-kfr.26 =============== Item was changed: ----- Method: FlapTab>>addCustomMenuItems:hand: (in category 'menu') ----- addCustomMenuItems: aMenu hand: aHandMorph "Add further items to the menu as appropriate" aMenu add: 'tab color...' translated target: self action: #changeColor. aMenu add: 'flap color...' translated target: self action: #changeFlapColor. aMenu addLine. aMenu addUpdating: #edgeString action: #setEdgeToAdhereTo. aMenu addLine. aMenu addUpdating: #textualTabString action: #textualTab. aMenu addUpdating: #graphicalTabString action: #graphicalTab. aMenu addUpdating: #solidTabString enablement: #notSolid action: #solidTab. aMenu addLine. (referent isKindOf: PasteUpMorph) ifTrue: [aMenu addUpdating: #partsBinString action: #togglePartsBinMode]. aMenu addUpdating: #dragoverString action: #toggleDragOverBehavior. aMenu addUpdating: #mouseoverString action: #toggleMouseOverBehavior. aMenu addLine. aMenu addUpdating: #isGlobalFlapString enablement: #sharedFlapsAllowed action: #toggleIsGlobalFlap. + aMenu balloonTextForLastItem: 'If checked, this flap will be available in all morphic projects; if not, it will be private to this project.' translated. - aMenu balloonTextForLastItem: 'If checked, this flap will be available in all morphic projects; if not, it will be private to this project.,' translated. aMenu addLine. aMenu addUpdating: #compactFlapString target: self action: #changeCompactFlap. aMenu add: 'destroy this flap' translated action: #destroyFlap. "aMenu addUpdating: #slideString action: #toggleSlideBehavior. aMenu addUpdating: #inboardString action: #toggleInboardness. aMenu addUpdating: #thicknessString ('thickness... (current: ', self thickness printString, ')') action: #setThickness." !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev July 2011