etoys-dev March 2012

etoys-dev@lists.squeakfoundation.org

17 participants
161 discussions

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

05 Mar '12

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.82.mcz ==================== Summary ==================== Name: Morphic-kfr.82 Author: kfr Time: 5 March 2012, 9:03:03 pm UUID: f9891cac-5355-ee47-86fb-f69e5deeba55 Ancestors: Morphic-kfr.81 Change Set: graphingFixes-sw Date: 4 March 2012 Author: Scott Wallace Addresses various bug-reports and recommendations relating to recent number-line and graph-paper updates: - Enforce reasonable ranges for the sliders governing the grid parameters, taking the grid-size, coarse-grid-size , and playfield dimensions into account. - Provide a button to request 'graph paper' from the 'generic property sheet' when appropriate. - Retain position of number line when its pixelsPerUnit changes. - Disable the 'offset' when coarse-grid in effect. - Protect sliders against zero-divide that can happen if minVal = maxVal. - Protect InfiniteForms against incidental calls to #darker and #twiceDarker that can be sent to any object's fillStyle by some of the custom border code. - Removes about a dozen superfluous methods that had mistakenly lingered in the earlier updates, and removes three inst vars of NumberLineMorph that were remnants from earlier code =============== Diff against Morphic-kfr.81 =============== Item was changed: ----- Method: GraphPaperPanel>>adjustOffset: (in category 'adjusting parameters') ----- adjustOffset: aFractionalPoint "Adjust the offset to reflect the value embodied in the argument supplied." + | constrained | + constrained := aFractionalPoint min: (1 @ 1) max: (-1 @ -1). + offset := (constrained * self gridEvery asPoint) rounded. - offset := (aFractionalPoint * self extent) rounded. self showSliderFeedback: offset. self makeToolReflectCurrentSettings! Item was changed: ----- Method: GraphPaperPanel>>darkerGridEvery: (in category 'accessing') ----- darkerGridEvery: aNumber "Set the value of darkerGridEvery." darkerGridEvery := aNumber rounded. + self harmonizeGridEvery. self makeToolReflectCurrentSettings! Item was changed: ----- Method: GraphPaperPanel>>doEnables (in category 'private') ----- doEnables "Carry out appropriate enablings within the receiver's interior." + | itsName existing | + existing := darkerGridEvery. + self harmonizeCoarseGrid. + existing = darkerGridEvery ifFalse: + [self makeToolReflectCurrentSettings]. + - | itsName | self allMorphsDo: [ :each | itsName := each knownName. (#(pickerForDarkerGrid darkerGridEvery) includes: itsName) ifTrue: + [self enable: each when: self showDarkerGridAlso]. + (#(offset) includes: itsName) ifTrue: + [self enable: each when: true]]! - [self enable: each when: self showDarkerGridAlso]]! Item was changed: ----- Method: GraphPaperPanel>>gridEvery: (in category 'accessing') ----- gridEvery: aNumber "Set the value of gridEvery" gridEvery := aNumber rounded. + self harmonizeCoarseGrid. self makeToolReflectCurrentSettings! Item was added: + ----- Method: GraphPaperPanel>>harmonizeCoarseGrid (in category 'adjusting parameters') ----- + harmonizeCoarseGrid + "The pixelsPerUnit having changed, reconsider 'darkerGridEvery' and the slider that governs it." + + | aSlider maxGridEvery | + maxGridEvery := self maxValueForCoarseGrid. + darkerGridEvery := darkerGridEvery min: maxGridEvery max: 2. + aSlider := self deepSubpartNamed: #darkerGridEverySlider. + aSlider ifNotNil: + [aSlider setMaxVal: maxGridEvery. + aSlider adjustToValue: darkerGridEvery] + + ! Item was added: + ----- Method: GraphPaperPanel>>harmonizeGridEvery (in category 'adjusting parameters') ----- + harmonizeGridEvery + "Other metrics having possibly changed, make sure the gridEvery variable is within range and that its slider offers a reasonable range of values." + + | aSlider maxGridEvery | + maxGridEvery := self maxValueForGridEvery. + gridEvery := gridEvery min: maxGridEvery max: 10. + aSlider := self deepSubpartNamed: #gridEverySlider. + aSlider ifNotNil: + [aSlider setMaxVal: maxGridEvery. + aSlider adjustToValue: gridEvery] + + ! Item was changed: ----- Method: GraphPaperPanel>>initialize (in category 'initialization') ----- initialize "Initialize the receiver. Notice that, because of GenericPropertiesMorph's custom, 'myTarget' is already set before this is called." | existing toUse | super initialize. existing := myTarget renderedMorph valueOfProperty: #graphPaperParameters. toUse := existing ifNotNil: [existing deepCopy] ifNil: [GraphPaperParameters new]. backgroundColor := existing ifNotNil: [toUse backgroundColor] ifNil: [myTarget color asColor]. gridColor := toUse gridColor. gridEvery := toUse gridEvery. showDarkerGridAlso := toUse showDarkerGridAlso. darkerGridColor := toUse darkerGridColor. darkerGridEvery := toUse darkerGridEvery. + offset := toUse showDarkerGridAlso ifTrue: [toUse offset] ifFalse: [0 @ 0]. - offset := toUse offset. thingsToRevert at: #fillStyle: put: myTarget fillStyle. self rebuild. self makeToolReflectCurrentSettings ! Item was added: + ----- Method: GraphPaperPanel>>maxValueForCoarseGrid (in category 'adjusting parameters') ----- + maxValueForCoarseGrid + "Given the pixelsPerUnit and the dimensions of my target, determine and answer a plausible maximum value for the coarse-grid multiplier." + + | maxDimension | + maxDimension := myTarget width max: myTarget height. + ^ ((maxDimension // gridEvery) - 1) max: 2! Item was added: + ----- Method: GraphPaperPanel>>maxValueForGridEvery (in category 'adjusting parameters') ----- + maxValueForGridEvery + "Answer the largest plausible value for gridEvery" + + | maxDimension | + maxDimension := myTarget width max: myTarget height. + ^ self showDarkerGridAlso + ifTrue: + [maxDimension // darkerGridEvery] + ifFalse: + [(maxDimension - 1) max: 10]! Item was changed: ----- Method: GraphPaperPanel>>paneForDarkerGridEvery (in category 'panes') ----- paneForDarkerGridEvery "Answer a pane for the darkerGridEvery datum." | aSlider | aSlider := SimpleSliderMorph new color: color darker; extent: 100@28; target: self; minVal: 2; maxVal: 40; actionSelector: #darkerGridEvery:; + setNameTo: #darkerGridEverySlider; adjustToValue: self darkerGridEvery. ^ (self inARow: { (UpdatingStringMorph new) getSelector: #darkerGridEvery; putSelector: #darkerGridEvery:; target: self; growable: false; decimalPlaces: 0; minimumWidth: 40; maximumWidth: 40; yourself. aSlider}) setNameTo: #darkerGridEvery; yourself! Item was changed: ----- Method: GraphPaperPanel>>paneForGridEvery (in category 'panes') ----- paneForGridEvery "Answer a pane to govern the gridEvery datum." | aSlider | aSlider := SimpleSliderMorph new color: color darker; extent: 100@28; target: self; minVal: 4; maxVal: 360; actionSelector: #gridEvery:; + setNameTo: #gridEverySlider; adjustToValue: self gridEvery. ^ self inARow: { self lockedString: ('grid size' translated, ' '). (UpdatingStringMorph new) getSelector: #gridEvery; putSelector: #gridEvery:; target: self; growable: false; decimalPlaces: 0; minimumWidth: 40; maximumWidth: 40; yourself. aSlider}! Item was changed: ----- Method: GraphPaperPanel>>paneForOffset (in category 'panes') ----- paneForOffset "Answer a pane for the Offset button." + | aPane | + aPane := (self inARow: { - ^ (self inARow: { self buildFakeSlider: 'Offset' translated selector: #adjustOffset: help: 'Drag in here to change the offset' translated + }) hResizing: #shrinkWrap. + aPane setNameTo: #offset. + ^ aPane - }) hResizing: #shrinkWrap ! Item was changed: ----- Method: GraphPaperPanel>>toggleShowDarkerGridAlso (in category 'adjusting parameters') ----- toggleShowDarkerGridAlso "Toggle whether a secondary grid should be shown." showDarkerGridAlso := self showDarkerGridAlso not. + showDarkerGridAlso ifTrue: [offset := 0]. self rebuild. self doEnables. self makeToolReflectCurrentSettings! Item was added: + ----- Method: Morph>>deepSubpartNamed: (in category 'accessing') ----- + deepSubpartNamed: aName + "Answer, from anywhere in the morph tree beneath the receiver, a subpart of the given name -- nil if none." + + ^ self allMorphs detect: [:m | m externalName = aName] ifNone: [nil]! Item was added: + ----- Method: Morph>>wantsGraphPaperAlternative (in category 'testing') ----- + wantsGraphPaperAlternative + "Answer whether the receiver woud be willing to adopt graph paper as a fill style." + + ^ false! Item was added: + ----- Method: PasteUpMorph>>wantsGraphPaperAlternative (in category 'testing') ----- + wantsGraphPaperAlternative + "Answer whether the receiver woud be willing to adopt graph paper as a fill style." + + ^ true!

