etoys-dev March 2012

etoys-dev@lists.squeakfoundation.org

17 participants
161 discussions

Etoys: Etoys-kfr.132.mcz
by commits＠source.squeak.org 18 Mar '12

18 Mar '12

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.132.mcz ==================== Summary ==================== Name: Etoys-kfr.132 Author: kfr Time: 18 March 2012, 11:55:22 am UUID: 18ff5a51-a7f6-0e4d-8148-47a717934518 Ancestors: Etoys-kfr.131 Adds 'button to show/hide this script' to the Scriptor menu. When chosen, this will produce a button which, when pressed, will show the Scriptor -- or, if the Scriptor is already showing, hide it. The resulting button can subsequently be edited via its halo in the usual ways, e.g. to change the name, the color, the balloon help. =============== Diff against Etoys-kfr.131 =============== Item was changed: ----- Method: MethodWithInterface>>renameScript:fromPlayer: (in category 'rename') ----- renameScript: newSelector fromPlayer: aPlayer "The receiver's selector has changed to the new selector. Get various things right, including the physical appearance of any Scriptor open on this method" self allScriptEditors do: [:aScriptEditor | aScriptEditor renameScriptTo: newSelector]. (selector numArgs = 0 and: [newSelector numArgs = 1]) ifTrue: [self argumentVariables: (OrderedCollection with: (Variable new name: #parameter type: #Number))]. (selector numArgs = 1 and: [newSelector numArgs = 0]) ifTrue: [self argumentVariables: OrderedCollection new]. selector _ newSelector asSymbol. self bringUpToDate. self playerClass atSelector: selector putScript: self. + self allScriptGoverningButtons do: - self allScriptActivationButtons do: [:aButton | aButton bringUpToDate]. ! Item was added: + ----- Method: ScriptEditorMorph>>buttonToOpenOrCloseThisScript (in category 'customevents-other') ----- + buttonToOpenOrCloseThisScript + "Hand the user a button which, when clicked, will show or hide this scriptor" + + | aButton | + aButton := ScriptOpeningButtonMorph new. + aButton affiliatedScriptor: self. + aButton label: aButton standardLabelForButton. + aButton color: (Color r: 0.677 g: 0.935 b: 0.484). + aButton target: self; actionSelector: #openOrCloseScriptor. + aButton setBalloonText: ('show or hide the script named {1} ' translated format: {scriptName}). + aButton openInHand! Item was changed: ----- Method: ScriptEditorMorph>>offerScriptorMenu (in category 'other') ----- offerScriptorMenu "Put up a menu in response to the user's clicking in the menu-request area of the scriptor's heaer" | aMenu count | self modernize. ActiveHand showTemporaryCursor: nil. Preferences eToyFriendly ifTrue: [^ self offerSimplerScriptorMenu]. aMenu _ MenuMorph new defaultTarget: self. aMenu addTitle: scriptName asString. aMenu addStayUpItem. "NB: the kids version in #offerSimplerScriptorMenu does not deploy the stay-up item" aMenu addList: (self hasParameter ifTrue: [{ {'remove parameter' translated. #ceaseHavingAParameter}}] ifFalse: [{ {'add parameter' translated. #addParameter}}]). self hasParameter ifFalse: [aMenu addTranslatedList: { {'button to fire this script' translatedNoop. #tearOfButtonToFireScript}. {'fires per tick...' translatedNoop. #chooseFrequency}. #- }]. aMenu addUpdating: #showingCaretsString target: self action: #toggleShowingCarets. aMenu addLine. aMenu addList: { {'edit balloon help for this script' translated. #editMethodDescription}. {'explain status alternatives' translated. #explainStatusAlternatives}. + {'button to show/hide this script' translated. #buttonToOpenOrCloseThisScript}. #- }. Preferences universalTiles ifFalse: [count _ self savedTileVersionsCount. self showingMethodPane ifFalse: "currently showing tiles" [aMenu add: 'show code textually' translated action: #toggleWhetherShowingTiles. count > 0 ifTrue: [aMenu add: 'revert to tile version...' translated action: #revertScriptVersion]. aMenu add: 'save this version' translated action: #saveScriptVersion] ifTrue: "current showing textual source" [count >= 1 ifTrue: [aMenu add: 'revert to tile version' translated action: #toggleWhetherShowingTiles]]]. "aMenu addLine. self addGoldBoxItemsTo: aMenu." aMenu addLine. aMenu add: 'grab this object' translated target: playerScripted selector: #grabPlayerIn: argument: ActiveWorld. aMenu balloonTextForLastItem: 'This will actually pick up the object bearing this script and hand it to you. Click the (left) button to drop it' translated. aMenu add: 'reveal this object' translated target: playerScripted selector: #revealPlayerIn: argument: ActiveWorld. aMenu balloonTextForLastItem: 'If you have misplaced the object bearing this script, use this item to (try to) make it visible' translated. aMenu add: 'tile representing this object' translated target: playerScripted action: #tearOffTileForSelf. aMenu balloonTextForLastItem: 'choose this to obtain a tile which represents the object associated with this script' translated. aMenu addTranslatedList: { #-. {'open viewer' translatedNoop. #openObjectsViewer. 'open the viewer of the object to which this script belongs' translatedNoop}. {'detached method pane' translatedNoop. #makeIsolatedCodePane. 'open a little window that shows the Smalltalk code underlying this script.' translatedNoop}. #-. {'destroy this script' translatedNoop. #destroyScript} }. aMenu popUpInWorld: self currentWorld. ! Item was changed: ----- Method: ScriptEditorMorph>>offerSimplerScriptorMenu (in category 'other') ----- offerSimplerScriptorMenu "Put up a menu in response to the user's clicking in the menu-request area of the scriptor's heaer. This variant is used when eToyFriendly preference is true." | aMenu count | ActiveHand showTemporaryCursor: nil. aMenu _ MenuMorph new defaultTarget: self. aMenu addTitle: scriptName asString. aMenu addList: (self hasParameter ifTrue: [{ {'remove parameter' translated. #ceaseHavingAParameter}}] ifFalse: [{ {'add parameter' translated. #addParameter}}]). self hasParameter ifFalse: [aMenu addTranslatedList: #( ('button to fire this script' tearOfButtonToFireScript) -) translatedNoop]. aMenu addUpdating: #showingCaretsString target: self action: #toggleShowingCarets. aMenu addLine. aMenu addList: { {'edit balloon help for this script' translated. #editMethodDescription}. {'explain status alternatives' translated. #explainStatusAlternatives}. + {'button to show/hide this script' translated. #buttonToOpenOrCloseThisScript}. #- }. Preferences universalTiles ifFalse: [count _ self savedTileVersionsCount. self showingMethodPane ifFalse: "currently showing tiles" [aMenu add: 'show code textually' translated action: #toggleWhetherShowingTiles. count > 0 ifTrue: [aMenu add: 'revert to tile version...' translated action: #revertScriptVersion]. aMenu add: 'save this version' translated action: #saveScriptVersion] ifTrue: "current showing textual source" [count >= 1 ifTrue: [aMenu add: 'revert to tile version' translated action: #toggleWhetherShowingTiles]]]. aMenu addLine. aMenu add: 'grab this object' translated target: playerScripted selector: #grabPlayerIn: argument: ActiveWorld. aMenu balloonTextForLastItem: 'This will actually pick up the object bearing this script and hand it to you. Click the (left) button to drop it' translated. aMenu add: 'reveal this object' translated target: playerScripted selector: #revealPlayerIn: argument: ActiveWorld. aMenu balloonTextForLastItem: 'If you have misplaced the object bearing this script, use this item to (try to) make it visible' translated. aMenu add: 'tile representing this object' translated target: playerScripted action: #tearOffTileForSelf. aMenu balloonTextForLastItem: 'choose this to obtain a tile which represents the object associated with this script' translated. aMenu addLine. aMenu addTranslatedList: #( - ('open viewer' openObjectsViewer 'open the viewer of the object to which this script belongs') - ('destroy this script' destroyScript)) translatedNoop. aMenu popUpInWorld: self currentWorld. ! Item was added: + ----- Method: ScriptEditorMorph>>openOrCloseScriptor (in category 'customevents-other') ----- + openOrCloseScriptor + "Open up the scriptor on the screen" + + self isInWorld + ifTrue: + [self delete] + ifFalse: + [self openInWorld; goHome; comeToFront]! Item was added: + SimpleButtonMorph subclass: #ScriptOpeningButtonMorph + instanceVariableNames: 'affiliatedScriptor' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Buttons'! Item was added: + ----- Method: ScriptOpeningButtonMorph>>affiliatedScriptor (in category 'accessing') ----- + affiliatedScriptor + "Answer the affiliatedScriptor" + + ^ affiliatedScriptor! Item was added: + ----- Method: ScriptOpeningButtonMorph>>affiliatedScriptor: (in category 'accessing') ----- + affiliatedScriptor: aScriptor + "Set the value of affiliatedScriptor." + + affiliatedScriptor := aScriptor! Item was added: + ----- Method: ScriptOpeningButtonMorph>>bringUpToDate (in category 'as yet unclassified') ----- + bringUpToDate + "The object's name, or the script name, or both, may have changed. Make sure I continue to look and act right" + + (self hasProperty: #labelManuallyEdited) ifFalse: + [self label: self standardLabelForButton]. + self setBalloonText: ('show or hide the script named {1} in the object named {2} ' translated format: {affiliatedScriptor scriptName. affiliatedScriptor playerScripted externalName}).! Item was added: + ----- Method: ScriptOpeningButtonMorph>>isTileScriptingElement (in category 'accessing') ----- + isTileScriptingElement + "Answer whether the receiver is a tile-scripting element." + + ^ true! Item was added: + ----- Method: ScriptOpeningButtonMorph>>labelString: (in category 'accessing') ----- + labelString: aString + "Set the labelString" + + super labelString: aString. + self setProperty: #labelManuallyEdited toValue: true! Item was added: + ----- Method: ScriptOpeningButtonMorph>>setLabelStringInitially: (in category 'accessing') ----- + setLabelStringInitially: aString + "Set the labelString initially" + + self labelString: aString. + self removeProperty: #labelManuallyEdited! Item was added: + ----- Method: ScriptOpeningButtonMorph>>standardLabelForButton (in category 'as yet unclassified') ----- + standardLabelForButton + "Answer a string to serve as a prospective label for the receiver." + + ^ affiliatedScriptor playerScripted externalName , ' ', affiliatedScriptor scriptName! Item was added: + ----- Method: UniclassScript>>allScriptGoverningButtons (in category 'script editor') ----- + allScriptGoverningButtons + + "Answer all the script-activation and script-opening buttons that exist for this interface" + + ^ (ScriptActivationButton allInstances select: + [:aButton | aButton uniclassScript == self]), + + (ScriptOpeningButtonMorph allInstances select: + [:aButton | aButton affiliatedScriptor == currentScriptEditor])!

1 0

Fwd: GSoC 2012: we're in!
by Janko Mivšek 18 Mar '12

18 Mar '12

-------- Prvotno sporočilo -------- Datum: Sat, 17 Mar 2012 11:03:30 -0300 Od: Carla Griggio <carla.griggio(a)gmail.com> Hi everybody!! I'm glad to announce that ESUG has been accepted as an organization this year :) So Google will be funding some Smalltalk projects of our choice. Soon you'll be able to find the next steps into the program at http://gsoc2012.esug.org/. Cheers! Carla Griggio & Janko Mivšek GSoC Admins

1 0

Etoys: Protocols-kfr.11.mcz
by commits＠source.squeak.org 17 Mar '12

17 Mar '12

Karl Ramberg uploaded a new version of Protocols to project Etoys: http://source.squeak.org/etoys/Protocols-kfr.11.mcz ==================== Summary ==================== Name: Protocols-kfr.11 Author: kfr Time: 17 March 2012, 11:33:56 am UUID: bbd05903-3e14-f742-82b6-1accb21a75f0 Ancestors: Protocols-kfr.10 Unlike all other vocabularies, the DateFormat vocabulary was getting added to the system's vocabulary-list by a class-initialize method of CalendarMorph, and this meant that it got lost whenever the list is rebuilt, e.g. via 'Vocabulary initialize'. =============== Diff against Protocols-kfr.10 =============== Item was changed: ----- Method: Vocabulary class>>initializeStandardVocabularies (in category 'class initialization') ----- initializeStandardVocabularies "Initialize a few standard vocabularies and place them in the AllStandardVocabularies list." AllStandardVocabularies _ nil. self addStandardVocabulary: EToyVocabulary new. self addStandardVocabulary: EToyVectorVocabulary new. self addStandardVocabulary: self newPublicVocabulary. self addStandardVocabulary: FullVocabulary new. self addStandardVocabulary: self newQuadVocabulary. self addStandardVocabulary: ColorType new. self addStandardVocabulary: BooleanType new. self addStandardVocabulary: GraphicType new. self addStandardVocabulary: PlayerType new. self addStandardVocabulary: SoundType new. self addStandardVocabulary: StringType new. self addStandardVocabulary: MenuType new. self addStandardVocabulary: UnknownType new. self addStandardVocabulary: ScriptNameType new. self addStandardVocabulary: PointType new. #('simple' 'raised' 'inset' 'complex framed' 'complex raised' 'complex inset' 'complex alt framed' 'complex alt raised' 'complex alt inset') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(simple raised inset complexFramed complexRaised complexInset complexAltFramed complexAltRaised complexAltInset); vocabularyName: #BorderStyle; yourself). #('lines' 'arrows' 'arrowheads' 'dots') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(lines arrows arrowheads dots); vocabularyName: #TrailStyle; yourself). #('left to right' 'right to left' 'top to bottom' 'bottom to top') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(leftToRight rightToLeft topToBottom bottomToTop); vocabularyName: #ListDirection; yourself). #('top left' 'bottom right' 'center' 'justified') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(topLeft bottomRight center justified); vocabularyName: #ListCentering; yourself). #('center' 'top left' 'top right' 'bottom left' 'bottom right' 'top center' 'left center' 'right center' 'bottom center') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(center topLeft topRight bottomLeft bottomRight topCenter leftCenter rightCenter bottomCenter ); vocabularyName: #CellPositioning; yourself). #('none' 'local rect' 'local square' 'global rect' 'global square') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(none localRect localSquare globalRect globalSquare); vocabularyName: #CellSpacing; yourself). #('button down' 'while pressed' 'button up') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(buttonDown whilePressed buttonUp); vocabularyName: #ButtonPhase; yourself). #('rotate' 'do not rotate' 'flip left right' 'flip up down') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(rotate #'do not rotate' #'flip left right' #'flip up down'); vocabularyName: #RotationStyle; yourself). #('rigid' 'space fill' 'shrink wrap') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(rigid spaceFill shrinkWrap); vocabularyName: #Resizing; yourself). self addStandardVocabulary: self newSystemVocabulary. "A custom vocabulary for Smalltalk -- still under development)" self numberVocabulary. "creates and adds it" self wonderlandVocabulary. "creates and adds it" self vocabularyForClass: Time. "creates and adds it" self addStandardVocabulary: (KedamaPatchType new vocabularyName: #Patch; yourself). #('wrap' 'stick' 'bouncing') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(wrap stick bouncing); vocabularyName: #EdgeMode; yourself). #('log scale' 'linear' 'color') translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(logScale linear color); vocabularyName: #PatchDisplayMode; yourself). #('left' 'right' 'top' 'bottom' 'top left' 'top right' 'bottom left' 'bottom right' center) translatedNoop. self addStandardVocabulary: (SymbolListType new symbols: #(top #'top right' right #'bottom right' bottom #'bottom left' left #'top left' center); vocabularyName: #AttachmentEdge; yourself). + CalendarMorph assureDateFormatEstablished. + "Vocabulary initialize"!

1 0

Etoys: Etoys-kfr.131.mcz
by commits＠source.squeak.org 17 Mar '12

17 Mar '12

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.131.mcz ==================== Summary ==================== Name: Etoys-kfr.131 Author: kfr Time: 17 March 2012, 11:32:37 am UUID: 847ae7c0-951b-1849-978e-17ccb104ae81 Ancestors: Etoys-bf.130 Unlike all other vocabularies, the DateFormat vocabulary was getting added to the system's vocabulary-list by a class-initialize method of CalendarMorph, and this meant that it got lost whenever the list is rebuilt, e.g. via 'Vocabulary initialize'. =============== Diff against Etoys-bf.130 =============== Item was added: + ----- Method: CalendarMorph class>>assureDateFormatEstablished (in category 'class initialization') ----- + assureDateFormatEstablished + "Make certain that there is a DateFormat vocabulary in the system's list." + + Vocabulary addStandardVocabulary: (SymbolListType new vocabularyName: #DateFormat; + symbols: #(#'dd/mm/yyyy' #'yyyy/mm/dd' #'mm/dd/yyyy')).! Item was changed: ----- Method: CalendarMorph class>>initialize (in category 'class initialization') ----- initialize + "Class initialization." - " - CalendarMorph initialize. - " + self assureDateFormatEstablished! - Vocabulary addStandardVocabulary: (SymbolListType new vocabularyName: #DateFormat; - symbols: #(#'dd/mm/yyyy' #'yyyy/mm/dd' #'mm/dd/yyyy')).!

1 0

Etoys: MorphicExtras-kfr.66.mcz
by commits＠source.squeak.org 16 Mar '12

16 Mar '12

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.66.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.66 Author: kfr Time: 16 March 2012, 10:16:12 pm UUID: 3c6e419b-67c2-e345-afc4-c121baabc0f4 Ancestors: MorphicExtras-kfr.65 Fix vertical resize of supplies flap SQ-1046 =============== Diff against MorphicExtras-kfr.65 =============== Item was changed: ----- Method: Flaps class>>newSuppliesFlapFromQuads:positioning:withPreviousEntries: (in category 'predefined flaps') ----- newSuppliesFlapFromQuads: quads positioning: positionSymbol withPreviousEntries: aCollection "Answer a fully-instantiated flap named 'Supplies' to be placed at the bottom of the screen. Use #center as the positionSymbol to have it centered at the bottom of the screen, or #right to have it placed off near the right edge." | aFlapTab aStrip aWidth sugarNavigator | sugarNavigator _ Preferences sugarNavigator. aStrip _ PartsBin newPartsBinWithOrientation: #leftToRight andColor: Color gray muchLighter from: quads withPreviousEntries: aCollection. self twiddleSuppliesButtonsIn: aStrip. aFlapTab _ (sugarNavigator ifTrue: [SolidSugarSuppliesTab] ifFalse: [FlapTab]) new referent: aStrip beSticky. aFlapTab setName: 'Supplies' translated edge: (sugarNavigator ifTrue: [#top] ifFalse: [#bottom]) color: Color red lighter. aFlapTab position: (0 @ ActiveWorld sugarAllowance). aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu. aFlapTab applyThickness: 20. aWidth := ActiveWorld width. aStrip extent: ActiveWorld width @ (76 * (1 + (1350 // aWidth))). aStrip beFlap: true. aStrip autoLineLayout: true. + aStrip vResizeToFit: true. sugarNavigator ifTrue: [ aFlapTab useSolidTab. aFlapTab height: 20; color: (Color r: 0.804 g: 0.804 b: 0.804). ] ifFalse: [ aFlapTab color: Color red lighter ]. ^ aFlapTab "Flaps replaceGlobalFlapwithID: 'Supplies' translated"!

1 0

Etoys: Etoys-bf.130.mcz
by commits＠source.squeak.org 16 Mar '12

16 Mar '12

Bert Freudenberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-bf.130.mcz ==================== Summary ==================== Name: Etoys-bf.130 Author: bf Time: 16 March 2012, 11:05:09 am UUID: 399d4329-3daf-4c48-a0bc-ab899443ca4a Ancestors: Etoys-bf.129 label fix ('texutally') =============== Diff against Etoys-bf.129 =============== Item was changed: ----- Method: Player>>basicRenameSlot:newSlotName: (in category 'slots-user') ----- basicRenameSlot: oldSlotName newSlotName: newSlotName "Give an existing instance variable a new name" self class renameSilentlyInstVar: oldSlotName to: newSlotName. self renameSlotInWatchersOld: oldSlotName new: newSlotName. self regenerateScripts. self updateAllViewers. self presenter allExtantPlayers do: [:aPlayer | (aPlayer hasScriptReferencing: oldSlotName ofPlayer: self) ifTrue: [aPlayer noteRenameOf: oldSlotName to: newSlotName inPlayer: self]]. self presenter hasAnyTextuallyCodedScripts ifTrue: [self inform: + 'Caution!! References in textually-coded scripts won''t be renamed.' translated]. - 'Caution!! References in texutally coded scripts won''t be renamed.' translated]. ^ true!

1 0

Etoys: Etoys-bf.129.mcz
by commits＠source.squeak.org 16 Mar '12

16 Mar '12

Bert Freudenberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-bf.129.mcz ==================== Summary ==================== Name: Etoys-bf.129 Author: bf Time: 16 March 2012, 10:57:01 am UUID: 336cf039-1cae-438a-bf1e-b0a2cbf19ade Ancestors: Etoys-kfr.128 properly fix missing ')' in menu SQ-1044 =============== Diff against Etoys-kfr.128 =============== Item was changed: ----- Method: FollowingWatcher>>addCustomMenuItems:hand: (in category 'accessing') ----- addCustomMenuItems: aMenu hand: aHand "Add morph-specific items to a menu." aMenu addUpdating: #attachmentEdgeString action: #chooseAttachmentEdge. + aMenu add: ('offset (currently {1})' translated format: {offset printString}) action: #chooseOffset. - aMenu add: (('offset (currently {1}' translated format: {offset printString}), ')') action: #chooseOffset. aMenu balloonTextForLastItem: 'fine-tune the position of this watcher relative to its chosen attachment edge' translated!

1 0

three quick fixes
by Scott Wallace 15 Mar '12

15 Mar '12

The attached fileout arises out of the Educators' online meeting today. ---- Change Set: threeThings-sw Date: 15 March 2012 Author: Scott Wallace 1. Change the order in which the items appear in the 'pen use' category of the viewer, as per request from Avigail. 2. Remove the 'scriptable button' from the supplies flap, and in its place offer a Polygon. This change won't immediately be apparent after this code is loaded, but will show up on the next build, and can be seen in current beta images if you use the flaps menu to 'destroy all shared flaps', then 'install olpc etoy flaps'. 3. Slight adjustment in parameters that define the example x-y plane, to make the way tick-marks on the two axes line up on the underlying grid more uniform. ---- Sorry for again bypassing the tracker and instead sending this as an old-fashioned change-set, with three quite different tweaks, but with the clock ticking ever more loudly, I wanted to get these fixes out quickly. Karl -- thank you, as ever, for getting these into the update stream :) -- Scott

2 1

Etoys: MorphicExtras-kfr.65.mcz
by commits＠source.squeak.org 15 Mar '12

15 Mar '12

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.65.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.65 Author: kfr Time: 15 March 2012, 11:01:32 pm UUID: f936855e-86b9-487f-9adb-e492df16161a Ancestors: MorphicExtras-kfr.64 1. Change the order in which the items appear in the 'pen use' category of the viewer, as per request from Avigail. 2. Remove the 'scriptable button' from the supplies flap, and in its place offer a Polygon. This change won't immediately be apparent after this code is loaded, but will show up on the next build, and can be seen in current beta images if you use the flaps menu to 'destroy all shared flaps', then 'install olpc etoy flaps'. =============== Diff against MorphicExtras-kfr.64 =============== Item was changed: ----- Method: EToyVocabulary>>masterOrderingOfPhraseSymbols (in category '*morphicExtras-Charts') ----- masterOrderingOfPhraseSymbols "Answer a dictatorially-imposed presentation list of phrase-symbols. This governs the order in which suitable phrases are presented in etoy viewers using the etoy vocabulary. For any given category, the default implementation is that any items that are in this list will occur first, in the order specified here; after that, all other items will come, in alphabetic order by formal selector." ^ #(beep: forward: turn: getX getY getLocationRounded getHeading getScaleFactor getLeft getRight getTop getBottom getLength getWidth getTheta getDistance getHeadingTheta getUnitVector startScript: pauseScript: stopScript: startAll: pauseAll: stopAll: tellAllSiblings: doScript: + clearOwnersPenTrails getPenDown getPenSize getPenColor getTrailStyle getDotSize + getColor getUseGradientFill getSecondColor getRadialGradientFill getBorderWidth getBorderColor getBorderStyle getRoundedCorners getDropShadow getShadowColor getVolume play playUntilPosition: stop rewind getIsRunning getRepeat getPosition getTotalFrames getTotalSeconds getFrameGraphic getVideoFileName getSubtitlesFileName getGraphic getBaseGraphic getAllowEtoyUserCustomEvents #getAutoExpansion #getAutoLineLayout #getBatchPenTrails getDropProducesWatcher #getFenceEnabled #getIndicateCursor #getIsOpenForDragNDrop #getIsPartsBin #getMouseOverHalos #getOriginAtCenter #getShowThumbnail getFenceEnabled getKeepTickingWhilePainting getOliveHandleForScriptedObjects getUseVectorVocabulary #getRed #getGreen #getBlue #getAlpha #getHue #getBrightness #getSaturation getLeftEdgeMode getRightEdgeMode getTopEdgeMode getBottomEdgeMode getPixelsPerPatch addToPatchDisplayList: addToTurtleDisplayList: removeAllFromPatchDisplayList removeAllFromTurtleDisplayList clear diffusePatchVariable decayPatchVariable getDiffusionRate getEvaporationRate getSniffRange getDisplayType getDisplayScaleMax getDisplayShiftAmount getPatchValueIn: die getUphillIn: getTurtleVisible getReplicated getTurtleOf: getAngleTo: getDistanceTo: bounceOn: bounceOnColor: getVertexCursor getVerticesCount getXAtCursor getYAtCursor prependVertex insertVertexAtCursor appendVertex removeAllButCursor removeVertexAtCursor shuffleVertices getLineCurved getLineOpened getShowingHandles getDate getDay getMonth getYear getDayName getMonthName getDateFormat goToToday getJulianDay getMinVal getMaxVal getPixelsPerUnit getUnitsPerMark getMarksPerLegend getShowNegativeArrowHead getShowZero)! Item was changed: ----- Method: Flaps class>>defaultsQuadsDefiningPlugInSuppliesFlap (in category 'predefined flaps') ----- defaultsQuadsDefiningPlugInSuppliesFlap "Answer a list of quads which define the objects to appear in the default Supplies flap used in the Plug-in image" ^ { {#ObjectsTool. #newStandAlone. 'Object Catalog' translatedNoop. 'A tool that lets you browse the catalog of available objects' translatedNoop}. {#AllScriptsTool. #allScriptsToolForActiveWorld. 'All Scripts' translatedNoop. 'Stop, Step, and Go buttons for controlling all your scripts at once. The tool can also be "opened up" to control each script in your project individually.' translatedNoop}. {#AllPlayersTool. #allPlayersToolForActiveWorld. 'Players' translatedNoop. 'A tool listing all the scripted objects in the project.' translatedNoop}. {#TrashCanMorph. #new . 'Trash' translatedNoop. 'A tool for discarding objects' translatedNoop}. {#TextMorph . #authoringPrototype. 'Text' translatedNoop. 'Text that you can edit into anything you desire.' translatedNoop}. {#RecordingControls. #authoringPrototype. 'Sound Recorder' translatedNoop. 'A device for making sound recordings.' translatedNoop}. {#RectangleMorph. #authoringPrototype. 'Rectangle' translatedNoop. 'A rectangle' translatedNoop}. {#EllipseMorph. #authoringPrototype. 'Ellipse' translatedNoop. 'An ellipse or circle' translatedNoop}. {#StarMorph. #authoringPrototype. 'Star' translatedNoop. 'A star' translatedNoop}. {#BookMorph. #authoringPrototype. 'Book' translatedNoop. 'A multi-paged structure' translatedNoop}. {#ScriptingSystem. #prototypicalHolder. 'Holder' translatedNoop. 'A place for storing alternative pictures in an animation, etc.' translatedNoop}. {#JoystickMorph . #authoringPrototype. 'Joystick' translatedNoop. 'A joystick-like control' translatedNoop}. {#PasteUpMorph. #authoringPrototype. 'Playfield' translatedNoop. 'A place for assembling parts or for staging animations' translatedNoop}. {#FlapTab. #authoringPrototype. 'Flap' translatedNoop. FlapTab helpMessage}. + " {#ScriptableButton. #authoringPrototype. 'Button' translatedNoop. 'A button to use with tile scripting; its script will be a method of its containing playfield' translatedNoop}." + {#PolygonMorph. #authoringPrototype. 'Polygon' translatedNoop. 'A straight-sided figure with any number of sides' translatedNoop}. - {#ScriptableButton. #authoringPrototype. 'Button' translatedNoop. 'A button to use with tile scripting; its script will be a method of its containing playfield' translatedNoop}. {#SimpleSliderMorph. #authoringPrototype. 'Slider' translatedNoop. 'A slider for showing and setting numeric values.' translatedNoop}. {#GrabPatchMorph. #authoringPrototype. 'Grab patch' translatedNoop. 'Make a new "Sketch" by designating a rectangular area of the screen' translatedNoop}. {#LassoPatchMorph. #authoringPrototype. 'Lasso' translatedNoop. 'Make a new "Sketch" by "lassoing" an area of the screen' translatedNoop}. } asOrderedCollection!

1 0

Etoys: Morphic-kfr.87.mcz
by commits＠source.squeak.org 15 Mar '12

15 Mar '12

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.87.mcz ==================== Summary ==================== Name: Morphic-kfr.87 Author: kfr Time: 15 March 2012, 10:52:08 pm UUID: d52080e7-e1d8-4c55-82a9-65d2bae064bb Ancestors: Morphic-bf.85 Slight adjustment in parameters that define the x-y plane, to make the way tick-marks on the two axes line up on the underlying grid more uniform. =============== Diff against Morphic-bf.85 =============== Item was changed: ----- Method: GraphPaperPanel class>>classicCartesianGraph (in category 'examples') ----- classicCartesianGraph "Answer a nicely configured playfield with horizontal and vertical axes and a background well-suited for determining units on the plane." | aPlayfield horiz vert pixelsPerUnit parms | aPlayfield := PasteUpMorph new extent: 642 @ 642. horiz := HorizontalNumberLineMorph new. horiz width: 640. aPlayfield addMorphBack: horiz. vert := VerticalNumberLineMorph new. vert height: 640. aPlayfield addMorphBack: vert. pixelsPerUnit := 16. horiz center: (aPlayfield center + (0 @ -2)). vert center: (aPlayfield center + (-14 @ -2)). horiz minValue: -20 pixelsPerUnit: pixelsPerUnit unitsPerMark: 1 marksPerLegend: 5. vert minValue: -20 pixelsPerUnit: pixelsPerUnit unitsPerMark: 1 marksPerLegend: 5. horiz registerGraphCoordinate: 0 atPlayfieldLocation: 322. vert registerGraphCoordinate: 0 atPlayfieldLocation: 318. vert showZero: false. parms := GraphPaperParameters backgroundColor: Color green muchLighter gridColor: Color blue muchLighter gridEvery: 16 showDarkerGridAlso: true darkerGridColor: Color blue muchDarker darkerGridEvery: 10 offset: (0 @ 0). aPlayfield establishGraphPaperFrom: parms. horiz update. vert update. "temporary fudges to get this basically looking right, though there had been hope that the above attempts would have already succeded..." WorldState addDeferredUIMessage: + [vert y: 296. - [vert y: 294. vert maxValue: 20. horiz y: 314. horiz maxValue: 20]. ^ aPlayfield " GraphPaperPanel classicCartesianGraph openInHand "!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
17
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev March 2012