1 0

Etoys: Etoys-kfr.114.mcz
by commits＠source.squeak.org 05 Mar '12

05 Mar '12

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.114.mcz ==================== Summary ==================== Name: Etoys-kfr.114 Author: kfr Time: 5 March 2012, 8:56:49 pm UUID: bd972f5f-ee95-dc4a-ac3f-8b79e04bb853 Ancestors: Etoys-kfr.113 Change Set: graphingFixes-sw Date: 4 March 2012 Author: Scott Wallace Addresses various bug-reports and recommendations relating to recent number-line and graph-paper updates: - Enforce reasonable ranges for the sliders governing the grid parameters, taking the grid-size, coarse-grid-size , and playfield dimensions into account. - Provide a button to request 'graph paper' from the 'generic property sheet' when appropriate. - Retain position of number line when its pixelsPerUnit changes. - Disable the 'offset' when coarse-grid in effect. - Protect sliders against zero-divide that can happen if minVal = maxVal. - Protect InfiniteForms against incidental calls to #darker and #twiceDarker that can be sent to any object's fillStyle by some of the custom border code. - Removes about a dozen superfluous methods that had mistakenly lingered in the earlier updates, and removes three inst vars of NumberLineMorph that were remnants from earlier code =============== Diff against Etoys-kfr.113 =============== Item was added: + ----- Method: GenericPropertiesMorph>>doGraphPaper (in category 'graph paper') ----- + doGraphPaper + "Switch to graph paper as a fill style." + + self putUpGraphPaperPanel! Item was added: + ----- Method: GenericPropertiesMorph>>putUpGraphPaperPanel (in category 'graph paper') ----- + putUpGraphPaperPanel + "Adopt a graph-paper fill." + + myTarget makeGraphPaper. + self delete. + !

1 0

Etoys: Connectors-kfr.194.mcz
by commits＠source.squeak.org 05 Mar '12

05 Mar '12

Karl Ramberg uploaded a new version of Connectors to project Etoys: http://source.squeak.org/etoys/Connectors-kfr.194.mcz ==================== Summary ==================== Name: Connectors-kfr.194 Author: kfr Time: 5 March 2012, 8:56:01 pm UUID: 383b9527-38a4-954e-bbc2-954808e0c54b Ancestors: Connectors-kfr.193 Change Set: graphingFixes-sw Date: 4 March 2012 Author: Scott Wallace Addresses various bug-reports and recommendations relating to recent number-line and graph-paper updates: - Enforce reasonable ranges for the sliders governing the grid parameters, taking the grid-size, coarse-grid-size , and playfield dimensions into account. - Provide a button to request 'graph paper' from the 'generic property sheet' when appropriate. - Retain position of number line when its pixelsPerUnit changes. - Disable the 'offset' when coarse-grid in effect. - Protect sliders against zero-divide that can happen if minVal = maxVal. - Protect InfiniteForms against incidental calls to #darker and #twiceDarker that can be sent to any object's fillStyle by some of the custom border code. - Removes about a dozen superfluous methods that had mistakenly lingered in the earlier updates, and removes three inst vars of NumberLineMorph that were remnants from earlier code =============== Diff against Connectors-kfr.193 =============== Item was changed: ----- Method: ObjectPropertiesMorph>>addOptionalButtonsTo: (in category '*connectors-visual properties') ----- addOptionalButtonsTo: aCollection "Add optional buttons to the tableau." aCollection addLast: (self transparentSpacerOfSize: 20 @ 3). "aCollection addLast: (self buttonNamed: 'Button' translated action: #doButtonProperties color: color lighter help: 'open a button properties panel for the morph' translated)." + + myTarget wantsGraphPaperAlternative + ifTrue: + [aCollection + addLast: (self + buttonNamed: 'Graph paper' translated + action: #doGraphPaper + color: color lighter + help: 'adopt graph paper as fill style' translated)]. + myTarget wantsTextPropertiesSheet ifTrue: [aCollection addLast: (self buttonNamed: 'Text' translated action: #doTextProperties color: color lighter help: 'open a text properties panel for the morph' translated)]. myTarget wantsConnectorPropertiesSheet ifTrue: [aCollection addLast: (self buttonNamed: 'Connector' translated action: #doConnectorProperties color: color lighter help: 'open a Connector properties panel for the morph' translated)]. ^ aCollection!

1 0

[SVN][1104] Release-HowTo.txt: explanation of how to add example projects to the gallery
by commits＠etoys.squeak.org 04 Mar '12

04 Mar '12

Repository: http://etoys.squeak.org/svn Revision: 1104 Author: bf Date: 2012-03-04 18:57:03 +0000 (Sun, 04 Mar 2012) Log Message: ----------- Release-HowTo.txt: explanation of how to add example projects to the gallery Modified Paths: -------------- trunk/Documentation/Release-HowTo.txt

1 0

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

04 Mar '12

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.81.mcz ==================== Summary ==================== Name: Morphic-kfr.81 Author: kfr Time: 4 March 2012, 3:34:47 pm UUID: 90add4b0-4d3b-de47-b4ad-d2fee1d0d755 Ancestors: Morphic-kfr.80 Update for moved methods =============== Diff against Morphic-kfr.80 =============== Item was removed: - ----- Method: HaloMorph>>openViewerForTarget:with: (in category 'handles') ----- - openViewerForTarget: evt with: aHandle - "Open a viewer for my inner target" - - self obtainHaloForEvent: evt andRemoveAllHandlesBut: nil. - innerTarget openViewerForArgument! Item was removed: - ----- 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 submorphs isEmpty ifFalse: [ - aMenu add: 'extras...' translated subMenu: subMenu - ].! Item was removed: - ----- Method: PasteUpMorph class>>descriptionForPartsBin (in category 'parts bin') ----- - descriptionForPartsBin - ^ self partName: 'Playfield' translatedNoop - categories: {'Basic' translatedNoop} - documentation: 'A place for assembling parts or for staging animations' translatedNoop!

1 0

Etoys: Etoys-kfr.113.mcz
by commits＠source.squeak.org 04 Mar '12

04 Mar '12

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.113.mcz ==================== Summary ==================== Name: Etoys-kfr.113 Author: kfr Time: 4 March 2012, 3:30:12 pm UUID: 9d5f8159-680c-0c41-9e50-f8f3b4fc342f Ancestors: Etoys-kfr.112 Notice moved method =============== Diff against Etoys-kfr.112 =============== Item was removed: - ----- Method: EToyVocabulary>>masterOrderingOfPhraseSymbols (in category 'method list') ----- - 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: - - 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 - - - )!

1 0

Etoys: Collections-kfr.8.mcz
by commits＠source.squeak.org 04 Mar '12

04 Mar '12

Karl Ramberg uploaded a new version of Collections to project Etoys: http://source.squeak.org/etoys/Collections-kfr.8.mcz ==================== Summary ==================== Name: Collections-kfr.8 Author: kfr Time: 4 March 2012, 2:25:22 pm UUID: 495f8cf3-0787-9441-a5e0-040b750b52c8 Ancestors: Collections-bf.7 Change the bumper that is put out at the front of a .pr file so if it is encountered by an older version of etoys, instead of simply refusing to load, it now describes the problem to the user and gives the option of proceeding anyway. Note: also retains the older bumper guard against loading into even older systems. Pre-olpc-era projects can still not be loaded =============== Diff against Collections-bf.7 =============== Item was changed: ----- Method: ReadWriteStream>>fileOutVersionCheckNotification (in category 'fileIn/Out') ----- fileOutVersionCheckNotification + "Put a version-check bumper onto the project stream." self nextChunkPut: ' | cont | (Smalltalk includesKey: #MorphExtensionPlus) ifFalse: [self inform: ''This project cannot be loaded into an older system.\Please use an OLPC Etoys compatible image.'' translated withCRs. cont _ thisContext. [cont notNil] whileTrue: [ cont selector == #handleEvent: ifTrue: [cont return: nil]. cont _ cont sender. ]]'; cr. + + self nextChunkPut: ' | cont | (Smalltalk includesKey: #CalendarMorph) ifFalse: + [(self confirm: ''This project was created from a more recent\version of Etoys, and may not load or\work properly in an older system.\Ideally use Etoys 5.0 or newer\proceed anyway?'' translated withCRs) ifFalse: + [cont _ thisContext. + [cont notNil] whileTrue: [ + cont selector == #handleEvent: ifTrue: [cont return: nil]. + cont _ cont sender. + ]]]'; cr. !

1 0

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

03 Mar '12

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.60.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.60 Author: kfr Time: 3 March 2012, 4:53:19 pm UUID: 14e74f78-4bf1-a64a-a745-f0c5dae69e27 Ancestors: MorphicExtras-kfr.59 More numbered lines =============== Diff against MorphicExtras-kfr.59 =============== Item was added: + ----- 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: + + 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 added: + ----- Method: Morph class>>additionsToViewerCategoryGraphing (in category '*morphicExtras-Charts') ----- + additionsToViewerCategoryGraphing + "answer additions to the graphing viewer category" + + ^ #(graphing + ( + (slot xOnGraph 'If there is a horizontal axis present, gives the horizontal coordinate of the center of this object with respect to that axis ' Number readWrite Player getXOnGraph Player setXOnGraph:) + (slot yOnGraph 'If there is a vertical axis present, gives the vertical coordinate of the center of this object with respect to that axis ' Number readWrite Player getYOnGraph Player setYOnGraph:) + (slot locationOnGraph 'If there is are axes present, gives the coordinate of the center of this object with respect to those axes ' Point readWrite Player getLocationOnGraph Player setLocationOnGraph:)))! Item was added: + ----- Method: Player>>fitPlayfield (in category '*morphicExtras-Charts') ----- + fitPlayfield + "For number-lines: command to extend/contract the line so that it fits entirely within the containing playfield to which it pertains." + + costume fitPlayfield! Item was added: + ----- Method: Player>>getIncrement (in category '*morphicExtras-Charts') ----- + getIncrement + ^ self getValueFromCostume: #increment! Item was added: + ----- Method: Player>>getLocationOnGraph (in category '*morphicExtras-Charts') ----- + getLocationOnGraph + "Answer the x-y with respect to a corresponding axis, if any; if none, for a dimension, use the simple x or y coordinate for it." + + ^ (self getXOnGraph @ self getYOnGraph) asFloatPoint! Item was added: + ----- Method: Player>>getMarksPerLegend (in category '*morphicExtras-Charts') ----- + getMarksPerLegend + ^ self getValueFromCostume: #marksPerLegend! Item was added: + ----- Method: Player>>getPixelsPerUnit (in category '*morphicExtras-Charts') ----- + getPixelsPerUnit + "Answer the number of pixels per unit on a number line" + + ^ costume renderedMorph pixelsPerUnit! Item was added: + ----- Method: Player>>getShowNegativeArrowHead (in category '*morphicExtras-Charts') ----- + getShowNegativeArrowHead + ^ self getValueFromCostume: #showNegativeArrowHead! Item was added: + ----- Method: Player>>getShowZero (in category '*morphicExtras-Charts') ----- + getShowZero + ^ self getValueFromCostume: #showZero! Item was added: + ----- Method: Player>>getTicksPerLegend (in category '*morphicExtras-Charts') ----- + getTicksPerLegend + ^ self getValueFromCostume: #ticksPerLegend! Item was added: + ----- Method: Player>>getUnitsPerMark (in category '*morphicExtras-Charts') ----- + getUnitsPerMark + ^ self getValueFromCostume: #unitsPerMark! Item was added: + ----- Method: Player>>getXOnGraph (in category '*morphicExtras-Charts') ----- + getXOnGraph + "Answer the x-coordinate with respect to a corresponding horizontal axis, if any; if none, answer the cartesian x" + + | aCostume | + (aCostume _ self costume) isInWorld ifFalse: [^ self getX]. + + (aCostume referencePlayfield findA: HorizontalNumberLineMorph) ifNotNilDo: + [:aNumberLine | + ^ aNumberLine horizontalCoordinateOf: aCostume]. + ^ self getX! Item was added: + ----- Method: Player>>getYOnGraph (in category '*morphicExtras-Charts') ----- + getYOnGraph + "Answer the y-coordinate with respect to a corresponding horizontal axis, if any; if none, answer the cartesian x" + + | aCostume | + (aCostume := self costume) isInWorld ifFalse: [^ self getY]. + + (aCostume referencePlayfield findA: VerticalNumberLineMorph) ifNotNilDo: + [:aNumberLine | + ^ aNumberLine verticalCoordinateOf: aCostume]. + ^ self getY! Item was added: + ----- Method: Player>>setLocationOnGraph: (in category '*morphicExtras-Charts') ----- + setLocationOnGraph: aPoint + "Set the location of the object to a given value, with respect to the axes found in the host playfield." + + self setXOnGraph: aPoint x asFloat. + self setYOnGraph: aPoint y asFloat! Item was added: + ----- Method: Player>>setMarksPerLegend: (in category '*morphicExtras-Charts') ----- + setMarksPerLegend: aValue + self setCostumeSlot: #marksPerLegend: toValue: aValue! Item was added: + ----- Method: Player>>setPixelsPerUnit: (in category '*morphicExtras-Charts') ----- + setPixelsPerUnit: aNumber + self setCostumeSlot: #pixelsPerUnit: toValue: aNumber! Item was added: + ----- Method: Player>>setShowNegativeArrowHead: (in category '*morphicExtras-Charts') ----- + setShowNegativeArrowHead: aBoolean + self setCostumeSlot: #showNegativeArrowHead: toValue: aBoolean! Item was added: + ----- Method: Player>>setShowZero: (in category '*morphicExtras-Charts') ----- + setShowZero: aBoolean + self setCostumeSlot: #showZero: toValue: aBoolean! Item was added: + ----- Method: Player>>setTicksPerLegend: (in category '*morphicExtras-Charts') ----- + setTicksPerLegend: aNumber + self setCostumeSlot: #ticksPerLegend toValue: aNumber! Item was added: + ----- Method: Player>>setUnitsPerMark: (in category '*morphicExtras-Charts') ----- + setUnitsPerMark: aValue + self setCostumeSlot: #unitsPerMark: toValue: aValue! Item was added: + ----- Method: Player>>setUnitsPerTick: (in category '*morphicExtras-Charts') ----- + setUnitsPerTick: aNumber + self setCostumeSlot: #unitsPerTick: toValue: aNumber! Item was added: + ----- Method: Player>>setXOnGraph: (in category '*morphicExtras-Charts') ----- + setXOnGraph: aNumber + "Set the x-on-graph coordinate as indicated. If there is Horizontal Number Line in the same playfield, this is interpreted with reference to the position and scale of that number line; if not, this is no different from setX:" + + | aCostume | + (aCostume _ self costume) isInWorld ifFalse: [^ self setX: aNumber]. + + (aCostume referencePlayfield findA: HorizontalNumberLineMorph) ifNotNilDo: + [:aNumberLine | + ^ aNumberLine setXOnGraphFor: aCostume to: aNumber]. + ^ self getX! Item was added: + ----- Method: Player>>setYOnGraph: (in category '*morphicExtras-Charts') ----- + setYOnGraph: aNumber + "Set the y-on-graph coordinate as indicated. If there is Vertical Number Line in the same playfield, this is interpreted with reference to the position and scale of that number line; if not, this is no different from setY:" + + | aCostume | + (aCostume := self costume) isInWorld ifFalse: [^ self setY: aNumber]. + (aCostume referencePlayfield findA: VerticalNumberLineMorph) ifNotNilDo: + [:aNumberLine | + ^ aNumberLine setYOnGraphFor: aCostume to: aNumber]. + + ^ self setY: aNumber!

1 0

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

03 Mar '12

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.59.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.59 Author: kfr Time: 3 March 2012, 4:36:20 pm UUID: b64cdf3d-fa28-f349-bf9a-4208ffa4f2b2 Ancestors: MorphicExtras-kfr.58 Add number lines, for use both in cuisanaire-rod-like applications and as axes for cartesian planes and graphs. =============== Diff against MorphicExtras-kfr.58 =============== Item was changed: SystemOrganization addCategory: #'MorphicExtras-AdditionalMorphs'! SystemOrganization addCategory: #'MorphicExtras-AdditionalSupport'! SystemOrganization addCategory: #'MorphicExtras-AdditionalWidgets'! SystemOrganization addCategory: #'MorphicExtras-Books'! SystemOrganization addCategory: #'MorphicExtras-Demo'! SystemOrganization addCategory: #'MorphicExtras-EToy-Download'! SystemOrganization addCategory: #'MorphicExtras-Flaps'! SystemOrganization addCategory: #'MorphicExtras-GeeMail'! SystemOrganization addCategory: #'MorphicExtras-Leds'! SystemOrganization addCategory: #'MorphicExtras-Navigators'! SystemOrganization addCategory: #'MorphicExtras-Obsolete'! SystemOrganization addCategory: #'MorphicExtras-Palettes'! SystemOrganization addCategory: #'MorphicExtras-PartsBin'! SystemOrganization addCategory: #'MorphicExtras-Postscript Canvases'! SystemOrganization addCategory: #'MorphicExtras-Postscript Filters'! SystemOrganization addCategory: #'MorphicExtras-SoundInterface'! SystemOrganization addCategory: #'MorphicExtras-SqueakPage'! SystemOrganization addCategory: #'MorphicExtras-Support'! SystemOrganization addCategory: #'MorphicExtras-Text Support'! SystemOrganization addCategory: #'MorphicExtras-Undo'! SystemOrganization addCategory: #'MorphicExtras-Widgets'! SystemOrganization addCategory: #'MorphicExtras-WebCam'! + SystemOrganization addCategory: #'MorphicExtras-Charts'! Item was added: + ----- Method: HaloMorph>>openViewerForTarget:with: (in category '*morphicExtras-Charts') ----- + openViewerForTarget: evt with: aHandle + "Open a viewer for my inner target" + + self obtainHaloForEvent: evt andRemoveAllHandlesBut: nil. + evt shiftPressed + ifTrue: + [target assuredPlayer tearOffAttachedWatcherFor: #getLocationOnGraph] + ifFalse: + [innerTarget openViewerForArgument]! Item was added: + NumberLineMorph subclass: #HorizontalNumberLineMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Charts'! + + !HorizontalNumberLineMorph commentStamp: 'sw 2/15/2012 21:01' prior: 0! + A number line horizontally oriented.! Item was added: + ----- Method: HorizontalNumberLineMorph class>>descriptionForPartsBin (in category 'parts bin') ----- + descriptionForPartsBin + "Answer a description for use in parts bins" + + ^ self + partName: 'H number line' translatedNoop + categories: {'Graphing' translatedNoop} + documentation: 'A horizontal number line. One possible use is as an x-axis in a graph.' translatedNoop! Item was added: + ----- Method: HorizontalNumberLineMorph>>addLegendsAndMarks (in category 'initialization') ----- + addLegendsAndMarks + "Add legends and tick-marks." + + | index offset current n legendCenter markCenter aMark aLegend | + minValue ifNil: ["too early" ^ self]. + + index := 0. + offset := self offset. + (submorphs copyWithout: axis) do: [:m | m delete]. + current := self left + offset. + [current < (self right - offset)] whileTrue: + [n := minValue + index. + (n isDivisibleBy: unitsPerMark) ifTrue: + [markCenter := current @ (self top + (self marksHeight / 2)). + aMark := self newMark. + self addMorph: aMark. + aMark center: markCenter; color: self color. + + (n isDivisibleBy: self marksPerLegend) ifTrue: + [(n ~= 0 or: [showZero]) ifTrue: + [legendCenter := current @ (self top + self marksHeight + (self legendsHeight / 2)) + (0 @ 2). + aLegend := StringMorph contents: n asString. + self addMorph: aLegend. + aLegend center: legendCenter; color: self color]]]. + current := current + pixelsPerUnit. + index := index + 1]. + ^ index! Item was added: + ----- Method: HorizontalNumberLineMorph>>asValidExtent: (in category 'initialization') ----- + asValidExtent: newExtent + ^ (newExtent x max: 100) + @ (self marksHeight + self legendsHeight)! Item was added: + ----- Method: HorizontalNumberLineMorph>>centerOfAxisVertex: (in category 'initialization') ----- + centerOfAxisVertex: n + n = 1 + ifTrue: [^ self left @ (self top + self marksHeight)]. + n = 2 + ifTrue: [^ self right @ (self top + self marksHeight)]. + ^ self error: 'Invalid vertex'! Item was added: + ----- Method: HorizontalNumberLineMorph>>fitPlayfield (in category 'initialization') ----- + fitPlayfield + "Currently unused and not yet really correct... the idea is to have a command whose result will be that the number line will expand or contract as needed such that the line exactly fills the horizontal space of its containing playfield. A similar item would be wanted for vertical axes as well..." + + | aPlayfield | + aPlayfield := self referencePlayfield. + "find a value that is currently on screen." + self minValue: (self horizontalCoordinateForX: 0) ceiling. + self maxValue: (self horizontalCoordinateForX: aPlayfield right) truncated! Item was added: + ----- Method: HorizontalNumberLineMorph>>horizontalCoordinateForX: (in category 'coordinates') ----- + horizontalCoordinateForX: xPixelValue + "Answer the horizontal coordinate, in the metric embodied in the number line at hand, corresponding to a given x pixel-coordinate." + + | start origin | + start := self left + self offset. + origin := start + (0 - minValue * pixelsPerUnit). + ^ xPixelValue - origin / pixelsPerUnit! Item was added: + ----- Method: HorizontalNumberLineMorph>>horizontalCoordinateOf: (in category 'coordinates') ----- + horizontalCoordinateOf: anObject + "Answer the horizontal coordinate of the center of a given object in the number-line's metric space." + + anObject ifNil: [^ 0]. + ^ self horizontalCoordinateForX: anObject center x! Item was added: + ----- Method: HorizontalNumberLineMorph>>initialize (in category 'initialization') ----- + initialize + "Initialize the receiver." + + super initialize. + self extent: 600 @ self allowance! Item was added: + ----- Method: HorizontalNumberLineMorph>>maxValue (in category 'accessing') ----- + maxValue + "Answer the maximum value represented at the positive end of the receiver." + + ^ minValue + (self width - self allowance / pixelsPerUnit) rounded! Item was added: + ----- Method: HorizontalNumberLineMorph>>maxValue: (in category 'accessing') ----- + maxValue: aNumber + "Establish the maximum value represented. This is done by extending or contracting the receiver." + + self width: (aNumber - minValue * pixelsPerUnit) rounded + self allowance + ((self widthOfString: aNumber asString) + / 2)! Item was added: + ----- Method: HorizontalNumberLineMorph>>minValue: (in category 'accessing') ----- + minValue: aNumber + "Establish the value corresponding to the lowest end of the line." + + | diff | + diff := self minValue - aNumber. + self bounds: (self bounds withLeft: self bounds left - (self pixelsPerUnit * diff)). + super minValue: aNumber! Item was added: + ----- Method: HorizontalNumberLineMorph>>newMark (in category 'initialization') ----- + newMark + ^ Morph new extent: 2 @ self marksHeight! Item was added: + ----- Method: HorizontalNumberLineMorph>>placeLegendsAndMarks: (in category 'initialization') ----- + placeLegendsAndMarks: aBlock + "Place the legends and tick-marks. The block provided has four arguments: :index :n :legendCenter :markCenter" + + | index offset current n legendCenter markCenter | + index := 0. + offset := self offset. + current := self left + offset. + [current < (self right - offset)] + whileTrue: [n := minValue + index. + index := index + 1. + (index - 1 isDivisibleBy: increment) + ifTrue: [legendCenter := current @ (self top + self marksHeight + (self legendsHeight / 2)) + (0 @ 2). + markCenter := current @ (self top + (self marksHeight / 2)). + aBlock valueWithArguments: {index. n. legendCenter. markCenter}]. + current := current + pixelsPerUnit]. + ^ index! Item was added: + ----- Method: HorizontalNumberLineMorph>>registerGraphCoordinate:atPlayfieldLocation: (in category 'initialization') ----- + registerGraphCoordinate: aGraphCoordinate atPlayfieldLocation: desiredPlayfieldCoordinate + "Fine-tuning for perfect registry." + + | itsCurrentOnPlayfield delta | + itsCurrentOnPlayfield := ((aGraphCoordinate - minValue) * pixelsPerUnit) + self left + self offset. "relative to playfield's left edge" + delta := (desiredPlayfieldCoordinate - itsCurrentOnPlayfield) + owner left. + self left: self left + delta. + self update! Item was added: + ----- Method: HorizontalNumberLineMorph>>setXOnGraphFor:to: (in category 'coordinates') ----- + setXOnGraphFor: aMorph to: aNumber + "Position a morph horizontally such that its xOnGraph, given the current horizontal axis in play, is as indicated." + + | start | + start := self left + self offset. + aMorph center: start + (aNumber - minValue * pixelsPerUnit) @ aMorph center y! Item was added: + ----- Method: Morph>>addGraphLocationPlotter (in category '*MorphicExtras-accessing') ----- + addGraphLocationPlotter + "Create an unlabeled watcher on the locationOnGraph of the object and give it a ticking tick that keeps it clinging beneath the watchee wherever it goes. " + + | aWatcher | + aWatcher := FollowingWatcher new buildForPlayer: self topRendererOrSelf assuredPlayer getter: #getLocationOnGraph. + aWatcher firstSubmorph beTransparent; borderWidth: 0. + aWatcher beTransparent; borderWidth: 0. + aWatcher attachmentEdge: #bottom. + aWatcher openInWorld! Item was added: + ----- Method: Morph>>addMiscExtrasTo: (in category '*MorphicExtras-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: 'graph-location plotter' translated action: #handUserGraphLocationPlotter. + subMenu add: 'graph-location follower' translated action: #addGraphLocationPlotter. + subMenu add: 'balloon help for this object' translated action: #editBalloonHelpText]. + + subMenu submorphs isEmpty ifFalse: [ + aMenu add: 'extras...' translated subMenu: subMenu + ].! Item was added: + ----- Method: Morph>>handUserGraphLocationPlotter (in category '*MorphicExtras-accessing') ----- + handUserGraphLocationPlotter + "Create a watcher on the locationOnGraph of the object and hand it to the user." + + (WatcherWrapper new fancyForPlayer: self topRendererOrSelf assuredPlayer getter: #getLocationOnGraph) openInHand! Item was added: + Morph subclass: #NumberLineMorph + instanceVariableNames: 'minValue increment actualColor axis legends marks showZero pixelsPerUnit unitsPerMark marksPerLegend' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Charts'! + + !NumberLineMorph commentStamp: 'sw 2/15/2012 21:00' prior: 0! + An abstract superclass for VerticalNumberLine and HorizontalNumberLine. + + minValue - Number - the value corresponding to the left edge of the line. + increment - Number - the space along the line between individual legends/marks + pixelsPerUnit - Integer - the number of pixels on the graph that correspond to a single unit in the metric space of the line. + actualColor - th + axis - a two-vertex PolygonMorph which is the actual line + legends - a list of the legends showing values along the line. + marks - a list of the tick-marks along the axis. + showZero - Boolean - if false, then a 0 legend will *not* be show.! Item was added: + ----- Method: NumberLineMorph class>>additionsToViewerCategoryNumberLine (in category 'viewer categories') ----- + additionsToViewerCategoryNumberLine + ^ #('number line' ( + " (command fitPlayfield 'extend or contract such that the line fits within the containing playfield.')" + (slot minVal 'smallest value shown on the axis' Number readWrite Player getMinVal Player setMinVal:) + (slot maxVal 'largest value shown on the axis' Number readWrite Player getMaxVal Player setMaxVal:) + + (slot pixelsPerUnit 'number of screen pixels per unit on the number line' Number readWrite Player getPixelsPerUnit Player setPixelsPerUnit:) + (slot unitsPerMark 'number of units between tick marks on the number line' Number readWrite Player getUnitsPerMark Player setUnitsPerMark:) + (slot marksPerLegend 'number of ticks between successive legends' Number readWrite Player getMarksPerLegend Player setMarksPerLegend:) + + (slot showZero 'whether to show the numeral 0 at the zero point on this axis' Boolean readWrite Player getShowZero Player setShowZero:) + (slot showNegativeArrowHead 'whether to show an arrow-head at the extreme left edge of the axis' Boolean readWrite Player getShowNegativeArrowHead Player setShowNegativeArrowHead:)) )! Item was added: + ----- Method: NumberLineMorph class>>from:by:pixelsPerUnit: (in category 'instance creation') ----- + from: minValue by: increment pixelsPerUnit: pixelsPerUnit + ^ (self basicNew + setMinValue: minValue + increment: increment + pixelsPerUnit: pixelsPerUnit) initialize! Item was added: + ----- Method: NumberLineMorph class>>from:pixelsPerUnit:unitsPerMark:marksPerLegend: (in category 'instance creation') ----- + from: minValue pixelsPerUnit: pixelsPerUnit unitsPerMark: unitsPerMark marksPerLegend: marksPerLegend + + ^ (self new + minValue: minValue pixelsPerUnit: pixelsPerUnit unitsPerMark: unitsPerMark marksPerLegend: marksPerLegend)! Item was added: + ----- Method: NumberLineMorph class>>newStandAlone (in category 'instance creation') ----- + newStandAlone + + ^ (self from: -10 pixelsPerUnit: 30 unitsPerMark: 1 marksPerLegend: 1) update; yourself! Item was added: + ----- Method: NumberLineMorph>>addCustomMenuItems:hand: (in category 'halo menu') ----- + addCustomMenuItems: aMenu hand: aHandMorph + "Use my line's menu additions" + super addCustomMenuItems: aMenu hand: aHandMorph. + aMenu addLine. + + aMenu addList: { + {'set pixels per unit' translated. #choosePixelsPerUnit. 'set the number of pixels per unit on the number line.' translated}. + {'set units per mark' translated. #chooseUnitsPerMark. 'set the number of units between marks on the number line.' translated}. + {'set marks per legend' translated. #chooseMarksPerLegend. 'set the number of units between tick marks on the number line.' translated}. + + {'set max value' translated. #chooseMaxValue. 'set the maximum value to be shown on the number line.' translated}. + {'set min value' translated . #chooseMinValue. 'set the minimum value shown on the number line.' translated}}. + + aMenu + addUpdating: #showingNegativeArrowHeadPhrase target: self action: #toggleNegativeArrowHead; + addUpdating: #showingZeroPhrase target: self action: #toggleShowingZero.. + + ! Item was added: + ----- Method: NumberLineMorph>>allowance (in category 'visual properties') ----- + allowance + "Answer the allowance for overhead -- put here to avoid hard-coding the number in multiple other places..." + + ^ 50! Item was added: + ----- Method: NumberLineMorph>>asValidExtent: (in category 'abstract') ----- + asValidExtent: newExtent + ^ self subclassResponsibility! Item was added: + ----- Method: NumberLineMorph>>centerOfAxisVertex: (in category 'abstract') ----- + centerOfAxisVertex: n + ^ self subclassResponsibility! Item was added: + ----- Method: NumberLineMorph>>chooseMarksPerLegend (in category 'halo menu') ----- + chooseMarksPerLegend + "Put up a dialog disclosing the current increment and inviting the user to specify a new one." + + | result | + result := FillInTheBlank request: 'marksPerLegend' translated initialAnswer: self marksPerLegend printString. + result isEmptyOrNil ifTrue: [^ self]. + self marksPerLegend: result asNumber + ! Item was added: + ----- Method: NumberLineMorph>>chooseMaxValue (in category 'halo menu') ----- + chooseMaxValue + "Put up a dialog showing the current maxValue and inviting the user to specify a new one." + + | result | + result := FillInTheBlank request: 'type new max value' initialAnswer: self maxValue printString. + result isEmptyOrNil ifTrue: [^ self]. + self maxValue: result asNumber + ! Item was added: + ----- Method: NumberLineMorph>>chooseMinValue (in category 'halo menu') ----- + chooseMinValue + "Put up a dialog disclosing the current minValue and allowing the user to specify a new value for it." + + | result | + result := FillInTheBlank request: 'type new min value' initialAnswer: self minValue printString. + result isEmptyOrNil ifTrue: [^ self]. + self minValue: result asNumber + ! Item was added: + ----- Method: NumberLineMorph>>choosePixelsPerUnit (in category 'halo menu') ----- + choosePixelsPerUnit + "Put up a dialog showing the current pixelsPerUnit and allowing the user to submit a new one." + + | result | + result := FillInTheBlank request: 'type new pixels per unit' translated initialAnswer: pixelsPerUnit printString. + result isEmptyOrNil ifTrue: [^ self]. + self pixelsPerUnit: result asNumber! Item was added: + ----- Method: NumberLineMorph>>chooseTicksPerLegend (in category 'halo menu') ----- + chooseTicksPerLegend + "Put up a dialog disclosing the current increment and inviting the user to specify a new one." + + | result | + result := FillInTheBlank request: 'ticksPerLegend' translated initialAnswer: self ticksPerLegend printString. + result isEmptyOrNil ifTrue: [^ self]. + self ticksPerLegend: result asNumber + ! Item was added: + ----- Method: NumberLineMorph>>chooseUnitsPerMark (in category 'menu') ----- + chooseUnitsPerMark + "Put up a dialog disclosing the current unitsPerMark and inviting the user to specify a new one." + + | result | + result := FillInTheBlank request: 'unitsPerMark' translated initialAnswer: self unitsPerMark printString. + result isEmptyOrNil ifTrue: [^ self]. + self unitsPerMark: result asNumber + ! Item was added: + ----- Method: NumberLineMorph>>chooseUnitsPerTick (in category 'halo menu') ----- + chooseUnitsPerTick + "Put up a dialog disclosing the current unitsPerTick and inviting the user to specify a new one." + + | result | + result := FillInTheBlank request: 'units per tick' translated initialAnswer: self unitsPerTick printString. + result isEmptyOrNil ifTrue: [^ self]. + self unitsPerTick: result asNumber + ! Item was added: + ----- Method: NumberLineMorph>>color (in category 'accessing') ----- + color + ^ actualColor! Item was added: + ----- Method: NumberLineMorph>>color: (in category 'accessing') ----- + color: aColor + actualColor := aColor. + super color: Color transparent. + self update! Item was added: + ----- Method: NumberLineMorph>>extent: (in category 'accessing') ----- + extent: newExtent + super + extent: (self asValidExtent: newExtent). + self update! Item was added: + ----- Method: NumberLineMorph>>fillStyle: (in category 'accessing') ----- + fillStyle: aFillStyle + self color: aFillStyle asColor! Item was added: + ----- Method: NumberLineMorph>>increment (in category 'accessing') ----- + increment + ^ increment! Item was added: + ----- Method: NumberLineMorph>>increment: (in category 'accessing') ----- + increment: aNumber + increment := aNumber max: 0. + self update! Item was added: + ----- Method: NumberLineMorph>>initialize (in category 'initialization') ----- + initialize + "Basic initialization." + + super initialize. + actualColor := Color black. + axis := PolygonMorph arrowPrototype arrowSpec: 8 @ 4; + lineBorderWidth: 1. + legends := OrderedCollection new. + marks := OrderedCollection new. + pixelsPerUnit := 40. + unitsPerMark := 5. + marksPerLegend := 1. + showZero := true. + minValue := 0. + self addMorph: axis; + color: actualColor. + self update! Item was added: + ----- Method: NumberLineMorph>>legendsHeight (in category 'accessing') ----- + legendsHeight + ^ TextStyle defaultFont height! Item was added: + ----- Method: NumberLineMorph>>legendsWidth (in category 'accessing') ----- + legendsWidth + ^ (self widthOfString: self minValue asString) + max: (self widthOfString: self maxValue asString)! Item was added: + ----- Method: NumberLineMorph>>marksHeight (in category 'accessing') ----- + marksHeight + ^ 5! Item was added: + ----- Method: NumberLineMorph>>marksPerLegend (in category 'accessing') ----- + marksPerLegend + "Answer the value of marksPerLegend." + + ^ marksPerLegend! Item was added: + ----- Method: NumberLineMorph>>marksPerLegend: (in category 'halo menu') ----- + marksPerLegend: aNumber + "Set the value of marksPerLegend." + + marksPerLegend := aNumber rounded max: 1. + self update! Item was added: + ----- Method: NumberLineMorph>>marksWidth (in category 'accessing') ----- + marksWidth + ^ 5! Item was added: + ----- Method: NumberLineMorph>>maxVal (in category 'accessing') ----- + maxVal + ^ self maxValue! Item was added: + ----- Method: NumberLineMorph>>maxValue (in category 'accessing') ----- + maxValue + ^ self subclassResponsibility! Item was added: + ----- Method: NumberLineMorph>>minVal (in category 'accessing') ----- + minVal + ^ self minValue! Item was added: + ----- Method: NumberLineMorph>>minValue (in category 'accessing') ----- + minValue + ^ minValue! Item was added: + ----- Method: NumberLineMorph>>minValue: (in category 'accessing') ----- + minValue: aNumber + minValue := aNumber. + self update! Item was added: + ----- Method: NumberLineMorph>>minValue:pixelsPerUnit:unitsPerMark:marksPerLegend: (in category 'initialization') ----- + minValue: minInteger pixelsPerUnit: ppuInteger unitsPerMark: upmInteger marksPerLegend: mplInteger + "Initialize the receiver to have the given minimum value, pixelsPerUnit, unitsPerMark, and marksPerLegend" + + minValue := minInteger. + pixelsPerUnit := ppuInteger. + unitsPerMark := upmInteger. + marksPerLegend := mplInteger! Item was added: + ----- Method: NumberLineMorph>>newMark (in category 'abstract') ----- + newMark + ^ self subclassResponsibility! Item was added: + ----- Method: NumberLineMorph>>offset (in category 'visual properties') ----- + offset + ^ 25! Item was added: + ----- Method: NumberLineMorph>>pixelsPerUnit (in category 'accessing') ----- + pixelsPerUnit + "Answer the number of pixels per unit in the receiver's metric system." + + ^ pixelsPerUnit! Item was added: + ----- Method: NumberLineMorph>>pixelsPerUnit: (in category 'accessing') ----- + pixelsPerUnit: aNumber + "Set the number of pixels that will constitute one 'unit' along the receiver. Retain existing min and max values." + + | newPixelsPerUnit existingMax | + (newPixelsPerUnit := aNumber max: 1) = pixelsPerUnit + ifTrue: [^ self]. + + existingMax := self maxValue. + pixelsPerUnit := newPixelsPerUnit. + self update. + self maxValue: existingMax! Item was added: + ----- Method: NumberLineMorph>>placeAxis (in category 'updating') ----- + placeAxis + 1 + to: 2 + do: [:i | axis vertices + at: i + put: (self centerOfAxisVertex: i)]. + axis borderColor: self color. + axis computeBounds! Item was added: + ----- Method: NumberLineMorph>>placeLegendsAndMarks (in category 'updating') ----- + placeLegendsAndMarks + | usedLegends usedMarks unusedLegends unusedMarks legend mark | + usedLegends := OrderedCollection new. + usedMarks := OrderedCollection new. + self + placeLegendsAndMarks: [:index :n :legendCenter :markCenter | + (n ~= 0 + or: [showZero]) + ifTrue: [legend := usedLegends + add: (legends + at: index + ifAbsent: [legends add: StringMorph new]). + self addMorph: legend. + legend contents: n asString; + center: legendCenter; + color: self color]. + mark := usedMarks + add: (marks + at: index + ifAbsent: [marks add: self newMark]). + self addMorph: mark. + mark center: markCenter; + color: self color]. + unusedLegends := legends copyWithoutAll: usedLegends. + unusedLegends + do: [:each | each delete]. + legends removeAll: unusedLegends. + unusedMarks := marks copyWithoutAll: usedMarks. + unusedMarks + do: [:each | each delete]. + marks removeAll: unusedMarks! Item was added: + ----- Method: NumberLineMorph>>placeLegendsAndMarks: (in category 'abstract') ----- + placeLegendsAndMarks: aBlock + ^ self subclassResponsibility! Item was added: + ----- Method: NumberLineMorph>>setMaxVal: (in category 'accessing') ----- + setMaxVal: aNumber + self maxValue: aNumber! Item was added: + ----- Method: NumberLineMorph>>setMinVal: (in category 'accessing') ----- + setMinVal: aNumber + self minValue: aNumber! Item was added: + ----- Method: NumberLineMorph>>setMinValue:increment:pixelsPerUnit: (in category 'initialization') ----- + setMinValue: minValue1 increment: increment1 pixelsPerUnit: pixelsPerUnit1 + "Initialize the receiver to have the given minimum value, increment and pixelsPerUnit" + + minValue := minValue1. + increment := increment1. + pixelsPerUnit := pixelsPerUnit1! Item was added: + ----- Method: NumberLineMorph>>showNegativeArrowHead (in category 'accessing') ----- + showNegativeArrowHead + ^ axis arrows = #both! Item was added: + ----- Method: NumberLineMorph>>showNegativeArrowHead: (in category 'accessing') ----- + showNegativeArrowHead: aBoolean + aBoolean + ifTrue: [axis makeBothArrows] + ifFalse: [axis makeForwardArrow]! Item was added: + ----- Method: NumberLineMorph>>showZero (in category 'accessing') ----- + showZero + ^ showZero! Item was added: + ----- Method: NumberLineMorph>>showZero: (in category 'accessing') ----- + showZero: aBoolean + showZero := aBoolean. + self update! Item was added: + ----- Method: NumberLineMorph>>showingNegativeArrowHeadPhrase (in category 'halo menu') ----- + showingNegativeArrowHeadPhrase + "Answer a phrase representing whether or not the receiver is currently showing an arrowhead at its negative end." + + ^ (self showNegativeArrowHead ifTrue: ['<yes>'] ifFalse: ['<no>']), 'show negative arrowhead' translated! Item was added: + ----- Method: NumberLineMorph>>showingZeroPhrase (in category 'halo menu') ----- + showingZeroPhrase + "Answer a phrase telling whether or not the legend for the zero-point should be shown on the axis." + + ^ (showZero ifTrue: ['<yes>'] ifFalse: ['<no>']), 'show legend for the zero point.' translated! Item was added: + ----- Method: NumberLineMorph>>ticksPerLegend: (in category 'halo menu') ----- + ticksPerLegend: aNumber + marksPerLegend := aNumber rounded max: 1! Item was added: + ----- Method: NumberLineMorph>>toggleNegativeArrowHead (in category 'halo menu') ----- + toggleNegativeArrowHead + "Toggle the setting of the flag governing whether the negative-direction arrowhead should be shown." + + self showNegativeArrowHead: self showNegativeArrowHead not! Item was added: + ----- Method: NumberLineMorph>>toggleShowingZero (in category 'halo menu') ----- + toggleShowingZero + "Toggle the setting of the flag that governs whether the zero-point legend should be shown." + + self showZero: self showZero not! Item was added: + ----- Method: NumberLineMorph>>unitsPerMark (in category 'accessing') ----- + unitsPerMark + ^ unitsPerMark! Item was added: + ----- Method: NumberLineMorph>>unitsPerMark: (in category 'accessing') ----- + unitsPerMark: anInteger + unitsPerMark := anInteger. + self update! Item was added: + ----- Method: NumberLineMorph>>update (in category 'updating') ----- + update + minValue ifNotNil: + [self placeAxis; addLegendsAndMarks]! Item was added: + ----- Method: NumberLineMorph>>widthOfString: (in category 'accessing') ----- + widthOfString: aString + ^ TextStyle defaultFont widthOfString: aString! Item was added: + ----- Method: PasteUpMorph class>>descriptionForPartsBin (in category '*MorphicExtras-parts bin') ----- + descriptionForPartsBin + ^ self partName: 'Playfield' translatedNoop + categories: {'Basic' translatedNoop. 'Graphing' translatedNoop} + documentation: 'A place for assembling parts or for staging animations' translatedNoop! Item was added: + NumberLineMorph subclass: #VerticalNumberLineMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Charts'! + + !VerticalNumberLineMorph commentStamp: 'sw 2/15/2012 21:01' prior: 0! + A number line vertically oriented.! Item was added: + ----- Method: VerticalNumberLineMorph class>>descriptionForPartsBin (in category 'parts bin') ----- + descriptionForPartsBin + "Answer a description for use in parts bins" + + ^ self + partName: 'V number line' translatedNoop + categories: {'Graphing' translatedNoop} + documentation: 'A vertical number line. One possible use is as a y-axis in a graph.' translatedNoop! Item was added: + ----- Method: VerticalNumberLineMorph>>addLegendsAndMarks (in category 'initialization') ----- + addLegendsAndMarks + "Add legends and tick-marks." + + | index offset current n legendCenter markCenter aMark aLegend | + minValue ifNil: ["too early" ^ self]. + + index := 0. + offset := self offset. + (submorphs copyWithout: axis) do: [:m | m delete]. + current := self bottom - offset. + [current > (self top + offset)] whileTrue: + [n := minValue + index. + (n isDivisibleBy: unitsPerMark) ifTrue: + [markCenter := self left + self legendsWidth + (self marksWidth // 2) @ current. + aMark := self newMark. + self addMorph: aMark. + aMark center: markCenter; color: self color. + + (n isDivisibleBy: (self marksPerLegend * self unitsPerMark)) ifTrue: + [legendCenter := self left + self legendsWidth - ((self widthOfString: n asString) + // 2) @ current + (-2 @ 0). + (n = 0 and: [showZero not]) ifFalse: + [aLegend := StringMorph contents: n asString. + self addMorph: aLegend. + aLegend center: legendCenter; color: self color]]]. + current := current - pixelsPerUnit. + index := index + 1]. + ^ index! Item was added: + ----- Method: VerticalNumberLineMorph>>asValidExtent: (in category 'initialization') ----- + asValidExtent: newExtent + ^ self marksWidth + self legendsWidth + @ (newExtent y max: 100)! Item was added: + ----- Method: VerticalNumberLineMorph>>centerOfAxisVertex: (in category 'initialization') ----- + centerOfAxisVertex: n + n = 1 + ifTrue: [^ self left + self legendsWidth @ self bottom]. + n = 2 + ifTrue: [^ self left + self legendsWidth @ self top]. + ^ self error: 'Invalid vertex'! Item was added: + ----- Method: VerticalNumberLineMorph>>initialize (in category 'initialization') ----- + initialize + "Initialize the receiver." + + super initialize. + self extent: self allowance @ 600! Item was added: + ----- Method: VerticalNumberLineMorph>>maxValue (in category 'accessing') ----- + maxValue + "Answer the maximum value, in graph coordinates, represented by the point at the top of the receiver." + + ^ minValue + (self height - self allowance / pixelsPerUnit) rounded! Item was added: + ----- Method: VerticalNumberLineMorph>>maxValue: (in category 'accessing') ----- + maxValue: aNumber + "Set the max value as indicated; this will typically result in a change in actual bounds of the receiver." + + | newHeight | + newHeight := (aNumber - minValue * pixelsPerUnit) rounded + self allowance + (self legendsHeight / 2). + self bounds: (self bounds withTop: self bounds top - (newHeight - self height))! Item was added: + ----- Method: VerticalNumberLineMorph>>minValue: (in category 'accessing') ----- + minValue: aNumber + "Establish the value corresponding to the lowest end of the line." + + | diff | + diff := self minValue - aNumber. + self bounds: (self bounds withBottom: self bounds bottom + (self pixelsPerUnit * diff)). + super minValue: aNumber! Item was added: + ----- Method: VerticalNumberLineMorph>>newMark (in category 'initialization') ----- + newMark + ^ Morph new extent: self marksWidth @ 2! Item was added: + ----- Method: VerticalNumberLineMorph>>placeLegendsAndMarks: (in category 'initialization') ----- + placeLegendsAndMarks: aBlock + "Place the legends and tick-marks. The block provided has four arguments: :index :n :legendCenter :markCenter" + + | index offset current n legendCenter markCenter | + index := 0. + offset := self offset. + current := self bottom - offset. + [current > (self top + offset)] + whileTrue: [n := minValue + index. + index := index + 1. + (index - 1 isDivisibleBy: increment) + ifTrue: [legendCenter := self left + self legendsWidth - ((self widthOfString: n asString) + / 2) @ current + (-2 @ 0). + markCenter := self left + self legendsWidth + (self marksWidth / 2) @ current. + aBlock valueWithArguments: {index. n. legendCenter. markCenter}]. + current := current - pixelsPerUnit]. + ^ index! Item was added: + ----- Method: VerticalNumberLineMorph>>registerGraphCoordinate:atPlayfieldLocation: (in category 'coordinates') ----- + registerGraphCoordinate: aGraphCoordinate atPlayfieldLocation: desiredPlayfieldCoordinate + "Fine-tuning for perfect registry." + + | itsCurrentOnPlayfield delta | + itsCurrentOnPlayfield := self bottom - ((aGraphCoordinate - minValue) * pixelsPerUnit) + self offset. "relative to playfield's bottom edge" + delta := (desiredPlayfieldCoordinate - itsCurrentOnPlayfield) + owner bottom. + self bottom: self bottom + delta. + self update! Item was added: + ----- Method: VerticalNumberLineMorph>>setExtentFromHalo: (in category 'accessing') ----- + setExtentFromHalo: anExtent + "The user having operated the yellow handle to resize the receiver, adjust the line accordingly." + + | diff | + diff := (anExtent y - self extent y / self pixelsPerUnit) rounded. + self minValue: (self minValue - diff)! Item was added: + ----- Method: VerticalNumberLineMorph>>setYOnGraphFor:to: (in category 'coordinates') ----- + setYOnGraphFor: aMorph to: aNumber + "Interpreting the second argument as being in 'graph coordinates', as specified by the receiver serving as a y-axis, place the morph such that its yOnGraph is the given quantity." + + | start | + start := self bottom - self offset. + aMorph center: aMorph center x @ (start - (aNumber - minValue * pixelsPerUnit))! Item was added: + ----- Method: VerticalNumberLineMorph>>verticalCoordinateForY: (in category 'coordinates') ----- + verticalCoordinateForY: aYValue + "Answer the vertical coordinate in the 'graph coordinate space' of a number interpreted as a vertical pixel coordinate." + + | start origin | + start := self bottom - self offset. + origin := start - (0 - minValue * pixelsPerUnit). + ^ (origin - aYValue) / pixelsPerUnit! Item was added: + ----- Method: VerticalNumberLineMorph>>verticalCoordinateOf: (in category 'coordinates') ----- + verticalCoordinateOf: anObject + "Answer the yOnGraph, with respect to the receiver (used as a y-axis), of a morph." + + ^ self verticalCoordinateForY: anObject center y!

1 0

[SVN][1103] Add more Italian QuickGuides (SQ-1015)
by commits＠etoys.squeak.org 03 Mar '12

03 Mar '12

Repository: http://etoys.squeak.org/svn Revision: 1103 Author: bf Date: 2012-03-03 15:17:15 +0000 (Sat, 03 Mar 2012) Log Message: ----------- Add more Italian QuickGuides (SQ-1015) Added Paths: ----------- trunk/Etoys/locale/it/QuickGuides/MenuDecimali.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/MenuFare-unaNuovaFlap.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/MenuOmbraTridemensionale.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/MenuPittura.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/MenuPortare-alDavanti.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/NavBarIlCavicchio.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/NavBarNascondereMostare.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/ScriptTileCapoAutomatico.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/ScriptTileIlPuntino.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/ScriptTileProvaDueColori.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/SuppliesGiocatori.sexp.data.gz trunk/Etoys/locale/it/QuickGuides/SuppliesTenitore.sexp.data.gz trunk/QuickGuides-Projects/it/MenuDecimali.001.pr trunk/QuickGuides-Projects/it/MenuFare-unaNuovaFlap.001.pr trunk/QuickGuides-Projects/it/MenuOmbraTridemensionale.001.pr trunk/QuickGuides-Projects/it/MenuPittura.001.pr trunk/QuickGuides-Projects/it/MenuPortare-alDavanti.001.pr trunk/QuickGuides-Projects/it/NavBarIlCavicchio.001.pr trunk/QuickGuides-Projects/it/NavBarNascondereMostare.001.pr trunk/QuickGuides-Projects/it/ScriptTileCapoAutomatico.001.pr trunk/QuickGuides-Projects/it/ScriptTileIlPuntino.001.pr trunk/QuickGuides-Projects/it/ScriptTileProvaDueColori.001.pr trunk/QuickGuides-Projects/it/SuppliesGiocatori.001.pr trunk/QuickGuides-Projects/it/SuppliesTenitore.001.pr

1 0

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