Christoph Thiede uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ct.1445.mcz
==================== Summary ====================
Name: System-ct.1445
Author: ct
Time: 31 January 2024, 7:11:29.83716 pm
UUID: e2a27ec4-4978-f04f-bbeb-594f83577d30
Ancestors: System-ct.1444
Bumps recommended VM build to latest release of OpenSmalltalk VM.
=============== Diff against System-ct.1444 ===============
Item was changed:
----- Method: SystemVersion>>recommendedVMBuildNumber (in category 'accessing') -----
recommendedVMBuildNumber
+ ^ 202312181441!
- ^ 202206021410!
1
0
Christoph Thiede uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-ct.451.mcz
==================== Summary ====================
Name: KernelTests-ct.451
Author: ct
Time: 31 January 2024, 6:59:47.634204 pm
UUID: 070fbef2-8e58-d847-9528-cdc80374447b
Ancestors: KernelTests-dtl.450
Documents process termination while resuming from an exception. See https://github.com/squeak-smalltalk/squeak-object-memory/issues/112. May be fixed by Kernel-jar.1553 and Kernel-jar.1554.
=============== Diff against KernelTests-dtl.450 ===============
Item was added:
+ ----- Method: ProcessTest>>testTerminateEverywhere (in category 'tests') -----
+ testTerminateEverywhere
+
+ | block steps |
+ block := [([[Notification signal]
+ ensure: []]
+ on: Notification do: [:ex | ex resume: 6])
+ * 7].
+
+ steps := 0.
+ [steps] whileNotNil:
+ [| process |
+ process := Process forContext: block asContext priority: Processor activePriority.
+ steps timesRepeat:
+ [(process suspendedContext stackPtr > 0 and: [process suspendedContext top = 42])
+ ifTrue: [steps := nil]
+ ifFalse: [process step]].
+ steps ifNotNil: [steps := steps + 1].
+
+ process terminate.
+ self assert: process isTerminated].!
1
0
David T. Lewis uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-dtl.514.mcz
==================== Summary ====================
Name: EToys-dtl.514
Author: dtl
Time: 25 January 2024, 8:39:46.674876 pm
UUID: d24c10b7-ab08-4976-8072-02f4cd8791c6
Ancestors: EToys-dtl.513
Morph>>wantsConnectorVocabulary is implemented also in Connectors but sent only from Etoys. Move it to package Etoys.
=============== Diff against EToys-dtl.513 ===============
Item was added:
+ ----- Method: Morph>>wantsConnectorVocabulary (in category '*Etoys-connectors-scripting') -----
+ wantsConnectorVocabulary
+ "Answer true if I want to show a 'connector' vocabulary"
+ ^false!
1
0
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.2151.mcz
==================== Summary ====================
Name: Morphic-dtl.2151
Author: dtl
Time: 25 January 2024, 8:38:25.233159 pm
UUID: af941037-f099-46a2-8af2-8ce1ce5b9a17
Ancestors: Morphic-ct.2150
Morph>>wantsConnectorVocabulary is implemented also in Connectors but sent only from Etoys. Move it to package Etoys.
=============== Diff against Morphic-ct.2150 ===============
Item was removed:
- ----- Method: Morph>>wantsConnectorVocabulary (in category 'connectors-scripting') -----
- wantsConnectorVocabulary
- "Answer true if I want to show a 'connector' vocabulary"
- ^false!
1
0
David T. Lewis uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-dtl.513.mcz
==================== Summary ====================
Name: EToys-dtl.513
Author: dtl
Time: 17 January 2024, 10:29:34.975418 pm
UUID: 0f9868b7-f76a-4f82-b266-f94ec6cba369
Ancestors: EToys-dtl.512
Package postscipt - clean up empty Etoys method categories after EToys-dtl.512
=============== Diff against EToys-dtl.512 ===============
Item was added:
+ (PackageInfo named: 'EToys') preamble: '"Clean up empty Etoys method categories after EToys-dtl.512"
+ StandardScriptingSystem organization categories
+ detect: [ :cat | cat beginsWith: ''*Etoys'' ] "Indicates invalid and now empty categories that need to be removed"
+ ifFound: [ :anyEtoysExtension | (SystemOrganization classesIn: ''Etoys*'') do: [ :cls | cls organization removeEmptyCategories]].'!
1
0
David T. Lewis uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-dtl.512.mcz
==================== Summary ====================
Name: EToys-dtl.512
Author: dtl
Time: 15 January 2024, 10:50:16.812014 pm
UUID: 47637fe7-cd6a-4bdf-8b34-91be4f2f2f2e
Ancestors: EToys-dtl.511
Additional method category cleanups for Etoys package.
=============== Diff against EToys-dtl.511 ===============
Item was changed:
+ ----- Method: Player>>appendCharacters: (in category 'scripts-standard') -----
- ----- Method: Player>>appendCharacters: (in category '*Etoys-Squeakland-scripts-standard') -----
appendCharacters: aString
"append the characters from the given player to my end"
self costume renderedMorph appendCharacters: aString!
Item was changed:
+ ----- Method: Player>>appendVertex (in category 'vertices operation') -----
- ----- Method: Player>>appendVertex (in category '*Etoys-Squeakland-vertices operation') -----
appendVertex
self costume appendVertex!
Item was changed:
+ ----- Method: Player>>attachTo: (in category 'SpeechBubbles') -----
- ----- Method: Player>>attachTo: (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
attachTo: aPlayer
self sendMessageToCostume: #target: with: aPlayer costume renderedMorph
!
Item was changed:
+ ----- Method: Player>>basicBeNotZero: (in category 'misc') -----
- ----- Method: Player>>basicBeNotZero: (in category '*Etoys-Squeakland-misc') -----
basicBeNotZero: aNumber
"This is a runtime check if the arg to divide in a script is zero. If it is, put up a warning message. Return 0.001 instead of 0. Note the time. If fails again within 1 min., don't tell the user again."
aNumber = 0 ifFalse: [^ aNumber]. "normal case"
"We have a problem"
TimeOfError
ifNil: [TimeOfError := Time totalSeconds]
ifNotNil: [(Time totalSeconds - TimeOfError) > 45 ifTrue: [
TimeOfError := Time totalSeconds. "in case user interrupt and reenter"
self inform:
'Dividing by zero makes a number too
large for even a Sorcerer to handle.
Please change your script.' translated.
TimeOfError := Time totalSeconds]].
^ 0.001!
Item was changed:
+ ----- Method: Player>>basicType (in category 'tiles') -----
- ----- Method: Player>>basicType (in category '*eToys-tiles') -----
basicType
"Answer a symbol representing the inherent type of the receiver"
^ #Player!
Item was changed:
+ ----- Method: Player>>bearingFrom: (in category 'special numeric slots') -----
- ----- Method: Player>>bearingFrom: (in category '*Etoys-Squeakland-special numeric slots') -----
bearingFrom: aPlayer
"Answer the bearing to the receiver from another player"
^ (aPlayer costume referencePositionInWorld bearingToPoint: costume referencePositionInWorld) asSmallAngleDegrees!
Item was changed:
+ ----- Method: Player>>bearingTo: (in category 'special numeric slots') -----
- ----- Method: Player>>bearingTo: (in category '*Etoys-Squeakland-special numeric slots') -----
bearingTo: aPlayer
"Answer the bearing from the receiver to another player."
^ (costume referencePositionInWorld bearingToPoint: aPlayer costume referencePositionInWorld) asSmallAngleDegrees!
Item was changed:
+ ----- Method: Player>>changeSlotInfo: (in category 'slots-user') -----
- ----- Method: Player>>changeSlotInfo: (in category '*Etoys-Squeakland-slots-user') -----
changeSlotInfo: aSymbol
Project current world
addMorphInLayer: (ModifyVariableDialogMorph on: self costume slot: aSymbol)
centeredNear: (self currentHand ifNil: [Sensor]) cursorPoint.!
Item was changed:
+ ----- Method: Player>>changeSlotTypeOf:to: (in category 'slots-user') -----
- ----- Method: Player>>changeSlotTypeOf:to: (in category '*Etoys-Squeakland-slots-user') -----
changeSlotTypeOf: slotName to: newType
(self typeForSlot: slotName) capitalized = newType ifTrue: [^ self].
(self slotInfoAt: slotName) type: newType.
self class allInstancesDo: "allSubInstancesDo:"
[:anInst | anInst instVarNamed: slotName asString put:
(anInst valueOfType: newType from: (anInst instVarNamed: slotName))].
self updateAllViewers. "does siblings too"
self changeTypesInWatchersOf: slotName. "does siblings too"
!
Item was changed:
+ ----- Method: Player>>defaultScriptName (in category 'misc') -----
- ----- Method: Player>>defaultScriptName (in category '*Etoys-Squeakland-misc') -----
defaultScriptName
^'script' translated asLegalSelector!
Item was changed:
+ ----- Method: Player>>destroyAllScripts (in category 'scripts-kernel') -----
- ----- Method: Player>>destroyAllScripts (in category '*Etoys-Squeakland-scripts-kernel') -----
destroyAllScripts
"Destroy all the scripts belonging to the receiver."
| sels |
self class isUniClass ifFalse: [^ self].
Cursor wait showWhile:
[sels := self class scripts collect: [:s | s selector].
sels do:
[:aSel | self removeScriptWithSelector: aSel]]
!
Item was changed:
+ ----- Method: Player>>distanceToPlayer: (in category 'special numeric slots') -----
- ----- Method: Player>>distanceToPlayer: (in category '*Etoys-Squeakland-special numeric slots') -----
distanceToPlayer: aPlayer
"Simplified distance... simply answer the distance between the reference positions of the two objects."
^ costume referencePositionInWorld dist: aPlayer costume referencePositionInWorld!
Item was changed:
+ ----- Method: Player>>emptyTrashCan (in category 'playing commands') -----
- ----- Method: Player>>emptyTrashCan (in category '*Etoys-Squeakland-playing commands') -----
emptyTrashCan
Utilities emptyScrapsBookGC.
!
Item was changed:
+ ----- Method: Player>>fitPlayfield (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>fitPlayfield (in category '*Etoys-Squeakland-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 changed:
+ ----- Method: Player>>flipLeftRight (in category 'costume') -----
- ----- Method: Player>>flipLeftRight (in category '*Etoys-Squeakland-costume') -----
flipLeftRight
self costume renderedMorph allMorphsDo: [ :m |
m isSketchMorph ifTrue: [m flipHorizontal]]!
Item was changed:
+ ----- Method: Player>>flipUpDown (in category 'costume') -----
- ----- Method: Player>>flipUpDown (in category '*Etoys-Squeakland-costume') -----
flipUpDown
self costume renderedMorph allMorphsDo: [ :m |
m isSketchMorph ifTrue: [m flipVertical]]!
Item was changed:
+ ----- Method: Player>>forceAxisToX: (in category 'slots-bonus for geometry') -----
- ----- Method: Player>>forceAxisToX: (in category '*Etoys-Squeakland-slots-bonus for geometry') -----
forceAxisToX: aNumber
self setRotationCenter: aNumber @ self getRotationCenterY!
Item was changed:
+ ----- Method: Player>>forceAxisToY: (in category 'slots-bonus for geometry') -----
- ----- Method: Player>>forceAxisToY: (in category '*Etoys-Squeakland-slots-bonus for geometry') -----
forceAxisToY: aNumber
self setRotationCenter: self getRotationCenterX @ aNumber!
Item was changed:
+ ----- Method: Player>>getAttachment (in category 'SpeechBubbles') -----
- ----- Method: Player>>getAttachment (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
getAttachment
^ [(self sendMessageToCostume: #target) assuredPlayer]
on: Error
do: [self presenter standardPlayer] !
Item was changed:
+ ----- Method: Player>>getAttachmentEdge (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getAttachmentEdge (in category '*Etoys-Squeakland-slot getters/setters') -----
getAttachmentEdge
"Answer the attachment edge, a point."
^ costume renderedMorph attachmentEdge!
Item was changed:
+ ----- Method: Player>>getAttachmentOffset (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getAttachmentOffset (in category '*Etoys-Squeakland-slot getters/setters') -----
getAttachmentOffset
"Answer the attachment offset, a point."
^ costume renderedMorph attachmentOffset!
Item was changed:
+ ----- Method: Player>>getBlue (in category 'slots-color components') -----
- ----- Method: Player>>getBlue (in category '*Etoys-Squeakland-slots-color components') -----
getBlue
^ self getColor blue * 100!
Item was changed:
+ ----- Method: Player>>getBlur (in category 'sketch filters') -----
- ----- Method: Player>>getBlur (in category '*Etoys-Squeakland-sketch filters') -----
getBlur
^ self getFilterValue: #blur:form:!
Item was changed:
+ ----- Method: Player>>getBrightness (in category 'slots-color components') -----
- ----- Method: Player>>getBrightness (in category '*Etoys-Squeakland-slots-color components') -----
getBrightness
^ self getColor brightness * 100!
Item was changed:
+ ----- Method: Player>>getBrightnessShift (in category 'sketch filters') -----
- ----- Method: Player>>getBrightnessShift (in category '*Etoys-Squeakland-sketch filters') -----
getBrightnessShift
^ self getFilterValue: #brightnessShift:form:!
Item was changed:
+ ----- Method: Player>>getBubble (in category 'SpeechBubbles') -----
- ----- Method: Player>>getBubble (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
getBubble
^[self costume renderedMorph bubble assuredPlayer] on: Error do: [self presenter standardPlayer]!
Item was changed:
+ ----- Method: Player>>getClassName (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getClassName (in category '*Etoys-Squeakland-slot getters/setters') -----
getClassName
"Answer the name of the class"
^ self class name asString!
Item was changed:
+ ----- Method: Player>>getCurrentKey (in category 'input') -----
- ----- Method: Player>>getCurrentKey (in category '*Etoys-Squeakland-etoys-input') -----
getCurrentKey
^ self sendMessageToCostume: #currentKey!
Item was changed:
+ ----- Method: Player>>getDate (in category 'etoys-calendar') -----
- ----- Method: Player>>getDate (in category '*Etoys-Squeakland-etoys-calendar') -----
getDate
"Answer a string representing the selected date."
| format |
format := self getDateFormat caseOf: {
[#'dd/mm/yyyy'] -> [#(1 2 3 $/ 1 1)].
[#'yyyy/mm/dd'] -> [#(3 2 1 $/ 1 1)].
[#'mm/dd/yyyy'] -> [#(2 1 3 $/ 1 1)].
} otherwise: [#(1 2 3 $ 3 1 )].
^ self costume renderedMorph date printFormat: format!
Item was changed:
+ ----- Method: Player>>getDateFormat (in category 'etoys-calendar') -----
- ----- Method: Player>>getDateFormat (in category '*Etoys-Squeakland-etoys-calendar') -----
getDateFormat
^ self costume renderedMorph valueOfProperty: #dateFormat ifAbsent: [#'mm/dd/yyyy'].!
Item was changed:
+ ----- Method: Player>>getDay (in category 'etoys-calendar') -----
- ----- Method: Player>>getDay (in category '*Etoys-Squeakland-etoys-calendar') -----
getDay
"Answer the day-of-month of the selcted day."
^self costume renderedMorph date dayOfMonth!
Item was changed:
+ ----- Method: Player>>getDayName (in category 'etoys-calendar') -----
- ----- Method: Player>>getDayName (in category '*Etoys-Squeakland-etoys-calendar') -----
getDayName
"Answer the day-of-week (e.g. 'Monday') of the selected day."
^ self costume renderedMorph date weekday asString translated!
Item was changed:
+ ----- Method: Player>>getFilterValue: (in category 'sketch filters') -----
- ----- Method: Player>>getFilterValue: (in category '*Etoys-Squeakland-sketch filters') -----
getFilterValue: aFilter
self costume renderedMorph isSketchMorph ifFalse:[^0].
self costume renderedMorph filters
do: [:i | (i includes: aFilter)
ifTrue: [^i second]].
^0!
Item was changed:
+ ----- Method: Player>>getFishEye (in category 'sketch filters') -----
- ----- Method: Player>>getFishEye (in category '*Etoys-Squeakland-sketch filters') -----
getFishEye
^ self getFilterValue: #fishEye:form:!
Item was changed:
+ ----- Method: Player>>getFlashCursor (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getFlashCursor (in category '*Etoys-Squeakland-slot getters/setters') -----
getFlashCursor
"Obtain the cursor setting from a FlashPlayerMorph. Given a separate getter so that it can have a separate entry in the vocabulary's dictionary of methodInterfaces."
^ self getCursor!
Item was changed:
+ ----- Method: Player>>getForwardDirection (in category 'slots-bonus for geometry') -----
- ----- Method: Player>>getForwardDirection (in category '*Etoys-Squeakland-slots-bonus for geometry') -----
getForwardDirection
^ self costume forwardDirection!
Item was changed:
+ ----- Method: Player>>getGifPlaying (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>getGifPlaying (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
getGifPlaying
^self getValueFromCostume: #isStepping!
Item was changed:
+ ----- Method: Player>>getGraphCursor (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getGraphCursor (in category '*Etoys-Squeakland-slot getters/setters') -----
getGraphCursor
"Obtain the cursor setting from a FlashPlayerMorph. Given a separate getter so that it can have a separate entry in the vocabulary's dictionary of methodInterfaces."
^ self getCursor!
Item was changed:
+ ----- Method: Player>>getGreen (in category 'slots-color components') -----
- ----- Method: Player>>getGreen (in category '*Etoys-Squeakland-slots-color components') -----
getGreen
^ self getColor green * 100!
Item was changed:
+ ----- Method: Player>>getHasPenTrails (in category 'pen') -----
- ----- Method: Player>>getHasPenTrails (in category '*Etoys-Squeakland-pen') -----
getHasPenTrails
"Answer whether the receiver has any pen trails."
^ self costume renderedMorph hasPenTrails!
Item was changed:
+ ----- Method: Player>>getHash (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getHash (in category '*Etoys-Squeakland-slot getters/setters') -----
getHash
"Answer the receiver's hash"
^ self hash!
Item was changed:
+ ----- Method: Player>>getHighlightColor (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getHighlightColor (in category '*Etoys-Squeakland-slot getters/setters') -----
getHighlightColor
"Answer the value of the costume's highlightColor."
^ costume highlightColor
!
Item was changed:
+ ----- Method: Player>>getHue (in category 'slots-color components') -----
- ----- Method: Player>>getHue (in category '*Etoys-Squeakland-slots-color components') -----
getHue
| hue |
hue := self getColor hue.
^ hue > 180
ifTrue: [-360 + hue]
ifFalse: [hue]!
Item was changed:
+ ----- Method: Player>>getHueShift (in category 'sketch filters') -----
- ----- Method: Player>>getHueShift (in category '*Etoys-Squeakland-sketch filters') -----
getHueShift
^ self getFilterValue: #hueShift:form:!
Item was changed:
+ ----- Method: Player>>getImplicitSelfInTiles (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getImplicitSelfInTiles (in category '*Etoys-Squeakland-slot getters/setters') -----
getImplicitSelfInTiles
"Getter for the #implicitSelfInTiles preference."
^ Preferences implicitSelfInTiles!
Item was changed:
+ ----- Method: Player>>getJulianDay (in category 'etoys-calendar') -----
- ----- Method: Player>>getJulianDay (in category '*Etoys-Squeakland-etoys-calendar') -----
getJulianDay
"Answer the julian day of the corresponding calendar's selected date."
^ self costume renderedMorph date asJulianDayNumber!
Item was changed:
+ ----- Method: Player>>getKeyIsPressed (in category 'input') -----
- ----- Method: Player>>getKeyIsPressed (in category '*Etoys-Squeakland-etoys-input') -----
getKeyIsPressed
^ self sendMessageToCostume: #isPressed!
Item was changed:
+ ----- Method: Player>>getLineCurved (in category 'vertices operation') -----
- ----- Method: Player>>getLineCurved (in category '*Etoys-Squeakland-vertices operation') -----
getLineCurved
^ self costume isCurve!
Item was changed:
+ ----- Method: Player>>getLineOpened (in category 'vertices operation') -----
- ----- Method: Player>>getLineOpened (in category '*Etoys-Squeakland-vertices operation') -----
getLineOpened
^ self costume isOpen!
Item was changed:
+ ----- Method: Player>>getLocation (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getLocation (in category '*Etoys-Squeakland-slot getters/setters') -----
getLocation
"Answer the object's location. At the time of publication, the #getLocationRounded variant is the one actually in use."
^ self getX @ self getY!
Item was changed:
+ ----- Method: Player>>getLocationOnGraph (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>getLocationOnGraph (in category '*Etoys-Squeakland-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 changed:
+ ----- Method: Player>>getLocationRounded (in category 'points') -----
- ----- Method: Player>>getLocationRounded (in category '*Etoys-Squeakland-points') -----
getLocationRounded
"Answer the object's location, rounded for ease of display in a viewer"
^ (self getX @ self getY) rounded!
Item was changed:
+ ----- Method: Player>>getMagnification (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getMagnification (in category '*Etoys-Squeakland-slot getters/setters') -----
getMagnification
"Answer the bottom coordinate, in the cartesian sense (decreases towards bottom of screen)"
^ self costume renderedMorph magnification!
Item was changed:
+ ----- Method: Player>>getMarksPerLegend (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>getMarksPerLegend (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
getMarksPerLegend
^ self getValueFromCostume: #marksPerLegend!
Item was changed:
+ ----- Method: Player>>getMonth (in category 'etoys-calendar') -----
- ----- Method: Player>>getMonth (in category '*Etoys-Squeakland-etoys-calendar') -----
getMonth
"Answer the month-number of the selected month."
^ self costume renderedMorph date monthIndex!
Item was changed:
+ ----- Method: Player>>getMonthName (in category 'etoys-calendar') -----
- ----- Method: Player>>getMonthName (in category '*Etoys-Squeakland-etoys-calendar') -----
getMonthName
"Answer the month name, e.g. 'Oktober', of the selected month, in the local language."
^ self costume renderedMorph date monthName asString translated!
Item was changed:
+ ----- Method: Player>>getNumberOfPages (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getNumberOfPages (in category '*Etoys-Squeakland-slot getters/setters') -----
getNumberOfPages
"Answer how many pages the book currently has"
| aBook |
^ (aBook := self bookEmbodied)
ifNotNil:
[aBook pages size]
ifNil:
[0]!
Item was changed:
+ ----- Method: Player>>getObjectSize (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getObjectSize (in category '*Etoys-Squeakland-slot getters/setters') -----
getObjectSize
"Answer the receiver's object size. This is probably not the right thing to compute"
^ self class allInstVarNames size!
Item was changed:
+ ----- Method: Player>>getOpaque (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>getOpaque (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
getOpaque
^self getValueFromCostume: #isOpaque!
Item was changed:
+ ----- Method: Player>>getPageControlsAtTop (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getPageControlsAtTop (in category '*Etoys-Squeakland-slot getters/setters') -----
getPageControlsAtTop
"Answer whether the book is currently set to show page controls at top."
| aBook |
^ (aBook := self bookEmbodied)
ifNotNil:
[aBook pageControlsAtTop]
ifNil:
[false]!
Item was changed:
+ ----- Method: Player>>getPageControlsShort (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getPageControlsShort (in category '*Etoys-Squeakland-slot getters/setters') -----
getPageControlsShort
"Answer whether the book is currentset to show short page controls"
| aBook |
^ (aBook := self bookEmbodied)
ifNotNil:
[aBook pageControlsShort]
ifNil:
[false]!
Item was changed:
+ ----- Method: Player>>getPageControlsShowing (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getPageControlsShowing (in category '*Etoys-Squeakland-slot getters/setters') -----
getPageControlsShowing
"Answer whether the book is current showing page-controls"
| aBook |
^ (aBook := self bookEmbodied)
ifNotNil:
[aBook pageControlsVisible]
ifNil:
[false]!
Item was changed:
+ ----- Method: Player>>getPageCount (in category 'playing commands') -----
- ----- Method: Player>>getPageCount (in category '*Etoys-Squeakland-playing commands') -----
getPageCount
| b |
b := ScrapBook default scrapBook renderedMorph.
^ b ifNotNil: [b pages size] ifNil: [1].
!
Item was changed:
+ ----- Method: Player>>getPasteUpCursor (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getPasteUpCursor (in category '*Etoys-Squeakland-slot getters/setters') -----
getPasteUpCursor
"Obtain the cursor setting from a PasteUpMorph. Given a separate getter so that it can have a separate entry in the vocabulary's dictionary of methodInterfaces."
^ self getCursor!
Item was changed:
+ ----- Method: Player>>getPasteUpGraphic (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getPasteUpGraphic (in category '*Etoys-Squeakland-slot getters/setters') -----
getPasteUpGraphic
"Obtain the graphic from a PasteUpMorph. Given a separate getter so that it can have a separate entry in the vocabulary's dictionary of methodInterfaces."
^ self getGraphic!
Item was changed:
+ ----- Method: Player>>getPenTrailGraphic (in category 'pen') -----
- ----- Method: Player>>getPenTrailGraphic (in category '*Etoys-Squeakland-pen') -----
getPenTrailGraphic
"Answer a Form containing a snapshot of my pen trails."
^ (costume renderedMorph turtleTrailsForm ifNil:
[ScriptingSystem formAtKey: #NoTrails]) trimBordersOfColor: Color transparent
!
Item was changed:
+ ----- Method: Player>>getPixelsPerUnit (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>getPixelsPerUnit (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
getPixelsPerUnit
"Answer the number of pixels per unit on a number line"
^ costume renderedMorph pixelsPerUnit!
Item was changed:
+ ----- Method: Player>>getPrecisionFor: (in category 'slots-user') -----
- ----- Method: Player>>getPrecisionFor: (in category '*Etoys-Squeakland-slots-user') -----
getPrecisionFor: slotName
"get the precision for the given slot name"
| aGetter places precision |
precision := 1.
(self slotInfo includesKey: slotName)
ifTrue:
["it's a user slot"
precision := (self slotInfoAt: slotName) floatPrecision]
ifFalse:
["reference to system slots"
aGetter := slotName asGetterSelector.
self costume renderedMorph ifNotNil: [ :morph |
places := morph decimalPlacesForGetter: aGetter.
precision := Utilities floatPrecisionForDecimalPlaces: places ]].
^precision!
Item was changed:
+ ----- Method: Player>>getPrintString (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getPrintString (in category '*Etoys-Squeakland-slot getters/setters') -----
getPrintString
"Answer a string representing the object"
^ self costume printString!
Item was changed:
+ ----- Method: Player>>getRed (in category 'slots-color components') -----
- ----- Method: Player>>getRed (in category '*Etoys-Squeakland-slots-color components') -----
getRed
^ self getColor red * 100!
Item was changed:
+ ----- Method: Player>>getRelativeScale (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getRelativeScale (in category '*Etoys-Squeakland-slot getters/setters') -----
getRelativeScale
^ costume relativeScale
!
Item was changed:
+ ----- Method: Player>>getRotationCenter (in category 'slots-bonus for geometry') -----
- ----- Method: Player>>getRotationCenter (in category '*Etoys-Squeakland-slots-bonus for geometry') -----
getRotationCenter
| morph point world aPlayfield |
morph := self costume renderedMorph.
point := morph bounds origin + (morph rotationCenter * morph extent).
(self costume isKindOf: TransformMorph)
ifTrue: [point := self costume transform localPointToGlobal: point].
world := self costume world.
world
ifNil: [^ point].
aPlayfield := morph referencePlayfield.
^ aPlayfield isNil
ifTrue: [point x - world cartesianOrigin x @ (world cartesianOrigin y - point y)]
ifFalse: [point x - aPlayfield cartesianOrigin x @ (aPlayfield cartesianOrigin y - point y)]!
Item was changed:
+ ----- Method: Player>>getRotationCenterX (in category 'slots-bonus for geometry') -----
- ----- Method: Player>>getRotationCenterX (in category '*Etoys-Squeakland-slots-bonus for geometry') -----
getRotationCenterX
^ self getRotationCenter x!
Item was changed:
+ ----- Method: Player>>getRotationCenterY (in category 'slots-bonus for geometry') -----
- ----- Method: Player>>getRotationCenterY (in category '*Etoys-Squeakland-slots-bonus for geometry') -----
getRotationCenterY
^ self getRotationCenter y!
Item was changed:
+ ----- Method: Player>>getSamplingRate (in category 'MorphicExtras-Widgets') -----
- ----- Method: Player>>getSamplingRate (in category '*Etoys-Squeakland-MorphicExtras-Widgets') -----
getSamplingRate
^ self getValueFromCostume: #getSamplingRate!
Item was changed:
+ ----- Method: Player>>getSaturation (in category 'slots-color components') -----
- ----- Method: Player>>getSaturation (in category '*Etoys-Squeakland-slots-color components') -----
getSaturation
^ self getColor saturation * 100!
Item was changed:
+ ----- Method: Player>>getSaturationShift (in category 'sketch filters') -----
- ----- Method: Player>>getSaturationShift (in category '*Etoys-Squeakland-sketch filters') -----
getSaturationShift
^ self getFilterValue: #saturationShift:form:!
Item was changed:
+ ----- Method: Player>>getSectorAngle (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>getSectorAngle (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
getSectorAngle
^ self sendMessageToCostume: #angle!
Item was changed:
+ ----- Method: Player>>getSectorRadius (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>getSectorRadius (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
getSectorRadius
^ self sendMessageToCostume: #radius!
Item was changed:
+ ----- Method: Player>>getShowFPS (in category 'MorphicExtras-WebCam') -----
- ----- Method: Player>>getShowFPS (in category '*Etoys-Squeakland-MorphicExtras-WebCam') -----
getShowFPS
^ self getValueFromCostume: #getShowFPS!
Item was changed:
+ ----- Method: Player>>getShowNegativeArrowHead (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>getShowNegativeArrowHead (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
getShowNegativeArrowHead
^ self getValueFromCostume: #showNegativeArrowHead!
Item was changed:
+ ----- Method: Player>>getShowPointer (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getShowPointer (in category '*Etoys-Squeakland-slot getters/setters') -----
getShowPointer
"Answer the setting of my costume's showPointer"
^ self costume renderedMorph showPointer!
Item was changed:
+ ----- Method: Player>>getShowZero (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>getShowZero (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
getShowZero
^ self getValueFromCostume: #showZero!
Item was changed:
+ ----- Method: Player>>getShowingHandles (in category 'vertices operation') -----
- ----- Method: Player>>getShowingHandles (in category '*Etoys-Squeakland-vertices operation') -----
getShowingHandles
^ self costume showingHandles!
Item was changed:
+ ----- Method: Player>>getStarRatio (in category 'vertices operation') -----
- ----- Method: Player>>getStarRatio (in category '*Etoys-Squeakland-vertices operation') -----
getStarRatio
^ (self costume starRatio * 100) rounded!
Item was changed:
+ ----- Method: Player>>getTextColor (in category 'scripts-standard') -----
- ----- Method: Player>>getTextColor (in category '*Etoys-Squeakland-scripts-standard') -----
getTextColor
^ self costume renderedMorph selectionColor!
Item was changed:
+ ----- Method: Player>>getTextCursor (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getTextCursor (in category '*Etoys-Squeakland-slot getters/setters') -----
getTextCursor
"Obtain the cursor setting from a TextMorph. Given a separate getter so that it can have a separate entry in the vocabulary's dictionary of methodInterfaces."
^ self getCursor!
Item was changed:
+ ----- Method: Player>>getTimePressed (in category 'input') -----
- ----- Method: Player>>getTimePressed (in category '*Etoys-Squeakland-etoys-input') -----
getTimePressed
^ self sendMessageToCostume: #timePressed!
Item was changed:
+ ----- Method: Player>>getTimer (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getTimer (in category '*Etoys-Squeakland-slot getters/setters') -----
getTimer
| last msecs |
last := costume renderedMorph
valueOfProperty: #timerStart
ifAbsent: [0].
msecs := Time millisecondsSince: last.
"allow negative timer values, e.g. for count downs"
msecs > (SmallInteger maxVal // 2)
ifTrue: [msecs := msecs - SmallInteger maxVal].
^msecs / 1000.0!
Item was changed:
+ ----- Method: Player>>getTrackPointer (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getTrackPointer (in category '*Etoys-Squeakland-slot getters/setters') -----
getTrackPointer
"Answer the setting of my costume's trackPointer"
^ self costume renderedMorph trackPointer!
Item was changed:
+ ----- Method: Player>>getUnitsPerMark (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>getUnitsPerMark (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
getUnitsPerMark
^ self getValueFromCostume: #unitsPerMark!
Item was changed:
+ ----- Method: Player>>getUseFrameSize (in category 'MorphicExtras-WebCam') -----
- ----- Method: Player>>getUseFrameSize (in category '*Etoys-Squeakland-MorphicExtras-WebCam') -----
getUseFrameSize
^ self getValueFromCostume: #getUseFrameSize.
!
Item was changed:
+ ----- Method: Player>>getVertexCursor (in category 'vertices operation') -----
- ----- Method: Player>>getVertexCursor (in category '*Etoys-Squeakland-vertices operation') -----
getVertexCursor
^ self costume vertexCursor!
Item was changed:
+ ----- Method: Player>>getVerticesCount (in category 'vertices operation') -----
- ----- Method: Player>>getVerticesCount (in category '*Etoys-Squeakland-vertices operation') -----
getVerticesCount
^ self costume vertices size!
Item was changed:
+ ----- Method: Player>>getVideoGraphic (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>getVideoGraphic (in category '*Etoys-Squeakland-slot getters/setters') -----
getVideoGraphic
"Obtain the graphic from a VideoMorph. Given a separate getter so that it can have a separate entry in the vocabulary's dictionary of methodInterfaces."
^ self getGraphic!
Item was changed:
+ ----- Method: Player>>getWebCamIsOn (in category 'MorphicExtras-WebCam') -----
- ----- Method: Player>>getWebCamIsOn (in category '*Etoys-Squeakland-MorphicExtras-WebCam') -----
getWebCamIsOn
^ self getValueFromCostume: #getWebCamIsOn!
Item was changed:
+ ----- Method: Player>>getWebCamOrientation (in category 'MorphicExtras-WebCam') -----
- ----- Method: Player>>getWebCamOrientation (in category '*Etoys-Squeakland-MorphicExtras-WebCam') -----
getWebCamOrientation
^ self getValueFromCostume: #getWebCamOrientation!
Item was changed:
+ ----- Method: Player>>getWebCamResolution (in category 'MorphicExtras-WebCam') -----
- ----- Method: Player>>getWebCamResolution (in category '*Etoys-Squeakland-MorphicExtras-WebCam') -----
getWebCamResolution
^ self getValueFromCostume: #getWebCamResolution!
Item was changed:
+ ----- Method: Player>>getWhirl (in category 'sketch filters') -----
- ----- Method: Player>>getWhirl (in category '*Etoys-Squeakland-sketch filters') -----
getWhirl
^ self getFilterValue: #whirl:form:!
Item was changed:
+ ----- Method: Player>>getXAtCursor (in category 'vertices operation') -----
- ----- Method: Player>>getXAtCursor (in category '*Etoys-Squeakland-vertices operation') -----
getXAtCursor
^ (self costume xAtCursor) !
Item was changed:
+ ----- Method: Player>>getXOnGraph (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>getXOnGraph (in category '*Etoys-Squeakland-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) ifNotNil:
[:aNumberLine |
^ aNumberLine horizontalCoordinateOf: aCostume].
^ self getX!
Item was changed:
+ ----- Method: Player>>getYAtCursor (in category 'vertices operation') -----
- ----- Method: Player>>getYAtCursor (in category '*Etoys-Squeakland-vertices operation') -----
getYAtCursor
^ (self costume yAtCursor) !
Item was changed:
+ ----- Method: Player>>getYOnGraph (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>getYOnGraph (in category '*Etoys-Squeakland-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) ifNotNil:
[:aNumberLine |
^ aNumberLine verticalCoordinateOf: aCostume].
^ self getY!
Item was changed:
+ ----- Method: Player>>getYear (in category 'etoys-calendar') -----
- ----- Method: Player>>getYear (in category '*Etoys-Squeakland-etoys-calendar') -----
getYear
"Answer the selected year, as a number, e.g. 2011."
^ self costume renderedMorph date year!
Item was changed:
+ ----- Method: Player>>goToToday (in category 'etoys-calendar') -----
- ----- Method: Player>>goToToday (in category '*Etoys-Squeakland-etoys-calendar') -----
goToToday
"Tell the calendar to use the current day as its selected dated."
self costume renderedMorph date: Date today!
Item was changed:
+ ----- Method: Player>>handUserPictureOfPenTrail (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>handUserPictureOfPenTrail (in category '*Etoys-Squeakland-slot getters/setters') -----
handUserPictureOfPenTrail
"Called from the user-interface: hand the user a picture of the pen trail"
self getHasPenTrails ifFalse: [
^ self inform: 'no pen trails present' translated].
self currentHand attachMorph: (SketchMorph new form: self getPenTrailGraphic).!
Item was changed:
+ ----- Method: Player>>hideNavigationBar (in category 'misc') -----
- ----- Method: Player>>hideNavigationBar (in category '*Etoys-Squeakland-misc') -----
hideNavigationBar
"Hide the navigation bar at the top of the screen"
| tab |
((tab := costume world findA: SugarNavTab) notNil)
ifTrue:
[tab collapsedMode
ifFalse:
[tab hideNavBar]]!
Item was changed:
+ ----- Method: Player>>insertVertexAtCursor (in category 'vertices operation') -----
- ----- Method: Player>>insertVertexAtCursor (in category '*Etoys-Squeakland-vertices operation') -----
insertVertexAtCursor
self costume insertVertexAtCursor!
Item was changed:
+ ----- Method: Player>>isFillStyle: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>isFillStyle: (in category '*Etoys-Squeakland-slot getters/setters') -----
isFillStyle: prospective
"Answer whether the argument is some kind of fill-style."
^ prospective notNil and: [prospective isSymbol not]
!
Item was changed:
+ ----- Method: Player>>isInTrash (in category 'misc') -----
- ----- Method: Player>>isInTrash (in category '*Etoys-Squeakland-misc') -----
isInTrash
"Return true if I am in the trash (ScrapsBook)"
| next |
costume ifNil: [^ false].
next := costume.
[(next := next owner) notNil] whileTrue:
[(next hasProperty: #trash) ifTrue: [^ true].
(next hasProperty: #scraps) ifTrue: [^ true]].
^ false
!
Item was changed:
+ ----- Method: Player>>isOpaque: (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>isOpaque: (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
isOpaque: aBoolean
self costume isOpaque: aBoolean!
Item was changed:
+ ----- Method: Player>>isStepping (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>isStepping (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
isStepping
^self costume isStepping!
Item was changed:
+ ----- Method: Player>>kedamaWorld (in category 'slot-kedama') -----
- ----- Method: Player>>kedamaWorld (in category '*Etoys-Squeakland-slot-kedama') -----
kedamaWorld
^ Project current world findDeeplyA: KedamaMorph
!
Item was changed:
+ ----- Method: Player>>newPatchForSet (in category 'slot-kedama') -----
- ----- Method: Player>>newPatchForSet (in category '*Etoys-Squeakland-slot-kedama') -----
newPatchForSet
| f |
f := KedamaPatchMorph newExtent: self costume renderedMorph dimensions.
f assuredPlayer assureUniClass.
f setNameTo: (Project current world unusedMorphNameLike: f innocuousName).
f kedamaWorld: self costume renderedMorph.
self createSlotForPatch: f.
^ f!
Item was changed:
+ ----- Method: Player>>newTurtleForSet (in category 'slot-kedama') -----
- ----- Method: Player>>newTurtleForSet (in category '*Etoys-Squeakland-slot-kedama') -----
newTurtleForSet
| m |
m := KedamaTurtleMorph new openInWorld.
self costume renderedMorph hasNoTurtleBreed ifTrue: [m color: Color red].
self useTurtle: m player.
m setNameTo: (Project current world unusedMorphNameLike: m innocuousName).
^ m!
Item was changed:
+ ----- Method: Player>>playButtonHit (in category 'scripts-standard') -----
- ----- Method: Player>>playButtonHit (in category '*Etoys-Squeakland-scripts-standard') -----
playButtonHit
"The play button was hit."
costume renderedMorph playButtonHit!
Item was changed:
+ ----- Method: Player>>playFromCursorTo: (in category 'MorphicExtras-Widgets') -----
- ----- Method: Player>>playFromCursorTo: (in category '*Etoys-Squeakland-MorphicExtras-Widgets') -----
playFromCursorTo: aSampleNumber
costume renderedMorph playFromCursorTo: aSampleNumber!
Item was changed:
+ ----- Method: Player>>playSound: (in category 'sound') -----
- ----- Method: Player>>playSound: (in category '*Etoys-Squeakland-sound') -----
playSound: frequency
| newSound soundName |
self stopSound.
(soundName := self costume valueOfProperty: #sound)
ifNotNil: [newSound := SoundService default soundNamed: soundName.
newSound pitch: frequency].
(soundName isNil
or: [soundName = 'silence'])
ifTrue: [newSound := FMSound new
soundForPitch: frequency
dur: 100.0
loudness: 0.3].
self costume setProperty: #playingSound toValue: newSound.
SoundPlayer resumePlaying: newSound quickStart: true!
Item was changed:
+ ----- Method: Player>>prependVertex (in category 'vertices operation') -----
- ----- Method: Player>>prependVertex (in category '*Etoys-Squeakland-vertices operation') -----
prependVertex
self costume prependVertex!
Item was changed:
+ ----- Method: Player>>printInTranscript (in category 'scripts-standard') -----
- ----- Method: Player>>printInTranscript (in category '*Etoys-Squeakland-scripts-standard') -----
printInTranscript
"Print a line representing the receiver in the Transcript"
Project current world findATranscript: nil.
Transcript cr;
show: (Time now printString copyWithoutAll: '()');
space;
show: self costume printString.!
Item was changed:
+ ----- Method: Player>>random: (in category 'slot-kedama') -----
- ----- Method: Player>>random: (in category '*Etoys-Squeakland-slot-kedama') -----
random: range
"Answer a random integer between 0 and range."
<primitive: 'randomRange' module: 'KedamaPlugin2'>
^ range random
!
Item was changed:
+ ----- Method: Player>>recordButtonHit (in category 'scripts-standard') -----
- ----- Method: Player>>recordButtonHit (in category '*Etoys-Squeakland-scripts-standard') -----
recordButtonHit
"The record button was hit."
costume renderedMorph recordButtonHit!
Item was changed:
+ ----- Method: Player>>referencePool (in category 'morphic worlds') -----
- ----- Method: Player>>referencePool (in category '*Etoys-Squeakland-as yet unclassified') -----
referencePool
self costume ifNotNil: [:c | c referenceWorld ifNotNil: [:w | ^ w referencePool]].
^ nil.
!
Item was changed:
+ ----- Method: Player>>regenerateScripts (in category 'scripting') -----
- ----- Method: Player>>regenerateScripts (in category '*Etoys-Squeakland-as yet unclassified') -----
regenerateScripts
"This method is a temporary measure to ensure the project local References get in the compiled scripts. (When compiled methods are recompiled via #compileAll, it is done in a ways that it ignores the environment."
self class scripts do: [:e | (e instantiatedScriptEditorForPlayer: self) install].
!
Item was changed:
+ ----- Method: Player>>removeAllButCursor (in category 'vertices operation') -----
- ----- Method: Player>>removeAllButCursor (in category '*Etoys-Squeakland-vertices operation') -----
removeAllButCursor
self costume removeAllButCursor!
Item was changed:
+ ----- Method: Player>>removeFilters (in category 'sketch filters') -----
- ----- Method: Player>>removeFilters (in category '*Etoys-Squeakland-sketch filters') -----
removeFilters
self sendMessageToCostume: #removeFilters!
Item was changed:
+ ----- Method: Player>>removeScriptNamed: (in category 'slots-kernel') -----
- ----- Method: Player>>removeScriptNamed: (in category '*Etoys-Squeakland-slots-kernel') -----
removeScriptNamed: aScriptName
self class removeScriptNamed: aScriptName.
!
Item was changed:
+ ----- Method: Player>>removeVertexAtCursor (in category 'vertices operation') -----
- ----- Method: Player>>removeVertexAtCursor (in category '*Etoys-Squeakland-vertices operation') -----
removeVertexAtCursor
self costume removeVertexAtCursor!
Item was changed:
+ ----- Method: Player>>removeWatchersOfSlotNamed: (in category 'translation') -----
- ----- Method: Player>>removeWatchersOfSlotNamed: (in category '*Etoys-Squeakland-translation') -----
removeWatchersOfSlotNamed: aName
"A variable has been removed. Deal with possible watchers."
| aGetter |
aGetter := aName asGetterSelector.
self allPossibleWatchersFromWorld do: [:aWatcher |
(aWatcher getSelector = aGetter) ifTrue:
[aWatcher stopStepping.
(aWatcher ownerThatIsA: WatcherWrapper) ifNotNil:
[:aWrapper | aWrapper delete]]]!
Item was changed:
+ ----- Method: Player>>revertPage (in category 'card/stack commands') -----
- ----- Method: Player>>revertPage (in category '*Etoys-Squeakland-card/stack commands') -----
revertPage
"If there is a saved version of the current page, revert to it."
| bm |
((bm := costume renderedMorph) isKindOf: BookMorph) ifFalse: [^ self].
bm revertPage!
Item was changed:
+ ----- Method: Player>>sayGraphic: (in category 'SpeechBubbles') -----
- ----- Method: Player>>sayGraphic: (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
sayGraphic: aGraphic
self costume renderedMorph sayGraphic: aGraphic!
Item was changed:
+ ----- Method: Player>>sayNumber: (in category 'SpeechBubbles') -----
- ----- Method: Player>>sayNumber: (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
sayNumber: aNumber
self costume renderedMorph say: aNumber asString!
Item was changed:
+ ----- Method: Player>>sayObject: (in category 'SpeechBubbles') -----
- ----- Method: Player>>sayObject: (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
sayObject: aPlayer
self costume renderedMorph sayObject: aPlayer!
Item was changed:
+ ----- Method: Player>>sayText: (in category 'SpeechBubbles') -----
- ----- Method: Player>>sayText: (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
sayText: aString
self costume renderedMorph say: aString!
Item was changed:
+ ----- Method: Player>>scriptEditorForNoCng: (in category 'scripts-kernel') -----
- ----- Method: Player>>scriptEditorForNoCng: (in category '*Etoys-Squeakland-scripts-kernel') -----
scriptEditorForNoCng: aSelector
"Answer the receiver's script editor for aSelector. The script editor may be targeted to a sibiling of me. Do not change the script editor's receiver."
| aScriptEditor |
aScriptEditor := (self class userScriptForPlayer: self selector: aSelector) instantiatedScriptEditorForPlayer: self. "creates an editor if none exists"
aScriptEditor bringUpToDate.
^ aScriptEditor!
Item was changed:
+ ----- Method: Player>>setAttachmentEdge: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setAttachmentEdge: (in category '*Etoys-Squeakland-slot getters/setters') -----
setAttachmentEdge: aSymbol
"Set the attachment edge to the given symbol"
^ costume renderedMorph attachmentEdge: aSymbol!
Item was changed:
+ ----- Method: Player>>setAttachmentOffset: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setAttachmentOffset: (in category '*Etoys-Squeakland-slot getters/setters') -----
setAttachmentOffset: aPoint
"Set the attachment offset, a point"
^ costume renderedMorph attachmentOffset: aPoint!
Item was changed:
+ ----- Method: Player>>setBlue: (in category 'slots-color components') -----
- ----- Method: Player>>setBlue: (in category '*Etoys-Squeakland-slots-color components') -----
setBlue: aFloat
"Set the blue component of my costume, if appropriate."
| aColor aValue |
aColor := self getColor.
aValue := (aFloat / 100 max: 0) min: 1.
self setColor: (Color
r: aColor red
g: aColor green
b: aValue
alpha: aColor alpha)!
Item was changed:
+ ----- Method: Player>>setBlur: (in category 'sketch filters') -----
- ----- Method: Player>>setBlur: (in category '*Etoys-Squeakland-sketch filters') -----
setBlur: aNumber
| number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
number := aNumber asInteger min:100 max:0.
self sendMessageToCostume: #filtersAdd: with: { #blur:form: . number}!
Item was changed:
+ ----- Method: Player>>setBrightness: (in category 'slots-color components') -----
- ----- Method: Player>>setBrightness: (in category '*Etoys-Squeakland-slots-color components') -----
setBrightness: aFloat
"Set the brightness of my costume, if appropriate."
| aColor aValue |
aColor := self getColor.
aValue := (aFloat / 100 max: 0) min: 1.
self setColor: (Color
h: aColor hue
s: aColor saturation
v: aValue
alpha: aColor alpha)!
Item was changed:
+ ----- Method: Player>>setBrightnessShift: (in category 'sketch filters') -----
- ----- Method: Player>>setBrightnessShift: (in category '*Etoys-Squeakland-sketch filters') -----
setBrightnessShift: aNumber
| number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
number := aNumber asInteger min:100 max:-100.
self sendMessageToCostume: #filtersAdd: with: { #brightnessShift:form: . number}!
Item was changed:
+ ----- Method: Player>>setDateFormat: (in category 'etoys-calendar') -----
- ----- Method: Player>>setDateFormat: (in category '*Etoys-Squeakland-etoys-calendar') -----
setDateFormat: aSymbol
self costume renderedMorph setProperty: #dateFormat toValue: aSymbol!
Item was changed:
+ ----- Method: Player>>setDay: (in category 'etoys-calendar') -----
- ----- Method: Player>>setDay: (in category '*Etoys-Squeakland-etoys-calendar') -----
setDay: aNumber
"Set the day (of the month) as indicated."
^ self costume renderedMorph addDays: (aNumber - self getDay)!
Item was changed:
+ ----- Method: Player>>setFishEye: (in category 'sketch filters') -----
- ----- Method: Player>>setFishEye: (in category '*Etoys-Squeakland-sketch filters') -----
setFishEye: aNumber
| number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
number := aNumber asInteger max:-10.
self sendMessageToCostume: #filtersAdd: with: { #fishEye:form: . number}!
Item was changed:
+ ----- Method: Player>>setFlashCursor: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setFlashCursor: (in category '*Etoys-Squeakland-slot getters/setters') -----
setFlashCursor: c
"Set the cursor"
^ self setCursor:c!
Item was changed:
+ ----- Method: Player>>setForwardDirection: (in category 'slots-bonus for geometry') -----
- ----- Method: Player>>setForwardDirection: (in category '*Etoys-Squeakland-slots-bonus for geometry') -----
setForwardDirection: aNumber
self costume renderedMorph forwardDirection: aNumber!
Item was changed:
+ ----- Method: Player>>setGifPlaying: (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>setGifPlaying: (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
setGifPlaying: aBoolean
self setCostumeSlot: #setStepping: toValue: aBoolean
!
Item was changed:
+ ----- Method: Player>>setGraphCursor: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setGraphCursor: (in category '*Etoys-Squeakland-slot getters/setters') -----
setGraphCursor: c
"Set the cursor"
^ self setCursor:c!
Item was changed:
+ ----- Method: Player>>setGraphic:rotationCenter: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setGraphic:rotationCenter: (in category '*Etoys-Squeakland-slot getters/setters') -----
setGraphic: aForm rotationCenter: aPoint
"Set the receiver's graphic as indicated"
| aMorph |
^ ((aMorph := costume renderedMorph) isSketchMorph)
ifTrue:
[aMorph form: aForm rotationCenter: aPoint]
ifFalse:
[aMorph isPlayfieldLike
ifTrue:
[aMorph backgroundForm: aForm]
ifFalse:
["what to do?"]]!
Item was changed:
+ ----- Method: Player>>setGreen: (in category 'slots-color components') -----
- ----- Method: Player>>setGreen: (in category '*Etoys-Squeakland-slots-color components') -----
setGreen: aFloat
"Set the green component of my costume, if appropriate."
| aColor aValue |
aColor := self getColor.
aValue := (aFloat / 100 max: 0) min: 1.
self setColor: (Color
r: aColor red
g: aValue
b: aColor blue
alpha: aColor alpha)!
Item was changed:
+ ----- Method: Player>>setHighlightColor: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setHighlightColor: (in category '*Etoys-Squeakland-slot getters/setters') -----
setHighlightColor: aColor
"Set the costume's highlightColor."
costume highlightColor: aColor!
Item was changed:
+ ----- Method: Player>>setHue: (in category 'slots-color components') -----
- ----- Method: Player>>setHue: (in category '*Etoys-Squeakland-slots-color components') -----
setHue: aFloat
"Set the hue of my costume, if appropriate."
| aColor aValue |
aColor := self getColor.
aValue := aFloat \\ 360.
self setColor: (Color
h: aValue
s: aColor saturation
v: aColor brightness
alpha: aColor alpha)!
Item was changed:
+ ----- Method: Player>>setHueShift: (in category 'sketch filters') -----
- ----- Method: Player>>setHueShift: (in category '*Etoys-Squeakland-sketch filters') -----
setHueShift: aNumber
| number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
number := aNumber asInteger min:360 max: -360.
self sendMessageToCostume: #filtersAdd: with: {#hueShift:form:. number}!
Item was changed:
+ ----- Method: Player>>setImplicitSelfInTiles: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setImplicitSelfInTiles: (in category '*Etoys-Squeakland-slot getters/setters') -----
setImplicitSelfInTiles: aBoolean
"Set the value of the implicitSelfInTiles preference."
Preferences setPreference: #implicitSelfInTiles toValue: aBoolean!
Item was changed:
+ ----- Method: Player>>setJulianDay: (in category 'etoys-calendar') -----
- ----- Method: Player>>setJulianDay: (in category '*Etoys-Squeakland-etoys-calendar') -----
setJulianDay: aNumber
"Set the selected date to be the one corresponding to the argument provided, interpreted as a julian day."
^ self costume renderedMorph date: (DateAndTime julianDayNumber: aNumber) asDate!
Item was changed:
+ ----- Method: Player>>setLineCurved: (in category 'vertices operation') -----
- ----- Method: Player>>setLineCurved: (in category '*Etoys-Squeakland-vertices operation') -----
setLineCurved: aBoolean
(aBoolean xor: self costume isCurve)
ifTrue: [self costume toggleSmoothing]!
Item was changed:
+ ----- Method: Player>>setLineOpened: (in category 'vertices operation') -----
- ----- Method: Player>>setLineOpened: (in category '*Etoys-Squeakland-vertices operation') -----
setLineOpened: aBoolean
(aBoolean xor: self costume isOpen)
ifTrue: [self costume makeOpenOrClosed]!
Item was changed:
+ ----- Method: Player>>setLocation: (in category 'points') -----
- ----- Method: Player>>setLocation: (in category '*Etoys-Squeakland-points') -----
setLocation: val
"Set the receiver's location; expected to be called with a point argument"
| aCostume |
(val isKindOf: Point) ifFalse: [^ ScriptingSystem reportToUser: 'Expected a Point but instead got ' translated, val printString].
(aCostume := self costume) isInWorld ifFalse: [^ self].
aCostume isWorldOrHandMorph ifTrue: [^ self].
aCostume owner isHandMorph ifTrue: [^ self].
^ aCostume x: val x y: val y!
Item was changed:
+ ----- Method: Player>>setLocationOnGraph: (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>setLocationOnGraph: (in category '*Etoys-Squeakland-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 changed:
+ ----- Method: Player>>setMagnification: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setMagnification: (in category '*Etoys-Squeakland-slot getters/setters') -----
setMagnification: aNumber
"Set the magnification"
^ self costume renderedMorph magnification: aNumber!
Item was changed:
+ ----- Method: Player>>setMarksPerLegend: (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>setMarksPerLegend: (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
setMarksPerLegend: aValue
self setCostumeSlot: #marksPerLegend: toValue: aValue!
Item was changed:
+ ----- Method: Player>>setMonth: (in category 'etoys-calendar') -----
- ----- Method: Player>>setMonth: (in category '*Etoys-Squeakland-etoys-calendar') -----
setMonth: aNumber
"Set the month-number as indicated."
^ self costume renderedMorph addMonths: (aNumber - self getMonth)!
Item was changed:
+ ----- Method: Player>>setOpaque: (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>setOpaque: (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
setOpaque: aBoolean
self setCostumeSlot: #isOpaque: toValue: aBoolean!
Item was changed:
+ ----- Method: Player>>setPageControlsAtTop: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setPageControlsAtTop: (in category '*Etoys-Squeakland-slot getters/setters') -----
setPageControlsAtTop: aBoolean
"Set whether the book should show page controls at top."
| aBook |
^ (aBook := self bookEmbodied)
ifNotNil:
[aBook pageControlsAtTop: aBoolean]!
Item was changed:
+ ----- Method: Player>>setPageControlsShort: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setPageControlsShort: (in category '*Etoys-Squeakland-slot getters/setters') -----
setPageControlsShort: aBoolean
"Set whether the book is set for short page controls currently"
| aBook |
^ (aBook := self bookEmbodied)
ifNotNil:
[aBook pageControlsShort: aBoolean]!
Item was changed:
+ ----- Method: Player>>setPageControlsShowing: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setPageControlsShowing: (in category '*Etoys-Squeakland-slot getters/setters') -----
setPageControlsShowing: aBoolean
"Answer whether the book is current showing page-controls"
| aBook |
^ (aBook := self bookEmbodied)
ifNotNil:
[aBoolean
ifTrue:
[aBook showPageControls]
ifFalse:
[aBook hidePageControls]]!
Item was changed:
+ ----- Method: Player>>setPasteUpCursor: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setPasteUpCursor: (in category '*Etoys-Squeakland-slot getters/setters') -----
setPasteUpCursor: aNumber
"Set my costume's cursor to the given number"
^ self setCursor: aNumber!
Item was changed:
+ ----- Method: Player>>setPasteUpGraphic: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setPasteUpGraphic: (in category '*Etoys-Squeakland-slot getters/setters') -----
setPasteUpGraphic: g
"Answer a form representing the receiver's primary graphic"
^ self setGraphic: g!
Item was changed:
+ ----- Method: Player>>setPixelsPerUnit: (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>setPixelsPerUnit: (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
setPixelsPerUnit: aNumber
self setCostumeSlot: #pixelsPerUnit: toValue: aNumber!
Item was changed:
+ ----- Method: Player>>setPrecisionFor:precision: (in category 'slots-user') -----
- ----- Method: Player>>setPrecisionFor:precision: (in category '*Etoys-Squeakland-slots-user') -----
setPrecisionFor: slotName precision: aNumber
| val |
(self slotInfo includesKey: slotName)
ifTrue:
["it's a user slot"
(self slotInfoAt: slotName)
floatPrecision: (Utilities floatPrecisionForDecimalPlaces: aNumber).
self class allInstancesDo:
[:anInst |
aNumber == 0
ifFalse:
[((val := anInst instVarNamed: slotName asString) isInteger)
ifTrue: [anInst instVarNamed: slotName asString put: val asFloat]].
anInst updateAllViewers]]
ifFalse:
["it's specifying a preference for precision on a system-defined numeric slot"
self noteDecimalPlaces: aNumber forGetter: slotName asGetterSelector.
self updateAllViewers]!
Item was changed:
+ ----- Method: Player>>setRed: (in category 'slots-color components') -----
- ----- Method: Player>>setRed: (in category '*Etoys-Squeakland-slots-color components') -----
setRed: aFloat
"Set the red component of my costume, if appropriate."
| aColor aValue |
aColor := self getColor.
aValue := (aFloat / 100 max: 0) min: 1.
self setColor: (Color
r: aValue
g: aColor green
b: aColor blue
alpha: aColor alpha)!
Item was changed:
+ ----- Method: Player>>setRelativeScale: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setRelativeScale: (in category '*Etoys-Squeakland-slot getters/setters') -----
setRelativeScale: aBoolean
costume relativeScale: aBoolean!
Item was changed:
+ ----- Method: Player>>setRotationCenter: (in category 'slots-bonus for geometry') -----
- ----- Method: Player>>setRotationCenter: (in category '*Etoys-Squeakland-slots-bonus for geometry') -----
setRotationCenter: aPointOfCartesian
| morph world aPlayfield newPoint |
morph := self costume renderedMorph.
world := self costume world.
world
ifNil: [^ morph setRotationCenterFrom: aPointOfCartesian].
aPlayfield := morph referencePlayfield.
newPoint := aPlayfield isNil
ifTrue: [world cartesianOrigin x + aPointOfCartesian x @ (world cartesianOrigin y - aPointOfCartesian y)]
ifFalse: [aPlayfield cartesianOrigin x + aPointOfCartesian x @ (aPlayfield cartesianOrigin y - aPointOfCartesian y)].
(self costume isKindOf: TransformMorph)
ifTrue: [newPoint := self costume transform globalPointToLocal: newPoint].
morph setRotationCenterFrom: newPoint!
Item was changed:
+ ----- Method: Player>>setRotationCenterX: (in category 'slots-bonus for geometry') -----
- ----- Method: Player>>setRotationCenterX: (in category '*Etoys-Squeakland-slots-bonus for geometry') -----
setRotationCenterX: aNumber
self setRotationCenter: aNumber @ self getRotationCenterY!
Item was changed:
+ ----- Method: Player>>setRotationCenterY: (in category 'slots-bonus for geometry') -----
- ----- Method: Player>>setRotationCenterY: (in category '*Etoys-Squeakland-slots-bonus for geometry') -----
setRotationCenterY: aNumber
self setRotationCenter: self getRotationCenterX @ aNumber!
Item was changed:
+ ----- Method: Player>>setSamplingRate: (in category 'MorphicExtras-Widgets') -----
- ----- Method: Player>>setSamplingRate: (in category '*Etoys-Squeakland-MorphicExtras-Widgets') -----
setSamplingRate: aSymbol
costume renderedMorph setSamplingRate: aSymbol!
Item was changed:
+ ----- Method: Player>>setSaturation: (in category 'slots-color components') -----
- ----- Method: Player>>setSaturation: (in category '*Etoys-Squeakland-slots-color components') -----
setSaturation: aFloat
"Set the saturation of my costume, if appropriate."
| aColor aValue |
aColor := self getColor.
aValue := (aFloat / 100 max: 0) min: 1.
self setColor: (Color
h: aColor hue
s: aValue
v: aColor brightness
alpha: aColor alpha)!
Item was changed:
+ ----- Method: Player>>setSaturationShift: (in category 'sketch filters') -----
- ----- Method: Player>>setSaturationShift: (in category '*Etoys-Squeakland-sketch filters') -----
setSaturationShift: aNumber
| number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
number := aNumber asInteger min:100 max: -100.
self sendMessageToCostume: #filtersAdd: with: { #saturationShift:form: . number}!
Item was changed:
+ ----- Method: Player>>setSectorAngle: (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>setSectorAngle: (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
setSectorAngle: aNumber
^ self sendMessageToCostume: #angle: with: aNumber!
Item was changed:
+ ----- Method: Player>>setSectorRadius: (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>setSectorRadius: (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
setSectorRadius: aNumber
^ self sendMessageToCostume: #radius: with: aNumber!
Item was changed:
+ ----- Method: Player>>setShowFPS: (in category 'MorphicExtras-WebCam') -----
- ----- Method: Player>>setShowFPS: (in category '*Etoys-Squeakland-MorphicExtras-WebCam') -----
setShowFPS: aBoolean
self setCostumeSlot: #setShowFPS: toValue: aBoolean!
Item was changed:
+ ----- Method: Player>>setShowNegativeArrowHead: (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>setShowNegativeArrowHead: (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
setShowNegativeArrowHead: aBoolean
self setCostumeSlot: #showNegativeArrowHead: toValue: aBoolean!
Item was changed:
+ ----- Method: Player>>setShowPointer: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setShowPointer: (in category '*Etoys-Squeakland-slot getters/setters') -----
setShowPointer: aBoolean
"Set the value of my costume's showPointer"
^ self costume renderedMorph showPointer: aBoolean!
Item was changed:
+ ----- Method: Player>>setShowZero: (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>setShowZero: (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
setShowZero: aBoolean
self setCostumeSlot: #showZero: toValue: aBoolean!
Item was changed:
+ ----- Method: Player>>setShowingHandles: (in category 'vertices operation') -----
- ----- Method: Player>>setShowingHandles: (in category '*Etoys-Squeakland-vertices operation') -----
setShowingHandles: aBoolean
(aBoolean xor: self costume showingHandles)
ifTrue: [self costume toggleHandles]!
Item was changed:
+ ----- Method: Player>>setSound: (in category 'sound') -----
- ----- Method: Player>>setSound: (in category '*Etoys-Squeakland-sound') -----
setSound: aSound
self costume setProperty: #sound toValue: aSound!
Item was changed:
+ ----- Method: Player>>setStarRatio: (in category 'vertices operation') -----
- ----- Method: Player>>setStarRatio: (in category '*Etoys-Squeakland-vertices operation') -----
setStarRatio: aInteger
| int float |
int := aInteger min: 100 max: 1.
float := (100 / int) asFloat.
^ self costume starRatio: float!
Item was changed:
+ ----- Method: Player>>setStepping: (in category 'MorphicExtras-AdditionalMorphs') -----
- ----- Method: Player>>setStepping: (in category '*Etoys-Squeakland-MorphicExtras-AdditionalMorphs') -----
setStepping: aBoolean
self costume setStepping:aBoolean
!
Item was changed:
+ ----- Method: Player>>setTextColor: (in category 'scripts-standard') -----
- ----- Method: Player>>setTextColor: (in category '*Etoys-Squeakland-scripts-standard') -----
setTextColor: aColor
"Set the background color; the costume is presumed to be a text morph."
self costume renderedMorph selectionColor: aColor!
Item was changed:
+ ----- Method: Player>>setTextCursor: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setTextCursor: (in category '*Etoys-Squeakland-slot getters/setters') -----
setTextCursor: c
"Set the cursor"
^ self setCursor:c!
Item was changed:
+ ----- Method: Player>>setTimer: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setTimer: (in category '*Etoys-Squeakland-slot getters/setters') -----
setTimer: seconds
costume renderedMorph
setProperty: #timerStart
toValue: Time millisecondClockValue - (seconds * 1000) asInteger!
Item was changed:
+ ----- Method: Player>>setTrackPointer: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setTrackPointer: (in category '*Etoys-Squeakland-slot getters/setters') -----
setTrackPointer: aBoolean
"Set the value of my costume's trackPointer"
^ self costume renderedMorph trackPointer: aBoolean!
Item was changed:
+ ----- Method: Player>>setUnitsPerMark: (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>setUnitsPerMark: (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
setUnitsPerMark: aValue
self setCostumeSlot: #unitsPerMark: toValue: aValue!
Item was changed:
+ ----- Method: Player>>setUnitsPerTick: (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>setUnitsPerTick: (in category '*Etoys-Squeakland-morphicExtras-Charts') -----
setUnitsPerTick: aNumber
self setCostumeSlot: #unitsPerTick: toValue: aNumber!
Item was changed:
+ ----- Method: Player>>setUseFrameSize: (in category 'MorphicExtras-WebCam') -----
- ----- Method: Player>>setUseFrameSize: (in category '*Etoys-Squeakland-MorphicExtras-WebCam') -----
setUseFrameSize: aBoolean
self setCostumeSlot:#setUseFrameSize: toValue:aBoolean!
Item was changed:
+ ----- Method: Player>>setVertexCursor: (in category 'vertices operation') -----
- ----- Method: Player>>setVertexCursor: (in category '*Etoys-Squeakland-vertices operation') -----
setVertexCursor: anInteger
self costume vertexCursor: anInteger
!
Item was changed:
+ ----- Method: Player>>setVerticesCount: (in category 'vertices operation') -----
- ----- Method: Player>>setVerticesCount: (in category '*Etoys-Squeakland-vertices operation') -----
setVerticesCount: aInteger
self costume setVerticesCount: aInteger!
Item was changed:
+ ----- Method: Player>>setVideoGraphic: (in category 'slot getters/setters-Squeakland') -----
- ----- Method: Player>>setVideoGraphic: (in category '*Etoys-Squeakland-slot getters/setters') -----
setVideoGraphic: g
"Answer a form representing the receiver's primary graphic"
^ self setGraphic: g!
Item was changed:
+ ----- Method: Player>>setWebCamIsOn: (in category 'MorphicExtras-WebCam') -----
- ----- Method: Player>>setWebCamIsOn: (in category '*Etoys-Squeakland-MorphicExtras-WebCam') -----
setWebCamIsOn: aBoolean
self setCostumeSlot: #setWebCamIsOn: toValue: aBoolean!
Item was changed:
+ ----- Method: Player>>setWebCamOrientation: (in category 'MorphicExtras-WebCam') -----
- ----- Method: Player>>setWebCamOrientation: (in category '*Etoys-Squeakland-MorphicExtras-WebCam') -----
setWebCamOrientation: aSymbol
costume renderedMorph setWebCamOrientation: aSymbol!
Item was changed:
+ ----- Method: Player>>setWebCamResolution: (in category 'MorphicExtras-WebCam') -----
- ----- Method: Player>>setWebCamResolution: (in category '*Etoys-Squeakland-MorphicExtras-WebCam') -----
setWebCamResolution: aSymbol
costume renderedMorph setWebCamResolution: aSymbol!
Item was changed:
+ ----- Method: Player>>setWhirl: (in category 'sketch filters') -----
- ----- Method: Player>>setWhirl: (in category '*Etoys-Squeakland-sketch filters') -----
setWhirl: aNumber
| number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
number := aNumber truncated.
self sendMessageToCostume: #filtersAdd: with: { #whirl:form: . number}!
Item was changed:
+ ----- Method: Player>>setXAtCursor: (in category 'vertices operation') -----
- ----- Method: Player>>setXAtCursor: (in category '*Etoys-Squeakland-vertices operation') -----
setXAtCursor: aNumber
^ self costume xAtCursor: aNumber!
Item was changed:
+ ----- Method: Player>>setXOnGraph: (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>setXOnGraph: (in category '*Etoys-Squeakland-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) ifNotNil:
[:aNumberLine |
^ aNumberLine setXOnGraphFor: aCostume to: aNumber].
^ self getX!
Item was changed:
+ ----- Method: Player>>setYAtCursor: (in category 'vertices operation') -----
- ----- Method: Player>>setYAtCursor: (in category '*Etoys-Squeakland-vertices operation') -----
setYAtCursor: aNumber
^ self costume yAtCursor: aNumber!
Item was changed:
+ ----- Method: Player>>setYOnGraph: (in category 'morphicExtras-Charts') -----
- ----- Method: Player>>setYOnGraph: (in category '*Etoys-Squeakland-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) ifNotNil:
[:aNumberLine |
^ aNumberLine setYOnGraphFor: aCostume to: aNumber].
^ self setY: aNumber!
Item was changed:
+ ----- Method: Player>>setYear: (in category 'etoys-calendar') -----
- ----- Method: Player>>setYear: (in category '*Etoys-Squeakland-etoys-calendar') -----
setYear: aNumber
"Set the selected year as indicated."
self costume renderedMorph addMonths: 12 * (aNumber - self getYear)!
Item was changed:
+ ----- Method: Player>>showNavigationBar (in category 'misc') -----
- ----- Method: Player>>showNavigationBar (in category '*Etoys-Squeakland-misc') -----
showNavigationBar
"Show the navigation bar at the top of the screen"
| tab |
((tab := costume world findA: SugarNavTab) notNil)
ifTrue:
[tab collapsedMode
ifTrue:
[tab showNavBar]]!
Item was changed:
+ ----- Method: Player>>shuffleVertices (in category 'vertices operation') -----
- ----- Method: Player>>shuffleVertices (in category '*Etoys-Squeakland-vertices operation') -----
shuffleVertices
self costume shuffleVertices!
Item was changed:
+ ----- Method: Player>>stopAttaching (in category 'SpeechBubbles') -----
- ----- Method: Player>>stopAttaching (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
stopAttaching
self sendMessageToCostume: #target: with: nil!
Item was changed:
+ ----- Method: Player>>stopButtonHit (in category 'scripts-standard') -----
- ----- Method: Player>>stopButtonHit (in category '*Etoys-Squeakland-scripts-standard') -----
stopButtonHit
"The stop button was hit."
costume renderedMorph stopButtonHit!
Item was changed:
+ ----- Method: Player>>stopSayingOrThinking (in category 'SpeechBubbles') -----
- ----- Method: Player>>stopSayingOrThinking (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
stopSayingOrThinking
self costume renderedMorph stopSayingOrThinking!
Item was changed:
+ ----- Method: Player>>tearOffAttachedLabeledWatcherFor: (in category 'slots-user') -----
- ----- Method: Player>>tearOffAttachedLabeledWatcherFor: (in category '*Etoys-Squeakland-slots-user') -----
tearOffAttachedLabeledWatcherFor: aGetter
"Open a following watcher for the given getter."
(FollowingWatcher new fancyForPlayer: self getter: aGetter) openInWorld!
Item was changed:
+ ----- Method: Player>>tearOffAttachedWatcherFor: (in category 'slots-user') -----
- ----- Method: Player>>tearOffAttachedWatcherFor: (in category '*Etoys-Squeakland-slots-user') -----
tearOffAttachedWatcherFor: aGetter
"Open a following watcher for the given getter."
(FollowingWatcher new unlabeledForPlayer: self getter: aGetter) openInWorld!
Item was changed:
+ ----- Method: Player>>thinkGraphic: (in category 'SpeechBubbles') -----
- ----- Method: Player>>thinkGraphic: (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
thinkGraphic: aGraphic
self costume renderedMorph thinkGraphic: aGraphic!
Item was changed:
+ ----- Method: Player>>thinkNumber: (in category 'SpeechBubbles') -----
- ----- Method: Player>>thinkNumber: (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
thinkNumber: aNumber
self costume renderedMorph think: aNumber asString!
Item was changed:
+ ----- Method: Player>>thinkObject: (in category 'SpeechBubbles') -----
- ----- Method: Player>>thinkObject: (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
thinkObject: aPlayer
self costume renderedMorph thinkObject: aPlayer!
Item was changed:
+ ----- Method: Player>>thinkText: (in category 'SpeechBubbles') -----
- ----- Method: Player>>thinkText: (in category '*Etoys-Squeakland-Etoys-SpeechBubbles') -----
thinkText: aString
self costume renderedMorph think: aString!
Item was changed:
+ ----- Method: Player>>updateScriptsCategoryOfViewers (in category 'misc') -----
- ----- Method: Player>>updateScriptsCategoryOfViewers (in category '*Etoys-Squeakland-misc') -----
updateScriptsCategoryOfViewers
"Update scripts category of all Viewers affeced by a change to the scripts of the receiver."
self allOpenViewersOnReceiverAndSiblings do:
[:aViewer |
aViewer updateScriptsCategory.
aViewer isInWorld ifTrue:
[aViewer assureScriptsCategoryShows]]!
Item was changed:
+ ----- Method: Player>>useBlueprintCanvas (in category 'misc') -----
- ----- Method: Player>>useBlueprintCanvas (in category '*Etoys-Squeakland-misc') -----
useBlueprintCanvas
"Tell my costume to use a blueprint canvas."
costume world useBlueprintCanvas: true!
Item was changed:
+ ----- Method: Player>>useGrayLook (in category 'scripts-standard') -----
- ----- Method: Player>>useGrayLook (in category '*Etoys-Squeakland-scripts-standard') -----
useGrayLook
"Install the standard 'gray look' for the sugar nav bar."
costume makeGray!
Item was changed:
+ ----- Method: Player>>useGreenLook (in category 'scripts-standard') -----
- ----- Method: Player>>useGreenLook (in category '*Etoys-Squeakland-scripts-standard') -----
useGreenLook
"Install the standard 'green look' for the sugar nav bar."
costume makeGreen!
Item was changed:
+ ----- Method: Player>>useNormalCanvas (in category 'misc') -----
- ----- Method: Player>>useNormalCanvas (in category '*Etoys-Squeakland-misc') -----
useNormalCanvas
"Tell my world to use a normal canvas."
costume world useBlueprintCanvas: false!
Item was changed:
+ ----- Method: Presenter>>allCurrentlyTickingScriptInstantiations (in category 'stubs') -----
- ----- Method: Presenter>>allCurrentlyTickingScriptInstantiations (in category '*Etoys-stubs') -----
allCurrentlyTickingScriptInstantiations
"Answer a list of ScriptInstantiation objects representing all the scripts within the scope of the receiver which are currently ticking."
^ Array streamContents:
[:aStream |
self allExtantPlayers do:
[:aPlayer | aPlayer instantiatedUserScriptsDo:
[:aScriptInstantiation |
aScriptInstantiation status == #ticking ifTrue:
[aStream nextPut: aScriptInstantiation]]]]!
Item was changed:
+ ----- Method: Presenter>>allExtantPlayers (in category 'stubs') -----
- ----- Method: Presenter>>allExtantPlayers (in category '*Etoys-stubs') -----
allExtantPlayers
^#()!
Item was changed:
+ ----- Method: Presenter>>associatedMorph: (in category 'accessing') -----
- ----- Method: Presenter>>associatedMorph: (in category '*Etoys-accessing') -----
associatedMorph: m!
Item was changed:
+ ----- Method: Presenter>>browseAllScriptsTextually (in category 'stubs') -----
- ----- Method: Presenter>>browseAllScriptsTextually (in category '*Etoys-stubs') -----
browseAllScriptsTextually
"Open a method-list browser on all the scripts in the project"
| aList aMethodList |
self flushPlayerListCache. "Just to be certain we get everything"
(aList := self uniclassesAndCounts) size == 0 ifTrue: [^ self inform: 'there are no scripted players' translated].
aMethodList := OrderedCollection new.
aList do:
[:aPair | aPair first addMethodReferencesTo: aMethodList].
aMethodList size > 0 ifFalse: [^ self inform: 'there are no scripts in this project!!' translated].
SystemNavigation new
browseMessageList: aMethodList
name: 'All scripts in this project'
autoSelect: nil
"
ActiveWorld presenter browseAllScriptsTextually
"!
Item was changed:
+ ----- Method: Presenter>>currentlyViewing: (in category 'stubs') -----
- ----- Method: Presenter>>currentlyViewing: (in category '*Etoys-stubs') -----
currentlyViewing: aPlayer
^false!
Item was changed:
+ ----- Method: Presenter>>drawingJustCompleted: (in category 'stubs') -----
- ----- Method: Presenter>>drawingJustCompleted: (in category '*Etoys-stubs') -----
drawingJustCompleted: aSketch!
Item was changed:
+ ----- Method: Presenter>>flushPlayerListCache (in category 'stubs') -----
- ----- Method: Presenter>>flushPlayerListCache (in category '*Etoys-stubs') -----
flushPlayerListCache!
Item was changed:
+ ----- Method: Presenter>>morph:droppedIntoPasteUpMorph: (in category 'stubs') -----
- ----- Method: Presenter>>morph:droppedIntoPasteUpMorph: (in category '*Etoys-stubs') -----
morph: aMorph droppedIntoPasteUpMorph: aPasteUpMorph!
Item was changed:
+ ----- Method: Presenter>>ownStandardPalette (in category 'stubs') -----
- ----- Method: Presenter>>ownStandardPalette (in category '*Etoys-stubs') -----
ownStandardPalette
^nil!
Item was changed:
+ ----- Method: Presenter>>positionStandardPlayer (in category 'stubs') -----
- ----- Method: Presenter>>positionStandardPlayer (in category '*Etoys-stubs') -----
positionStandardPlayer!
Item was changed:
+ ----- Method: Presenter>>viewMorph: (in category 'stubs') -----
- ----- Method: Presenter>>viewMorph: (in category '*Etoys-stubs') -----
viewMorph: aMorph
aMorph inspect.
!
Item was changed:
+ ----- Method: Presenter>>viewObjectDirectly: (in category 'stubs') -----
- ----- Method: Presenter>>viewObjectDirectly: (in category '*Etoys-stubs') -----
viewObjectDirectly: aMorph
aMorph inspect.
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>absTileIconForm (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>absTileIconForm (in category '*Etoys-Squeakland-utilities') -----
absTileIconForm
"Answer the form to use in the gold box for the abs tile item."
^ self formAtKey: #absTileIconForm!
Item was changed:
+ ----- Method: StandardScriptingSystem>>acceptableSlotNameFrom:forSlotCurrentlyNamed:asSlotNameIn:world: (in category 'universal slots & scripts') -----
- ----- Method: StandardScriptingSystem>>acceptableSlotNameFrom:forSlotCurrentlyNamed:asSlotNameIn:world: (in category '*Etoys-universal slots & scripts') -----
acceptableSlotNameFrom: originalString forSlotCurrentlyNamed: currentName asSlotNameIn: aPlayer world: aWorld
"Produce an acceptable slot name, derived from the current name, for aPlayer. This method will always return a valid slot name that will be suitable for use in the given situation, though you might not like its beauty sometimes."
| aString stemAndSuffix proscribed stem suffix putative |
aString := originalString asIdentifier: false. "get an identifier not lowercase"
stemAndSuffix := aString stemAndNumericSuffix.
proscribed := #(self super thisContext costume costumes dependents #true #false size), aPlayer class allInstVarNames, Vocabulary eToyVocabulary systemSlotNames.
stem := stemAndSuffix first.
suffix := stemAndSuffix last.
putative := aString asSymbol.
[(putative ~~ currentName) and: [(proscribed includes: putative)
or: [(aPlayer respondsTo: putative)
or: [Smalltalk includesKey: putative]]]]
whileTrue:
[suffix := suffix + 1.
putative := (stem, suffix printString) asSymbol].
^ putative!
Item was changed:
+ ----- Method: StandardScriptingSystem>>addCustomEventFor:named:help:targetMorphClass: (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>addCustomEventFor:named:help:targetMorphClass: (in category '*Etoys-customevents-custom events') -----
addCustomEventFor: registrantClass named: aSymbol help: helpString targetMorphClass: targetClass
| registration |
registration := self customEventsRegistry at: aSymbol ifAbsentPut: [ IdentityDictionary new ].
registration at: registrantClass put: { helpString. targetClass }.
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>addUserCustomEventNamed:help: (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>addUserCustomEventNamed:help: (in category '*Etoys-customevents-custom events') -----
addUserCustomEventNamed: aSymbol help: helpString
self currentWorld addUserCustomEventNamed: aSymbol help: helpString.
"Vocabulary addStandardVocabulary: UserCustomEventNameType new."
Vocabulary customEventsVocabulary.
SymbolListTile updateAllTilesForVocabularyNamed: #CustomEvents!
Item was changed:
+ ----- Method: StandardScriptingSystem>>allClassVarNamesInSystem (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>allClassVarNamesInSystem (in category '*Etoys-utilities') -----
allClassVarNamesInSystem
"Compute and answer a set of all the class variable names known to the sytem from any class"
| aList |
aList := OrderedCollection new.
Object withAllSubclasses do:
[:c | aList addAll: c allClassVarNames].
^ aList asSet
"ScriptingSystem allClassVarNamesInSystem"
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>allKnownClassVariableNames (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>allKnownClassVariableNames (in category '*Etoys-utilities') -----
allKnownClassVariableNames
"Answer a set of all the knwon class variable names in the system. This normally retrieves them from a cache, and at present there is no organized mechanism for invalidating the cache. The idea is to avoid, in the References scheme, names that may create a conflict"
^ ClassVarNamesInUse ifNil: [ClassVarNamesInUse := self allClassVarNamesInSystem]
"ClassVarNamesInUse := nil.
Time millisecondsToRun: [ScriptingSystem allKnownClassVariableNames]"
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>anyButtonPressedTiles (in category 'parts bin') -----
- ----- Method: StandardScriptingSystem>>anyButtonPressedTiles (in category '*Etoys-parts bin') -----
anyButtonPressedTiles
"Answer tiles representing the query 'is any button pressed?'"
^ self tilesForQuery: '(ActiveHand anyButtonPressed)' label: 'button down?' translated!
Item was changed:
+ ----- Method: StandardScriptingSystem>>arithmeticalOperatorsAndHelpStrings (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>arithmeticalOperatorsAndHelpStrings (in category '*Etoys-utilities') -----
arithmeticalOperatorsAndHelpStrings
"Answer an array consisting of lists of the standard arithmetical operator tiles and of the corresponding balloon help for them"
^ #((+ - * / // \\ max: min:)
('add' 'subtract' 'multiply' 'divide' 'divide & truncate' 'remainder when divided by' 'larger value' 'smaller value' )) translatedNoop!
Item was changed:
+ ----- Method: StandardScriptingSystem>>assureFlapOfLabel:withContents: (in category 'help in a flap') -----
- ----- Method: StandardScriptingSystem>>assureFlapOfLabel:withContents: (in category '*Etoys-Squeakland-help in a flap') -----
assureFlapOfLabel: aTitle withContents: aString
"Answer an info flap with the given title and contents. If one exists in the project, use that, else create one & insert it in the world. Answer the flap tab."
| allFlapTabs aTab |
allFlapTabs := Project current world localFlapTabs, Project current world extantGlobalFlapTabs.
aTab := allFlapTabs detect:
[:ft | ft flapID = aTitle] ifNone: [nil].
aTab ifNotNil: [^ aTab]. "already present"
aTab := self openInfoFlapWithLabel: aTitle helpContents: aString edge: #left.
aTab bottom: Project current world bottom.
self cleanUpFlapTabsOnLeft.
aTab hideFlap.
aTab referent show.
aTab show.
^ aTab
"
ScriptingSystem assureFlapOfLabel: 'Egg Sample' withContents: EventRollMorph basicNew helpString
"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>baseColor (in category 'script-control') -----
- ----- Method: StandardScriptingSystem>>baseColor (in category '*Etoys-Squeakland-tile colors') -----
baseColor
^ (Color r: 0.674 g: 0.91 b: 0.47)!
Item was changed:
+ ----- Method: StandardScriptingSystem>>benchmark:label:on: (in category 'benchmarks') -----
- ----- Method: StandardScriptingSystem>>benchmark:label:on: (in category '*Etoys-Squeakland-benchmarks') -----
benchmark: selector label: aString on: aStream
"ScriptingSystem benchmark: #benchmarkPainter label: 'painter' on:
Transcript. Transcript flush."
| result trial |
trial := 5.
result := 0.
trial
timesRepeat: [result := result
+ (self perform: selector)].
aStream nextPutAll: aString;
nextPut: $=;
print: (result / 5) asFloat;
space!
Item was changed:
+ ----- Method: StandardScriptingSystem>>benchmarkCategory (in category 'benchmarks') -----
- ----- Method: StandardScriptingSystem>>benchmarkCategory (in category '*Etoys-Squeakland-benchmarks') -----
benchmarkCategory
"ScriptingSystem benchmarkCategory"
| m v result world |
world := Project current world.
m := Morph new openInWorld.
m openViewerForArgument.
world doOneCycle.
v := m player allOpenViewers first submorphs last.
result := [v chosenCategorySymbol: #geometry.
world doOneCycle] timeToRun.
m delete.
world doOneCycle.
^ result!
Item was changed:
+ ----- Method: StandardScriptingSystem>>benchmarkPainter (in category 'benchmarks') -----
- ----- Method: StandardScriptingSystem>>benchmarkPainter (in category '*Etoys-Squeakland-benchmarks') -----
benchmarkPainter
"ScriptingSystem benchmarkPainter"
| world result |
world := Project current world.
result := [world makeNewDrawing: nil at: 400 @ 300.
world doOneCycle] timeToRun.
(world findA: SketchEditorMorph) cancelOutOfPainting.
world doOneCycle.
^ result!
Item was changed:
+ ----- Method: StandardScriptingSystem>>benchmarkScriptor (in category 'benchmarks') -----
- ----- Method: StandardScriptingSystem>>benchmarkScriptor (in category '*Etoys-Squeakland-benchmarks') -----
benchmarkScriptor
"ScriptingSystem benchmarkScriptor"
"(Picking up third one)"
| result m |
m := Morph new openInWorld.
m openViewerForArgument.
m player assureUniClass.
m player newScriptorAround: nil.
m player newScriptorAround: nil.
result := [(m player newScriptorAround: nil) openInWorld.
Project current world doOneCycle] timeToRun.
m delete.
Project current world doOneCycle.
^ result!
Item was changed:
+ ----- Method: StandardScriptingSystem>>benchmarkViewer (in category 'benchmarks') -----
- ----- Method: StandardScriptingSystem>>benchmarkViewer (in category '*Etoys-Squeakland-benchmarks') -----
benchmarkViewer
"ScriptingSystem benchmarkViewer"
| result m world |
m := Morph new openInWorld.
world := Project current world.
result := [m openViewerForArgument.
world doOneCycle] timeToRun.
m delete.
world doOneCycle.
^ result!
Item was changed:
+ ----- Method: StandardScriptingSystem>>biggerHandlesPreferenceChanged (in category 'universal slots & scripts') -----
- ----- Method: StandardScriptingSystem>>biggerHandlesPreferenceChanged (in category '*Etoys-Squeakland-utilities') -----
biggerHandlesPreferenceChanged
"The biggerHandles preference was changed..."
| prefix aName form |
prefix := Preferences biggerHandles ifTrue: ['Large'] ifFalse: ['Small'].
#('Collapse' 'Debug' 'Dismiss' 'Drag' 'Dup' 'FontEmph' 'FontSize' 'FontStyle' 'Grab' 'Help' 'Menu' 'Paint' 'Pooh' 'Recolor' 'Rot' 'Scale' 'Tile' 'View' 'Script') do:
[:stem |
aName := 'Halo-', stem.
form := ScriptingSystem formAtKey: (prefix, aName).
form ifNil: [ScriptingSystem formDictionary removeKey: aName asSymbol ifAbsent: []]
ifNotNil: [ScriptingSystem saveForm: form atKey: aName]].!
Item was changed:
+ ----- Method: StandardScriptingSystem>>borderColor (in category 'tile colors') -----
- ----- Method: StandardScriptingSystem>>borderColor (in category '*Etoys-Squeakland-tile colors') -----
borderColor
^ (UserInterfaceTheme current get: #borderColor for: #MenuMorph) ifNil: [(Color r: 0.2 g: 0.3 b: 0.9)]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>buildPanelTitled: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>buildPanelTitled: (in category '*Etoys-Squeakland-utilities') -----
buildPanelTitled: aTitle
"(ScriptingSystem buildPanelTitled: 'title') openInHand"
| outer title aDismissButton |
outer := OLPCHelpDisplayer newColumn.
outer color: ScriptingSystem baseColor.
outer borderWidth: 1.
outer borderColor: ScriptingSystem borderColor.
outer hResizing: #shrinkWrap.
outer vResizing: #shrinkWrap.
outer useRoundedCornersInEtoys.
outer layoutInset: 3 @ 3.
outer cellInset: 0 @ 0.
title := AlignmentMorph newRow.
title beTransparent.
aDismissButton := outer tanOButton.
title addMorphFront: aDismissButton.
title addTransparentSpacerOfSize: 6 @ 0.
title
addMorphBack: (StringMorph contents: aTitle font: ScriptingSystem fontForTiles).
outer addMorphBack: title.
^ outer!
Item was changed:
+ ----- Method: StandardScriptingSystem>>buttonDownTile (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>buttonDownTile (in category '*Etoys-utilities') -----
buttonDownTile
"Answer a boolean-valued tile which reports whether the button is down"
^ self systemQueryPhraseWithActionString: '(ActiveHand anyButtonPressed)' labelled: 'button down?' translated!
Item was changed:
+ ----- Method: StandardScriptingSystem>>buttonExtent (in category 'buttons') -----
- ----- Method: StandardScriptingSystem>>buttonExtent (in category '*Etoys-Squeakland-buttons') -----
buttonExtent
"ScriptingSystem buttonExtent"
^ (ScriptingSystem formAtKey: #TryIt) extent!
Item was changed:
+ ----- Method: StandardScriptingSystem>>buttonSpacer (in category 'buttons') -----
- ----- Method: StandardScriptingSystem>>buttonSpacer (in category '*Etoys-Squeakland-buttons') -----
buttonSpacer
"ScriptingSystem buttonSpacer openInHand"
| m |
m := Morph new.
m color: Color transparent.
m extent: self buttonExtent.
^ m!
Item was changed:
+ ----- Method: StandardScriptingSystem>>buttonUpTile (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>buttonUpTile (in category '*Etoys-utilities') -----
buttonUpTile
"Answer a boolean-valued tile which reports whether the button is up"
^ self systemQueryPhraseWithActionString: '(ActiveHand noButtonPressed)' labelled: 'button up?' translated!
Item was changed:
+ ----- Method: StandardScriptingSystem>>cleanUpFlapTabsOnLeft (in category 'help in a flap') -----
- ----- Method: StandardScriptingSystem>>cleanUpFlapTabsOnLeft (in category '*Etoys-Squeakland-help in a flap') -----
cleanUpFlapTabsOnLeft
"Make sure the flap tabs on the left of the screen line up nicely, making best use of realestate."
| tabsOnLeft current |
tabsOnLeft := ((Project current world localFlapTabs, Project current world extantGlobalFlapTabs) select: [:f | f edgeToAdhereTo = #left])
sort: [:a :b | a top <= b top].
current := SugarNavigatorBar showSugarNavigator
ifTrue: [75]
ifFalse: [0].
tabsOnLeft do:
[:aTab |
aTab top: (current min: Project current world height - aTab height).
current := aTab bottom + 2].
"
ScriptingSystem cleanUpFlapTabsOnLeft
"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>cleanupsForRelease (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>cleanupsForRelease (in category '*Etoys-utilities') -----
cleanupsForRelease
"Miscellaneous space cleanups to do before a release."
"EToySystem cleanupsForRelease"
Socket deadServer: ''. "Don't reveal any specific server name"
HandMorph initialize. "free cached ColorChart"
PaintBoxMorph initialize. "forces Prototype to let go of extra things it might hold"
Smalltalk globals removeKey: #AA ifAbsent: [].
Smalltalk globals removeKey: #BB ifAbsent: [].
Smalltalk globals removeKey: #CC ifAbsent: [].
Smalltalk globals removeKey: #DD ifAbsent: [].
Smalltalk globals removeKey: #Temp ifAbsent: [].
ScriptingSystem reclaimSpace.
Smalltalk cleanOutUndeclared.
Smalltalk reclaimDependents.
Smalltalk removeEmptyMessageCategories.
Symbol rehash!
Item was changed:
+ ----- Method: StandardScriptingSystem>>colorBehindTiles (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>colorBehindTiles (in category '*Etoys-font & color choices') -----
colorBehindTiles
^ Color r: 0.903 g: 1.0 b: 0.903!
Item was changed:
+ ----- Method: StandardScriptingSystem>>colorForType: (in category 'tile colors') -----
- ----- Method: StandardScriptingSystem>>colorForType: (in category '*Etoys-tile colors') -----
colorForType: typeSymbol
"Answer the color to use to represent the given type symbol"
true ifTrue:
[^ self standardTileBorderColor].
typeSymbol capitalized = #Command ifTrue:
[^ Color fromRgbTriplet: #(0.065 0.258 1.0)].
"Command is historical and idiosyncratic and should be regularized"
^ (Vocabulary vocabularyForType: typeSymbol) typeColor!
Item was changed:
+ ----- Method: StandardScriptingSystem>>colorFudge (in category 'tile colors') -----
- ----- Method: StandardScriptingSystem>>colorFudge (in category '*Etoys-tile colors') -----
colorFudge
^ 0.4!
Item was changed:
+ ----- Method: StandardScriptingSystem>>commandFeedback (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>commandFeedback (in category '*Etoys-Squeakland-font & color choices') -----
commandFeedback
^Color r: 1.0 g: 0.548 b: 0.452!
Item was changed:
+ ----- Method: StandardScriptingSystem>>customEventNamesAndHelpStringsFor: (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>customEventNamesAndHelpStringsFor: (in category '*Etoys-customevents-custom events') -----
customEventNamesAndHelpStringsFor: aPlayer
| retval help helpStrings morph |
morph := aPlayer costume renderedMorph.
retval := OrderedCollection new.
self customEventsRegistry
keysAndValuesDo: [ :k :v |
helpStrings := Array streamContents: [ :hsStream |
v keysAndValuesDo: [ :registrant :array |
(morph isKindOf: array second) ifTrue: [
help := String streamContents: [ :stream |
v size > 1
ifTrue: [ stream nextPut: $(;
nextPutAll: array second name translated;
nextPut: $);
space ].
stream nextPutAll: array first translated].
hsStream nextPut: help]]].
helpStrings isEmpty ifFalse: [retval add: { k. helpStrings } ]].
^ retval sort: [ :a :b | a first < b first ]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>customEventStati (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>customEventStati (in category '*Etoys-customevents-custom events') -----
customEventStati
^self globalCustomEventNames,
self userCustomEventNames!
Item was changed:
+ ----- Method: StandardScriptingSystem>>customEventsRegistry (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>customEventsRegistry (in category '*Etoys-customevents-custom events') -----
customEventsRegistry
^Smalltalk globals at: #CustomEventsRegistry ifAbsentPut: [ IdentityDictionary new ].!
Item was changed:
+ ----- Method: StandardScriptingSystem>>customizeForEToyUsers: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>customizeForEToyUsers: (in category '*Etoys-utilities') -----
customizeForEToyUsers: aBoolean
"If aBoolean is true, set things up for etoy users. If it's false, unset some of those things. Some things are set when switching into etoy mode but not reversed when switching out of etoy mode."
#(
(allowEtoyUserCustomEvents no reverse)
(balloonHelpEnabled yes dontReverse)
(debugHaloHandle no reverse)
(modalColorPickers yes dontReverse)
(oliveHandleForScriptedObjects no dontReverse)
(uniqueNamesInHalos yes reverse)
(useUndo yes dontReverse)
(infiniteUndo no dontReverse)
(warnIfNoChangesFile no reverse)
(warnIfNoSourcesFile no reverse)) do:
[:trip |
(aBoolean or: [trip third == #reverse]) ifTrue:
[Preferences setFlag: trip first toValue:
((trip second == #yes) & aBoolean) | ((trip second == #no) & aBoolean not)]]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>deletePrivateGraphics (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>deletePrivateGraphics (in category '*Etoys-form dictionary') -----
deletePrivateGraphics
"ScriptingSystem deletePrivateGraphics"
self deletePrivateGraphics: self privateGraphics
afterStoringToFileNamed: 'disGraphics'!
Item was changed:
+ ----- Method: StandardScriptingSystem>>deletePrivateGraphics:afterStoringToFileNamed: (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>deletePrivateGraphics:afterStoringToFileNamed: (in category '*Etoys-form dictionary') -----
deletePrivateGraphics: nameList afterStoringToFileNamed: aFileName
"This method is used to strip private graphics from the FormDictionary and store them on a file of the given name"
| replacement toRemove aReferenceStream |
toRemove := Dictionary new.
replacement := FormDictionary at: #Gets.
nameList do:
[:aKey |
| keySymbol |
keySymbol := aKey asSymbol.
(toRemove at: keySymbol put: (self formAtKey: keySymbol)).
FormDictionary at: keySymbol put: replacement].
aReferenceStream := ReferenceStream fileNamed: aFileName.
aReferenceStream nextPut: toRemove.
aReferenceStream close!
Item was changed:
+ ----- Method: StandardScriptingSystem>>doesOperatorWantArrows: (in category 'universal slots & scripts') -----
- ----- Method: StandardScriptingSystem>>doesOperatorWantArrows: (in category '*Etoys-universal slots & scripts') -----
doesOperatorWantArrows: aSymbol
aSymbol = #, ifTrue:[^ false].
^ aSymbol isInfix or: [#(isDivisibleBy:) includes: aSymbol]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>fontForAttachedWatchers (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>fontForAttachedWatchers (in category '*Etoys-Squeakland-Etoys-font & color choices') -----
fontForAttachedWatchers
"Answer the font to use in following watchers"
^ StrikeFont familyName: 'BitstreamVeraSerif' size: 16!
Item was changed:
+ ----- Method: StandardScriptingSystem>>fontForEToyButtons (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>fontForEToyButtons (in category '*Etoys-Squeakland-font & color choices') -----
fontForEToyButtons
"Answer the font to be used for the status buttons affiliated with a ScriptInstantiation in a Viewer or Scriptor, and with other buttons that are part of the basic etoy UI."
" ^ StrikeFont familyName: 'KomikaText' size: 28"
^ Preferences standardEToysButtonFont!
Item was changed:
+ ----- Method: StandardScriptingSystem>>fontForNameEditingInScriptor (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>fontForNameEditingInScriptor (in category '*Etoys-font & color choices') -----
fontForNameEditingInScriptor
^ Preferences standardEToysFont!
Item was changed:
+ ----- Method: StandardScriptingSystem>>fontForTiles (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>fontForTiles (in category '*Etoys-font & color choices') -----
fontForTiles
^ Preferences standardEToysFont!
Item was changed:
+ ----- Method: StandardScriptingSystem>>fontForViewerCategoryPopups (in category 'olpc') -----
- ----- Method: StandardScriptingSystem>>fontForViewerCategoryPopups (in category '*Etoys-Squeakland-olpc') -----
fontForViewerCategoryPopups
"Answer the font to be used for the category-name at the top of each category-viewer pane."
^ Preferences standardEToysButtonFont!
Item was changed:
+ ----- Method: StandardScriptingSystem>>formAtKey: (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>formAtKey: (in category '*Etoys-form dictionary') -----
formAtKey: aString
"Answer the form saved under the given key"
^((Symbol lookup: aString)
ifNotNil: [ :aKey | FormDictionary at: aKey ifAbsent: [ FormDictionary at: #Cat ] ]
ifNil: [ FormDictionary at: #Cat ])
magnifyBy: RealEstateAgent scaleFactor!
Item was changed:
+ ----- Method: StandardScriptingSystem>>formAtKey:extent:depth: (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>formAtKey:extent:depth: (in category '*Etoys-form dictionary') -----
formAtKey: aKey extent: extent depth: depth
"ScriptingSystem saveForm: (TileMorph downPicture) atKey: 'downArrow'"
^ FormDictionary at: aKey asSymbol ifAbsent: [Form extent: extent depth: depth]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>formDictionary (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>formDictionary (in category '*Etoys-form dictionary') -----
formDictionary
^FormDictionary!
Item was changed:
+ ----- Method: StandardScriptingSystem>>formPressedAtKey: (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>formPressedAtKey: (in category '*Etoys-Squeakland-form dictionary') -----
formPressedAtKey: aSymbol
"Answer the form for pressed button. It is automatically generated if
unavailable."
"(ScriptingSystem formPressedAtKey: #TryIt) asMorph openInHand"
| pressedName pressedImage |
pressedName := (aSymbol , 'Pressed') asSymbol.
((FormDictionary includesKey: aSymbol)
and: [(FormDictionary includesKey: pressedName) not])
ifTrue: [pressedImage := ((self formAtKey: aSymbol)
blendColor: (Color black alpha: 0.3)) colorReduced.
self saveForm: pressedImage atKey: pressedName].
^ self formAtKey: pressedName!
Item was changed:
+ ----- Method: StandardScriptingSystem>>getterFeedback (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>getterFeedback (in category '*Etoys-Squeakland-font & color choices') -----
getterFeedback
^Color r: 1.0 g: 0.355 b: 0.839!
Item was changed:
+ ----- Method: StandardScriptingSystem>>globalCustomEventNames (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>globalCustomEventNames (in category '*Etoys-customevents-custom events') -----
globalCustomEventNames
^self customEventsRegistry keys asArray sort!
Item was changed:
+ ----- Method: StandardScriptingSystem>>globalCustomEventNamesFor: (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>globalCustomEventNamesFor: (in category '*Etoys-customevents-custom events') -----
globalCustomEventNamesFor: aPlayer
| morph names |
morph := aPlayer costume renderedMorph.
names := OrderedCollection new.
self customEventsRegistry keysAndValuesDo: [ :k :v |
(v anySatisfy: [ :array | morph isKindOf: array second ])
ifTrue: [ names add: k ]].
^names sort!
Item was changed:
+ ----- Method: StandardScriptingSystem>>goButton (in category 'script-control') -----
- ----- Method: StandardScriptingSystem>>goButton (in category '*Etoys-script-control') -----
goButton
| aButton |
aButton := ThreePhaseButtonMorph new.
aButton
offImage: (ScriptingSystem formAtKey: 'GoPic');
pressedImage: (ScriptingSystem formAtKey: 'GoPicOn');
image: (ScriptingSystem formAtKey: 'GoPicOn');
actionSelector: #goUp:with:;
arguments: (Array with: nil with: aButton);
actWhen: #buttonUp;
target: self;
setNameTo: 'Go Button';
setBalloonText:
'Resume running all paused scripts' translated.
^ aButton!
Item was changed:
+ ----- Method: StandardScriptingSystem>>goUp:with: (in category 'script-control') -----
- ----- Method: StandardScriptingSystem>>goUp:with: (in category '*Etoys-script-control') -----
goUp: evt with: aGoButton
Cursor wait showWhile: [
aGoButton presenter startRunningScriptsFrom: aGoButton
]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>helpStringForOperator: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>helpStringForOperator: (in category '*Etoys-utilities') -----
helpStringForOperator: anOperator
"Answer the help string associated with the given operator. If none found, return a standard no-help-available reply"
^ (self helpStringOrNilForOperator: anOperator) ifNil:
['Sorry, no help available here' translated] "This should never be seen, but is provided as a backstop"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>helpStringOrNilFor: (in category 'help dictionary') -----
- ----- Method: StandardScriptingSystem>>helpStringOrNilFor: (in category '*Etoys-help dictionary') -----
helpStringOrNilFor: aSymbol
"If my HelpStrings dictionary has an entry at the given symbol,
answer that entry's value, else answer nil"
HelpStrings
at: aSymbol
ifPresent:[:string | ^ string translated].
^ nil!
Item was changed:
+ ----- Method: StandardScriptingSystem>>helpStringOrNilForOperator: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>helpStringOrNilForOperator: (in category '*Etoys-utilities') -----
helpStringOrNilForOperator: anOperator
"Answer the help string associated with the given operator, nil if none found."
| anIndex opsAndHelp |
(anIndex := (opsAndHelp := self arithmeticalOperatorsAndHelpStrings) first indexOf: anOperator) > 0
ifTrue: [^ (opsAndHelp second at: anIndex) translated].
(anIndex := (opsAndHelp := self numericComparitorsAndHelpStrings) first indexOf: anOperator) > 0
ifTrue: [^ (opsAndHelp second at: anIndex) translated].
(anIndex := (opsAndHelp := self numericFunctionsAndHelpStrings) first indexOf: anOperator) > 0
ifTrue: [^ (opsAndHelp second at: anIndex) translated].
^ nil!
Item was changed:
+ ----- Method: StandardScriptingSystem>>holderWithAlphabet (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>holderWithAlphabet (in category '*Etoys-utilities') -----
holderWithAlphabet
"Answer a fully instantiated Holder that has submorphs that represent the letters of the uppercase alphabet, with each one having an 'index' slot which bears the letter's index in the alphabet -- 1 for A, 2 for B, etc. A few special characters are provided as per ack request 10/00; for these the index provided is rather arbitrarily assigned"
| aMorph aPlayer oneCharString aContainer aWrapper |
"ScriptingSystem holderWithAlphabet openInHand"
aContainer := self prototypicalHolder useRoundedCorners.
aContainer borderColor: Color blue lighter.
aWrapper := AlignmentMorph new hResizing: #shrinkWrap; vResizing: #shrinkWrap; layoutInset: 0.
aWrapper addMorphBack: (aMorph := TextMorph new contents: 'A').
aMorph beAllFont: ((TextStyle named: Preferences standardEToysFont familyName) fontOfSize: 24).
aMorph width: 14; lock.
aWrapper beTransparent; setNameTo: 'A'.
aPlayer := aWrapper assuredPlayer.
aPlayer addInstanceVariableNamed: #index type: #Number value: 1.
aContainer addMorphBack: aWrapper.
2 to: 26 do:
[:anIndex |
| newMorph |
newMorph := aWrapper usableSiblingInstance.
newMorph player perform: #setIndex: with: anIndex.
newMorph firstSubmorph contents: (oneCharString := ($A asciiValue + anIndex - 1) asCharacter asString).
newMorph setNameTo: oneCharString.
aContainer addMorphBack: newMorph].
#(' ' '.' '#') with: #(27 28 29) do:
[:aString :anIndex |
| newMorph |
newMorph := aWrapper usableSiblingInstance.
newMorph player perform: #setIndex: with: anIndex.
newMorph firstSubmorph contents: aString.
aString = ' '
ifTrue:
[newMorph setNameTo: 'space'.
newMorph color: (Color gray alpha: 0.2)]
ifFalse:
[newMorph setNameTo: aString].
aContainer addMorphBack: newMorph].
aContainer setNameTo: 'alphabet'.
aContainer isPartsBin: true.
aContainer enableDrop: false.
aContainer indicateCursor: false; width: 162.
aContainer color: (Color r: 0.839 g: 1.0 b: 1.0). "Color fromUser"
^ aContainer!
Item was changed:
+ ----- Method: StandardScriptingSystem>>informScriptingUser: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>informScriptingUser: (in category '*Etoys-utilities') -----
informScriptingUser: aString
"This provides a hook for logging messages that the user or the developer may wish to see; at present it simply logs the message to the Transcript, with a standard prefix to signal their provenance. Such messages will fall on the floor if there is no Transcript window open"
Transcript cr; show: 'SCRIPT NOTE: ', aString!
Item was changed:
+ ----- Method: StandardScriptingSystem>>initializeHelpStrings (in category 'help dictionary') -----
- ----- Method: StandardScriptingSystem>>initializeHelpStrings (in category '*Etoys-help dictionary') -----
initializeHelpStrings
"Initialize the data structure that determines, for the etoy system, help messages for various scripting elements. The structure is built up by letting every Morph subclass contribute elements simply by implementing method #helpContributions. Consult implementors of #helpContributions for examples of how this goes."
"ScriptingSystem initializeHelpStrings"
| aDictionary |
aDictionary := IdentityDictionary new.
"For safety, the new copy is built up in this temp first, so that if an error occurs during the creation of the structure, the old version will remain remain in place"
Morph withAllSubclasses do:
[:aClass | (aClass class includesSelector: #helpContributions)
ifTrue:
[aClass helpContributions do:
[:pair | aDictionary at: pair first put: pair second]]].
HelpStrings := aDictionary!
Item was changed:
+ ----- Method: StandardScriptingSystem>>initializeLargeHaloIcons (in category 'universal slots & scripts') -----
- ----- Method: StandardScriptingSystem>>initializeLargeHaloIcons (in category '*Etoys-Squeakland-utilities') -----
initializeLargeHaloIcons
"Store the bitmaps created by update 1179LargeHalo separately in the form dictionary so they can be restored dynamicaly if smaller halos are at some point installed."
#(
('R0lGODlhHgAeAJEAAOfn/wAAAP///wAAACH5BAUUAAIALAAAAAAeAB4AAAJklI8Cy5sPVZst
QoqZPbnr6IXAhQWmOCaZeYZqxwYiF8azVLMunrcZD/BNbKiFjkIsJhlLVLPpjEmFxeAUqrwe
q0wttcKVYgxc6/ZTNlNp4fOrLXO805952kJPbbgbe6cPMrZRAAA7' 'Debug')
('R0lGODlhHgAeAKIAAP////7+//Pz/4CA/wAA/////wAAAAAAACH5BAUUAAUALAAAAAAeAB4A
AAOTWLpc9PC1SV28sVLMoV7cAIxAp3Ek2REbRg5r1rhjfM20jYF6L1kYQWBILAoINVmnyCQi
k5LVcBl4qHRTTvYJu0AJ28tWVPKWH+FI+Gs9g6taeJvWfVMjbAIZkubLY1d9aH83eDVNTSZA
c0KIQ0ccCj4+PD55P5U2Vzc4MWRuMp1mKYotowB1nB+TLB8MlK6mqhUJADs=' 'Rot')
('R0lGODlhHgAeAJEAAP+cMQAAAf///wAAACH5BAUUAAIALAAAAAAeAB4AAAJclI8Cy5sPVZst
QoqZPbnr6IXAJYZPaSKoyK2sxATyTNd0BS/2blcUD5SFZiWixzgUHpXJQLPIzCCXTmqwZ73e
fA3tDud6hVO5Ma5l/qjS6nXa8t6UyfJ5pk6iyAsAOw==' 'Tile')
('R0lGODlhHgAeAKIAAAAAAAD//wB/fwB/gP///wAAAAAAAAAAACH5BAUUAAQALAAAAAAeAB4A
AAOHSLpM8fC1SV28sVLMoV5d6FViGWxmOaUqUwqw0FoYYN+43Sl17uMYHuRnGwyIgEwEuSRy
mBfo8Ca7DTBHnQD4wMkCVuztsR2DqV1zUxcos8+2LzfNdifXALk1W5/jkVInf4A5GTRThGoj
HYk7QiExXyENLCIrlY6UmBcamyMfmB+aJqIkHKIJADs=' 'View')
('R0lGODlhHgAeAJEAAAAACP///3Z2ef///yH5BAUUAAMALAAAAAAeAB4AAAKAnI8Dy5sPVZst
QhpyoPZQoGmf9YXh+JTmySXYarbepAmrncnvBuCZsBBNDLTcpyFkEBnJI9PoQEKdUl7RSr1q
s8emF8YKTkFQcLj55I2fYqx2LSa7MXFVkNOd11v5Psr/cjRTBFiBEGg35HJlJnNY1Wh4wYXS
QanU8ciVGSHYUQAAOw==' 'Grab')
('R0lGODlhHgAeAJEAAJkzAP///8zMzAAAACH5BAUUAAIALAAAAAAeAB4AAAJzlI8Cy5sPVZst
QoqZPbnr6IXAJYYPE6Qqpa4O0rQpK1fGNJf5hwclsHv1FrIa0FehEYuuoMh5/CmH0hjSWsVS
s9FtFgr15JjNq4ZKHptHEtS647xpn2uOu0XDf+xHvdV/wjVBIshGmLUh95MIU8J4aGNRAAA7' 'Drag')
('R0lGODlhHgAeAJEAAAD/AAAAAP///wAAACH5BAUUAAIALAAAAAAeAB4AAAJrlI8Cy5sPVZst
QoqZPbnr6IXAJYZPaSJNwLYu63HrS6cTjOGdcQeZnpHMZjSXCFh8HX0MHJLpeS6kISo1CgU4
s8BfsjWsfq8asXfCw54rQu8YnXZ/2TJUMGHfnfJwEn+00SYSqFJC6NcXUQAAOw==' 'Dup')
('R0lGODlhHgAeAKIAAAAAAMz//2d/f5Cysv///wAAAAAAAAAAACH5BAUUAAQALAAAAAAeAB4A
AAOASLpM8fC1SV28sVLMoV7YIAAkIAyYhpVsmU5rK7/MJd/A1VwDK0SjEiqjiJE4QdPL+OOw
ljzS0JjTda6PUhPLzQq73RaYKx5fy2bnM41cs6nbqwXrls+vwXin+LbfOwNTfnwdeVgwgCyC
OoghinsVhSR6Hh9/D4EcljVgmxuaHwkAOw==' 'Help')
('R0lGODlhHgAeAJEAAP//AAAAAP///wAAACH5BAUUAAIALAAAAAAeAB4AAAJ1lI8Cy5sPVZst
QoqZPbnr6IXAJYYPE6Tqui7px6Hs/AK1Y0w3Vu+jJPP0ApNcw6cj2pQaCvKofCaFUWZH6qqK
sMvs1urUhrjDL9U7ps3QlaS61a0AS1M5nQeOZd80uZ6vBqN3R0FC6HdyiLNBuJFA5wiC4VgA
ADs=' 'Scale')
('R0lGODlhHgAeAJEAAJycnAAAAP///wAAACH5BAUUAAIALAAAAAAeAB4AAAJplI8Cy5sPVZst
QoqZPbnr6IXAJYZPaSJUwLZBya1uC0vTDNAp5jJ6Z7uxhC9UYygrGnNI4nLxOzaNUd8UVYVe
S1mmkrr1VrjbnwE7jZ7RxWqM3Kuo2N9RYrklPT/652aN8jcnItgnZ1EAADs=' 'Paint')
('R0lGODlhHgAeAJEAAM7/nAAAAP///wAAACH5BAUUAAIALAAAAAAeAB4AAAJrlI8Cy5sPVZst
QoqZPbnr6IXAFQbmeX6IiLaqIQJmyMUzLbGBCNs7HVvcgozWbUiUGYW/pBJjbJakxaUPSg26
qk5misubIMGeHrkxxpiZWN46/Syv2BT4ywy3Ox7dCqi/seYWKNhBSEIRWAAAOw==' 'FontSize')
('R0lGODlhHgAeAJEAAP/OzgAAAP///wAAACH5BAUUAAIALAAAAAAeAB4AAAJ3lI8Cy5sPVZst
QoqZPbnr6IXAJYbPEqTqiq6qgzCu286f1KR50HoGpZPxAMHMb1JEDo2Y5K6k7AmhT+LSShWy
tNuQjfsSBZPO0vhaFl+rHdy0uZ4c2dG2WwqMV+Zfujxm1fVGcZKFQWJ4U5i4MVfSCCgCifhn
UQAAOw==' 'FontStyle')
('R0lGODlhHgAeAJEAAAAAAO+MKf///wAAACH5BAUUAAIALAAAAAAeAB4AAAJ0lI8Sy5sPVZst
QoqZPbnr6IXBJYZPaSIMwLYuu7ztaDSyHN+OlN9z8JvUVr6ZC8PrATrB0DHT9DwpUWm1hwLq
iDjmVvvF+LhZ8IvsSU7RnaGSCkurq9eKew1OccyT+k7Fx7XUdlImBGL4Z1G2kYDSiEjRWAAA
Ow==' 'FontEmph')
('R0lGODlhHgAeAJEAAP///+8A7////wAAACH5BAUUAAIALAAAAAAeAB4AAAJylI8Sy5sPVZst
QoqZPbnr6IXBJTbAWSXlcrbAx3kv67ZwaNduKuo63/OhKiWhbcXI/ZC0WaDGbE6OTGpzuLI+
UdqOlurEYaUiSTK8RWcM03B3bU6f1Z2Y8g23p8ehxzw64scCaAHosBFXhhijuKiCgVgAADs=' 'Recolor')
('R0lGODlhHgAeAJEAAMb/xgAAAf///wAAACH5BAUUAAIALAAAAAAeAB4AAAJclI8Cy5sPVZst
QoqZPbnr6IXAJYZPaSKoyK2sxATyTNd0BS/2blcUD5SFZiWixzgUHpXJQLPIzCCXTmqwZ73e
fA3tDud6hVO5Ma5l/qjS6nXa8t6UyfJ5pk6iyAsAOw==' 'Script')
) do:
[: pair |
ScriptingSystem saveForm: ((GIFReadWriter on: (Base64MimeConverter mimeDecodeToBytes: pair first readStream) readStream) nextImage)
atKey: ('LargeHalo-', pair second) asSymbol].
ScriptingSystem formDictionary at: #'LargeHalo-Dismiss' put: (ScriptingSystem formDictionary at: #PinkX).
ScriptingSystem formDictionary at: #'LargeHalo-Collapse' put: (ScriptingSystem formDictionary at: #TanO).
ScriptingSystem formDictionary at: #'LargeHalo-Menu' put: (ScriptingSystem formDictionary at: #MenuIcon).
"
ScriptingSystem initializeLargeHaloIcons.
"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>initializeSmallHaloIcons (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>initializeSmallHaloIcons (in category '*Etoys-Squeakland-utilities') -----
initializeSmallHaloIcons
"Build the old, smaller halo icons and stash them in the form dictionary under namees prefixed by 'Small'"
#( 'Debug' 'Dismiss' 'Rot' 'Menu' 'Tile' 'View' 'Grab' 'Drag' 'Dup' 'Help' 'Scale' 'Paint' 'FontSize' 'FontStyle' 'FontEmph' 'Recolor') with: #(
( 0 0 0 50331648 25165824 12582912 281018368 415236096 264241152 132120576 7340032 3670016 1572864 0 0 0)
( 0 0 0 0 204472320 242221056 132120576 62914560 62914560 132120576 242221056 204472320 0 0 0 0)
( 0 0 25165824 33554432 0 132120576 69730304 606339072 606339072 337641472 132120576 0 4194304 25165824 0 0)
( 0 0 0 267386880 267386880 267386880 135266304 267386880 135266304 267386880 135266304 267386880 0 0 0 0)
( 0 0 0 0 0 536346624 536346624 404226048 404226048 536346624 536346624 0 0 0 0 0)
( 0 0 0 0 132120576 486014976 770965504 1341259776 669253632 467140608 132120576 0 0 0 0 0)
( 0 25165824 25165824 37748736 69206016 135266304 268959744 669253632 338165760 204472320 69206016 69206016 132120576 0 0 0)
( 0 0 0 473432064 268959744 401080320 69206016 69206016 69206016 69206016 401080320 268959744 473432064 0 0 0)
( 0 0 0 0 528482304 276824064 284688384 277348352 285736960 520617984 17301504 33030144 0 0 0 0)
( 0 0 62914560 132120576 204472320 204472320 3145728 6291456 12582912 25165824 25165824 0 25165824 25165824 0 0)
( 0 0 0 0 265289728 139460608 139460608 139460608 139460608 265289728 1048576 267386880 0 0 0 0)
( 0 0 0 402653184 503316480 192937984 213909504 73400320 103809024 51904512 25690112 14155776 7340032 0 0 0)
( 0 0 0 15728640 8388608 8388608 8388608 243269632 148897792 142606336 209715200 142606336 142606336 0 0 0)
( 0 0 0 0 527958016 155189248 138412032 171966464 242221056 171966464 138412032 138412032 473956352 0 0 0)
( 0 0 0 0 532414464 530579456 404750336 406847488 511180800 507510784 411041792 411041792 411041792 0 0 0)
( 0 0 0 1048576 7864320 66060288 32505856 39845888 73400320 144703488 285212672 301989888 469762048 0 0 0)) do:
[:name :array |
ScriptingSystem saveForm: (Form extent: 16@16 depth: 1 fromArray: array offset: 0@0) atKey: ('SmallHalo-', name)].
ScriptingSystem saveForm: (Form extent: 10@16 depth: 1 fromArray: #( 0 0 0 0 503316480 2130706432 1635778560 3246391296 3246391296 3246391296 3808428032 2130706432 1006632960 0 0 0) offset: 0@0 ) atKey: 'SmallHalo-Collapse'.
ScriptingSystem saveForm: ((ColorForm extent: 16@16 depth: 1 fromArray: #( 0 0 0 473432064 536346624 229638144 267386880 106954752 62914560 132120576 267386880 536346624 511180800 0 0 0) offset: 0@0) colorsFromArray: #(#(1.0 1.0 1.0) #(0.0 0.0 0.004) ) ) atKey: 'SmallHalo-Pooh'.
"
ScriptingSystem initializeSmallHaloIcons
"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>inspectFormDictionary (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>inspectFormDictionary (in category '*Etoys-form dictionary') -----
inspectFormDictionary
"ScriptingSystem inspectFormDictionary"
GraphicalDictionaryMenu openOn: FormDictionary withLabel: 'Testing One Two Three'!
Item was changed:
+ ----- Method: StandardScriptingSystem>>installDevelopmentFontsAndPreferences (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>installDevelopmentFontsAndPreferences (in category '*Etoys-Squeakland-font & color choices') -----
installDevelopmentFontsAndPreferences
"Reinstates some of the standard olpc font choices. This is for private use by developers who may have reset some fonts for the benefit of development work."
Preferences setListFontTo: (StrikeFont familyName: 'Accuny' size: 18).
Preferences setButtonFontTo: (StrikeFont familyName: 'Accuny' size: 9).
Preferences disable: #inboardScrollbars.
Preferences disable: #scrollBarsOnRight.
Preferences disable: #mouseOverHalos.
Preferences disable: #biggerHandles.
"
ScriptingSystem installDevelopmentFontsAndPreferences.
"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>installOLPCFontsAndPreferences (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>installOLPCFontsAndPreferences (in category '*Etoys-Squeakland-font & color choices') -----
installOLPCFontsAndPreferences
"Assures that some of the standard olpc font and scrolling choices are installed. This is for private use by developers who may have changed some font and scrolling preferences, for the benefit of development work."
Preferences restoreDefaultFonts.
Preferences enable: #inboardScrollbars.
Preferences enable: #scrollBarsOnRight.
Preferences enable: #mouseOverHalos.
Preferences enable: #biggerHandles.
Preferences setParameter: #fontForBlueFileListTitle to: ((StrikeFont familyName: 'Accujen' size: 30) emphasized: 1).
Preferences setParameter: #fontForBlueFileListButtons to: ((StrikeFont familyName: 'Accujen' size: 22) emphasized: 1).
false ifTrue: [ScriptingSystem installOLPCFontsAndPreferences] "to have a sender"
"
ScriptingSystem installOLPCFontsAndPreferences.
"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>installSolidMenuForm (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>installSolidMenuForm (in category '*Etoys-form dictionary') -----
installSolidMenuForm
"ScriptingSystem installSolidMenuForm"
self saveForm:
(Form extent: 14@16 depth: 16
fromArray: #( 1 0 0 0 0 0 0 65537 65536 0 0 0 65537 0 65537 65537 65537 65537 65537 65537 65536 65537 65537 65537 65537 65537 1600061441 65536 65537 1600085855 1600085855 1600085855 1600085855 1600061441 65536 65537 1600085855 65537 65537 65537 65537 65536 65537 1600085855 65537 65537 65537 1600061441 65536 65537 1600085855 1600085855 1600085855 1600085855 1600085855 65537 65537 1600085855 65537 65537 65537 1600085855 65537 65537 1600085855 1600061441 65537 65537 89951 65537 65537 1600085855 1600085855 1600085855 1600085855 1600085855 65537 65537 1600085855 1600061441 65537 65537 65537 65537 65537 1600085855 65537 65537 65537 65536 65537 65537 65537 65537 65537 65537 65537 65537 1 65537 65537 65537 65537 65537 65536 0 65536 0 0 0 0 0) offset: 0@0)
atKey: 'SolidMenu'!
Item was changed:
+ ----- Method: StandardScriptingSystem>>macroBenchmark (in category 'benchmarks') -----
- ----- Method: StandardScriptingSystem>>macroBenchmark (in category '*Etoys-Squeakland-benchmarks') -----
macroBenchmark
"Transcript cr; show: ScriptingSystem macroBenchmark"
| writer |
Smalltalk garbageCollect.
writer := '' writeStream.
writer nextPutAll: '#' , SystemVersion current highestUpdate printString;
space.
writer nextPutAll: 'memory='.
writer print: self memory;
space.
writer nextPutAll: 'display='.
writer nextPutAll: Display width printString , 'x' , Display height printString , 'x' , Display depth printString;
space.
self
benchmark: #benchmarkPainter
label: 'painter'
on: writer.
self
benchmark: #benchmarkViewer
label: 'viewer'
on: writer.
self
benchmark: #benchmarkScriptor
label: 'scriptor'
on: writer.
self
benchmark: #benchmarkCategory
label: 'category'
on: writer.
^ writer contents!
Item was changed:
+ ----- Method: StandardScriptingSystem>>memory (in category 'benchmarks') -----
- ----- Method: StandardScriptingSystem>>memory (in category '*Etoys-Squeakland-benchmarks') -----
memory
^ SmalltalkImage current getVMParameters at: 3!
Item was changed:
+ ----- Method: StandardScriptingSystem>>mergeGraphicsFrom: (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>mergeGraphicsFrom: (in category '*Etoys-form dictionary') -----
mergeGraphicsFrom: aDictionary
"aDictionary is assumed to hold associations of the form <formName> -> <form>. Merge the graphics held by that dictionary into the internal FormDictionary, overlaying any existing entries with the ones found in aDictionary"
aDictionary associationsDo:
[:assoc | self saveForm: assoc value atKey: assoc key]
"works ok even if keys in aDictionary are strings rather than symbols"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>nameForInstanceVariablesCategory (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>nameForInstanceVariablesCategory (in category '*Etoys-utilities') -----
nameForInstanceVariablesCategory
"Answer the name to use for the viewer category that contains instance variables"
^ #variables
"^ #'instance variables'"
"ScriptingSystem nameForInstanceVariablesCategory"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>nameForScriptsCategory (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>nameForScriptsCategory (in category '*Etoys-utilities') -----
nameForScriptsCategory
"Answer the name to use for the viewer category that contains scripts"
^ #scripts!
Item was changed:
+ ----- Method: StandardScriptingSystem>>newScriptingSpace (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>newScriptingSpace (in category '*Etoys-utilities') -----
newScriptingSpace
"Answer a complete scripting space - raa 19 sept 2000 - experiment for Alan, a variant *not* in a window, now adopted as the only true scripting space"
^ self newScriptingSpace2!
Item was changed:
+ ----- Method: StandardScriptingSystem>>newScriptingSpace2 (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>newScriptingSpace2 (in category '*Etoys-utilities') -----
newScriptingSpace2
"Answer a complete scripting space"
| aTemplate aPlayfield aControl |
(aTemplate := PasteUpMorph new)
setNameTo: 'etoy';
extent: 638 @ 470;
color: Color white;
impartPrivatePresenter;
setProperty: #automaticPhraseExpansion toValue: true;
beSticky.
aTemplate useRoundedCorners; borderWidth: 2.
aControl := ScriptingSystem scriptControlButtons setToAdhereToEdge: #bottomLeft.
aControl beSticky; borderWidth: 0; beTransparent.
aTemplate addMorphBack: aControl.
aTemplate presenter addTrashCan.
aTemplate addMorph: (aPlayfield := PasteUpMorph new).
aPlayfield
setNameTo: 'playfield';
useRoundedCorners;
setToAdhereToEdge: #topLeft;
extent: 340@300;
position: aTemplate topRight - (400@0);
beSticky;
automaticViewing: true;
wantsMouseOverHalos: true.
aTemplate presenter standardPlayfield: aPlayfield.
aTemplate setProperty: #tutorial toValue: true.
^ aTemplate
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>noButtonPressedTiles (in category 'parts bin') -----
- ----- Method: StandardScriptingSystem>>noButtonPressedTiles (in category '*Etoys-parts bin') -----
noButtonPressedTiles
"Answer tiles representing the query 'is no button pressed?'"
^ self tilesForQuery: '(ActiveHand noButtonPressed)' label: 'button up?' translated!
Item was changed:
+ ----- Method: StandardScriptingSystem>>numericComparitorsAndHelpStrings (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>numericComparitorsAndHelpStrings (in category '*Etoys-utilities') -----
numericComparitorsAndHelpStrings
"Answer an array whose first element is the list of comparitors, and whose second element is a list of the corresponding help strings"
^ #((< <= = ~= > >= isDivisibleBy:)
('less than' 'less than or equal' 'equal' 'not equal' 'greater than' 'greater than or equal' 'divisible by' )) translatedNoop!
Item was changed:
+ ----- Method: StandardScriptingSystem>>numericFunctionsAndHelpStrings (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>numericFunctionsAndHelpStrings (in category '*Etoys-Squeakland-utilities') -----
numericFunctionsAndHelpStrings
"Answer an array whose first element is the list of functions, and whose second element is a list of the corresponding help strings"
| table |
table := self tableOfNumericFunctions. "<selector> <help-string> pairs"
^ Array with:
(table collect: [:pr | pr first])
with:
(table collect: [:pr | pr second])!
Item was changed:
+ ----- Method: StandardScriptingSystem>>openInfoFlapWithLabel:helpContents:edge: (in category 'help in a flap') -----
- ----- Method: StandardScriptingSystem>>openInfoFlapWithLabel:helpContents:edge: (in category '*Etoys-Squeakland-help in a flap') -----
openInfoFlapWithLabel: aTitle helpContents: aString edge: anEdge
"Open an info flap with the given label, contents, and edge"
| aPlug outer leftStrip rightStrip titleRow aDismissButton aFlapTab |
Preferences enable: #scrollBarsOnRight.
Preferences enable: #inboardScrollbars.
aFlapTab := FlapTab new.
aFlapTab assureExtension visible: false.
aFlapTab referentMargin: 0 @ Project current world sugarAllowance.
outer := HelpFlap newRow.
outer assureExtension visible: false.
outer clipSubmorphs: true.
outer beTransparent.
outer vResizing: #spaceFill; hResizing: #spaceFill.
outer layoutInset: 0; cellInset: 0; borderWidth: 0.
outer morphicLayerNumber: outer class navigatorLayer.
leftStrip := Morph new beTransparent.
leftStrip layoutInset: 0; cellInset: 0; borderWidth: 0.
leftStrip width: 20.
leftStrip hResizing: #rigid; vResizing: #spaceFill.
outer addMorphBack: leftStrip.
rightStrip := AlignmentMorph newColumn.
rightStrip beTransparent.
rightStrip layoutInset: 0; cellInset: 0; borderWidth: 0.
outer addMorphBack: rightStrip.
outer clipSubmorphs: true.
titleRow := AlignmentMorph newRow.
titleRow borderColor: Color veryVeryLightGray; borderWidth: 1.
titleRow hResizing: #spaceFill; vResizing: #shrinkWrap.
titleRow beTransparent.
aDismissButton := aFlapTab tanOButton.
aDismissButton actionSelector: #dismissViaHalo.
titleRow addMorphFront: aDismissButton.
titleRow addTransparentSpacerOfSize: 8 @ 0.
titleRow
addMorphBack: (StringMorph contents: aTitle font: Preferences standardEToysTitleFont).
rightStrip addMorph: titleRow.
aPlug := PluggableTextMorph new.
aPlug width: 540.
aPlug setText: aString.
aPlug textMorph beAllFont: Preferences standardEToysFont.
aPlug retractable: false; scrollBarOnLeft: false.
aPlug hScrollBarPolicy: #never.
aPlug borderColor: ScriptingSystem borderColor.
aPlug setNameTo: aTitle.
aPlug hResizing: #spaceFill.
aPlug vResizing: #spaceFill.
rightStrip addMorphBack: aPlug.
aFlapTab referent ifNotNil: [aFlapTab referent delete].
aFlapTab referent: outer.
aFlapTab setName: aTitle edge: anEdge color: (Color r: 0.677 g: 0.935 b: 0.484).
aFlapTab submorphs first beAllFont: Preferences standardEToysFont.
Project current world addMorphFront: aFlapTab.
aFlapTab adaptToWorld: Project current world.
aFlapTab computeEdgeFraction.
anEdge == #left ifTrue:
[aFlapTab position: (outer left @ outer top).
outer extent: (540 @ Project current world height)].
anEdge == #right ifTrue:
[aFlapTab position: ((Project current world right - aFlapTab width) @ Project current world top).
outer extent: (540 @ Project current world height)].
outer beFlap: true.
outer color: Color green veryMuchLighter.
aPlug textMorph lock.
aFlapTab referent hide.
aFlapTab openFully.
outer beSticky.
leftStrip beSticky.
rightStrip beSticky.
Project current world doOneCycle.
aPlug width: 540.
aPlug setText: aString. "hmm, again"
aPlug color: outer color.
aPlug borderWidth: 0.
aPlug textMorph contents: aString wrappedTo: 520.
aFlapTab applyThickness: 560.
aFlapTab fitOnScreen.
aFlapTab referent show.
^ aFlapTab!
Item was changed:
+ ----- Method: StandardScriptingSystem>>paneColor (in category 'tile colors') -----
- ----- Method: StandardScriptingSystem>>paneColor (in category '*Etoys-Squeakland-tile colors') -----
paneColor
^ Color green muchLighter muchLighter!
Item was changed:
+ ----- Method: StandardScriptingSystem>>patchInNewStandardPlayerForm (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>patchInNewStandardPlayerForm (in category '*Etoys-form dictionary') -----
patchInNewStandardPlayerForm
"Patch in a darker and larger representation of a Dot. No senders -- called from the postscript of an update"
"ScriptingSystem patchInNewStandardPlayerForm"
FormDictionary at: #standardPlayer put:
(Form
extent: 13@13
depth: 16
fromArray: #( 0 0 0 65536 0 0 0 0 0 65537 65537 65536 0 0 0 65537 65537 65537 65537 65536 0 0 65537 65537 65537 65537 65536 0 1 65537 65537 65537 65537 65537 0 1 65537 65537 65537 65537 65537 0 65537 65537 65537 65537 65537 65537 65536 1 65537 65537 65537 65537 65537 0 1 65537 65537 65537 65537 65537 0 0 65537 65537 65537 65537 65536 0 0 65537 65537 65537 65537 65536 0 0 0 65537 65537 65536 0 0 0 0 0 65536 0 0 0)
offset: 0@0)!
Item was changed:
+ ----- Method: StandardScriptingSystem>>privateGraphics (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>privateGraphics (in category '*Etoys-form dictionary') -----
privateGraphics
"ScriptingSystem deletePrivateGraphics"
^#(#BadgeMiniPic #BadgePic #Broom #CedarPic #CollagePic #CoverMain #CoverSpiral #CoverTexture #Fred #ImagiPic #KayaPic #StudioPic)!
Item was changed:
+ ----- Method: StandardScriptingSystem>>prototypicalHolder (in category 'parts bin') -----
- ----- Method: StandardScriptingSystem>>prototypicalHolder (in category '*Etoys-parts bin') -----
prototypicalHolder
| aHolder |
aHolder := PasteUpMorph authoringPrototype color: Color orange muchLighter; borderColor: Color orange lighter.
aHolder setNameTo: 'holder'; extent: 160 @ 110.
^ aHolder behaveLikeHolder.
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>putUpInfoPanelFor:title:extent: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>putUpInfoPanelFor:title:extent: (in category '*Etoys-Squeakland-utilities') -----
putUpInfoPanelFor: aString title: aTitle extent: anExtent
"Put up a dismissable help panel showing the given string, with the given extent; the panel will have a slim title bar at top, by which it can be dragged, as well as dismissed."
| aPlug outer |
aPlug := PluggableTextMorph new.
aPlug extent: anExtent.
aPlug color: Color white.
aPlug setText: aString.
aPlug hScrollBarPolicy: #never.
aPlug vScrollBarPolicy: #whenNeeded.
aPlug wrapFlag: true.
aPlug borderWidth: 0.
aPlug borderColor: ScriptingSystem borderColor.
aPlug setNameTo: aTitle.
outer := self buildPanelTitled: aTitle.
outer addMorphBack: aPlug.
aPlug textMorph lock.
outer openInWorld.
"
ScriptingSystem putUpInfoPanelFor: AllScriptsTool new helpString title: 'Testing One Two Three' extent: 800@600.
"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>randomColorTile (in category 'gold box') -----
- ----- Method: StandardScriptingSystem>>randomColorTile (in category '*Etoys-Squeakland-gold box') -----
randomColorTile
"Answer a new object comprising the timesRepeat structure."
^ ColorTileRandom new!
Item was changed:
+ ----- Method: StandardScriptingSystem>>randomNumberTile (in category 'gold box') -----
- ----- Method: StandardScriptingSystem>>randomNumberTile (in category '*Etoys-Squeakland-gold box') -----
randomNumberTile
"Answer a new Random Number tile"
| functionPhrase argTile aPad |
functionPhrase := FunctionTile new.
argTile := (Vocabulary vocabularyNamed: 'Number') defaultArgumentTile.
aPad := TilePadMorph new setType: #Number.
aPad addMorphBack: argTile.
functionPhrase operator: #random pad: aPad.
^ functionPhrase!
Item was changed:
+ ----- Method: StandardScriptingSystem>>randomTileIconForm (in category 'universal slots & scripts') -----
- ----- Method: StandardScriptingSystem>>randomTileIconForm (in category '*Etoys-Squeakland-utilities') -----
randomTileIconForm
"Answer the form to use in the gold box for the random tile item."
^ self formAtKey: #randomTileIconForm!
Item was changed:
+ ----- Method: StandardScriptingSystem>>readFormsFromFileNamed: (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>readFormsFromFileNamed: (in category '*Etoys-form dictionary') -----
readFormsFromFileNamed: aFileName
"Read the entire FormDictionary in from a designated file on disk"
| aReferenceStream |
aReferenceStream := ReferenceStream fileNamed: aFileName.
FormDictionary := aReferenceStream next.
aReferenceStream close
"ScriptingSystem readFormsFromFileNamed: 'EToyForms22Apr'"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>readFormsFromFileNamed:andStoreIntoGlobal: (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>readFormsFromFileNamed:andStoreIntoGlobal: (in category '*Etoys-form dictionary') -----
readFormsFromFileNamed: aFileName andStoreIntoGlobal: globalName
"Read the a FormDictionary in from a designated file on disk and save it in the designated global"
| aReferenceStream |
aReferenceStream := ReferenceStream fileNamed: aFileName.
Smalltalk at: globalName put: aReferenceStream next.
aReferenceStream close
"ScriptingSystem readFormsFromFileNamed: 'SystemFormsFromFwdF.forms' andStoreIntoGlobal: #FormsTemp"
"ScriptingSystem saveForm: (FormsTemp at: #StackElementDesignationHelp) atKey: #StackElementDesignationHelp"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>reclaimSpace (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>reclaimSpace (in category '*Etoys-utilities') -----
reclaimSpace
"Reclaim space from the scripting system, and report the result in an informer"
"ScriptingSystem reclaimSpace"
| reclaimed |
(reclaimed := self spaceReclaimed) > 0
ifTrue: [self inform: reclaimed printString, ' bytes reclaimed']
ifFalse: [self inform: 'Hmm... Nothing gained this time.']!
Item was changed:
+ ----- Method: StandardScriptingSystem>>referenceAt: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>referenceAt: (in category '*Etoys-utilities') -----
referenceAt: aSymbol
"Answer the object referred to by aSymbol in the 'References' scheme of things, or nil if none"
^ References at: aSymbol ifAbsent: [nil]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>referenceAt:put: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>referenceAt:put: (in category '*Etoys-utilities') -----
referenceAt: aSymbol put: anObject
"Store a reference to anObject at the given symbol in the References directory"
^ References at: aSymbol put: anObject!
Item was changed:
+ ----- Method: StandardScriptingSystem>>reinvigorateThumbnailsInViewerFlapTabs (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>reinvigorateThumbnailsInViewerFlapTabs (in category '*Etoys-utilities') -----
reinvigorateThumbnailsInViewerFlapTabs
"It has happened that the thumbnail in a viewer flap tab will go solid gray because it got associated with some passing and disused player temporarily created during the initial painting process. This method takes a sledge hammer to repair such thumbnails. At its genesis, this method is called only from the postscript of its defining fileout."
ViewerFlapTab allInstancesDo:
[:aTab |
| vwr thumbnail |
vwr := aTab referent findA: StandardViewer.
thumbnail := aTab findA: ThumbnailMorph.
(vwr notNil and: [thumbnail notNil]) ifTrue:
[thumbnail objectToView: vwr scriptedPlayer]]
"ScriptingSystem reinvigorateThumbnailsInViewerFlapTabs"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>removeCustomEventNamed:for: (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>removeCustomEventNamed:for: (in category '*Etoys-customevents-custom events') -----
removeCustomEventNamed: aSymbol for: registrant
| registration helpString |
registration := self customEventsRegistry at: aSymbol ifAbsent: [ ^nil ].
helpString := registration removeKey: registrant ifAbsent: [].
registration isEmpty ifTrue: [ self customEventsRegistry removeKey: aSymbol ].
^helpString!
Item was changed:
+ ----- Method: StandardScriptingSystem>>removeFromSoundLibrary: (in category 'sound library') -----
- ----- Method: StandardScriptingSystem>>removeFromSoundLibrary: (in category '*Etoys-Squeakland-sound library') -----
removeFromSoundLibrary: aSoundName
"Allow the user to remove a user-added sound from the Sound library."
| found |
found := 0.
SoundTile allInstances do:
[:m |
m literal = aSoundName
ifTrue:
[m literal: 'clink'.
found := found + 1]].
SampledSound removeSoundNamed: aSoundName.
found > 0 ifTrue:
[self inform: found printString, ' tiles reverted to "clink"' translated]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>removeUserCustomEventNamed: (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>removeUserCustomEventNamed: (in category '*Etoys-customevents-custom events') -----
removeUserCustomEventNamed: eventName
| retval |
retval := self currentWorld removeUserCustomEventNamed: eventName.
"Vocabulary addStandardVocabulary: UserCustomEventNameType new."
Vocabulary customEventsVocabulary.
SymbolListTile updateAllTilesForVocabularyNamed: #CustomEvents.
^retval!
Item was changed:
+ ----- Method: StandardScriptingSystem>>renameSound:newName: (in category 'sound library') -----
- ----- Method: StandardScriptingSystem>>renameSound:newName: (in category '*Etoys-Squeakland-sound library') -----
renameSound: aSoundName newName: aNewName
"Change the name of a given sound "
| found |
found := 0.
SampledSound renameSound: aSoundName newName: aNewName.
SoundTile allInstances do:
[:m |
m literal = aSoundName
ifTrue:
[m literal: aNewName.
found := found + 1]].
found > 0 ifTrue:
[self inform: found printString, ' tile(s) changed to "' translated, aNewName]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>reportToUser: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>reportToUser: (in category '*Etoys-utilities') -----
reportToUser: aString
"Make a message accessible to the user. "
| trigger current baseTriggerer topTriggerer mclass sel topSelector |
trigger := Player compiledMethodAt: #triggerScript:.
current := thisContext.
baseTriggerer := nil.
topTriggerer := nil.
[current notNil] whileTrue: [
topTriggerer ifNil: [
current receiver class isUniClass ifTrue: [
"Look for the top-most uniclass script in the call chain."
sel := current receiver class selectorAtMethod: current homeMethod setClass: [:c | mclass := c].
mclass = current receiver class ifTrue: [
topTriggerer := current.
topSelector := sel.
].
].
].
(current method = trigger and: [current isExecutingBlock not]) ifTrue: [
"Look for the bottom-most #triggerScript: and its selector."
baseTriggerer := current
].
current := current sender.
].
baseTriggerer ifNotNil: [
(baseTriggerer receiver scriptInstantiationForSelector: (baseTriggerer at: 1)) resetTo: #paused ifCurrently: #ticking.
].
(topTriggerer notNil and: [topSelector notNil]) ifTrue: [
^ self eToysError: aString, '\', topTriggerer receiver knownName, '\', topSelector.
].
self error: aString!
Item was changed:
+ ----- Method: StandardScriptingSystem>>resetAllScriptingReferences (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>resetAllScriptingReferences (in category '*Etoys-utilities') -----
resetAllScriptingReferences
"Clear out all the elements in the References directory"
Smalltalk at: #References put: IdentityDictionary new
"ScriptingSystem resetAllScriptingReferences"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>resetStaleScriptingReferences (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>resetStaleScriptingReferences (in category '*Etoys-utilities') -----
resetStaleScriptingReferences
"Remove all scripting references that are no longer needed"
References removeUnreferencedKeys
"ScriptingSystem resetStaleScriptingReferences"
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>resetStandardPartsBin (in category 'parts bin') -----
- ----- Method: StandardScriptingSystem>>resetStandardPartsBin (in category '*Etoys-parts bin') -----
resetStandardPartsBin
"ScriptingSystem resetStandardPartsBin"
StandardPartsBin := nil!
Item was changed:
+ ----- Method: StandardScriptingSystem>>restoreClassicEToyLook (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>restoreClassicEToyLook (in category '*Etoys-utilities') -----
restoreClassicEToyLook
"Restore classic EToy look, as closely as possible. If ComicBold is present, restore it as the standard etoy and button font. Substitute ComicSansMS and Accuny as respective alternatives if the classic fonts are absent. If those also aren't available, do nothing."
| aTextStyle aFont |
(aTextStyle := TextStyle named: #ComicBold)
ifNotNil:
[aFont := aTextStyle fontOfSize: 16.
Preferences setEToysFontTo: aFont.
Preferences setButtonFontTo: aFont]
ifNil:
[(aTextStyle := TextStyle named: #ComicSansMS) ifNotNil:
[Preferences setEToysFontTo: (aTextStyle fontOfSize: 18)].
(aTextStyle := TextStyle named: #Accuny) ifNotNil:
[Preferences setButtonFontTo: (aTextStyle fontOfSize: 12)]].
(aTextStyle := TextStyle named: #NewYork)
ifNotNil:
[Preferences setSystemFontTo: (aTextStyle fontOfSize: 12)]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>restorePrivateGraphics (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>restorePrivateGraphics (in category '*Etoys-form dictionary') -----
restorePrivateGraphics
"ScriptingSystem restorePrivateGraphics"
| aReferenceStream |
aReferenceStream := ReferenceStream fileNamed: 'disGraphics'.
self mergeGraphicsFrom: aReferenceStream next.
aReferenceStream close.
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>saveForm:atKey: (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>saveForm:atKey: (in category '*Etoys-form dictionary') -----
saveForm: aForm atKey: aKey
FormDictionary at: aKey asSymbol put: aForm!
Item was changed:
+ ----- Method: StandardScriptingSystem>>saveFormsToFileNamed: (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>saveFormsToFileNamed: (in category '*Etoys-form dictionary') -----
saveFormsToFileNamed: aFileName
"Save the current state of form dictionary to disk for possible later retrieval"
(ReferenceStream fileNamed: aFileName) nextPut: FormDictionary; close
"ScriptingSystem saveFormsToFileNamed: 'SystemForms06May98.forms'"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>scriptControlButtons (in category 'script-control') -----
- ----- Method: StandardScriptingSystem>>scriptControlButtons (in category '*Etoys-script-control') -----
scriptControlButtons
"Answer a composite object that serves to control the stop/stop/go status of a Presenter"
| wrapper |
wrapper := AlignmentMorph newRow setNameTo: 'script controls'.
wrapper vResizing: #shrinkWrap.
wrapper hResizing: #shrinkWrap.
wrapper addMorph: self stopButton.
wrapper addMorphBack: self stepButton.
wrapper addMorphBack: self goButton.
wrapper beTransparent.
^ wrapper!
Item was changed:
+ ----- Method: StandardScriptingSystem>>searchForSlotProtocolConflicts (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>searchForSlotProtocolConflicts (in category '*Etoys-Squeakland-utilities') -----
searchForSlotProtocolConflicts
"Search for conflicts in slot protocol declarations. Show details of conflicts found in the Transcript."
| aDict additions itsAdditions slotName existing |
aDict := Dictionary new.
Morph withAllSubclasses asArray do:
[:cl |
additions := cl class selectors select: [:sel | ((sel includes: $:) not) and: [sel beginsWith: 'additionsToViewerCategor']].
additions do:
[:sel | itsAdditions := sel = #additionsToViewerCategories
ifTrue:
[cl perform: sel]
ifFalse:
[Array with: (cl perform: sel)].
itsAdditions do: [:pair | pair second do:
[:m | m first == #slot ifTrue:
[slotName := m second.
existing := aDict at: slotName ifAbsent: [nil].
existing
ifNil:
[aDict at: slotName put: m]
ifNotNil:
[((existing fourth ~= m fourth) "type"
or: [existing fifth ~= m fifth] "readOnly or readWrite"
or: [existing seventh ~= m seventh] "getter"
or: [existing ninth ~= m ninth] ) "setter"
ifTrue:
[Transcript cr; show: existing.
Transcript cr; show: m]]]]]]].
"
ScriptingSystem searchForSlotProtocolConflicts.
"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>seminalFunctionTile (in category 'gold box') -----
- ----- Method: StandardScriptingSystem>>seminalFunctionTile (in category '*Etoys-Squeakland-gold box') -----
seminalFunctionTile
"Answer a prototypical function tile"
| functionPhrase argTile aPad |
functionPhrase := FunctionTile new.
argTile := (Vocabulary vocabularyNamed: 'Number') defaultArgumentTile.
aPad := TilePadMorph new setType: #Number.
aPad addMorphBack: argTile.
functionPhrase operator: #abs pad: aPad.
^ functionPhrase!
Item was changed:
+ ----- Method: StandardScriptingSystem>>setterFeedback (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>setterFeedback (in category '*Etoys-Squeakland-font & color choices') -----
setterFeedback
^Color r: 1.0 g: 0.548 b: 0.452!
Item was changed:
+ ----- Method: StandardScriptingSystem>>setterSelectorForGetter: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>setterSelectorForGetter: (in category '*Etoys-utilities') -----
setterSelectorForGetter: aGetterSymbol
"Answer the setter selector corresponding to a given getter"
^ (('s', (aGetterSymbol copyFrom: 2 to: aGetterSymbol size)), ':') asSymbol
"ScriptingSystem setterSelectorForGetter: #getCursor"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>sizeForThumbnailsInProjectSorter (in category 'olpc') -----
- ----- Method: StandardScriptingSystem>>sizeForThumbnailsInProjectSorter (in category '*Etoys-Squeakland-olpc') -----
sizeForThumbnailsInProjectSorter
"Answer the desired size for thumbnails in the Project Sorter."
^ 160 @ 120
"Historically a thumbnail size of 80@60 has been used; here we scale this up by 2x for the benefit of the olpc screen. Eventually we may wish to parameterize and expose this value."!
Item was changed:
+ ----- Method: StandardScriptingSystem>>smallBoldFont (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>smallBoldFont (in category '*Etoys-font & color choices') -----
smallBoldFont
"Answer a small bold font for use in some standard scripting-support structures"
^ StrikeFont familyName: Preferences standardEToysFont familyName size: 12!
Item was changed:
+ ----- Method: StandardScriptingSystem>>sorterGridSize (in category 'olpc') -----
- ----- Method: StandardScriptingSystem>>sorterGridSize (in category '*Etoys-Squeakland-olpc') -----
sorterGridSize
"Answer the grid-size to use in the ProjectSorterMorph and confreres."
^ 32 @ 32
"Historically the grid for sorters has been 16@16, but we jack it up for OLPC, understanding that eventualliy we may want UI whereby this parameter choice is exposed to, and is settable by, the user."!
Item was changed:
+ ----- Method: StandardScriptingSystem>>soundNamesToSuppress (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>soundNamesToSuppress (in category '*Etoys-utilities') -----
soundNamesToSuppress
"Answer a list of sound-names that are not to be offered in sound-choice pop-ups unless they are the current choice"
^ #('scrape' 'scritch' 'peaks')!
Item was changed:
+ ----- Method: StandardScriptingSystem>>spaceReclaimed (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>spaceReclaimed (in category '*Etoys-utilities') -----
spaceReclaimed
"Reclaim space from the EToy system, and return the number of bytes reclaimed"
"ScriptingSystem spaceReclaimed"
| oldFree |
oldFree := Smalltalk garbageCollect.
ThumbnailMorph recursionReset.
Player removeUninstantiatedSubclassesSilently.
Smalltalk cleanOutUndeclared.
Smalltalk reclaimDependents.
^ Smalltalk garbageCollect - oldFree.!
Item was changed:
+ ----- Method: StandardScriptingSystem>>squeakyMouseForm (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>squeakyMouseForm (in category '*Etoys-form dictionary') -----
squeakyMouseForm
^ self formAtKey: 'squeakyMouse'
"
ScriptingSystem saveForm: (Form
extent: 30@29
depth: 16
fromArray: #( 1811114995 1878286257 2012637171 1811180532 1811180533 1811179508 1811180532 1811179508 1744006133 1878289396 1811180533 1878289396 1744007156 1674736630 1744006132 1811114995 1811181556 1744006131 1811246068 1811180532 1811179508 1811180532 1744071668 1811113972 1811180532 1811180532 1811179507 1878288338 1945529332 1744071668 1743941620 1811112945 1811179506 1811114995 1744006131 1744006130 1744005106 1811048434 1811113969 1743939570 1811179506 1743939571 1676833782 1676765171 1811047410 1744006131 1811048435 1811116020 1811180531 1743939571 1811048435 1743939570 1743939570 1743939570 1743940594 1744005106 1811181556 1811180532 1676766196 1743939570 1878420468 1676963830 1189896082 1811245044 1744137204 1744070644 1811179508 1811113971 1743939571 1811179508 1811246070 1811309524 1811302093 1811310580 1811246068 1674867703 1744049472 1120606594 1118465013 1744137205 1811179508 1811180532 1744071667 1744006132 1811112947 1811247095 1605584589 358761132 289435638 1676
830707 1741975543 1462778473 1811312631 702891724 1811310548 1945528308 1811178450 1945528307 1878288372 1878353875 1878421494 1051471335 1809213397 1118524175 1811246068 1945659348 1185698607 1878486005 1672694510 1118531574 1607626741 1878420467 1811180533 1743942645 1744072693 1811301035 1185770487 1878486006 1324239597 1811180533 1811116019 1120623438 1878352818 1945462739 704868339 1878289395 1811049459 1878221808 1878223859 1743876083 1811162563 1945463796 1811181556 1464746666 1811116018 1809019893 1120551562 1945464821 1741844468 1466842760 1878289395 1811048434 1811050483 1811050483 1878223859 1049188174 1741910004 1811181556 1256998634 1811114994 1878289396 1466840647 1744007156 1744006131 1676877216 1743940596 1878222835 1743938545 1878351792 1676833781 358641652 1743940596 1811050484 845566798 1811113970 1811114995 1811163652 1811112913 1878420468 1878282028 1811179506 1607560178 1878289395 1676900342 1878351825 1466853330 1811113971 1811116019 635659217 1811179506 18112
45045 1676942754 1744137206 1744201717 1676962806 1676962805 1811310581 1676896245 1744199635 1811376117 1744072695 1744005109 1811244019 499279861 1811310581 1811244020 1811293668 1399943159 1605528567 1744136181 982063522 986342388 1744070645 1744189066 430063308 1744071669 1744070644 1744067504 566519797 1744136181 1744137205 1743999854 912813044 1811311606 1742162607 4195488 283139922 1945531382 1253113857 144710948 1601400791 1811246069 1811167879 1464821747 1744136180 1674799094 1811178482 843473875 1811311606 1878533542 2106790 2080066222 1876193270 696845376 627472380 1185772536 1878355957 1743990309 1744007157 1676898294 1744006132 1811114996 1743941620 1811180533 1809204941 4194368 4217681 1878290421 1252982848 4194336 1670540278 1739811795 1878353906 1744006131 1811179506 1744007157 1744005106 1945462771 1811182582 1811311574 1393641133 1462856629 2012638196 1876382449 1112301394 1742041045 1945596917 1676833781 1811113970 1811179507 1811180532 1672705014 1674735606 16726
97648 1945725943 1878551479 1809215479 1811312629 1809216504 1809215479 1809215478 1462853490 1878487029 1744007158 1744005075 1811239726 704979363 495004132 700789287 562372997 631646663 1739998892 4194400 1116497846 698688932 562375109 770124262 633609569 495070758 1257010166 562315916 1809279958 2012894002 1047280171 980237901 910966381 1668677696 4194400 6314867 1047281260 908804749 910968495 1393719290 1809279959 1185750370 1809214455 1878469062 423836236 1532188466 1601592148 1462986647 1672937568 4194368 6319062 1603622706 1601525554 1601522417 1047336194 770206679 1878487031 1878409899 977955830 1809145716 1118586509 980105834 980045584 1811372914 980104778 1605526483 1395605131 910769804 1118651052 1534358520 1809136234 1118596053 1532059506 1878485973 1326456163 1945660374 1742106615 1811311607 1945725942 1742107641 1744072693 1811311605 1744203767 1878551543 564478604 1878553591 1603428242 1811048433 1811049459 1051290611 1744006131 1811049459 1878156273 1743874034 174400
7156 1743874033 1811048434 1811113970 1743939571 1743933228 1603301363 1743875059 1811049458 1945461745 1811181556 1811113971 1811049458 1811048434 1811116020 1878287346 1878223857 1743940594 1744006130 1744007157 1945395153 1945400309 1811048434 1743810547 1676765170 1878353906 1811113970 1743874032 1810983921 1743874033 1811113971 1676765169 1743874034 1743940593 1743939569 1811047409 1676765168 1743940595 1810981872 1945397235 1607560179 1743941620 1810982897 1810983921 1811048433 1744007155 1743875059 1811048434 1743875058 1743939568 1676832754 1811116019 1811114994 1811244019 1676962805 1677029367 1811244020 1744005106 1743940594 1811246068 1744070645 1676961781 1744004084 1676897269 1811180533 1878353908 1744004083 1744070645)
offset: 0@0) atKey: 'squeakyMouse'"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>standardEventStati (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>standardEventStati (in category '*Etoys-customevents-custom events') -----
standardEventStati
"Answer the events that can be directed to a particular morph by its event handler."
#('mouseDown'
'mouseStillDown'
'mouseUp'
'mouseEnter'
'mouseLeave'
'mouseEnterDragging'
'mouseLeaveDragging') translatedNoop.
^ #( mouseDown "run when mouse goes down on me"
mouseStillDown "while mouse still down"
mouseUp "when mouse comes back up"
mouseEnter "when mouse enters my bounds, button up"
mouseLeave "when mouse exits my bounds, button up"
mouseEnterDragging "when mouse enters my bounds, button down"
mouseLeaveDragging "when mouse exits my bounds, button down"
"keyStroke"
"gesture"
)
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>standardForms (in category 'form dictionary') -----
- ----- Method: StandardScriptingSystem>>standardForms (in category '*Etoys-form dictionary') -----
standardForms
"ScriptingSystem standardForms"
^ FormDictionary collect: [:f | f]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>standardTileBorderColor (in category 'tile colors') -----
- ----- Method: StandardScriptingSystem>>standardTileBorderColor (in category '*Etoys-tile colors') -----
standardTileBorderColor
"Answer the color to use for tile borders"
^ Color r: 0.804 g: 0.76 b: 0.564!
Item was changed:
+ ----- Method: StandardScriptingSystem>>statusColorSymbolFor: (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>statusColorSymbolFor: (in category '*Etoys-font & color choices') -----
statusColorSymbolFor: statusSymbol
#( (normal green)
(ticking blue)
(paused red)
(mouseDown yellow)
(mouseStillDown lightYellow)
(mouseUp lightBlue)
(mouseEnter lightBrown)
(mouseLeave lightRed)
(mouseEnterDragging lightGray)
(mouseLeaveDragging darkGray)
(keyStroke lightGreen)) do:
[:pair | statusSymbol == pair first ifTrue: [^ pair second]].
^ #blue!
Item was changed:
+ ----- Method: StandardScriptingSystem>>statusHelpStringFor: (in category 'customevents-help dictionary') -----
- ----- Method: StandardScriptingSystem>>statusHelpStringFor: (in category '*Etoys-customevents-help dictionary') -----
statusHelpStringFor: aPlayer
^String streamContents: [ :stream |
stream nextPutAll: 'normal -- run when called
paused -- ready to run all the time
ticking -- run all the time
mouseDown -- run when mouse goes down on me
mouseStillDown -- while mouse still down
mouseUp -- when mouse comes back up
mouseEnter -- when mouse enters my bounds, button up
mouseLeave -- when mouse exits my bounds, button up
mouseEnterDragging -- when mouse enters my bounds, button down
mouseLeaveDragging -- when mouse exits my bounds, button down
opening -- when I am being opened
closing -- when I am being closed' translated.
"'keyStroke -- run when user hits a key' "
stream cr; cr; nextPutAll: 'More events:' translated; cr.
(self customEventNamesAndHelpStringsFor: aPlayer) do: [ :array |
stream cr;
nextPutAll: array first;
nextPutAll: ' -- '.
array second do: [ :help | stream nextPutAll: help translated ]
separatedBy: [ stream nextPutAll: ' or ' translated ]].
(Preferences valueOfFlag: #allowEtoyUserCustomEvents) ifTrue: [
self userCustomEventNames isEmpty ifFalse: [
stream cr; cr; nextPutAll: 'User custom events:' translated; cr.
self currentWorld userCustomEventsRegistry keysAndValuesDo: [ :key :value |
stream cr; nextPutAll: key; nextPutAll: ' -- '; nextPutAll: value ]]]]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>stepButton (in category 'script-control') -----
- ----- Method: StandardScriptingSystem>>stepButton (in category '*Etoys-script-control') -----
stepButton
| aButton |
self flag: #deferred. "ambiguity about recipients"
aButton := ThreePhaseButtonMorph new.
aButton
offImage: (ScriptingSystem formAtKey: 'StepPic');
pressedImage: (ScriptingSystem formAtKey: 'StepPicOn');
image: (ScriptingSystem formAtKey: 'StepPicOn');
arguments: (Array with: nil with: aButton);
actionSelector: #stepStillDown:with:;
target: self;
setNameTo: 'Step Button';
actWhen: #whilePressed;
on: #mouseDown send: #stepDown:with: to: self;
on: #mouseStillDown send: #stepStillDown:with: to: self;
on: #mouseUp send: #stepUp:with: to: self;
setBalloonText:
'Run every paused script exactly once. Keep the mouse button down over "Step" and everything will keep running until you release it' translated.
^ aButton!
Item was changed:
+ ----- Method: StandardScriptingSystem>>stepDown:with: (in category 'script-control') -----
- ----- Method: StandardScriptingSystem>>stepDown:with: (in category '*Etoys-script-control') -----
stepDown: evt with: aMorph
aMorph presenter stopRunningScripts!
Item was changed:
+ ----- Method: StandardScriptingSystem>>stepStillDown:with: (in category 'script-control') -----
- ----- Method: StandardScriptingSystem>>stepStillDown:with: (in category '*Etoys-script-control') -----
stepStillDown: dummy with: theButton
Cursor wait showWhile: [
theButton presenter stepStillDown: dummy with: theButton
]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>stepUp:with: (in category 'script-control') -----
- ----- Method: StandardScriptingSystem>>stepUp:with: (in category '*Etoys-script-control') -----
stepUp: evt with: aMorph
aMorph presenter stepUp: evt with: aMorph!
Item was changed:
+ ----- Method: StandardScriptingSystem>>stopButton (in category 'script-control') -----
- ----- Method: StandardScriptingSystem>>stopButton (in category '*Etoys-script-control') -----
stopButton
"Answer a new button that can serve as a stop button"
| aButton |
aButton := ThreePhaseButtonMorph new.
aButton
offImage: (ScriptingSystem formAtKey: 'StopPic');
pressedImage: (ScriptingSystem formAtKey: 'StopPicOn');
image: (ScriptingSystem formAtKey: 'StopPic').
aButton actionSelector: #stopUp:with:;
arguments: (Array with: nil with: aButton);
actWhen: #buttonUp;
target: self;
setNameTo: 'Stop Button';
setBalloonText: 'Pause all ticking scripts.' translated.
^ aButton!
Item was changed:
+ ----- Method: StandardScriptingSystem>>stopUp:with: (in category 'script-control') -----
- ----- Method: StandardScriptingSystem>>stopUp:with: (in category '*Etoys-script-control') -----
stopUp: dummy with: theButton
| aPresenter |
Cursor wait showWhile: [
(aPresenter := theButton presenter) flushPlayerListCache. "catch guys not in cache but who're running"
aPresenter stopRunningScriptsFrom: theButton
]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>stripGraphicsForExternalRelease (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>stripGraphicsForExternalRelease (in category '*Etoys-utilities') -----
stripGraphicsForExternalRelease
"ScriptingSystem stripGraphicsForExternalRelease"
| replacement |
replacement := FormDictionary at: #Gets.
#('BadgeMiniPic' 'BadgePic' 'Broom' 'CedarPic' 'CollagePic' 'CoverMain' 'CoverSpiral' 'CoverTexture' 'Fred' 'ImagiPic' 'KayaPic' 'StudioPic')
do:
[:aKey | FormDictionary at: aKey asSymbol put: replacement]!
Item was changed:
+ ----- Method: StandardScriptingSystem>>systemQueryPhraseWithActionString:labelled: (in category 'gold box') -----
- ----- Method: StandardScriptingSystem>>systemQueryPhraseWithActionString:labelled: (in category '*Etoys-Squeakland-gold box') -----
systemQueryPhraseWithActionString: aString labelled: anotherString
"Answer a system-query-phrase with the give action-string and label."
^ Project current world presenter
systemQueryPhraseWithActionString: aString labelled: anotherString!
Item was changed:
+ ----- Method: StandardScriptingSystem>>systemSlotNamesOfType: (in category 'universal slots & scripts') -----
- ----- Method: StandardScriptingSystem>>systemSlotNamesOfType: (in category '*Etoys-universal slots & scripts') -----
systemSlotNamesOfType: aType
"Answer the type of the slot name, or nil if not found."
| aList |
self flag: #deferred. "Hard-coded etoyVocabulary needed here to make this work."
aList := OrderedCollection new.
Vocabulary eToyVocabulary methodInterfacesDo:
[:anInterface |
anInterface resultType = aType ifTrue:
[aList add: anInterface selector]].
^ aList!
Item was changed:
+ ----- Method: StandardScriptingSystem>>tableOfNumericFunctions (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>tableOfNumericFunctions (in category '*Etoys-Squeakland-utilities') -----
tableOfNumericFunctions
"Answer an array of <external function name> <actual function to call> <help string> triplets."
" English on tile selector English balloon help"
^ #(
('abs' abs 'absolute value')
('arcTan' arcTan 'angle, in radians, whose tangent is the argument')
('cos' cos 'trigonometric cosine, argument in radians')
('cube' cubed 'the argument times itself, times itself again')
('cubeRoot ' cubeRoot 'cube root of the argument')
('degreeArcTan' degreeArcTan 'angle, in degrees, whose tangent is the argument')
('degreeCos' degreeCos 'trigonometric cosine, argument in degrees')
('degreeSin' degreeSin 'trigonometric sine, argument in degrees')
('degreeTan' degreeTan 'trigonometric tangent, argument in degrees')
('degreesToRadians' degreesToRadians 'the number of degrees equivalent to the argument which is assumed to be expressed in radians')
('exp' exp 'exponential (e to the power of the argument)')
('factorial' safeFactorial 'the product of all the whole numbers between 1 and the argument')
('ln' safeLn 'natural logarithm')
('log' safeLog 'logarithm, base 10')
('negate' negated 'the negative of the argument')
('radiansToDegrees' radiansToDegrees 'the number of radians equivalent to the argument, which is expressed in degrees.')
('random' random 'a randomly chosen integer between 1 and the argument')
('round' rounded 'the integer closest to the argument.')
('sign' sign '1 if argument is positive, -1 if argument is negative, 0 if argument is zero.')
('sin' sin 'trigonometric sine, argument in radians')
('square' squared 'the argument multiplied by itself')
('squareRoot' safeSquareRoot 'square root of the argument')
('tan' tan 'trigonometric tangent, argument in radians')
('truncate' truncated 'the integer nearest to the argument toward zero')
) translatedNoop
"
(raisedto raisedTo: 'raised to the power')
"!
Item was changed:
+ ----- Method: StandardScriptingSystem>>tileForArgType: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>tileForArgType: (in category '*Etoys-utilities') -----
tileForArgType: aType
"Anwer a default tile to represent a datum of the given argument type, which may be either a symbol (e.g. #Color) or a class"
(aType isKindOf: Class) "Allowed in Ted's work"
ifTrue:
[^ aType name asString newTileMorphRepresentative typeColor: Color gray].
^ (Vocabulary vocabularyForType: aType) defaultArgumentTile!
Item was changed:
+ ----- Method: StandardScriptingSystem>>tileForArgType:forCommand: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>tileForArgType:forCommand: (in category '*Etoys-Squeakland-utilities') -----
tileForArgType: aType forCommand: cmd
"Anwer a default tile to represent a datum of the given argument type, which may be either a symbol (e.g. #Color) or a class"
(aType isKindOf: Class) "Allowed in Ted's work"
ifTrue:
[^ aType name asString newTileMorphRepresentative typeColor: Color gray].
cmd = #playSound: ifTrue: [
^ (Vocabulary vocabularyForType: aType) argumentTileForValue: 880.
].
^ (Vocabulary vocabularyForType: aType) defaultArgumentTile.
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>tilesForQuery:label: (in category 'parts bin') -----
- ----- Method: StandardScriptingSystem>>tilesForQuery:label: (in category '*Etoys-parts bin') -----
tilesForQuery: expressionString label: aLabel
"Answer scripting tiles that represent the query,"
| aPhrase aTile |
aPhrase := SystemQueryPhrase new.
aTile := BooleanTile new.
aTile setExpression: expressionString label: aLabel.
aPhrase addMorph: aTile.
^ aPhrase
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>timesRepeatComplexOfTiles (in category 'gold box') -----
- ----- Method: StandardScriptingSystem>>timesRepeatComplexOfTiles (in category '*Etoys-Squeakland-gold box') -----
timesRepeatComplexOfTiles
"Answer a new object comprising the timesRepeat structure."
^ TimesRepeatTile new!
Item was changed:
+ ----- Method: StandardScriptingSystem>>tryButtonFor: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>tryButtonFor: (in category '*Etoys-utilities') -----
tryButtonFor: aPhraseTileMorph
| aButton |
aButton := ThreePhaseButtonMorph
labelSymbol: #TryIt
target: aPhraseTileMorph
actionSelector: #try
arguments: #().
aButton actWhen: #whilePressed.
aButton balloonTextSelector: #try.
^ aButton!
Item was changed:
+ ----- Method: StandardScriptingSystem>>uniformTileInteriorColor (in category 'font & color choices') -----
- ----- Method: StandardScriptingSystem>>uniformTileInteriorColor (in category '*Etoys-font & color choices') -----
uniformTileInteriorColor
^ Color r: 0.806 g: 1.0 b: 0.806!
Item was changed:
+ ----- Method: StandardScriptingSystem>>uniqueNameForReference (in category 'viewer') -----
- ----- Method: StandardScriptingSystem>>uniqueNameForReference (in category '*Etoys-viewer') -----
uniqueNameForReference
"Answer a more-or-less global name by which the receiver can be referred to in scripts"
^ #ScriptingSystem!
Item was changed:
+ ----- Method: StandardScriptingSystem>>userCustomEventNames (in category 'customevents-custom events') -----
- ----- Method: StandardScriptingSystem>>userCustomEventNames (in category '*Etoys-customevents-custom events') -----
userCustomEventNames
^ self currentWorld userCustomEventNames!
Item was changed:
+ ----- Method: StandardScriptingSystem>>wordingForOperator: (in category 'utilities') -----
- ----- Method: StandardScriptingSystem>>wordingForOperator: (in category '*Etoys-utilities') -----
wordingForOperator: aString
"Answer the wording to be seen by the user for the given operator symbol/string"
| toTest |
toTest := aString asString.
#( (append: 'include at end')
(arrowheadsOnAllPens 'arrowheads on all pens')
(beep: 'make sound')
(bounce: 'bounce')
(clearTurtleTrails 'clear pen trails')
(clearOwnersPenTrails 'clear all pen trails')
(colorSees 'color sees')
(color:sees: 'color sees')
(doMenuItem: 'do menu item')
(doScript: 'do')
(forward: 'forward by')
(goToRightOf: 'align after')
(includeAtCursor: 'include at cursor')
(isDivisibleBy: 'is divisible by')
(liftAllPens 'lift all pens')
(lowerAllPens 'lower all pens')
(makeNewDrawingIn: 'start painting in')
(max: 'max')
(min: 'min')
(moveToward: 'move toward')
(noArrowheadsOnAllPens 'no arrowheads on pens')
(overlapsAny 'overlaps any')
(pauseAll: 'pause all')
(pauseScript: 'pause script')
(prepend: 'include at beginning')
(seesColor: 'is over color')
(startAll: 'start all')
(startScript: 'start script')
(stopProgramatically 'stop')
(stopAll: 'stop all')
(stopScript: 'stop script')
(tellAllSiblings: 'tell all siblings')
(tellSelfAndAllSiblings: 'send to all')
(turn: 'turn by')
(turnToward: 'turn toward')
(wearCostumeOf: 'look like'))
do:
[:pair | toTest = pair first ifTrue: [^ pair second]].
^ toTest
"StandardScriptingSystem initialize"
!
Item was changed:
+ ----- Method: StandardScriptingSystem>>yesNoComplexOfTiles (in category 'gold box') -----
- ----- Method: StandardScriptingSystem>>yesNoComplexOfTiles (in category '*Etoys-Squeakland-gold box') -----
yesNoComplexOfTiles
"Answer a new object comprising the test/yes/no structure."
^ CompoundTileMorph new!
Item was changed:
+ ----- Method: TextFieldMorph>>append: (in category 'just like textMorph') -----
- ----- Method: TextFieldMorph>>append: (in category '*Etoys-just like textMorph') -----
append: stringOrText
"add to my text"
| tm |
(tm := self findA: TextMorph) ifNil: [^ nil].
tm contents append: stringOrText.
tm releaseParagraph; paragraph.
!
Item was changed:
+ ----- Method: TextFieldMorph>>contents (in category 'just like textMorph') -----
- ----- Method: TextFieldMorph>>contents (in category '*Etoys-just like textMorph') -----
contents
| tm |
"talk to my text"
(tm := self findA: TextMorph) ifNil: [^ nil].
^ tm contents!
Item was changed:
+ ----- Method: TextFieldMorph>>contents: (in category 'just like textMorph') -----
- ----- Method: TextFieldMorph>>contents: (in category '*Etoys-just like textMorph') -----
contents: textOrString
"talk to my text"
| tm newText atts |
(tm := self findA: TextMorph) ifNil: [^ nil].
textOrString isString ifTrue: [
tm contents ifNotNil: ["Keep previous properties of the field"
newText := textOrString asText.
atts := tm contents attributesAt: 1.
atts do: [:each | newText addAttribute: each].
^ tm contents: newText]].
^ tm contents: textOrString!
Item was changed:
+ ----- Method: TextFieldMorph>>couldHoldSeparateDataForEachInstance (in category 'card in a stack') -----
- ----- Method: TextFieldMorph>>couldHoldSeparateDataForEachInstance (in category '*Etoys-card in a stack') -----
couldHoldSeparateDataForEachInstance
"Answer whether this type of morph is inherently capable of holding separate data for each instance ('card data')"
^ true!
Item was changed:
+ ----- Method: TextFieldMorph>>currentDataValue (in category 'player') -----
- ----- Method: TextFieldMorph>>currentDataValue (in category '*Etoys-player') -----
currentDataValue
"Answer the current data value held by the receiver"
^ self contents!
Item was changed:
+ ----- Method: TextFieldMorph>>defaultColor (in category 'initialization') -----
- ----- Method: TextFieldMorph>>defaultColor (in category '*Etoys-initialization') -----
defaultColor
"answer the default color/fill style for the receiver"
^ Color veryLightGray lighter!
Item was changed:
+ ----- Method: TextFieldMorph>>fit (in category 'just like textMorph') -----
- ----- Method: TextFieldMorph>>fit (in category '*Etoys-just like textMorph') -----
fit
"tell my text to recompute its looks"
| tm |
(tm := self findA: TextMorph) ifNil: [^ nil].
tm releaseParagraph; paragraph.!
Item was changed:
+ ----- Method: TextFieldMorph>>fontName:size: (in category 'just like textMorph') -----
- ----- Method: TextFieldMorph>>fontName:size: (in category '*Etoys-just like textMorph') -----
fontName: fontName size: fontSize
| tm |
"talk to my text"
(tm := self findA: TextMorph) ifNil: [^ nil].
^ tm fontName: fontName size: fontSize
!
Item was changed:
+ ----- Method: TextFieldMorph>>initialize (in category 'initialization') -----
- ----- Method: TextFieldMorph>>initialize (in category '*Etoys-initialization') -----
initialize
"initialize the state of the receiver"
| tm |
super initialize.
""
self addMorph: (tm := TextMorph new).
tm fillingOnOff!
Item was changed:
+ ----- Method: TextFieldMorph>>lineCount (in category 'just like textMorph') -----
- ----- Method: TextFieldMorph>>lineCount (in category '*Etoys-just like textMorph') -----
lineCount
| tm |
"how many lines in my text"
(tm := self findA: TextMorph) ifNil: [^ nil].
^ tm contents string lineCount!
Item was changed:
+ ----- Method: TextFieldMorph>>prepend: (in category 'just like textMorph') -----
- ----- Method: TextFieldMorph>>prepend: (in category '*Etoys-just like textMorph') -----
prepend: stringOrText
"add to my text"
| tm |
(tm := self findA: TextMorph) ifNil: [^ nil].
tm contents prepend: stringOrText.
tm releaseParagraph; paragraph.
!
Item was changed:
+ ----- Method: TextFieldMorph>>setNewContentsFrom: (in category 'card in a stack') -----
- ----- Method: TextFieldMorph>>setNewContentsFrom: (in category '*Etoys-card in a stack') -----
setNewContentsFrom: textOrString
"talk to my text"
| tm |
(tm := self findA: TextMorph) ifNil: [^ nil].
tm valueOfProperty: #cardInstance ifAbsent: ["move it down"
tm setProperty: #cardInstance toValue: (self valueOfProperty: #cardInstance)].
tm valueOfProperty: #holdsSeparateDataForEachInstance ifAbsent: ["move it down"
tm setProperty: #holdsSeparateDataForEachInstance toValue:
(self valueOfProperty: #holdsSeparateDataForEachInstance)].
^ tm setNewContentsFrom: textOrString!
Item was changed:
+ ----- Method: TextFieldMorph>>variableDocks (in category 'player') -----
- ----- Method: TextFieldMorph>>variableDocks (in category '*Etoys-player') -----
variableDocks
"Answer a list of VariableDock objects for docking up my data with an instance held in my containing playfield"
^ Array with: (VariableDock new variableName: self defaultVariableName type: #text definingMorph: self morphGetSelector: #contents morphPutSelector: #setNewContentsFrom:)!
Item was changed:
+ ----- Method: ViewerFlapTab>>addCustomMenuItems:hand: (in category 'menu') -----
- ----- Method: ViewerFlapTab>>addCustomMenuItems:hand: (in category '*Etoys-menu') -----
addCustomMenuItems: aMenu hand: aHandMorph
"Add further items to the menu as appropriate. NB: Cannot call super here."
aMenu add: 'flap color...' translated target: self action: #changeFlapColor.
aMenu addLine.
aMenu addUpdating: #edgeString action: #setEdgeToAdhereTo.
aMenu addUpdating: #dragoverString action: #toggleDragOverBehavior.
aMenu addUpdating: #mouseoverString action: #toggleMouseOverBehavior.
aMenu addLine.
aMenu addUpdating: #compactFlapString target: self action: #changeCompactFlap.
aMenu add: 'destroy this flap' translated action: #destroyFlap!
Item was changed:
+ ----- Method: ViewerFlapTab>>adjustPositionAfterHidingFlap (in category 'show & hide') -----
- ----- Method: ViewerFlapTab>>adjustPositionAfterHidingFlap (in category '*Etoys-show & hide') -----
adjustPositionAfterHidingFlap
"we add the width of flap itself to our referent, to reflect the actual width from the edge of the screen, including the space we leave for other flaps. see also ViewerFlapTab>>fitOnScreen"
self flag: #todo.
self referent width: self referent width + self width.
super adjustPositionAfterHidingFlap.!
Item was changed:
+ ----- Method: ViewerFlapTab>>allNonSubmorphMorphs (in category 'submorphs - accessing') -----
- ----- Method: ViewerFlapTab>>allNonSubmorphMorphs (in category '*Etoys-submorphs - accessing') -----
allNonSubmorphMorphs
"Return a collection containing all morphs in this morph which are not currently in the submorph containment hierarchy. Especially the non-showing pages in BookMorphs."
^ flapShowing
ifTrue: [#()]
ifFalse: [Array with: referent]!
Item was changed:
+ ----- Method: ViewerFlapTab>>beingOpened (in category 'accessing') -----
- ----- Method: ViewerFlapTab>>beingOpened (in category '*Etoys-Squeakland-accessing') -----
beingOpened
self valueOfProperty: #beingOpened ifAbsent: [false]
!
Item was changed:
+ ----- Method: ViewerFlapTab>>beingOpened: (in category 'accessing') -----
- ----- Method: ViewerFlapTab>>beingOpened: (in category '*Etoys-Squeakland-accessing') -----
beingOpened: aBoolean
self setProperty: #beingOpened toValue: aBoolean.
!
Item was changed:
+ ----- Method: ViewerFlapTab>>changeCompactFlap (in category 'compact') -----
- ----- Method: ViewerFlapTab>>changeCompactFlap (in category '*Etoys-compact') -----
changeCompactFlap
self makeFlapCompact: self isFlapCompact not.!
Item was changed:
+ ----- Method: ViewerFlapTab>>compactFlapString (in category 'compact') -----
- ----- Method: ViewerFlapTab>>compactFlapString (in category '*Etoys-compact') -----
compactFlapString
^ (self isFlapCompact
ifTrue: ['<on>compact flap']
ifFalse: ['<off>']), 'compact flap' translated!
Item was changed:
+ ----- Method: ViewerFlapTab>>fitOnScreen (in category 'positioning') -----
- ----- Method: ViewerFlapTab>>fitOnScreen (in category '*Etoys-positioning') -----
fitOnScreen
| constrainer |
super fitOnScreen.
"We want to leave a margin for the flaps on the side and for the global flaps at the top (like the Sugar navbar) so we reduce the referents top and its width. We undo this before hiding the flap in ViewerFlapTab>>adjustPositionAfterHidingFlap"
self flag: #todo.
constrainer := (owner ifNil: [self]) clearArea.
self flapShowing ifTrue: [
Flaps globalFlapTabsIfAny
do: [:each |
(each edgeToAdhereTo = #top and: [each bottom > self referent top])
ifTrue: [self referent top: each bottom].
(each edgeToAdhereTo = #top and: [each bottom > self top])
ifTrue: [self top: each bottom]].
self referent width: constrainer right - self width - self right].!
Item was changed:
+ ----- Method: ViewerFlapTab>>graphicalMorphForTab (in category 'menu') -----
- ----- Method: ViewerFlapTab>>graphicalMorphForTab (in category '*Etoys-menu') -----
graphicalMorphForTab
"Answer a graphical morph to serve as my tab's display"
^ ThumbnailMorph new objectToView: scriptedPlayer viewSelector: #graphicForViewerTab!
Item was changed:
+ ----- Method: ViewerFlapTab>>hibernate (in category 'transition') -----
- ----- Method: ViewerFlapTab>>hibernate (in category '*Etoys-transition') -----
hibernate
"drop my viewer to save space when writing to the disk."
referent submorphs do:
[:m | (m isViewer) ifTrue: [m delete]]!
Item was changed:
+ ----- Method: ViewerFlapTab>>initializeFor:topAt: (in category 'transition') -----
- ----- Method: ViewerFlapTab>>initializeFor:topAt: (in category '*Etoys-transition') -----
initializeFor: aPlayer topAt: aTop
scriptedPlayer := aPlayer.
self useGraphicalTab.
self top: aTop!
Item was changed:
+ ----- Method: ViewerFlapTab>>isCurrentlyGraphical (in category 'accessing') -----
- ----- Method: ViewerFlapTab>>isCurrentlyGraphical (in category '*Etoys-accessing') -----
isCurrentlyGraphical
^ true!
Item was changed:
+ ----- Method: ViewerFlapTab>>isFlapCompact (in category 'compact') -----
- ----- Method: ViewerFlapTab>>isFlapCompact (in category '*Etoys-compact') -----
isFlapCompact
"Return true if the referent of the receiver represents a 'compact' flap"
referent layoutPolicy ifNil:[^false].
referent layoutPolicy isTableLayout ifFalse:[^false].
referent vResizing == #shrinkWrap ifFalse:[^false].
^true!
Item was changed:
+ ----- Method: ViewerFlapTab>>lazyUnhibernate (in category 'transition') -----
- ----- Method: ViewerFlapTab>>lazyUnhibernate (in category '*Etoys-Squeakland-transition') -----
lazyUnhibernate
"recreate my viewer"
| wasShowing viewer |
referent ifNotNil: [(referent findA: Viewer) ifNotNil: [self beingOpened: false. ^self]].
self beingOpened == true ifTrue: [^ self].
self beingOpened: true.
wasShowing := flapShowing.
"guard against not-quite-player-players"
viewer := ((scriptedPlayer respondsTo: #costume)
and: [scriptedPlayer costume isMorph])
ifTrue: [self presenter viewMorph: scriptedPlayer costume]
ifFalse: [self presenter viewObjectDirectly: scriptedPlayer].
wasShowing ifFalse: [self hideFlap].
self beingOpened: false.
^viewer!
Item was changed:
+ ----- Method: ViewerFlapTab>>makeFlapCompact: (in category 'compact') -----
- ----- Method: ViewerFlapTab>>makeFlapCompact: (in category '*Etoys-compact') -----
makeFlapCompact: aBool
"Return true if the referent of the receiver represents a 'compact' flap"
aBool ifTrue:[
referent
layoutPolicy: TableLayout new;
vResizing: #shrinkWrap;
useRoundedCorners.
] ifFalse:[
referent
layoutPolicy: nil;
vResizing: #rigid;
useSquareCorners.
].!
Item was changed:
+ ----- Method: ViewerFlapTab>>scriptedPlayer (in category 'access') -----
- ----- Method: ViewerFlapTab>>scriptedPlayer (in category '*Etoys-access') -----
scriptedPlayer
^ scriptedPlayer!
Item was changed:
+ ----- Method: ViewerFlapTab>>unhibernate (in category 'transition') -----
- ----- Method: ViewerFlapTab>>unhibernate (in category '*Etoys-transition') -----
unhibernate
"recreate my viewer"
| wasShowing viewer |
referent ifNotNil: [referent isViewer ifTrue: [^self]].
wasShowing := flapShowing.
"guard against not-quite-player-players"
viewer := ((scriptedPlayer respondsTo: #costume)
and: [scriptedPlayer costume isMorph])
ifTrue: [self presenter viewMorph: scriptedPlayer costume]
ifFalse: [self presenter viewObjectDirectly: scriptedPlayer].
wasShowing ifFalse: [self hideFlap].
^viewer!
1
0
David T. Lewis uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-dtl.511.mcz
==================== Summary ====================
Name: EToys-dtl.511
Author: dtl
Time: 15 January 2024, 9:18:32.351635 pm
UUID: 7910ad72-b600-4205-b35d-02c4a3119026
Ancestors: EToys-mt.510
Clean up method categoreies in. Combine similarly named categories. Eliminate redundant method package overrides, if a class is in package Etoys then its methods should not have *Etoys extensions.
=============== Diff against EToys-mt.510 ===============
Item was changed:
+ ----- Method: AcceptableCleanTextMorph>>accept (in category 'menu commands') -----
- ----- Method: AcceptableCleanTextMorph>>accept (in category '*Etoys-menu commands') -----
accept
"Overridden to allow accept of clean text"
| textToAccept ok |
textToAccept := textMorph text.
ok := setTextSelector isNil or:
[setTextSelector numArgs = 2
ifTrue:
[model
perform: setTextSelector
with: textToAccept
with: self]
ifFalse: [model perform: setTextSelector with: textToAccept]].
ok
ifTrue:
[self setText: self getText.
self hasUnacceptedEdits: false]!
Item was changed:
+ ----- Method: AllPlayersTool class>>allPlayersToolForActiveWorld (in category 'parts bin') -----
- ----- Method: AllPlayersTool class>>allPlayersToolForActiveWorld (in category '*Etoys-Squeakland-parts bin') -----
allPlayersToolForActiveWorld
"Launch an AllPlayersTool to view the scripted objects of the active world"
| aTool |
aTool := self newStandAlone.
aTool center: self currentWorld center.
^ aTool
"
AllPlayersTool allPlayersToolForActiveWorld
"!
Item was changed:
+ ----- Method: AllPlayersTool>>helpString (in category 'menus') -----
- ----- Method: AllPlayersTool>>helpString (in category '*Etoys-Squeakland-menus') -----
helpString
"Answer a string of help"
^ 'Each row represents an object, or "player" in the project.
Click on the menu icon to get a menu of options concerning the player.
Click on a player''s picture to reveal its location.
Click on the turquoise eye to open the player''s viewer.
Click on a player''s name to obtain a tile representing it.'
translated.!
Item was changed:
+ ----- Method: AllPlayersTool>>playersOnDisplay (in category 'reinvigoration') -----
- ----- Method: AllPlayersTool>>playersOnDisplay (in category '*Etoys-Squeakland-reinvigoration') -----
playersOnDisplay
"Answer a list of the players represented by the rows in the tool."
| aList |
(submorphs size < 3 or: [(submorphs third isKindOf: ScrollPane) not]) ifTrue: [^ #()].
aList := submorphs third scroller firstSubmorph submorphs collect:
[:aRow | aRow playerRepresented].
^ aList copyWithout: nil!
Item was changed:
+ ----- Method: AllPlayersTool>>updateScrollbar (in category 'initialization') -----
- ----- Method: AllPlayersTool>>updateScrollbar (in category '*Etoys-Squeakland-initialization') -----
updateScrollbar
"Every subsystem needs a little bit of inscrutable magic"
self setExtentFromHalo: ((self extent x max:300) @ (self extent y max: 400))!
Item was changed:
+ ----- Method: AllScriptsTool>>helpString (in category 'initialization') -----
- ----- Method: AllScriptsTool>>helpString (in category '*Etoys-Squeakland-initialization') -----
helpString
"Answer the help string for the all-scripts tool."
^
'This tool allows you to see all the scripts for all the objects in this project.
Sometimes you are only interested in those scripts that are ticking, or that are *ready* to tick when you hit the GO button (which are said to be "paused.")
* Check "tickers only" if you only want to see such scripts -- i.e., scripts that are either paused or ticking.
* If "tickers only" is *not* checked, then all scripts will be shown, whatever their status.
* The other checkbox, labeled "all instances", only comes into play if you have created "multiple sibling instances" (good grief) of the same object, which share the same scripts; if you have such things, it is often convenient to see the scripts of just *one* such sibling, because it will take up less space and require less mindshare -- and note that you can control a script for an object *and* all its siblings from the menu of that one that you see, via menu items such as "propagate status to siblings".
* If "all instances" is checked, scripts for all sibling instances will be shown, whereas if "all instances" is *not* checked, only one of each group of siblings will be selected to have its scripts shown.
But how do you get "multiple sibling instances" of the same object? There are several ways:
(1) Use the "make a sibling instance" or the "make multiple siblings..." menu item in the halo menu of a scripted object.
(2) Use the "copy" tile in a script.
(3) Request "give me a copy now" from the menu associated with the "copy" item in a Viewer.
If you have on your screen multiple sibling instances of the same object, then you may or may want to see them all in the All Scripts tool, and that is what the "all instances" checkbox governs.
Set "all instances" if you want a separate entry for each instance, as
opposed to a single representative of that kind of object.
Note that if you obtain a copy of an object by using the green halo handle, it will *not* be a sibling instance of the original. It will in many ways seem to be, because it will start out its life having the same scripts as the original. But it will then lead an independent life, so that changes to scripts of the original will not be reflected in it, and vice-versa.
This is an important distinction, and an unavoidable one because people sometimes want the deep sharing of sibling instances and sometimes they clearly do not. But the truly understandable description of these concepts and distinctions certainly lies *ahead* of us!!' translated!
Item was changed:
+ ----- Method: AssignmentTileMorph>>assignmentRootForParseNode (in category 'initialization') -----
- ----- Method: AssignmentTileMorph>>assignmentRootForParseNode (in category '*Etoys-Squeakland-player viewer') -----
assignmentRootForParseNode
"Answer the assignment root"
^ assignmentRoot asSetterSelector!
Item was changed:
+ ----- Method: AssignmentTileMorph>>assignmentSuffix (in category 'accessing') -----
- ----- Method: AssignmentTileMorph>>assignmentSuffix (in category '*Etoys-Squeakland-accessing') -----
assignmentSuffix
^ assignmentSuffix.
!
Item was changed:
+ ----- Method: AssignmentTileMorph>>operatorForSexpAssignmentSuffix: (in category 'code generation') -----
- ----- Method: AssignmentTileMorph>>operatorForSexpAssignmentSuffix: (in category '*Etoys-Squeakland-code generation') -----
operatorForSexpAssignmentSuffix: aString
"Answer the operator associated with the receiver, assumed to be one of the compound assignments"
| toTest |
toTest := aString asString.
#( ('Incr:' #Incr:)
('Decr:' #Decr:)
('Mult:' #Mult:)
(':' ''))
do:
[:pair | toTest = pair first ifTrue: [^ pair second]].
^ toTest
"AssignmentTileMorph new operatorForTreeAssignmentSuffix: 'Incr:'"!
Item was changed:
+ ----- Method: AssignmentTileMorph>>parseNodeWith: (in category 'code generation') -----
- ----- Method: AssignmentTileMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
self error: 'error'.
!
Item was changed:
+ ----- Method: BooleanScriptEditor>>parseNodeWith: (in category 'other') -----
- ----- Method: BooleanScriptEditor>>parseNodeWith: (in category '*Etoys-Squeakland-other') -----
parseNodeWith: encoder
(submorphs notEmpty and: [submorphs first submorphs notEmpty])
ifTrue: [^ super parseNodeWith: encoder].
^ encoder encodeLiteral: true.
!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph class>>forBottomEdge (in category 'instance creation') -----
- ----- Method: BorderedSubpaneDividerMorph class>>forBottomEdge (in category '*Etoys-instance creation') -----
forBottomEdge
^self new horizontal resizingEdge: #bottom!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph class>>forTopEdge (in category 'instance creation') -----
- ----- Method: BorderedSubpaneDividerMorph class>>forTopEdge (in category '*Etoys-instance creation') -----
forTopEdge
^self new horizontal resizingEdge: #top!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph class>>horizontal (in category 'instance creation') -----
- ----- Method: BorderedSubpaneDividerMorph class>>horizontal (in category '*Etoys-instance creation') -----
horizontal
^self new horizontal!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph class>>vertical (in category 'instance creation') -----
- ----- Method: BorderedSubpaneDividerMorph class>>vertical (in category '*Etoys-instance creation') -----
vertical
^self new vertical!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>defaultBorderWidth (in category 'initialization') -----
- ----- Method: BorderedSubpaneDividerMorph>>defaultBorderWidth (in category '*Etoys-initialization') -----
defaultBorderWidth
"answer the default border width for the receiver"
^ 0!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>defaultColor (in category 'initialization') -----
- ----- Method: BorderedSubpaneDividerMorph>>defaultColor (in category '*Etoys-initialization') -----
defaultColor
"answer the default color/fill style for the receiver"
^ Color black!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>firstEnter: (in category 'private') -----
- ----- Method: BorderedSubpaneDividerMorph>>firstEnter: (in category '*Etoys-private') -----
firstEnter: evt
"The first time this divider is activated, find its window and redirect further interaction there."
| window |
window := self firstOwnerSuchThat: [:m | m respondsTo: #secondaryPaneTransition:divider:].
window ifNil: [ self suspendEventHandler. ^ self ]. "not working out"
window secondaryPaneTransition: evt divider: self.
self on: #mouseEnter send: #secondaryPaneTransition:divider: to: window.
!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>horizontal (in category 'layout') -----
- ----- Method: BorderedSubpaneDividerMorph>>horizontal (in category '*Etoys-layout') -----
horizontal
self hResizing: #spaceFill.!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>initialize (in category 'initialization') -----
- ----- Method: BorderedSubpaneDividerMorph>>initialize (in category '*Etoys-initialization') -----
initialize
"initialize the state of the receiver"
super initialize.
""
self extent: 1 @ 1!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>resizingEdge (in category 'accessing') -----
- ----- Method: BorderedSubpaneDividerMorph>>resizingEdge (in category '*Etoys-accessing') -----
resizingEdge
^resizingEdge
!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>resizingEdge: (in category 'accessing') -----
- ----- Method: BorderedSubpaneDividerMorph>>resizingEdge: (in category '*Etoys-accessing') -----
resizingEdge: edgeSymbol
(#(top bottom) includes: edgeSymbol) ifFalse:
[ self error: 'resizingEdge must be #top or #bottom' ].
resizingEdge := edgeSymbol.
self on: #mouseEnter send: #firstEnter: to: self.
!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>vertical (in category 'layout') -----
- ----- Method: BorderedSubpaneDividerMorph>>vertical (in category '*Etoys-layout') -----
vertical
self vResizing: #spaceFill.!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>hideOrShowPane (in category 'displaying') -----
- ----- Method: BrowserCommentTextMorph>>hideOrShowPane (in category '*Etoys-displaying') -----
hideOrShowPane
(self model editSelection == #editClass)
ifTrue: [ self showPane ]
ifFalse: [ self hidePane ]!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>hidePane (in category 'displaying') -----
- ----- Method: BrowserCommentTextMorph>>hidePane (in category '*Etoys-displaying') -----
hidePane
| win |
self window ifNotNil: [:window | window removePaneSplitters].
self lowerPane ifNotNil:
[ :lp |
lp layoutFrame bottomFraction: self layoutFrame bottomFraction.
lp layoutFrame bottomOffset: SystemWindow borderWidth negated].
win := self window ifNil: [ ^self ].
self delete.
win updatePanesFromSubmorphs.
win addPaneSplitters!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>lowerPane (in category 'accessing') -----
- ----- Method: BrowserCommentTextMorph>>lowerPane (in category '*Etoys-accessing') -----
lowerPane
"Answer the AlignmentMorph that I live beneath"
^self valueOfProperty: #browserLowerPane!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>noteNewOwner: (in category 'updating') -----
- ----- Method: BrowserCommentTextMorph>>noteNewOwner: (in category '*Etoys-updating') -----
noteNewOwner: win
super noteNewOwner: win.
self setProperty: #browserWindow toValue: win.
win ifNil: [ ^self ].
win setProperty: #browserClassCommentPane toValue: self.
self setProperty: #browserLowerPane
toValue: (win submorphThat: [ :m |
m isAlignmentMorph
and: [ m layoutFrame bottomFraction notNil
and: [ m layoutFrame bottomFraction >= self layoutFrame topFraction ]]]
ifNone: [])!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>showPane (in category 'displaying') -----
- ----- Method: BrowserCommentTextMorph>>showPane (in category '*Etoys-displaying') -----
showPane
owner ifNil: [
| win |
win := self window ifNil: [ ^self ].
win addMorph: self fullFrame: self layoutFrame.
win updatePanesFromSubmorphs ].
self lowerPane ifNotNil: [ :lp | lp layoutFrame bottomFraction: self layoutFrame topFraction ].
self window ifNotNil: [:win | win addPaneSplitters]!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>update: (in category 'updating') -----
- ----- Method: BrowserCommentTextMorph>>update: (in category '*Etoys-updating') -----
update: anAspect
super update: anAspect.
anAspect == #editSelection ifFalse: [ ^self ].
self hideOrShowPane!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>window (in category 'accessing') -----
- ----- Method: BrowserCommentTextMorph>>window (in category '*Etoys-accessing') -----
window
^self owner ifNil: [ self valueOfProperty: #browserWindow ].!
Item was changed:
+ ----- Method: CategoryViewer>>addColorSeesDetailTo: (in category 'editing pane') -----
- ----- Method: CategoryViewer>>addColorSeesDetailTo: (in category '*Etoys-Squeakland-entries') -----
addColorSeesDetailTo: aRow
"Special-casee code for the boolean-valued phrase variously known as is-over-color or sees-color."
| hotTileForSelf colorMorph |
(aRow submorphs last) delete.
aRow addMorphBack: (hotTileForSelf := ColorSeerTile new showPalette: false; yourself).
aRow addMorphBack: (colorMorph := ColorTileMorph new showPalette: false;
typeColor: (ScriptingSystem colorForType: #Color); yourself).
colorMorph colorSwatch color: Color blue.
hotTileForSelf on: #mouseEnter send: #addGetterFeedback to: aRow.
hotTileForSelf on: #mouseLeave send: #removeHighlightFeedback to: aRow.
hotTileForSelf on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow.
hotTileForSelf on: #mouseDown send: #makeGetter:event:from:
to: self
withValue: (Array with: #color:sees: with: #Boolean).
colorMorph on: #mouseEnter send: #addGetterFeedback to: aRow.
colorMorph on: #mouseLeave send: #removeHighlightFeedback to: aRow.
colorMorph on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow.
colorMorph on: #mouseDown send: #makeGetter:event:from:
to: self
withValue: (Array with: #color:sees: with: #Boolean).
aRow addMorphBack: (Morph new extent: 0@(aRow height)).
!
Item was changed:
+ ----- Method: CategoryViewer>>addPlayerArgumentTo: (in category 'entries') -----
- ----- Method: CategoryViewer>>addPlayerArgumentTo: (in category '*Etoys-Squeakland-entries') -----
addPlayerArgumentTo: aRow
"Add, delimited by spacer morphs, a player-valued TileMorph to the row provided."
| aTileToRefer |
aRow addMorphBack: (Morph new extent: 0@0). "spacer (Is this spacer really needed??? - takashi)"
aTileToRefer := self presenter standardPlayer tileToRefer.
aTileToRefer on: #mouseEnter send: #addGetterFeedback to: aRow.
aTileToRefer on: #mouseLeave send: #removeHighlightFeedback to: aRow.
aTileToRefer on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow.
aRow addMorphBack: aTileToRefer .
aRow addMorphBack: (AlignmentMorph new beTransparent). "flexible spacer"
!
Item was changed:
+ ----- Method: CategoryViewer>>assureCategoryFullyVisible (in category 'categories') -----
- ----- Method: CategoryViewer>>assureCategoryFullyVisible (in category '*Etoys-Squeakland-categories') -----
assureCategoryFullyVisible
"Keep deleting categoryviewers other than the receiver until the receiver is fully visible."
| ready toDelete |
ready := false.
[(self bounds bottom > self currentWorld bottom) and: [ready not]] whileTrue: [
owner submorphs size > 2
ifTrue: [
toDelete := owner submorphs allButFirst reversed
detect: [:cv | cv ~~ self]
ifNone: [^ self].
toDelete delete.
self world doOneCycleNow]
ifFalse: [
ready := true]].!
Item was changed:
+ ----- Method: CategoryViewer>>booleanPhraseFromNumericGetterWithArgument: (in category 'support') -----
- ----- Method: CategoryViewer>>booleanPhraseFromNumericGetterWithArgument: (in category '*Etoys-Squeakland-as yet unclassified') -----
booleanPhraseFromNumericGetterWithArgument: phrase
"Answer a morph derived from the incoming phrase, a bearingTo: or distanceToPlayer: phrase, which will be suitable for dropping into a TEST area. "
| outerPhrase rel finalTile |
rel := Vocabulary numberVocabulary comparatorForSampleBoolean.
outerPhrase := PhraseTileMorph new setOperator: rel type: #Boolean rcvrType: #Number argType: #Number.
outerPhrase firstSubmorph addMorph: phrase.
outerPhrase firstSubmorph changeTableLayout.
finalTile := ScriptingSystem tileForArgType: #Number. "comes with arrows"
outerPhrase submorphs last addMorph: finalTile.
outerPhrase submorphs second submorphs last setBalloonText: (ScriptingSystem helpStringForOperator: rel).
^ outerPhrase!
Item was changed:
+ ----- Method: CategoryViewer>>categoryNameMorph (in category 'categories') -----
- ----- Method: CategoryViewer>>categoryNameMorph (in category '*Etoys-Squeakland-categories') -----
categoryNameMorph
"Answer the StringMorph that holds the current category name."
^ namePane findA: StringMorph!
Item was changed:
+ ----- Method: CategoryViewer>>phraseForTest (in category 'entries') -----
- ----- Method: CategoryViewer>>phraseForTest (in category '*Etoys-Squeakland-entries') -----
phraseForTest
"Answer a phrase for the non-slot-like command represented by aMethodInterface - classic tiles"
| aPhrase aRow |
aPhrase := PhraseTileForTest new.
aRow := ViewerLine newRow.
aRow addMorphBack: ScriptingSystem buttonSpacer.
aRow addMorphBack: self spacerAfterButton.
aRow addMorphBack: aPhrase.
aRow setBalloonText: 'Press here to tear off a TEST/YES/NO unit which you can drop into your script' translated.
^ aRow.
!
Item was changed:
+ ----- Method: CategoryViewer>>phraseForTimesRepeat (in category 'entries') -----
- ----- Method: CategoryViewer>>phraseForTimesRepeat (in category '*Etoys-Squeakland-entries') -----
phraseForTimesRepeat
"Answer a phrase representing times/repeat"
| aPhrase aRow |
aPhrase := PhraseTileForTimesRepeat new.
aRow := ViewerLine newRow.
aRow addMorphBack: ScriptingSystem buttonSpacer.
aRow addMorphBack: self spacerAfterButton.
aRow addMorphBack: aPhrase.
aRow setBalloonText: 'Drag here to tear off a Repeat/Times unit which you can drop into your script' translated.
^ aRow.
!
Item was changed:
+ ----- Method: CategoryViewer>>spacerAfterButton (in category 'entries') -----
- ----- Method: CategoryViewer>>spacerAfterButton (in category '*Etoys-Squeakland-entries') -----
spacerAfterButton
^ Morph new extent: 2 @ 0;
beTransparent!
Item was changed:
+ ----- Method: CategoryViewer>>universalTilesPhraseForVariableFrom: (in category 'entries') -----
- ----- Method: CategoryViewer>>universalTilesPhraseForVariableFrom: (in category '*Etoys-Squeakland-entries') -----
universalTilesPhraseForVariableFrom: aMethodInterface
"The universal-tiles variant of phraseForVariableFrom:... Split out to preserve it, somewhat, though we're not using universal tiles any more, presuambly ever again (indeed we never did) but for convenience moved here so that 'universal' code doesn't becloud #phraseForVariableFrom:"
| anArrow slotName getterButton cover inner aRow doc setter tryer |
aRow := ViewerLine newRow
elementSymbol: (slotName := aMethodInterface selector);
wrapCentering: #center;
cellPositioning: #leftCenter.
(self wantsInfoButtonFor: slotName)
ifFalse:
[aRow addMorphBack: ScriptingSystem buttonSpacer]
ifTrue:
[aRow addMorphBack: (self infoButtonFor: slotName)].
aRow addMorphBack: self spacerAfterButton.
inner := scriptedPlayer universalTilesForGetterOf: aMethodInterface.
cover := Morph new color: Color transparent.
cover extent: inner fullBounds extent.
(getterButton := cover copy) addMorph: cover; addMorphBack: inner.
cover on: #mouseDown send: #makeUniversalTilesGetter:event:from:
to: self withValue: aMethodInterface.
aRow addMorphFront: (tryer := ScriptingSystem tryButtonFor: inner).
tryer color: tryer color lighter lighter.
aRow addMorphBack: getterButton.
getterButton on: #mouseEnter send: #addGetterFeedback to: aRow.
getterButton on: #mouseLeave send: #removeHighlightFeedback to: aRow.
getterButton on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow.
(doc := aMethodInterface documentation) ifNotNil:
[getterButton setBalloonText: doc].
aRow addMorphBack: (AlignmentMorph new beTransparent). "flexible spacer"
(setter := aMethodInterface companionSetterSelector) ifNotNil:
[aRow addMorphBack: (Morph new color: self color; extent: 2@10). " spacer"
anArrow := self arrowSetterButton: #newMakeSetterFromInterface:evt:from:
args: aMethodInterface.
anArrow beTransparent.
aRow addMorphBack: anArrow].
anArrow ifNotNil: [anArrow step].
^ aRow!
Item was changed:
+ ----- Method: CategoryViewer>>wantsInfoButtonFor: (in category 'entries') -----
- ----- Method: CategoryViewer>>wantsInfoButtonFor: (in category '*Etoys-Squeakland-entries') -----
wantsInfoButtonFor: slotName
"Answer whether a menu button is desired in a viewer for a slot of the given name."
^ (#(color:sees: seesColor: overlaps: overlapsAny: touchesA:) includes: slotName) not!
Item was changed:
+ ----- Method: ColorSeerTile>>parseNodeWith: (in category 'code generation') -----
- ----- Method: ColorSeerTile>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
self error: 'should not reach here'.!
Item was changed:
+ ----- Method: CompoundTileMorph>>aboutToBeAcceptedInScriptor (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>aboutToBeAcceptedInScriptor (in category '*Etoys-Squeakland-miscellaneous') -----
aboutToBeAcceptedInScriptor
"The receiver is about to be accepted in a Scriptor. Adjust state information accordingly."
justGrabbedFromViewer := false.
self removeProperty: #newPermanentScript.
self removeProperty: #newPermanentPlayer.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>addCommandFeedback: (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>addCommandFeedback: (in category '*Etoys-Squeakland-miscellaneous') -----
addCommandFeedback: evt
"Add screen feedback showing what would be torn off in a drag"
| aMorph |
aMorph := RectangleMorph new
bounds: self bounds;
beTransparent;
borderWidth: 2;
borderColor: ScriptingSystem commandFeedback;
lock;
yourself.
self currentWorld addHighlightMorph: aMorph for: self outmostScriptEditor.!
Item was changed:
+ ----- Method: CompoundTileMorph>>blockNode:with: (in category 'code generation') -----
- ----- Method: CompoundTileMorph>>blockNode:with: (in category '*Etoys-Squeakland-code generation') -----
blockNode: scriptPart with: encoder
^ BlockNode new arguments: #() statements: (self blockNodeElements: scriptPart with: encoder) returns: false from: encoder.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>blockNodeElements:with: (in category 'code generation') -----
- ----- Method: CompoundTileMorph>>blockNodeElements:with: (in category '*Etoys-Squeakland-code generation') -----
blockNodeElements: scriptPart with: encoder
| rows r |
rows := scriptPart tileRows.
^ Array streamContents: [:strm |
1 to: rows size do: [:i |
r := rows at: i.
r do: [:t | strm nextPut: (t parseNodeWith: encoder asStatement: true)].
].
].
!
Item was changed:
+ ----- Method: CompoundTileMorph>>delegatingMouseEnter: (in category 'initialization') -----
- ----- Method: CompoundTileMorph>>delegatingMouseEnter: (in category '*Etoys-Squeakland-initialization') -----
delegatingMouseEnter: evt
| o oo |
(o := self owner) ifNotNil: [(oo := o owner) ifNotNil: [^ oo mouseEnter: evt]].
!
Item was changed:
+ ----- Method: CompoundTileMorph>>evaluateOn: (in category 'etoys-debugger') -----
- ----- Method: CompoundTileMorph>>evaluateOn: (in category '*Etoys-Squeakland-etoys-debugger') -----
evaluateOn: anEtoysDebugger
^ anEtoysDebugger evaluateTest: self!
Item was changed:
+ ----- Method: CompoundTileMorph>>evaluateTestPart (in category 'etoys-debugger') -----
- ----- Method: CompoundTileMorph>>evaluateTestPart (in category '*Etoys-Squeakland-etoys-debugger') -----
evaluateTestPart
| condition |
condition := testPart tiles at: 1 ifAbsent: [^ true].
^ Compiler evaluate: condition codeString
for: (condition associatedPlayer
ifNil: [condition topEditor playerScripted])
logged: false!
Item was changed:
+ ----- Method: CompoundTileMorph>>justGrabbedFromViewer (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>justGrabbedFromViewer (in category '*Etoys-Squeakland-miscellaneous') -----
justGrabbedFromViewer
"Answer whether the receiver originated in a Viewer. Only tiles that originated in a viewer will ever do that infernal sprouting of a new script around them. The nil branch is only for backward compatibility."
^ justGrabbedFromViewer ifNil: [justGrabbedFromViewer := true]!
Item was changed:
+ ----- Method: CompoundTileMorph>>justGrabbedFromViewer: (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>justGrabbedFromViewer: (in category '*Etoys-Squeakland-miscellaneous') -----
justGrabbedFromViewer: aBoolean
"Set the receiver's justGrabbedFromViewer instance variable"
justGrabbedFromViewer := aBoolean!
Item was changed:
+ ----- Method: CompoundTileMorph>>justGrabbedFromViewerOrNil (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>justGrabbedFromViewerOrNil (in category '*Etoys-Squeakland-miscellaneous') -----
justGrabbedFromViewerOrNil
"Answer the value of the receiver's justGrabbedFromViewer slot. Needed only for conversion methods"
^ justGrabbedFromViewer!
Item was changed:
+ ----- Method: CompoundTileMorph>>labelMorphs (in category 'access') -----
- ----- Method: CompoundTileMorph>>labelMorphs (in category '*Etoys-Squeakland-access') -----
labelMorphs
| w |
w := WriteStream on: (Array new: 3).
w nextPut: self submorphs first submorphs second.
w nextPut: self submorphs second submorphs second.
w nextPut: self submorphs third submorphs second.
^ w contents.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>noPart (in category 'etoys-debugger') -----
- ----- Method: CompoundTileMorph>>noPart (in category '*Etoys-Squeakland-etoys-debugger') -----
noPart
^ noPart!
Item was changed:
+ ----- Method: CompoundTileMorph>>parseNodeWith: (in category 'code generation') -----
- ----- Method: CompoundTileMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
| rec yes no |
rec := (self blockNodeElements: testPart with: encoder).
rec size > 0 ifTrue: [rec := rec last] ifFalse: [rec := encoder encodeLiteral: true].
yes := self blockNode: yesPart with: encoder.
no := self blockNode: noPart with: encoder.
^ MessageNode new
receiver: rec
selector: #ifTrue:ifFalse:
arguments: (Array with: yes with: no)
precedence: (#ifTrue:ifFalse: precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>parseNodeWith:asStatement: (in category 'code generation') -----
- ----- Method: CompoundTileMorph>>parseNodeWith:asStatement: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder asStatement: aBoolean
^ self parseNodeWith: encoder.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>removeHighlightFeedback (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>removeHighlightFeedback (in category '*Etoys-Squeakland-miscellaneous') -----
removeHighlightFeedback
"Remove any existing highlight feedback"
self world removeHighlightFeedback.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>testPart (in category 'etoys-debugger') -----
- ----- Method: CompoundTileMorph>>testPart (in category '*Etoys-Squeakland-etoys-debugger') -----
testPart
^ testPart!
Item was changed:
+ ----- Method: CompoundTileMorph>>unhibernate (in category 'initialization') -----
- ----- Method: CompoundTileMorph>>unhibernate (in category '*Etoys-Squeakland-initialization') -----
unhibernate
self labelMorphs do: [:l | l label: l contents font: Preferences standardEToysFont].
self removeProperty: #needsLayoutFixed.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>yesPart (in category 'etoys-debugger') -----
- ----- Method: CompoundTileMorph>>yesPart (in category '*Etoys-Squeakland-etoys-debugger') -----
yesPart
^ yesPart!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>ageTriplets (in category 'Squeakland-classification accessing') -----
- ----- Method: EToyProjectDetailsMorph class>>ageTriplets (in category '*Etoys-Squeakland-classification accessing') -----
ageTriplets
"Answer a list of the triplets characterizing the 'age' categories; each triplet is of the form
(<numeric code> <string code> <english version>)"
^ AgeTriplets ifNil: [
AgeTriplets := (self cachedTripletsFor: #age)
ifNil: [self defaultAgeTriplets]]!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>cachedTripletsFor: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>cachedTripletsFor: (in category '*Etoys-Squeakland-classification information') -----
cachedTripletsFor: aCategory
"Load triplets from file, e.g. '.ageCatList-de.csv' for the 'age' category"
| file |
[
file := FileStream readOnlyFileNamed: (self tripletsFileNameFor: aCategory).
[^self tripletsFrom: file contentsOfEntireFile] ensure: [file close].
] ifError: [].
^nil
!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>csvLineQuotedDecodedFor: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph class>>csvLineQuotedDecodedFor: (in category '*Etoys-Squeakland-utilities') -----
csvLineQuotedDecodedFor: aString
"Given that the string provided consists of items delimited by double-quotes and separated by commas, answer an array containing the individual items with quotes removed."
| openQuoteHanging readStream elementStream char |
openQuoteHanging := false.
^ Array streamContents: [:writeStream |
readStream := aString readStream.
elementStream := WriteStream on: ''.
[readStream atEnd] whileFalse:
[char := readStream next.
char = $"
ifTrue:
[openQuoteHanging
ifTrue:
[writeStream nextPut: elementStream contents.
elementStream := WriteStream on: ''.
openQuoteHanging := false]
ifFalse:
[openQuoteHanging := true]]
ifFalse:
[openQuoteHanging ifTrue:
[elementStream nextPut: char]]]]
"
(((HTTPSocket httpGet: 'http://squeakland.org/subjectCatList' args: #() user: '' passwd: '')) contents copyReplaceAll: String lf with: String cr) lines collect: [:l | EToyProjectDetailsMorph csvLineQuotedDecodedFor: l]
"!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>defaultAgeTriplets (in category 'Squeakland-classification defaults') -----
- ----- Method: EToyProjectDetailsMorph class>>defaultAgeTriplets (in category '*Etoys-Squeakland-classification defaults') -----
defaultAgeTriplets
"Answer a default set of triplets characterizing the Age classifications"
^ #(
('556' 'showcase : by age : 6 to 8' 'Ages 6 to 8')
('558' 'showcase : by age : 9 to 11' 'Ages 9 to 11')
('559' 'showcase : by age : 12 to 14' 'Ages 12 to 14')
('560' 'showcase : by age : 15 to 18' 'Ages 15 to 18') )!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>defaultRegionTriplets (in category 'Squeakland-classification defaults') -----
- ----- Method: EToyProjectDetailsMorph class>>defaultRegionTriplets (in category '*Etoys-Squeakland-classification defaults') -----
defaultRegionTriplets
"Answer default triplets for the region codes"
^ #(
('619' 'showcase : by region : Africa' 'Africa')
('620' 'showcase : by region : Antarctica' 'Antarctica')
('621' 'showcase : by region : Asia' 'Asia')
('622' 'showcase : by region : Australia' 'Australia')
('623' 'showcase : by region : Caribbean' 'Caribbean')
('624' 'showcase : by region : Central America' 'Central America')
('625' 'showcase : by region : Europe' 'Europe')
('626' 'showcase : by region : North America' 'North America')
('627' 'showcase : by region : Oceania' 'Oceania')
('628' 'showcase : by region : South America' 'South America')
)
"
EToyProjectDetailsMorph defaultRegionTriplets
"!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>defaultSubjectTriplets (in category 'Squeakland-classification defaults') -----
- ----- Method: EToyProjectDetailsMorph class>>defaultSubjectTriplets (in category '*Etoys-Squeakland-classification defaults') -----
defaultSubjectTriplets
"Answer a default set of triplets characterizing the Subject classifications"
^ #(
('554' 'showcase : by subject : language arts' 'Language Arts')
('553' 'showcase : by subject : mathemetics' 'Mathematics')
('555' 'showcase : by subject : science' 'Science')
('860' 'showcase : by subject : social studies' 'Social Studies')
('861' 'showcase : by subject : music' 'Music')
('862' 'showcase : by subject : visual arts' 'Visual Arts')
('863' 'showcase : by subject : health' 'Health'))!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>linesIn: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph class>>linesIn: (in category '*Etoys-Squeakland-utilities') -----
linesIn: aString
"Answer an array whose elements are strings constituting the lines in the input string."
^ Array streamContents: [:aStream |
aString linesDo:
[: aLine | aStream nextPut: aLine]]
"
EToyProjectDetailsMorph linesIn: 'Fred
the
Bear'
"!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>regionTriplets (in category 'Squeakland-classification accessing') -----
- ----- Method: EToyProjectDetailsMorph class>>regionTriplets (in category '*Etoys-Squeakland-classification accessing') -----
regionTriplets
"Answer a list of triplets of the form (numberCode stringCode englishName) for the regions."
^ RegionTriplets ifNil: [
RegionTriplets := (self cachedTripletsFor: #region)
ifNil: [self defaultRegionTriplets]]!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>restoreDefaultTriplets (in category 'Squeakland-classification defaults') -----
- ----- Method: EToyProjectDetailsMorph class>>restoreDefaultTriplets (in category '*Etoys-Squeakland-classification defaults') -----
restoreDefaultTriplets
"Restore the defaults obtained from cold hard code."
RegionTriplets := self defaultRegionTriplets.
AgeTriplets := self defaultAgeTriplets.
SubjectTriplets := self defaultSubjectTriplets
"
EToyProjectDetailsMorph restoreDefaultTriplets
"!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>subjectTriplets (in category 'Squeakland-classification accessing') -----
- ----- Method: EToyProjectDetailsMorph class>>subjectTriplets (in category '*Etoys-Squeakland-classification accessing') -----
subjectTriplets
"Answer a list of triplets characterizing the subjects in the current taxonomy."
^ SubjectTriplets ifNil: [
SubjectTriplets := (self cachedTripletsFor: #subject)
ifNil: [self defaultSubjectTriplets]]!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>tripletsFileNameFor: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>tripletsFileNameFor: (in category '*Etoys-Squeakland-classification information') -----
tripletsFileNameFor: aCategory
"self tripletsFileNameFor: #age"
^ '.', aCategory, 'CatList-', Locale current localeID printString, '.csv'
!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>tripletsFrom: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>tripletsFrom: (in category '*Etoys-Squeakland-classification information') -----
tripletsFrom: csvString
| result |
[result := (self linesIn: (csvString copyReplaceAll: String lf with: String cr))
collect: [:l | self csvLineQuotedDecodedFor: l]
] on: Error do: [:ex | ^ nil].
(self validateCategoryTriplets: result) ifFalse: [^ nil].
^result.
!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>tripletsUrlFor: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>tripletsUrlFor: (in category '*Etoys-Squeakland-classification information') -----
tripletsUrlFor: aCategory
"self tripletsUrlFor: #age"
^'http://squeakland.org/', aCategory, 'CatList?lang=', Locale current localeID printString!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>updateTripletsFor: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>updateTripletsFor: (in category '*Etoys-Squeakland-classification information') -----
updateTripletsFor: aCategory
"Fetch the age-range, subject, or region triplet files from the web site and cache them locally."
| contents triplets file filename |
contents := (HTTPSocket httpGet: (self tripletsUrlFor: aCategory) args: #() user: '' passwd: '') contents.
triplets := self tripletsFrom: contents.
triplets ifNotNil: [
self useTriplets: triplets for: aCategory.
filename := self tripletsFileNameFor: aCategory.
file := FileStream fileNamed: filename.
[file truncate; nextPutAll: contents] ensure: [file close].
].
!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>updateTripletsFromWebSite (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>updateTripletsFromWebSite (in category '*Etoys-Squeakland-classification information') -----
updateTripletsFromWebSite
"Attempt to update the age-range, subject, and region triplets cache on file by looking for the latest versions on the web site."
#(age subject region) do: [:cat |
self updateTripletsFor: cat]!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>updateTripletsFromWebSiteInBackground (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>updateTripletsFromWebSiteInBackground (in category '*Etoys-Squeakland-classification information') -----
updateTripletsFromWebSiteInBackground
[
[self updateTripletsFromWebSite] ifError: []
] forkAt: Processor userBackgroundPriority named: 'Etoys category updater'!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>useTriplets:for: (in category 'Squeakland-classification accessing') -----
- ----- Method: EToyProjectDetailsMorph class>>useTriplets:for: (in category '*Etoys-Squeakland-classification accessing') -----
useTriplets: triplets for: aCategory
aCategory = #age ifTrue: [AgeTriplets := triplets].
aCategory = #subject ifTrue: [SubjectTriplets := triplets].
aCategory = #region ifTrue: [RegionTriplets := triplets].!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>validateCategoryTriplets: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>validateCategoryTriplets: (in category '*Etoys-Squeakland-classification information') -----
validateCategoryTriplets: aList
"The input is a tuple obtained by extracting lines from a string obtained from the squeakland web site. Answer true if the tuple passes the smoke-test for category triplets."
(aList isNil or: [aList size < 2]) ifTrue: [^ false].
aList do:
[:element |
(element isCollection not or: [element size < 3]) ifTrue: [^ false]].
^ true
"
self validateCategoryTriplets: RegionTriplets
"!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph>>choicesFor: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph>>choicesFor: (in category '*Etoys-Squeakland-utilities') -----
choicesFor: aSymbol
"Answer the list of choices to offer for the given symbol, which will be subject, age, or region. Answer nil if the symbol provided is one without enumerated choices."
aSymbol = #subject ifTrue:
[^ self class subjectTriplets].
aSymbol = #age ifTrue:
[^ self class ageTriplets].
aSymbol = #region ifTrue:
[^ self class regionTriplets].
^ nil!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph>>doPopUp:event:for: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph>>doPopUp:event:for: (in category '*Etoys-Squeakland-utilities') -----
doPopUp: aSymbol event: anEvent for: aTextMorph
"The user clicked on a pop-up field in the project-info dialog. Put up the pop-up of choices."
| aMenu aTitle |
aMenu := MenuMorph new defaultTarget: self.
aTitle := aTextMorph valueOfProperty: #menuTitle.
aTitle ifNotNil:
[aMenu addTitle: aTitle translated].
aMenu add: '(none)' translated target: self selector: #setInfoField:to: argumentList: {aSymbol asString. '(none)'}.
aMenu addLine.
(self choicesFor: aSymbol) do:
[:aChoice |
aMenu add: aChoice third translated target: self selector: #setInfoField:to: argumentList: {aSymbol. aChoice first}].
aMenu popUpInWorld!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph>>popUpEntryNamed: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph>>popUpEntryNamed: (in category '*Etoys-Squeakland-utilities') -----
popUpEntryNamed: aString
"Answer a text morph that will serve as a pop-up"
| newField |
newField := StaticTextMorph new beAllFont: self myFont;
extent: 400 @ 20;
contentsWrapped: '(none)' translated.
namedFields at: aString put: newField.
newField on: #click send: #doPopUp:event:for: to: self withValue: aString.
^ newField!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph>>popUpEntryNamed:menuTitle: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph>>popUpEntryNamed:menuTitle: (in category '*Etoys-Squeakland-utilities') -----
popUpEntryNamed: aString menuTitle: titleInEnglish
"Answer a text morph that will serve as a pop-up. The first parameter is the key in the named-fields dictionary, the second is the title (in english) to give to the menu."
| newField |
newField := StaticTextMorph new beAllFont: self myFont;
extent: 400 @ 20;
contentsWrapped: '(none)' translated.
newField setProperty: #menuTitle toValue: titleInEnglish.
namedFields at: aString put: newField.
newField on: #click send: #doPopUp:event:for: to: self withValue: aString.
^ newField!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph>>setInfoField:to: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph>>setInfoField:to: (in category '*Etoys-Squeakland-utilities') -----
setInfoField: aFieldName to: aValue
"Install a value into an info field of the dialog. Textual fields are filled literally, but enumerated fields (subject, region, etc.) are represented by codes which get mapped into (translated) text to display."
| newValue choices |
newValue := aValue.
choices := self choicesFor: aFieldName.
choices ifNotNil: "i.e. one of the fields with enumerated values"
[(choices detect: [:c | c first = aValue] ifNone: [nil]) ifNotNil:
[:item | newValue := item third translated]].
(namedFields at: aFieldName) contentsWrapped: newValue
!
Item was changed:
+ ----- Method: EToyProjectQueryMorph>>carryOutQuery:onProjectServer: (in category 'Squeakland-query') -----
- ----- Method: EToyProjectQueryMorph>>carryOutQuery:onProjectServer: (in category '*Etoys-Squeakland-query') -----
carryOutQuery: details onProjectServer: aProjectServer
"The user submitted a query; the parameter holds the details dictionary. Carry out the query."
| criteria clean |
criteria := OrderedCollection new.
details keysAndValuesDo:
[ :k :v |
(clean := v withBlanksTrimmed convertToEncoding: SuperSwikiServer defaultEncodingName) isEmpty
ifFalse: [criteria add: k,': *',clean,'*']].
aProjectServer queryProjectsAndShow: criteria!
Item was changed:
+ ----- Method: EtoyUpdatingThreePhaseButtonMorph class>>setForms (in category 'accessing') -----
- ----- Method: EtoyUpdatingThreePhaseButtonMorph class>>setForms (in category 'as yet unclassified') -----
setForms
CheckedForm := (Form
extent: 12@12
depth: 32
fromArray: #( 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 4278190081 4278190081 4278190081 0 0 0 0 0 0 0 0 4278190081 2003331177 4278190081 4278190081 0 0 0 0 0 0 0 4278190081 2003331177 0 4278190081 4278190081 0 0 0 0 0 0 4278190081 2003331177 0 0 4278190081 4278190081 0 4278190081 0 0 0 4278190081 2003331177 0 0 0 4278190081 4278190081 0 2003331177 4278190081 0 4278190081 2003331177 0 0 0 0 4278190081 4278190081 0 0 2003331177 4278190081 2003331177 0 0 0 0 0 4278190081 4278190081 0 0 0 2003331177 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081)
offset: 0@0).
MouseDownForm := UncheckedForm := (Form
extent: 12@12
depth: 32
fromArray: #( 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081)
offset: 0@0)!
Item was changed:
+ ----- Method: EtoyUpdatingThreePhaseButtonMorph class>>setForms: (in category 'accessing') -----
- ----- Method: EtoyUpdatingThreePhaseButtonMorph class>>setForms: (in category '*Etoys-Squeakland-as yet unclassified') -----
setForms: size
| c |
UncheckedForm := Form extent: size@size depth: 16.
c := UncheckedForm getCanvas asBalloonCanvas.
c frameRectangle: UncheckedForm boundingBox width: (size // 12) color: Color black.
MouseDownForm := UncheckedForm deepCopy.
CheckedForm := UncheckedForm deepCopy.
c := CheckedForm getCanvas asBalloonCanvas.
c
line: ((size*0.2)(a)(size*0.5)) asIntegerPoint
to: ((size*0.4)(a)(size*0.7)) asIntegerPoint
width: 2
color: Color gray darker.
c line: ((size*0.4)(a)(size*0.7)) asIntegerPoint
to: ((size*0.9)(a)(size*0.2)) asIntegerPoint
width: 2
color: Color gray darker.
!
Item was changed:
+ ----- Method: GenericPropertiesMorph>>doGraphPaper (in category 'Squeakland-graph paper') -----
- ----- Method: GenericPropertiesMorph>>doGraphPaper (in category '*Etoys-Squeakland-graph paper') -----
doGraphPaper
"Switch to graph paper as a fill style."
self putUpGraphPaperPanel!
Item was changed:
+ ----- Method: GraphicTile>>parseNodeWith: (in category 'code generation') -----
- ----- Method: GraphicTile>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ encoder encodePlayer: literal.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>areOkaySelectors: (in category 'testing') -----
- ----- Method: KedamaExamplerPlayer>>areOkaySelectors: (in category '*Etoys-Squeakland-testing') -----
areOkaySelectors: aCollection
aCollection do: [:sel |
(#(= & | + - * / \\ // ifTrue:ifFalse:) includes: sel) ifFalse: [^ false].
].
^ true.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>containsBreedSelectors: (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>containsBreedSelectors: (in category '*Etoys-Squeakland-private') -----
containsBreedSelectors: collection
collection do: [:e |
(#(setTurtleCount: setGrouped:) includes: e) ifTrue: [^ true].
].
^ false.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>containsSequentialSelector: (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>containsSequentialSelector: (in category '*Etoys-Squeakland-private') -----
containsSequentialSelector: aSymbol
^ (#(random random: atRandom) includes: aSymbol)!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>containsSequentialSelectors: (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>containsSequentialSelectors: (in category '*Etoys-Squeakland-private') -----
containsSequentialSelectors: collection
collection do: [:e |
(self containsSequentialSelector: e) ifTrue: [^ true].
].
^ false.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>copyAllMethodsAgain2 (in category 'debug support') -----
- ----- Method: KedamaExamplerPlayer>>copyAllMethodsAgain2 (in category '*Etoys-Squeakland-debug support') -----
copyAllMethodsAgain2
| c result |
c := turtles class.
result := (ClassBuilder new)
name: c name
inEnvironment: c environment
subclassOf: c superclass
type: c typeOfClass
instanceVariableNames: KedamaTurtleVectorPlayer2 instanceVariablesString
classVariableNames: KedamaTurtleVectorPlayer2 classVariablesString
poolDictionaries: KedamaTurtleVectorPlayer2 sharedPoolsString
category: Object categoryForUniclasses.
turtles class copyAllCategoriesUnobtrusivelyFrom: KedamaTurtleVectorPlayer2.
sequentialStub ifNotNil: [sequentialStub class copyAllCategoriesUnobtrusivelyFrom: KedamaSequenceExecutionStub].
self flag: #todo. self flag: #uniclasses. "Discuss if we really want to hide uniclasses again"
c superclass environment forgetClass: result logged: false.
c superclass removeSubclass: result.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>createTurtles2 (in category 'subclass players management') -----
- ----- Method: KedamaExamplerPlayer>>createTurtles2 (in category '*Etoys-Squeakland-subclass players management') -----
createTurtles2
turtles := self class createTurtleSubclass2 new.
turtles kedamaWorld: kedamaWorld.
turtles exampler: self.
^ turtles.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>isBreedSelector: (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>isBreedSelector: (in category '*Etoys-Squeakland-private') -----
isBreedSelector: aSymbol
^ #(getTurtleCount setTurtleCount: setGrouped: getGrouped) includes: aSymbol.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>isUserDefinedSelector: (in category 'testing') -----
- ----- Method: KedamaExamplerPlayer>>isUserDefinedSelector: (in category '*Etoys-Squeakland-testing') -----
isUserDefinedSelector: aSymbol
^ self class superclass scripts notNil and: [self class superclass scripts includes: aSymbol].!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>removeScriptNamed: (in category 'method management') -----
- ----- Method: KedamaExamplerPlayer>>removeScriptNamed: (in category '*Etoys-Squeakland-method management') -----
removeScriptNamed: aScriptName
super removeScriptNamed: aScriptName.
turtles class removeSelectorSilently: aScriptName.
sequentialStub class removeSelectorSilently: aScriptName.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>selectorIncludesSequentialCommand: (in category 'testing') -----
- ----- Method: KedamaExamplerPlayer>>selectorIncludesSequentialCommand: (in category '*Etoys-Squeakland-testing') -----
selectorIncludesSequentialCommand: aSymbol
self flag: #todo. "for now we go sequential for any user defined script"
^ self class scripts includesKey: aSymbol "(self class sourceCodeAt: aSymbol)
includesSubstring: 'doSequentialCommand:'"!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>userDefinedSlotGetters (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>userDefinedSlotGetters (in category '*Etoys-Squeakland-private') -----
userDefinedSlotGetters
^ turtles info keys asArray collect: [:e | e asGetterSelector].
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>userDefinedSlotSetters (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>userDefinedSlotSetters (in category '*Etoys-Squeakland-private') -----
userDefinedSlotSetters
^ turtles info keys asArray collect: [:e | e asSetterSelector].
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>vectorizableTheseSelectors: (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>vectorizableTheseSelectors: (in category '*Etoys-Squeakland-private') -----
vectorizableTheseSelectors: collection
| removed scripts |
scripts := self class scripts keys.
removed := collection reject: [:e | (scripts includes: e) or: [#(getTurtleCount setTurtleCount: setGrouped: getGrouped) includes: e]].
removed do: [:e |
((#(getX setX: getY setY: setColor: getColor getVisible setVisible: getTurtleVisible setTurtleVisible: getHeading setHeading: getAngleTo: getDistanceTo: getUphillIn: forward: turn: setPatchValueIn:to: beNotZero: getPatchValueIn:),
self userDefinedSlotGetters,
self userDefinedSlotSetters) includes: e) ifFalse: [^ false].
].
^ true.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>isDivisibleBy: (in category 'arithmetic') -----
- ----- Method: KedamaFloatArray>>isDivisibleBy: (in category '*Etoys-Squeakland-arithmetic') -----
isDivisibleBy: other
| result |
result := ByteArray new: self size.
other isNumber ifTrue: [
^ self primDVScalar: self and: other into: result.
].
((other isMemberOf: WordArray) or: [other isMemberOf: KedamaFloatArray]) ifTrue: [
^ self primDVArray: self and: other into: result.
].
^ super < other.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primDVArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primDVArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primDVArray: rcvr and: other into: result
"<primitive: 'primitiveDVArrays' module:'KedamaPlugin2'>"
"^ KedamaPlugin2 doPrimitive: #primitiveDVArrays."
1 to: rcvr size do: [:i |
result at: i put: (((rcvr at: i) isDivisibleBy: (other at: i)) ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primDVScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primDVScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primDVScalar: rcvr and: other into: result
"<primitive: 'primitiveDVScalar' module:'KedamaPlugin2'>"
"^ KedamaPlugin2 doPrimitive: #primitiveDVScalar."
1 to: rcvr size do: [:i |
result at: i put: (((rcvr at: i) isDivisibleBy: other) ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primEQArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primEQArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primEQArray: rcvr and: other into: result
<primitive: 'primitiveEQArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveEQArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) = (other at: i) ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primEQScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primEQScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primEQScalar: rcvr and: other into: result
<primitive: 'primitiveEQScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveEQScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) = other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primGEArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primGEArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primGEArray: rcvr and: other into: result
<primitive: 'primitiveGEArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveGEArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) >= (other at: i) ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primGEScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primGEScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primGEScalar: rcvr and: other into: result
<primitive: 'primitiveGEScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveGEScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) >= other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primGTArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primGTArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primGTArray: rcvr and: other into: result
<primitive: 'primitiveGTArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveGTArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) > (other at: i) ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primGTScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primGTScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primGTScalar: rcvr and: other into: result
<primitive: 'primitiveGTScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveGTScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) > other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primLEArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primLEArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primLEArray: rcvr and: other into: result
<primitive: 'primitiveLEArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveLEArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) <= (other at: i) ifTrue: [1] ifFalse: [0])
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primLEScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primLEScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primLEScalar: rcvr and: other into: result
<primitive: 'primitiveLEScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveLEScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) <= other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primLTArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primLTArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primLTArray: rcvr and: other into: result
<primitive: 'primitiveLTArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveLTArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) < (other at: i) ifTrue: [1] ifFalse: [0])
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primLTScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primLTScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primLTScalar: rcvr and: other into: result
<primitive: 'primitiveLTScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveLTScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) < other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primNEArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primNEArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primNEArray: rcvr and: other into: result
<primitive: 'primitiveNEArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveNEArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) ~= (other at: i) ifTrue: [1] ifFalse: [0])
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primNEScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primNEScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primNEScalar: rcvr and: other into: result
<primitive: 'primitiveNEScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveNEScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) ~= other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primRemArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primRemArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primRemArray: rcvr and: other into: result
<primitive: 'primitiveRemArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveRemArrays."
1 to: rcvr size do: [:i |
result at: i put: (rcvr at: i) \\ (other at: i)
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primRemScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primRemScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primRemScalar: rcvr and: other into: result
<primitive: 'primitiveRemScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveRemScalar."
1 to: rcvr size do: [:i |
result at: i put: (rcvr at: i) \\ other.
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>random (in category 'arithmetic') -----
- ----- Method: KedamaFloatArray>>random (in category '*Etoys-Squeakland-arithmetic') -----
random
| result |
result := KedamaFloatArray new: self size.
1 to: self size do: [:i |
result at: i put: ((self at: i) random + (self at: i) fractionPart).
].
^ result.!
Item was changed:
+ ----- Method: KedamaGetColorComponentTile>>parseNodeWith: (in category 'code generation') -----
- ----- Method: KedamaGetColorComponentTile>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ patchTile parseNodeWith: encoder!
Item was changed:
+ ----- Method: KedamaMorph class>>migrateInstancesWithoutChangePending (in category 'class initialization') -----
- ----- Method: KedamaMorph class>>migrateInstancesWithoutChangePending (in category '*Etoys-Squeakland-class initialization') -----
migrateInstancesWithoutChangePending
KedamaMorph allInstancesDo: [:each |
each migrateInstancesWithoutChangePending.
].
!
Item was changed:
+ ----- Method: KedamaMorph>>defaultPatch (in category 'drawing') -----
- ----- Method: KedamaMorph>>defaultPatch (in category '*Etoys-Squeakland-drawing') -----
defaultPatch
| p |
defaultPatch ifNotNil: [^ defaultPatch].
"For older projects, it trys to extract a reasonable answer from somewhere."
(self player respondsTo: #getPatch) ifTrue: [
defaultPatch := self player getPatch costume renderedMorph.
^ defaultPatch.
].
p := KedamaPatchMorph new.
p kedamaWorld: self.
p assuredPlayer.
defaultPatch := p.
^ defaultPatch.
!
Item was changed:
+ ----- Method: KedamaMorph>>migrateInstancesWithoutChangePending (in category 'private') -----
- ----- Method: KedamaMorph>>migrateInstancesWithoutChangePending (in category '*Etoys-Squeakland-private') -----
migrateInstancesWithoutChangePending
self instVarNamed: 'changePending' put: false.
self instVarNamed: 'drawRequested' put: true.
self setKedamaWorldToKnownPatches.
!
Item was changed:
+ ----- Method: KedamaMorph>>setKedamaWorldToKnownPatches (in category 'utils') -----
- ----- Method: KedamaMorph>>setKedamaWorldToKnownPatches (in category '*Etoys-Squeakland-utils') -----
setKedamaWorldToKnownPatches
patchesToDisplay do: [:e |
e kedamaWorld: self.
defaultPatch ifNotNil: [^ defaultPatch kedamaWorld: self].
"For older projects, it trys to extract a reasonable answer from somewhere."
(self player respondsTo: #getPatch) ifTrue: [
defaultPatch := self player getPatch costume renderedMorph.
^ defaultPatch kedamaWorld: self.
].
].
!
Item was changed:
+ ----- Method: KedamaPatchMorph class>>migrateInstancesWithoutChangePending (in category 'class initialization') -----
- ----- Method: KedamaPatchMorph class>>migrateInstancesWithoutChangePending (in category '*Etoys-Squeakland-class initialization') -----
migrateInstancesWithoutChangePending
KedamaPatchMorph allInstancesDo: [:each |
each migrateInstancesWithoutChangePending.
].
!
Item was changed:
+ ----- Method: KedamaPatchMorph>>drawRequest (in category 'drawing') -----
- ----- Method: KedamaPatchMorph>>drawRequest (in category '*Etoys-Squeakland-drawing') -----
drawRequest
changePending ifFalse: [self changed].
changePending := true.
!
Item was changed:
+ ----- Method: KedamaPatchMorph>>kedamaWorld: (in category 'initialization') -----
- ----- Method: KedamaPatchMorph>>kedamaWorld: (in category '*Etoys-Squeakland-initialization') -----
kedamaWorld: anObject
kedamaWorld := anObject.
!
Item was changed:
+ ----- Method: KedamaPatchMorph>>migrateInstancesWithoutChangePending (in category 'private') -----
- ----- Method: KedamaPatchMorph>>migrateInstancesWithoutChangePending (in category '*Etoys-Squeakland-private') -----
migrateInstancesWithoutChangePending
self instVarNamed: 'changePending' put: false.
!
Item was changed:
+ ----- Method: KedamaPatchMorph>>primSetPixelsPredicates:xArray:yArray:bits:width:height:value: (in category 'primitives') -----
- ----- Method: KedamaPatchMorph>>primSetPixelsPredicates:xArray:yArray:bits:width:height:value: (in category '*Etoys-Squeakland-primitives') -----
primSetPixelsPredicates: predicates xArray: xArray yArray: yArray bits: bits width: width height: height value: value
| v |
<primitive: 'primSetPixelsAtXY' module: 'KedamaPlugin2'>
" ^ KedamaPlugin2 doPrimitive: #primSetPixelsAtXY."
value isNumber ifTrue: [v := value].
1 to: xArray size do: [:i |
(predicates at: i) = 1 ifTrue: [
value isNumber ifFalse: [
v := value at: i.
].
self pixelAtX: (xArray at: i) y: (yArray at: i) put: v.
].
].
!
Item was changed:
+ ----- Method: KedamaPatchMorph>>setPixelsPredicates:xArray:yArray:value: (in category 'commands and slots') -----
- ----- Method: KedamaPatchMorph>>setPixelsPredicates:xArray:yArray:value: (in category '*Etoys-Squeakland-commands and slots') -----
setPixelsPredicates: predicates xArray: xArray yArray: yArray value: value
form bits class == ByteArray ifTrue: [form unhibernate].
self primSetPixelsPredicates: predicates xArray: xArray yArray: yArray bits: form bits width: form width height: form height value: value.
self formChanged.
!
Item was changed:
+ ----- Method: KedamaPatchTile>>useDefaultPatch: (in category 'initialization support') -----
- ----- Method: KedamaPatchTile>>useDefaultPatch: (in category '*Etoys-Squeakland-initialization support') -----
useDefaultPatch: aPatch
| aTile displayer |
self removeAllMorphs.
"literal := aPatch."
type := #objRef.
aTile := KedamaPatchType basicNew newReadoutTile.
displayer := UpdatingStringMorph new
getSelector: #yourself;
target: 'patch';
growable: true;
minimumWidth: 24;
putSelector: nil;
font: Preferences standardEToysFont.
displayer stepTime: 1000.
"Note that when typeSymbol = #number, the #target: call above will have dealt with floatPrecision details"
displayer useStringFormat.
aTile addMorphBack: displayer.
aTile setLiteralInitially: ('patch').
self addMorphBack: aTile.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primForwardAt:xArray:yArray:headingArray:value:destWidth:destHeight:leftEdgeMode:rightEdgeMode:topEdgeMode:bottomEdgeMode: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primForwardAt:xArray:yArray:headingArray:value:destWidth:destHeight:leftEdgeMode:rightEdgeMode:topEdgeMode:bottomEdgeMode: (in category '*Etoys-Squeakland-as yet unclassified') -----
primForwardAt: i xArray: xArray yArray: yArray headingArray: headingArray value: value destWidth: destWidth destHeight: destHeight leftEdgeMode: leftEdgeMode rightEdgeMode: rightEdgeMode topEdgeMode: topEdgeMode bottomEdgeMode: bottomEdgeMode
| dist newX newY |
<primitive: 'primScalarForward' module:'KedamaPlugin2'>
"^ KedamaPlugin doPrimitive: #primScalarForward."
dist := value.
newX := (xArray at: i) + (dist asFloat * (headingArray at: i) cos).
newY := (yArray at: i) - (dist asFloat * (headingArray at: i) sin).
KedamaMorph scalarXAt: i xArray: xArray headingArray: headingArray value: newX destWidth: destWidth leftEdgeMode: leftEdgeMode rightEdgeMode: rightEdgeMode.
KedamaMorph scalarYAt: i yArray: yArray headingArray: headingArray value: newY destHeight: destHeight topEdgeMode: topEdgeMode bottomEdgeMode: bottomEdgeMode.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primGetAngleToX:toY:fromX:fromY: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primGetAngleToX:toY:fromX:fromY: (in category '*Etoys-Squeakland-as yet unclassified') -----
primGetAngleToX: toX toY: toY fromX: fromX fromY: fromY
| ret |
<primitive: 'scalarGetAngleTo' module:'KedamaPlugin2'>
ret := ((toX - fromX)@(toY - fromY)) theta radiansToDegrees + 90.0.
ret > 360.0 ifTrue: [^ ret - 360.0].
^ ret.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primGetDistanceToX:toY:fromX:fromY: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primGetDistanceToX:toY:fromX:fromY: (in category '*Etoys-Squeakland-as yet unclassified') -----
primGetDistanceToX: toX toY: toY fromX: fromX fromY: fromY
<primitive: 'scalarGetDistanceTo' module:'KedamaPlugin2'>
^ ((fromX - toX) squared + (fromY - toY)) squared sqrt.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primGetHeadingAt:headingArray: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primGetHeadingAt:headingArray: (in category '*Etoys-Squeakland-as yet unclassified') -----
primGetHeadingAt: i headingArray: headingArray
| heading |
<primitive: 'getScalarHeading' module:'KedamaPlugin2'>
"^ KedamaPlugin doPrimitive: #getScalarHeading."
heading := headingArray at: i.
^ heading := KedamaMorph radiansToDegrees: heading.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primSetHeadingAt:headingArray:value: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primSetHeadingAt:headingArray:value: (in category '*Etoys-Squeakland-as yet unclassified') -----
primSetHeadingAt: i headingArray: headingArray value: heading
| rad |
<primitive: 'setScalarHeading' module:'KedamaPlugin2'>
"^ KedamaPlugin doPrimitive: #setScalarHeading."
rad := KedamaMorph degreesToRadians: heading.
headingArray at: i put: rad.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primSetX:xIndex:headingArray:value:destWidth:leftEdgeMode:rightEdgeMode: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primSetX:xIndex:headingArray:value:destWidth:leftEdgeMode:rightEdgeMode: (in category '*Etoys-Squeakland-as yet unclassified') -----
primSetX: xArray xIndex: xIndex headingArray: headingArray value: value destWidth: destWidth leftEdgeMode: leftEdgeMode rightEdgeMode: rightEdgeMode
<primitive: 'turtleScalarSetX' module:'KedamaPlugin2'>
"^ KedamaPlugin doPrimitive: #turtleScalarSetX."
KedamaMorph scalarXAt: xIndex xArray: xArray headingArray: headingArray value: value destWidth: destWidth leftEdgeMode: leftEdgeMode rightEdgeMode: rightEdgeMode.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primSetY:yIndex:headingArray:value:destHeight:topEdgeMode:bottomEdgeMode: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primSetY:yIndex:headingArray:value:destHeight:topEdgeMode:bottomEdgeMode: (in category '*Etoys-Squeakland-as yet unclassified') -----
primSetY: yArray yIndex: yIndex headingArray: headingArray value: value destHeight: destHeight topEdgeMode: topEdgeMode bottomEdgeMode: bottomEdgeMode
<primitive: 'turtleScalarSetY' module:'KedamaPlugin2'>
"^ KedamaPlugin doPrimitive: #turtleScalarSetY."
KedamaMorph scalarYAt: yIndex yArray: yArray headingArray: headingArray value: value destHeight: destHeight topEdgeMode: topEdgeMode bottomEdgeMode: bottomEdgeMode.
!
Item was changed:
+ ----- Method: KedamaSetColorComponentTile>>assignmentRootForParseNode (in category 'code generation') -----
- ----- Method: KedamaSetColorComponentTile>>assignmentRootForParseNode (in category '*Etoys-Squeakland-code generation') -----
assignmentRootForParseNode
^ assignmentRoot!
Item was changed:
+ ----- Method: KedamaSetColorComponentTile>>parseNodeWith: (in category 'code generation') -----
- ----- Method: KedamaSetColorComponentTile>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ patchTile parseNodeWith: encoder.
!
Item was changed:
+ ----- Method: KedamaSetPixelValueTile>>assignmentRootForParseNode (in category 'tile protocol') -----
- ----- Method: KedamaSetPixelValueTile>>assignmentRootForParseNode (in category '*Etoys-Squeakland-tile protocol') -----
assignmentRootForParseNode
^ 'setPatchValueIn:'.
!
Item was changed:
+ ----- Method: KedamaSetPixelValueTile>>parseNodeWith: (in category 'tile protocol') -----
- ----- Method: KedamaSetPixelValueTile>>parseNodeWith: (in category '*Etoys-Squeakland-tile protocol') -----
parseNodeWith: encoder
^ patchTile parseNodeWith: encoder!
Item was changed:
+ ----- Method: KeyboardBuffer>>commandKeyPressed (in category 'testing') -----
- ----- Method: KeyboardBuffer>>commandKeyPressed (in category '*Etoys-testing') -----
commandKeyPressed
^ event commandKeyPressed!
Item was changed:
+ ----- Method: KeyboardBuffer>>controlKeyPressed (in category 'testing') -----
- ----- Method: KeyboardBuffer>>controlKeyPressed (in category '*Etoys-testing') -----
controlKeyPressed
^ event controlKeyPressed!
Item was changed:
+ ----- Method: KeyboardBuffer>>flushKeyboard (in category 'keyboard control') -----
- ----- Method: KeyboardBuffer>>flushKeyboard (in category '*Etoys-keyboard control') -----
flushKeyboard
eventUsed ifFalse: [^ eventUsed := true].!
Item was changed:
+ ----- Method: KeyboardBuffer>>keyboard (in category 'keyboard control') -----
- ----- Method: KeyboardBuffer>>keyboard (in category '*Etoys-keyboard control') -----
keyboard
eventUsed ifFalse: [eventUsed := true. ^ event keyCharacter].
^ nil!
Item was changed:
+ ----- Method: KeyboardBuffer>>keyboardPeek (in category 'keyboard control') -----
- ----- Method: KeyboardBuffer>>keyboardPeek (in category '*Etoys-keyboard control') -----
keyboardPeek
eventUsed ifFalse: [^ event keyCharacter].
^ nil!
Item was changed:
+ ----- Method: KeyboardBuffer>>keyboardPressed (in category 'testing') -----
- ----- Method: KeyboardBuffer>>keyboardPressed (in category '*Etoys-testing') -----
keyboardPressed
^eventUsed not!
Item was changed:
+ ----- Method: KeyboardBuffer>>leftShiftDown (in category 'testing') -----
- ----- Method: KeyboardBuffer>>leftShiftDown (in category '*Etoys-testing') -----
leftShiftDown
^ event shiftPressed!
Item was changed:
+ ----- Method: KeyboardBuffer>>startingEvent: (in category 'private') -----
- ----- Method: KeyboardBuffer>>startingEvent: (in category '*Etoys-private') -----
startingEvent: evt
event := evt.
eventUsed := false!
Item was changed:
+ ----- Method: MethodHolder class>>isolatedCodePaneForClass:selector: (in category 'Etoys') -----
- ----- Method: MethodHolder class>>isolatedCodePaneForClass:selector: (in category '*Etoys') -----
isolatedCodePaneForClass: aClass selector: aSelector
"Answer a MethodMorph on the given class and selector"
| aCodePane aMethodHolder |
aMethodHolder := self new.
aMethodHolder methodClass: aClass methodSelector: aSelector.
aCodePane := MethodMorph on: aMethodHolder text: #contents accept: #contents:notifying:
readSelection: #contentsSelection menu: #codePaneMenu:shifted:.
aMethodHolder addDependent: aCodePane.
aCodePane borderWidth: 2; color: Color white.
aCodePane scrollBarOnLeft: false.
aCodePane width: 300.
^ aCodePane!
Item was changed:
+ ----- Method: MethodHolder class>>makeIsolatedCodePaneForClass:selector: (in category 'Etoys') -----
- ----- Method: MethodHolder class>>makeIsolatedCodePaneForClass:selector: (in category '*Etoys') -----
makeIsolatedCodePaneForClass: aClass selector: aSelector
"Create, and place in the morphic Hand, an isolated code pane bearing source code for the given class and selector"
(self isolatedCodePaneForClass: aClass selector: aSelector) openInHand!
Item was changed:
+ ----- Method: MethodHolder>>addModelMenuItemsTo:forMorph:hand: (in category 'menu') -----
- ----- Method: MethodHolder>>addModelMenuItemsTo:forMorph:hand: (in category '*Etoys-menu') -----
addModelMenuItemsTo: aCustomMenu forMorph: aMorph hand: aHandMorph
aCustomMenu addLine.
aCustomMenu add: 'whose script is this?' translated target: self action: #identifyScript
!
Item was changed:
+ ----- Method: MethodHolder>>changeMethodSelectorTo: (in category 'miscellaneous') -----
- ----- Method: MethodHolder>>changeMethodSelectorTo: (in category '*Etoys-miscellaneous') -----
changeMethodSelectorTo: aSelector
"Change my method selector as noted. Reset currentCompiledMethod"
methodSelector := aSelector.
currentCompiledMethod := methodClass compiledMethodAt: aSelector ifAbsent: [nil]!
Item was changed:
+ ----- Method: MethodHolder>>compiledMethod (in category 'miscellaneous') -----
- ----- Method: MethodHolder>>compiledMethod (in category '*Etoys-miscellaneous') -----
compiledMethod
^ methodClass compiledMethodAt: methodSelector!
Item was changed:
+ ----- Method: MethodHolder>>contents (in category 'contents') -----
- ----- Method: MethodHolder>>contents (in category '*Etoys-contents') -----
contents
"Answer the contents, with due respect for my contentsSymbol"
contents := methodClass sourceCodeAt: methodSelector ifAbsent: [''].
currentCompiledMethod := methodClass compiledMethodAt: methodSelector ifAbsent: [nil].
self showingDecompile ifTrue: [^ self decompiledSourceIntoContents].
self showingDocumentation ifTrue: [^ self commentContents].
^ contents := self sourceStringPrettifiedAndDiffed asText makeSelectorBoldIn: methodClass!
Item was changed:
+ ----- Method: MethodHolder>>contents:notifying: (in category 'contents') -----
- ----- Method: MethodHolder>>contents:notifying: (in category '*Etoys-contents') -----
contents: input notifying: aController
| selector |
(selector := methodClass newParser parseSelector: input asText) ifNil:
[self inform: 'Sorry - invalid format for the
method name and arguments -- cannot accept.'.
^ false].
selector == methodSelector ifFalse:
[self inform:
'You cannot change the name of
the method here -- it must continue
to be ', methodSelector.
^ false].
selector := methodClass
compile: input asText
classified: self selectedMessageCategoryName
notifying: aController.
selector == nil ifTrue: [^ false].
contents := input asString copy.
currentCompiledMethod := methodClass compiledMethodAt: methodSelector.
^ true!
Item was changed:
+ ----- Method: MethodHolder>>contents:notifying:forInstance: (in category 'contents') -----
- ----- Method: MethodHolder>>contents:notifying:forInstance: (in category '*Etoys-Squeakland-contents') -----
contents: input notifying: aController forInstance: aPlayer
| selector |
(selector := Parser new parseSelector: input asText) ifNil:
[self inform: 'Sorry - invalid format for the
method name and arguments -- cannot accept.'.
^ false].
selector == methodSelector ifFalse:
[self inform:
'You cannot change the name of
the method here -- it must continue
to be ', methodSelector.
^ false].
selector := methodClass
compileSilently: input asText
classified: self selectedMessageCategoryName
notifying: aController
for: aPlayer.
selector == nil ifTrue: [^ false].
contents := input asString copy.
currentCompiledMethod := methodClass compiledMethodAt: methodSelector.
^ true!
Item was changed:
+ ----- Method: MethodHolder>>identifyScript (in category 'miscellaneous') -----
- ----- Method: MethodHolder>>identifyScript (in category '*Etoys-miscellaneous') -----
identifyScript
| msg aPlayer |
msg := methodClass isUniClass
ifTrue:
[aPlayer := methodClass someInstance.
aPlayer costume
ifNotNil:
['This holds code for a script
named ', methodSelector, ' belonging
to an object named ', aPlayer externalName]
ifNil:
['This formerly held code for a script
named ', methodSelector, ' for a Player
who once existed but now is moribund.']]
ifFalse:
['This holds code for the method
named ', methodSelector, '
for class ', methodClass name].
self inform: msg!
Item was changed:
+ ----- Method: MethodHolder>>methodClass:methodSelector: (in category 'miscellaneous') -----
- ----- Method: MethodHolder>>methodClass:methodSelector: (in category '*Etoys-miscellaneous') -----
methodClass: aClass methodSelector: aSelector
methodClass := aClass.
methodSelector := aSelector.
currentCompiledMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil]!
Item was changed:
+ ----- Method: MethodHolder>>selectedClass (in category 'selection') -----
- ----- Method: MethodHolder>>selectedClass (in category '*Etoys-selection') -----
selectedClass
^ methodClass theNonMetaClass!
Item was changed:
+ ----- Method: MethodHolder>>selectedClassOrMetaClass (in category 'selection') -----
- ----- Method: MethodHolder>>selectedClassOrMetaClass (in category '*Etoys-selection') -----
selectedClassOrMetaClass
^ methodClass!
Item was changed:
+ ----- Method: MethodHolder>>selectedMessageCategoryName (in category 'selection') -----
- ----- Method: MethodHolder>>selectedMessageCategoryName (in category '*Etoys-selection') -----
selectedMessageCategoryName
^ methodClass organization categoryOfElement: methodSelector!
Item was changed:
+ ----- Method: MethodHolder>>selectedMessageName (in category 'selection') -----
- ----- Method: MethodHolder>>selectedMessageName (in category '*Etoys-selection') -----
selectedMessageName
^ methodSelector!
Item was changed:
+ ----- Method: MethodHolder>>versions (in category 'miscellaneous') -----
- ----- Method: MethodHolder>>versions (in category '*Etoys-miscellaneous') -----
versions
"Return a VersionsBrowser (containing a list of ChangeRecords) of older versions of this method."
^ VersionsBrowser new scanVersionsOf: self compiledMethod
class: self selectedClass
meta: methodClass isMeta
category: self selectedMessageCategoryName
"(classOfMethod whichCategoryIncludesSelector: selectorOfMethod)"
selector: methodSelector!
Item was changed:
+ ----- Method: MethodWithInterface>>currentScriptEditor (in category 'script editor') -----
- ----- Method: MethodWithInterface>>currentScriptEditor (in category '*Etoys-Squeakland-script editor') -----
currentScriptEditor
"Return nil, since there is none. Relates to universal tiles only."
^ nil!
Item was changed:
+ ----- Method: MorphWithSubmorphsWrapper>>contents (in category 'hierarchy') -----
- ----- Method: MorphWithSubmorphsWrapper>>contents (in category '*Etoys-hierarchy') -----
contents
^item submorphs collect: [ :m |
self class with: m ]!
Item was changed:
+ ----- Method: NumericReadoutTile>>basicType (in category 'tiles') -----
- ----- Method: NumericReadoutTile>>basicType (in category '*eToys-tiles') -----
basicType
"Answer a symbol representing the inherent type I hold"
"Number String Boolean player collection sound color etc"
^ #Number!
Item was changed:
+ ----- Method: ObjectPropertiesMorph>>toggleSimplePanel (in category 'Squeakland') -----
- ----- Method: ObjectPropertiesMorph>>toggleSimplePanel (in category '*Etoys-Squeakland-as yet unclassified') -----
toggleSimplePanel
simplePanel := simplePanel not.
self rebuild!
Item was changed:
+ ----- Method: PaintInvokingMorph class>>authoringPrototype (in category 'scripting') -----
- ----- Method: PaintInvokingMorph class>>authoringPrototype (in category '*Etoys-scripting') -----
authoringPrototype
^ self new image: (ScriptingSystem formAtKey: 'Painting'); markAsPartsDonor; setBalloonText: 'drop this into any playfield or book page to make a new painting there'; yourself!
Item was changed:
+ ----- Method: PaintInvokingMorph class>>descriptionForPartsBin (in category 'parts bin') -----
- ----- Method: PaintInvokingMorph class>>descriptionForPartsBin (in category '*Etoys-parts bin') -----
descriptionForPartsBin
^ self partName: 'Paint' translatedNoop
categories: {'Graphics' translatedNoop}
documentation: 'Drop this icon to start painting a new object.' translatedNoop!
Item was changed:
+ ----- Method: PaintInvokingMorph class>>initialize (in category 'class initialization') -----
- ----- Method: PaintInvokingMorph class>>initialize (in category '*Etoys-class initialization') -----
initialize
self registerInFlapsRegistry.!
Item was changed:
+ ----- Method: PaintInvokingMorph class>>registerInFlapsRegistry (in category 'class initialization') -----
- ----- Method: PaintInvokingMorph class>>registerInFlapsRegistry (in category '*Etoys-class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
ifPresent: [:cl | cl registerQuad: {#PaintInvokingMorph. #new . 'Paint' translatedNoop. 'Drop this into an area to start making a fresh painting there' translatedNoop}
forFlapNamed: 'PlugIn Supplies'.
cl registerQuad: {#PaintInvokingMorph. #new. 'Paint' translatedNoop. 'Drop this into an area to start making a fresh painting there' translatedNoop}
forFlapNamed: 'Widgets'.
cl registerQuad: {#PaintInvokingMorph. #new. 'Paint' translatedNoop. 'Drop this into an area to start making a fresh painting there' translatedNoop}
forFlapNamed: 'Scripting']!
Item was changed:
+ ----- Method: PaintInvokingMorph class>>unload (in category 'class initialization') -----
- ----- Method: PaintInvokingMorph class>>unload (in category '*Etoys-class initialization') -----
unload
"Unload the receiver from global registries"
self environment at: #Flaps ifPresent: [:cl |
cl unregisterQuadsWithReceiver: self] !
Item was changed:
+ ----- Method: PaintInvokingMorph>>initialize (in category 'initialization') -----
- ----- Method: PaintInvokingMorph>>initialize (in category '*Etoys-initialization') -----
initialize
super initialize.
self image: (ScriptingSystem formAtKey: 'Painting')!
Item was changed:
+ ----- Method: PaintInvokingMorph>>initializeToStandAlone (in category 'parts bin') -----
- ----- Method: PaintInvokingMorph>>initializeToStandAlone (in category '*Etoys-parts bin') -----
initializeToStandAlone
super initializeToStandAlone.
self image: (ScriptingSystem formAtKey: 'Painting')!
Item was changed:
+ ----- Method: PaintInvokingMorph>>isCandidateForAutomaticViewing (in category 'support') -----
- ----- Method: PaintInvokingMorph>>isCandidateForAutomaticViewing (in category '*Etoys-support') -----
isCandidateForAutomaticViewing
^ self isPartsDonor not!
Item was changed:
+ ----- Method: PaintInvokingMorph>>justDroppedInto:event: (in category 'dropping/grabbing') -----
- ----- Method: PaintInvokingMorph>>justDroppedInto:event: (in category '*Etoys-dropping/grabbing') -----
justDroppedInto: aPasteUpMorph event: anEvent
"This message is sent to a dropped morph after it has been dropped on--and been accepted by--a drop-sensitive morph"
aPasteUpMorph isPartsBin ifFalse:[
self removeHalo.
self delete.
^aPasteUpMorph makeNewDrawing: anEvent].
^super justDroppedInto: aPasteUpMorph event: anEvent!
Item was changed:
+ ----- Method: PaintInvokingMorph>>wantsToBeDroppedInto: (in category 'dropping/grabbing') -----
- ----- Method: PaintInvokingMorph>>wantsToBeDroppedInto: (in category '*Etoys-dropping/grabbing') -----
wantsToBeDroppedInto: aMorph
"Only into PasteUps that are not part bins"
^aMorph isPlayfieldLike!
Item was changed:
+ ----- Method: ParameterTile>>parseNodeWith: (in category 'accessing') -----
- ----- Method: ParameterTile>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ encoder encodeVariable: 'parameter' ifUnknown: [encoder encodeLiteral: 1].
!
Item was changed:
+ ----- Method: ParameterTile>>scriptEditor: (in category 'accessing') -----
- ----- Method: ParameterTile>>scriptEditor: (in category '*Etoys-Squeakland-accessing') -----
scriptEditor: anEditor
scriptEditor := anEditor.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>aboutToBeAcceptedInScriptor (in category 'miscellaneous') -----
- ----- Method: PhraseTileMorph>>aboutToBeAcceptedInScriptor (in category '*Etoys-Squeakland-miscellaneous') -----
aboutToBeAcceptedInScriptor
"The receiver is about to be accepted in a Scriptor. Adjust state information accordingly."
justGrabbedFromViewer := false!
Item was changed:
+ ----- Method: PhraseTileMorph>>addCommandFeedback: (in category 'hilighting') -----
- ----- Method: PhraseTileMorph>>addCommandFeedback: (in category '*Etoys-Squeakland-hilighting') -----
addCommandFeedback: evt
"Add screen feedback showing what would be torn off in a drag"
| aMorph |
(self owner owner isMemberOf: PhraseTileMorph)
ifTrue: [self owner owner addCommandFeedback: evt. ^ self].
aMorph := RectangleMorph new bounds: ((self topLeft - (2@1)) corner: ((submorphs at: (2 max: submorphs size)) bottomRight + (2@1))).
"inHotZone := evt ifNil: [true] ifNotNil: [rect containsPoint: evt cursorPoint]."
aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem commandFeedback; lock.
Project current world addHighlightMorph: aMorph for: self outmostScriptEditor!
Item was changed:
+ ----- Method: PhraseTileMorph>>assignmentNodeWith: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>assignmentNodeWith: (in category '*Etoys-Squeakland-code generation') -----
assignmentNodeWith: encoder
| suffix rec sel args left op right m |
rec := submorphs first parseNodeWith: encoder.
suffix := submorphs second operatorForSexpAssignmentSuffix: submorphs second assignmentSuffix.
sel := submorphs second assignmentRootForParseNode.
args := WriteStream on: (Array new: 3).
(submorphs second isMemberOf: AssignmentTileMorph) ifFalse: [
args nextPut: (submorphs second parseNodeWith: encoder).
sel := (sel, 'to:') asSymbol.
].
suffix isEmpty ifFalse: [
left := self updatingOperatorNodeWith: encoder.
op := (AssignmentTileMorph new operatorForAssignmentSuffix: suffix) asSymbol.
right := self convertPrecedenceInParseNode: (submorphs third parseNodeWith: encoder) with: encoder.
m := MessageNode new
receiver: left
selector: op
arguments: (Array with: right)
precedence: (op precedence)
from: encoder
sourceRange: nil.
args nextPut: m.
] ifTrue: [
args nextPut: (self convertPrecedenceInParseNode: (submorphs third parseNodeWith: encoder) with: encoder).
].
^ MessageNode new
receiver: rec
selector: sel
arguments: args contents
precedence: (sel asSymbol precedence)
from: encoder
sourceRange: nil.!
Item was changed:
+ ----- Method: PhraseTileMorph>>colorNodeFor:with: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>colorNodeFor:with: (in category '*Etoys-Squeakland-code generation') -----
colorNodeFor: aColor with: encoder
"^ MessageNode new
receiver: (encoder encodeVariable: #Color)
selector: #r:g:b:
arguments: (Array with: (encoder encodeLiteral: aColor red)
with: (encoder encodeLiteral: aColor green)
with: (encoder encodeLiteral: aColor blue))
precedence: (#r:g:b: precedence)
from: encoder
sourceRange: nil."
^ encoder encodeLiteral: aColor.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>colorSeerNodeWith: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>colorSeerNodeWith: (in category '*Etoys-Squeakland-code generation') -----
colorSeerNodeWith: encoder
| rec sel args |
rec := submorphs first parseNodeWith: encoder.
sel := #color:sees:.
args := OrderedCollection new: 2.
args add: (self colorNodeFor: submorphs second colorSwatch color with: encoder).
args add: (submorphs third parseNodeWith: encoder).
^ MessageNode new
receiver: rec
selector: sel
arguments: args asArray
precedence: (sel precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>convertPrecedenceInParseNode:with: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>convertPrecedenceInParseNode:with: (in category '*Etoys-Squeakland-code generation') -----
convertPrecedenceInParseNode: message with: encoder
| e w list |
w := WriteStream on: (Array new: 3).
message eToysExpFlattenOn: w.
list := w contents.
e := EToyExpressionTransformer2 new newNodeFromList: list encoder: encoder.
^ e transform.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>convertPrecedenceOfArgsInParseNode:with: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>convertPrecedenceOfArgsInParseNode:with: (in category '*Etoys-Squeakland-code generation') -----
convertPrecedenceOfArgsInParseNode: message with: encoder
| e r w list |
message arguments size > 0 ifTrue: [
w := WriteStream on: (Array new: 3).
message arguments first eToysExpFlattenOn: w.
list := w contents.
e := EToyExpressionTransformer2 new newNodeFromList: list encoder: encoder.
r := e transform.
message arguments at: 1 put: r.
^ message.
] ifFalse: [
^ message.
].
!
Item was changed:
+ ----- Method: PhraseTileMorph>>createMultipleTestScripts: (in category 'mouse') -----
- ----- Method: PhraseTileMorph>>createMultipleTestScripts: (in category '*Etoys-Squeakland-mouse') -----
createMultipleTestScripts: aCount
"Simulate the action of dropping a copy of the receiver to launch a new script -- for performance testing. To use: Open an Inspector on some tile command in a Viewer, e.g. on 'Car forward 5'. In the trash pane of that Inspector, then, evaluate expressions like:
[self createMultipleTestScripts: 10] timeToRun.
and
MessageTally spyOn: [self createMultipleTestScripts: 4]
"
| aPosition |
aPosition := 10@10.
1 to: aCount do:
[:i | self forceScriptCreationAt: aPosition.
aPosition := aPosition + (0 @ 50). "avoid dropping into existing scriptor"
Project current world doOneCycle] "refresh viewer"!
Item was changed:
+ ----- Method: PhraseTileMorph>>evaluateOn: (in category 'etoys-debugger') -----
- ----- Method: PhraseTileMorph>>evaluateOn: (in category '*Etoys-Squeakland-etoys-debugger') -----
evaluateOn: anEtoysDebugger
^ anEtoysDebugger evaluatePhrase: self!
Item was changed:
+ ----- Method: PhraseTileMorph>>forceScriptCreationAt: (in category 'mouse') -----
- ----- Method: PhraseTileMorph>>forceScriptCreationAt: (in category '*Etoys-Squeakland-mouse') -----
forceScriptCreationAt: aPosition
"For performance testing."
| dup |
dup := self duplicate.
dup eventHandler: nil. "Remove viewer-related evt mouseover feedback"
dup formerPosition: self currentHand position.
self currentHand
attachMorph: dup;
simulateMorphDropAt: aPosition.!
Item was changed:
+ ----- Method: PhraseTileMorph>>isAssignment (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>isAssignment (in category '*Etoys-Squeakland-code generation') -----
isAssignment
^ (submorphs at: 2) isKindOf: AssignmentTileMorph.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>isColorSeer (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>isColorSeer (in category '*Etoys-Squeakland-code generation') -----
isColorSeer
^ (submorphs at: 2) isKindOf: ColorSeerTile.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>isGetter: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>isGetter: (in category '*Etoys-Squeakland-code generation') -----
isGetter: aSymbol
^ (aSymbol beginsWith: 'get').
!
Item was changed:
+ ----- Method: PhraseTileMorph>>operatorNodeWith: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>operatorNodeWith: (in category '*Etoys-Squeakland-code generation') -----
operatorNodeWith: encoder
| sel rec args |
sel := submorphs second operatorOrExpression.
sel := (TileMorph classPool at: #EqualityOperators) at: sel ifAbsent: [sel].
rec := submorphs first parseNodeWith: encoder.
args := WriteStream on: (Array new: 3).
((submorphs second isMemberOf: TileCommandWithArgumentMorph) or: [
submorphs second isMemberOf: KedamaGetColorComponentTile]) ifTrue: [
args nextPut: (submorphs second parseNodeWith: encoder).
].
(3 to: submorphs size) do: [:e |
args nextPut: ((submorphs at: e) parseNodeWith: encoder).
].
^ MessageNode new
receiver: rec
selector: sel
arguments: args contents
precedence: (sel precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>parseNodeWith: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ self parseNodeWith: encoder asStatement: false.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>parseNodeWith:asStatement: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>parseNodeWith:asStatement: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder asStatement: aBoolean
| ret |
submorphs size >= 2 ifTrue: [
self isAssignment ifTrue: [
^ self assignmentNodeWith: encoder.
].
self isColorSeer ifTrue: [
^ self colorSeerNodeWith: encoder.
].
(true) ifTrue: [
ret := self operatorNodeWith: encoder.
aBoolean ifTrue: [^ self convertPrecedenceOfArgsInParseNode: ret with: encoder].
^ ret.
].
].
ret := submorphs first parseNodeWith: encoder.
aBoolean ifTrue: [^ self convertPrecedenceInParseNode: ret with: encoder].
^ ret.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>removeHighlightFeedback (in category 'hilighting') -----
- ----- Method: PhraseTileMorph>>removeHighlightFeedback (in category '*Etoys-Squeakland-hilighting') -----
removeHighlightFeedback
"Remove any existing highlight feedback"
^ Project current world removeHighlightFeedback
!
Item was changed:
+ ----- Method: PhraseTileMorph>>replacePlayerWith: (in category 'kedama') -----
- ----- Method: PhraseTileMorph>>replacePlayerWith: (in category '*Etoys-Squeakland-kedama') -----
replacePlayerWith: aPlayer
"Kedama hook."
| tile patch |
aPlayer isPlayerLike ifFalse: [^ self].
aPlayer isPrototypeTurtlePlayer ifTrue: [
tile := self firstMorphBearingKedamaPlayer.
tile ifNil: [^ self].
(tile isMemberOf: TileMorph) ifFalse: [^ self].
tile type = #objRef ifFalse: [^ self].
tile referToSimilarObject: aPlayer.
patch := aPlayer costume renderedMorph kedamaWorld defaultPatch player.
] ifFalse: [
(aPlayer costume renderedMorph isMemberOf: KedamaPatchMorph) ifTrue: [
patch := aPlayer.
] ifFalse: [^ self].
].
self allMorphsDo: [:e |
((e isMemberOf: UpdatingStringMorph) or: [e isMemberOf: UpdatingRectangleMorph]) ifTrue: [
e target isPlayerLike ifTrue: [
e target costume renderedMorph class = aPlayer costume renderedMorph class ifTrue: [
e target: aPlayer
].
].
].
(e isMemberOf: KedamaPatchTile) ifTrue: [
e usePatch: patch.
].
].!
Item was changed:
+ ----- Method: PhraseTileMorph>>updatingOperatorNodeWith: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>updatingOperatorNodeWith: (in category '*Etoys-Squeakland-code generation') -----
updatingOperatorNodeWith: encoder
| sel rec args |
sel := submorphs second assignmentRoot asGetterSelector.
rec := submorphs first parseNodeWith: encoder.
args := WriteStream on: (Array new: 3).
((submorphs second isMemberOf: TileCommandWithArgumentMorph)
or: [(submorphs second isMemberOf: KedamaSetColorComponentTile)
or: [submorphs second isMemberOf: KedamaSetPixelValueTile]]) ifTrue: [
args nextPut: (submorphs second parseNodeWith: encoder).
].
^ MessageNode new
receiver: rec
selector: sel
arguments: args contents
precedence: (sel precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: Player class>>compile:classified:withStamp:notifying:logSource:for: (in category 'private') -----
- ----- Method: Player class>>compile:classified:withStamp:notifying:logSource:for: (in category '*Etoys-Squeakland-private') -----
compile: text classified: category withStamp: changeStamp notifying: requestor logSource: logSource for: anInstance
| methodAndNode trailer |
trailer := self defaultMethodTrailer.
trailer sourceCode: text.
methodAndNode := self basicCompile: text asString notifying: requestor
trailer: trailer ifFail: [^nil] for: anInstance.
logSource ifTrue: [
self logMethodSource: text forMethodWithNode: methodAndNode
inCategory: category withStamp: changeStamp notifying: requestor.
].
self addAndClassifySelector: methodAndNode selector withMethod: methodAndNode
method inProtocol: category notifying: requestor.
self theNonMetaClass noteCompilationOf: methodAndNode selector meta: self isMeta.
^ methodAndNode selector!
Item was changed:
+ ----- Method: Player class>>createTurtleSubclass2 (in category 'turtles') -----
- ----- Method: Player class>>createTurtleSubclass2 (in category '*Etoys-Squeakland-turtles') -----
createTurtleSubclass2
^ KedamaTurtleVectorPlayer2 newUniqueClassInstVars: '' classInstVars: ''.
!
Item was changed:
+ ----- Method: Player class>>extraExampleCar (in category 'MorphicExtras-examples') -----
- ----- Method: Player class>>extraExampleCar (in category '*Etoys-*MorphicExtras-examples') -----
extraExampleCar
"Player extraExampleCar do: #openInWorld"
| trackMorph wheelMorph carMorph carPlayer alertMorph wheelPlayer parent |
trackMorph := SketchMorph withForm: (Form extraCarTrack magnifyBy: RealEstateAgent scaleFactor).
trackMorph assuredPlayer; name: 'Track'.
carMorph := SketchMorph withForm: (Form extraCar magnifyBy: RealEstateAgent scaleFactor).
carPlayer := self newSubclass new
costume: (carMorph name: #Car);
yourself.
wheelMorph := SketchMorph withForm: (Form extraWheel magnifyBy: RealEstateAgent scaleFactor).
wheelPlayer := self newSubclass new
costume: (wheelMorph name: #Wheel);
yourself.
alertMorph := RectangleMorph new
useRoundedCorners;
extent: 90 px @ 50 px;
color: Color black;
assuredPlayer;
name: 'Alert';
yourself.
{trackMorph. carMorph. wheelMorph. alertMorph} do: [:morph |
carPlayer environment at: morph name asSymbol put: morph player].
carPlayer environment at: #Wheel put: wheelPlayer.
Utilities useAuthorInitials: 'Objectland' during: [
carPlayer class compile: ((self extraExampleCarSource
asString lines allButFirst copyWithFirst: #drive)
joinSeparatedBy: Character cr)].
(carPlayer class >> #drive) decompile asScriptEditorFor: carPlayer.
carPlayer changeScript: #drive toStatus: #ticking.
carPlayer presenter stopRunningScripts.
parent := Morph new
color: Color transparent;
extent: 700 px @ 700 px;
addAllMorphsFront: {carMorph. trackMorph. wheelMorph. alertMorph}
yourself.
trackMorph position: 19 px @ 25 px.
wheelMorph center: (trackMorph pointAtFraction: 0.3 @ 1.15).
carMorph
center: (trackMorph pointAtFraction: 0.45 @ 0.89);
rotationDegrees: 100.
alertMorph
center: (wheelMorph pointAtFraction: 1.75 @ 0.5);
addMorph: ('Alert' asTextMorph
backgroundColor: (Color paleYellow alpha: 0.6);
center: (alertMorph pointAtFraction: 0.5 @ 1.2);
yourself).
^ {parent. carPlayer scriptEditorFor: #drive}!
Item was changed:
+ ----- Method: Player class>>extraExampleCarSource (in category 'MorphicExtras-examples') -----
- ----- Method: Player class>>extraExampleCarSource (in category '*Etoys-*MorphicExtras-examples') -----
extraExampleCarSource
^ 'extraExampleDrive
self forward: 5.
self turn: Wheel getHeading // 5'!
Item was changed:
+ ----- Method: Player class>>isRead: (in category 'turtles') -----
- ----- Method: Player class>>isRead: (in category '*Etoys-Squeakland-turtles') -----
isRead: aSelector
^ (aSelector beginsWith: 'get').
!
Item was changed:
+ ----- Method: Player class>>isWrite: (in category 'turtles') -----
- ----- Method: Player class>>isWrite: (in category '*Etoys-Squeakland-turtles') -----
isWrite: aSelector
^ (aSelector beginsWith: 'set').
!
Item was changed:
+ ----- Method: Player class>>myProject (in category 'other') -----
- ----- Method: Player class>>myProject (in category '*Etoys-Squeakland-other') -----
myProject
"Find the project I was defined in, or nil"
self isSystemDefined ifTrue: [^nil].
Project allProjects do: [:prj |
prj world presenter allExtantPlayers do: [:plr |
plr class == self ifTrue: [^prj]]].
^nil
!
Item was changed:
+ ----- Method: Player class>>readOrWriteOrNil: (in category 'turtles') -----
- ----- Method: Player class>>readOrWriteOrNil: (in category '*Etoys-Squeakland-turtles') -----
readOrWriteOrNil: aSymbol
(self isRead: aSymbol) ifTrue: [^ #read].
(self isWrite: aSymbol) ifTrue: [^ #write].
^ nil.
!
Item was changed:
+ ----- Method: PlayerSurrogate>>copyName (in category 'menu') -----
- ----- Method: PlayerSurrogate>>copyName (in category '*Etoys-Squeakland-menu') -----
copyName
"Copy the internal name of my referent to the clipboard."
Clipboard clipboardText: playerRepresented externalName!
Item was changed:
+ ----- Method: PlayerSurrogate>>destroyThisObject (in category 'scripting') -----
- ----- Method: PlayerSurrogate>>destroyThisObject (in category '*Etoys-Squeakland-as yet unclassified') -----
destroyThisObject
"Make an effort to remove this object."
playerRepresented isInTrash
ifTrue:
[^ self inform: 'Already in the Trash' translated].
playerRepresented costume slideToTrash: nil!
Item was changed:
+ ----- Method: PlayerSurrogate>>forciblyRenamePlayer (in category 'scripting') -----
- ----- Method: PlayerSurrogate>>forciblyRenamePlayer (in category '*Etoys-Squeakland-as yet unclassified') -----
forciblyRenamePlayer
"Allow the receiver to seize a name already nominally in use in the project."
| current reply currentlyBearingName newNameForHim binding |
current := playerRepresented knownName.
reply := FillInTheBlank request: 'Type the name you insist upon' translated initialAnswer: current.
reply isEmptyOrNil ifTrue: [^ self].
Preferences uniquePlayerNames ifFalse: [^ self costume renameTo: reply].
reply := (reply asIdentifier: true) asSymbol.
reply = current ifTrue: [^ self inform: 'no change' translated].
binding := Project current world referencePool hasBindingOf: reply.
binding ifNotNil: [
currentlyBearingName := binding value.
newNameForHim := Utilities keyLike: reply satisfying: [:name |
(Project current world referencePool includesKey: name) not].
currentlyBearingName renameTo: newNameForHim].
playerRepresented renameTo: reply.
self inform: (binding
ifNil: [('There was no conflict; this object is now named {1}' translated format: {reply})]
ifNotNil: ['Okay, this object is now named\{1}\and the object formerly known by this name is now called\{2}' translated format: {reply. newNameForHim}]).!
Item was changed:
+ ----- Method: PlayerSurrogate>>inspectPlayer (in category 'menu') -----
- ----- Method: PlayerSurrogate>>inspectPlayer (in category '*Etoys-Squeakland-menu') -----
inspectPlayer
"Inspect the player I represent."
playerRepresented inspectWithLabel: playerRepresented printString!
Item was changed:
+ ----- Method: PlayerSurrogate>>playerButtonHit (in category 'menu') -----
- ----- Method: PlayerSurrogate>>playerButtonHit (in category '*Etoys-Squeakland-menu') -----
playerButtonHit
"The user clicked on the menu icon."
| aMenu aString |
aMenu := MenuMorph new defaultTarget: self.
aString := playerRepresented uniqueNameForReference.
aMenu addTitle: aString.
aMenu addTranslatedList: #(
('where is this object?' revealThisObject)
('open viewer for this object' viewerForThisObject)
('tile for this object' handMeATile)
-
('destroy this object' destroyThisObject)
-
('rename object' renamePlayer)
('forcibly rename object' forciblyRenamePlayer 'If you want to give this object a name which conflicts with the name of some other object in the project, use this command. The other object with the same name will in the process be given a different name.')
-
('copy object''s name to clipboard' copyName)
('inspect object' inspectPlayer)
) translatedNoop.
aMenu popUpInWorld!
Item was changed:
+ ----- Method: PlayerSurrogate>>renamePlayer (in category 'menu') -----
- ----- Method: PlayerSurrogate>>renamePlayer (in category '*Etoys-Squeakland-menu') -----
renamePlayer
"Rename the player I represent."
| result |
result := FillInTheBlank request: 'Type new name:' translated
initialAnswer: playerRepresented knownName.
result isEmptyOrNil ifFalse:
[playerRepresented tryToRenameTo: result]!
Item was changed:
+ ----- Method: PluggableTabButtonMorph class>>on:label: (in category 'instance creation') -----
- ----- Method: PluggableTabButtonMorph class>>on:label: (in category '*Etoys-instance creation') -----
on: anObject label: getTextSelector
| instance |
instance := super new.
instance model: anObject.
instance textSelector: getTextSelector.
^ instance !
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>active (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>active (in category '*Etoys-access') -----
active
active ifNil: [ active := false ].
^ active!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>active: (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>active: (in category '*Etoys-access') -----
active: aBoolean
active := aBoolean.
self changed.!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>arcLengths (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>arcLengths (in category '*Etoys-private - access') -----
arcLengths
arcLengths ifNil: [ self calculateArcLengths ].
^ arcLengths!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>arcLengths: (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>arcLengths: (in category '*Etoys-private - access') -----
arcLengths: anArrayOfIntegers
arcLengths := anArrayOfIntegers
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>calculateArcLengths (in category 'precalculations') -----
- ----- Method: PluggableTabButtonMorph>>calculateArcLengths (in category '*Etoys-precalculations') -----
calculateArcLengths
| array radius |
radius := self cornerRadius.
array := Array new: radius.
1 to: radius do: [ :i | | x |
x := i - 0.5.
array at: i
put: (radius - ((2 * x * radius) - (x * x)) sqrt) asInteger].
self arcLengths: array!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>cornerRadius (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>cornerRadius (in category '*Etoys-private - access') -----
cornerRadius
^ 5
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>drawOn: (in category 'drawing') -----
- ----- Method: PluggableTabButtonMorph>>drawOn: (in category '*Etoys-drawing') -----
drawOn: aCanvas
self drawTabOn: aCanvas.
self drawSubMorphOn: aCanvas!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>drawSubMorphOn: (in category 'drawing') -----
- ----- Method: PluggableTabButtonMorph>>drawSubMorphOn: (in category '*Etoys-drawing') -----
drawSubMorphOn: aCanvas
| morphBounds |
morphBounds := self bounds insetBy: (self cornerRadius + 3) @ (self topInactiveGap // 2 + 2).
morphBounds := morphBounds translateBy: 0@(self topInactiveGap // 2 + 1).
self active ifTrue: [
morphBounds := morphBounds translateBy: 0@((self topInactiveGap // 2 + 1) negated)].
self subMorph bounds height < (morphBounds height)
ifTrue: [
morphBounds := morphBounds
insetBy: 0@((morphBounds height - self subMorph bounds height) // 2)].
self subMorph bounds width < (morphBounds width)
ifTrue: [
morphBounds := morphBounds
insetBy: ((morphBounds width - self subMorph bounds width) // 2)@0].
self subMorph bounds: morphBounds.
aCanvas drawMorph: self subMorph!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>drawTabOn: (in category 'drawing') -----
- ----- Method: PluggableTabButtonMorph>>drawTabOn: (in category '*Etoys-drawing') -----
drawTabOn: aCanvas
| top myColor cornerRadius myArcLengths myBounds |
cornerRadius := self cornerRadius.
myBounds := self bounds.
self active
ifTrue: [ top := myBounds top.
myColor := self color ]
ifFalse: [ top := myBounds top + self topInactiveGap.
myColor := self color whiter whiter ].
aCanvas fillRectangle:
((myBounds left + cornerRadius)
@ (top + cornerRadius)
corner: (myBounds right - cornerRadius)
@ self bottom)
color: myColor.
aCanvas fillRectangle:
((myBounds left + (cornerRadius * 2)) @ top
corner: (myBounds right - (cornerRadius * 2))
@ (top + cornerRadius))
color: myColor.
aCanvas fillOval:
((myBounds left + self cornerRadius) @ top
corner: (myBounds left + (self cornerRadius * 3))
@ (top + (self cornerRadius * 2)))
color: myColor.
aCanvas fillOval:
((myBounds right - (self cornerRadius * 3)) @ top
corner: (myBounds right - self cornerRadius)
@ (top + (self cornerRadius * 2)))
color: myColor.
myArcLengths := self arcLengths.
1 to: myArcLengths size do: [ :i | | length |
length := myArcLengths at: i.
aCanvas line: (myBounds left + cornerRadius - i) @ (myBounds bottom - 1 )
to: (myBounds left + cornerRadius - i) @ (myBounds bottom - length - 1)
color: myColor.
aCanvas line: (myBounds right - cornerRadius + i - 1) @ (myBounds bottom - 1)
to: (myBounds right - cornerRadius + i - 1) @ (myBounds bottom - length - 1)
color: myColor]
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>initialize (in category 'initialization') -----
- ----- Method: PluggableTabButtonMorph>>initialize (in category '*Etoys-initialization') -----
initialize
^ super initialize
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>innerExtent: (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>innerExtent: (in category '*Etoys-access') -----
innerExtent: aPoint
"Set the extent based on the primary visible part of the tab. In other words add twice the cornerRadius to this extent"
self extent: (aPoint x + (self cornerRadius * 2)) @ (aPoint y)!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>model (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>model (in category '*Etoys-access') -----
model
^ model
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>model: (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>model: (in category '*Etoys-access') -----
model: anObject
model := anObject!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>outerGap (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>outerGap (in category '*Etoys-access') -----
outerGap
"The horizontal distance of the outer left and right edges of the tab excluding the inner visible part"
^ self cornerRadius * 2!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>step (in category 'stepping') -----
- ----- Method: PluggableTabButtonMorph>>step (in category '*Etoys-stepping') -----
step
self subMorph step.
self changed.
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>stepTime (in category 'stepping') -----
- ----- Method: PluggableTabButtonMorph>>stepTime (in category '*Etoys-stepping') -----
stepTime
^ self subMorph stepTime
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>subMorph (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>subMorph (in category '*Etoys-private - access') -----
subMorph
subMorph ifNil: [ self update: self textSelector ].
^ subMorph!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>subMorph: (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>subMorph: (in category '*Etoys-private - access') -----
subMorph: aMorph
subMorph := aMorph
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>textSelector (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>textSelector (in category '*Etoys-access') -----
textSelector
^ textSelector
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>textSelector: (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>textSelector: (in category '*Etoys-access') -----
textSelector: aSymbol
textSelector := aSymbol!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>toggle (in category 'actions') -----
- ----- Method: PluggableTabButtonMorph>>toggle (in category '*Etoys-actions') -----
toggle
self active: self active not!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>topInactiveGap (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>topInactiveGap (in category '*Etoys-private - access') -----
topInactiveGap
^ 5!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>update: (in category 'updating') -----
- ----- Method: PluggableTabButtonMorph>>update: (in category '*Etoys-updating') -----
update: aSelector
self textSelector ifNotNil: [
aSelector = self textSelector
ifTrue: [ | morph |
(aSelector isSymbol and: [model notNil])
ifTrue: [
morph :=
(self model perform: aSelector) asMorph]
ifFalse: [ morph := aSelector value asMorph].
self subMorph: morph]].
self changed!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>wantsSteps (in category 'stepping') -----
- ----- Method: PluggableTabButtonMorph>>wantsSteps (in category '*Etoys-stepping') -----
wantsSteps
^ self subMorph wantsSteps!
Item was changed:
+ ----- Method: Presenter class>>defaultPresenterClass (in category 'accessing') -----
- ----- Method: Presenter class>>defaultPresenterClass (in category '*Etoys-accessing') -----
defaultPresenterClass
"The default presenter class to use"
^DefaultPresenterClass ifNil:[self]!
Item was changed:
+ ----- Method: Presenter class>>defaultPresenterClass: (in category 'accessing') -----
- ----- Method: Presenter class>>defaultPresenterClass: (in category '*Etoys-accessing') -----
defaultPresenterClass: aPresenterClass
"The default presenter class to use"
DefaultPresenterClass := aPresenterClass!
Item was changed:
+ ----- Method: RandomNumberTile>>basicParseNodeWith: (in category 'code generation') -----
- ----- Method: RandomNumberTile>>basicParseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
basicParseNodeWith: encoder
^ MessageNode new
receiver: (encoder encodeLiteral: literal)
selector: #atRandom
arguments: #()
precedence: (#atRandom precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: RandomNumberTile>>kedamaParseNodeWith:actualObject: (in category 'code generation') -----
- ----- Method: RandomNumberTile>>kedamaParseNodeWith:actualObject: (in category '*Etoys-Squeakland-code generation') -----
kedamaParseNodeWith: encoder actualObject: obj
^ MessageNode new
receiver: (encoder encodePlayer: obj)
selector: #random:
arguments: (encoder encodeLiteral: literal)
precedence: (#random: precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: RandomNumberTile>>labelMorphs (in category 'misc') -----
- ----- Method: RandomNumberTile>>labelMorphs (in category '*Etoys-Squeakland-misc') -----
labelMorphs
^ submorphs select: [:m | m isKindOf: StringMorph].
!
Item was changed:
+ ----- Method: RandomNumberTile>>parseNodeWith: (in category 'code generation') -----
- ----- Method: RandomNumberTile>>parseNodeWith: (in category '*Etoys-Squeakland-accessing') -----
parseNodeWith: encoder
| phrase player costume |
phrase := self outermostMorphThat: [:m| m isKindOf: PhraseTileMorph].
phrase ifNil: [^ self basicParseNodeWith: encoder].
player := phrase associatedPlayer.
player ifNil: [^ self basicParseNodeWith: encoder].
costume := player costume.
costume ifNil: [^ self basicParseNodeWith: encoder].
(player isKindOf: KedamaExamplerPlayer) ifTrue: [
^ self kedamaParseNodeWith: encoder actualObject: player costume renderedMorph kedamaWorld player].
(costume renderedMorph isMemberOf: KedamaMorph) ifTrue: [
^ self kedamaParseNodeWith: encoder actualObject: self].
^ self basicParseNodeWith: encoder.
!
Item was changed:
+ ----- Method: RandomNumberTile>>unhibernate (in category 'misc') -----
- ----- Method: RandomNumberTile>>unhibernate (in category '*Etoys-Squeakland-misc') -----
unhibernate
self labelMorphs do: [:l | l label: l contents font: Preferences standardEToysFont].
self removeProperty: #needsLayoutFixed.
!
Item was changed:
+ ----- Method: ScriptActivationButton>>editButtonsScript (in category 'scripting') -----
- ----- Method: ScriptActivationButton>>editButtonsScript (in category '*Etoys-Squeakland-button') -----
editButtonsScript
"Open the scriptor for the script activated by this button."
target openUnderlyingScriptorFor: arguments first!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>clearEvaluator (in category 'Tweak-Kedama') -----
- ----- Method: ScriptEditorMorph class>>clearEvaluator (in category '*Etoys-Squeakland-Tweak-Kedama') -----
clearEvaluator
"
ScriptEditorMorph clearEvaluator.
"
Evaluator := nil.
!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>generateParseNodeDirectly: (in category 'accessing') -----
- ----- Method: ScriptEditorMorph class>>generateParseNodeDirectly: (in category '*Etoys-Squeakland-accessing') -----
generateParseNodeDirectly: aBoolean
"Set the value for the class variable GenerateParseNodeDirectly, which governs an option of how to compile tile scripts."
GenerateParseNodeDirectly := aBoolean.
"
ScriptEditorMorph generateParseNodeDirectly: true
ScriptEditorMorph generateParseNodeDirectly: false
"
!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>setDefaultEvaluator (in category 'Tweak-Kedama') -----
- ----- Method: ScriptEditorMorph class>>setDefaultEvaluator (in category '*Etoys-Squeakland-Tweak-Kedama') -----
setDefaultEvaluator
Evaluator := KedamaAttributeEvaluator new.
Evaluator defineSyntaxFrom: KedamaAttributeEvaluator squeakParseNodes.
Evaluator readDefinitionsFrom: KedamaTurtleMethodAttributionDefinition2.
Evaluator compileEvaluator.
!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>setRewriteFlag: (in category 'Tweak-Kedama') -----
- ----- Method: ScriptEditorMorph class>>setRewriteFlag: (in category '*Etoys-Squeakland-Tweak-Kedama') -----
setRewriteFlag: aBoolean
Rewrite := aBoolean.
!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>trackedEditor (in category 'tracking') -----
- ----- Method: ScriptEditorMorph class>>trackedEditor (in category '*Etoys-Squeakland-tracking') -----
trackedEditor
^ TrackedEditor
!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>trackedEditor: (in category 'tracking') -----
- ----- Method: ScriptEditorMorph class>>trackedEditor: (in category '*Etoys-Squeakland-tracking') -----
trackedEditor: anObject
TrackedEditor := anObject.
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>addCommandFeedback: (in category 'menu commands') -----
- ----- Method: ScriptEditorMorph>>addCommandFeedback: (in category '*Etoys-Squeakland-menu commands') -----
addCommandFeedback: evt
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>addGoldBoxItemsTo: (in category 'other') -----
- ----- Method: ScriptEditorMorph>>addGoldBoxItemsTo: (in category '*Etoys-Squeakland-other') -----
addGoldBoxItemsTo: aMenu
"Add gold-box-related submenu to the scriptor menu"
| subMenu |
subMenu := MenuMorph new defaultTarget: self.
subMenu addTitle: 'gold box' translated.
subMenu addTranslatedList: #(
('hand me a test-yest-no tile' addYesNoToHand)
('hand me a "repeat..times" tile' handUserTimesRepeatTile)
('hand me a "random number" tile' handUserRandomTile)
('hand me a "function" tile' handUserFunctionTile)
('hand me a "button up?" tile' handUserButtonUpTile)
('hand me a "button down?" tile' handUserButtonDownTile)
('hand me a tile for self ' handUserTileForSelf)
('hand me a numeric-constant tile' handUserNumericConstantTile)
) translatedNoop.
aMenu add: 'gold box items' translated subMenu: subMenu!
Item was changed:
+ ----- Method: ScriptEditorMorph>>buttonToOpenOrCloseThisScript (in category 'customevents-other') -----
- ----- Method: ScriptEditorMorph>>buttonToOpenOrCloseThisScript (in category '*Etoys-Squeakland-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>>deleteEtoysDebugger (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>deleteEtoysDebugger (in category '*Etoys-Squeakland-etoys-debugger') -----
deleteEtoysDebugger
"If present, delete the currently-associated etoysDebugger."
| aDebugger |
aDebugger := self valueOfProperty: #etoysDebugger ifAbsent: [^ self].
aDebugger delete. "removes the highlighter from the world"
self removeProperty: #etoysDebugger!
Item was changed:
+ ----- Method: ScriptEditorMorph>>enforceImplicitSelf (in category 'access') -----
- ----- Method: ScriptEditorMorph>>enforceImplicitSelf (in category '*Etoys-Squeakland-access') -----
enforceImplicitSelf
"If the implicitSelf preference is set to true, obscure all unnecessary objRef tiles."
self scriptContainer allMorphs do:
[:m | ((m isKindOf: TileMorph) and: [m type == #objRef])
ifTrue:
[m emblazonPlayerNameOnReferenceTileWithin: self]] !
Item was changed:
+ ----- Method: ScriptEditorMorph>>etoysDebugger (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>etoysDebugger (in category '*Etoys-Squeakland-etoys-debugger') -----
etoysDebugger
^ self valueOfProperty: #etoysDebugger ifAbsentPut: [EtoysDebugger on: self]!
Item was changed:
+ ----- Method: ScriptEditorMorph>>findObject (in category 'menu commands') -----
- ----- Method: ScriptEditorMorph>>findObject (in category '*Etoys-Squeakland-menu commands') -----
findObject
"Reveal the object bearing the code "
playerScripted revealPlayerIn: Project current world.!
Item was changed:
+ ----- Method: ScriptEditorMorph>>generateParseNodeDirectly (in category 'access') -----
- ----- Method: ScriptEditorMorph>>generateParseNodeDirectly (in category '*Etoys-Squeakland-access') -----
generateParseNodeDirectly
^ GenerateParseNodeDirectly == true.
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>goldBoxMenu (in category 'gold box') -----
- ----- Method: ScriptEditorMorph>>goldBoxMenu (in category '*Etoys-Squeakland-gold box') -----
goldBoxMenu
"Answer a graphical menu to be put up in conjunction with the Gold Box"
| aBox |
aBox := Project current world findA: GoldBoxMenu.
aBox ifNil: [aBox := GoldBoxMenu new].
aBox initializeFor: self.
^ aBox!
Item was changed:
+ ----- Method: ScriptEditorMorph>>handUserFunctionTile (in category 'other') -----
- ----- Method: ScriptEditorMorph>>handUserFunctionTile (in category '*Etoys-Squeakland-other') -----
handUserFunctionTile
"Hand the user a function tile, presumably to drop in the script"
| functionPhrase argTile aPad |
functionPhrase := FunctionTile new.
argTile := (Vocabulary vocabularyNamed: 'Number') defaultArgumentTile.
aPad := TilePadMorph new setType: #Number.
aPad addMorphBack: argTile.
functionPhrase operator: #abs pad: aPad.
functionPhrase openInHand!
Item was changed:
+ ----- Method: ScriptEditorMorph>>handUserNumericConstantTile (in category 'initialize buttons') -----
- ----- Method: ScriptEditorMorph>>handUserNumericConstantTile (in category '*Etoys-Squeakland-initialize buttons') -----
handUserNumericConstantTile
"Construct a numeric-constant tile and hand it to the user."
| aTile |
aTile := Vocabulary numberVocabulary defaultArgumentTile.
aTile openInHand!
Item was changed:
+ ----- Method: ScriptEditorMorph>>handUserTimesRepeatTile (in category 'other') -----
- ----- Method: ScriptEditorMorph>>handUserTimesRepeatTile (in category '*Etoys-Squeakland-other') -----
handUserTimesRepeatTile
"Hand the user a times-repeat tile, presumably to drop in the script"
| aMorph |
aMorph := TimesRepeatTile new.
self currentHand attachMorph: aMorph.
aMorph position: self currentHand position.!
Item was changed:
+ ----- Method: ScriptEditorMorph>>hasKedamaTurtlePlayer (in category 'other') -----
- ----- Method: ScriptEditorMorph>>hasKedamaTurtlePlayer (in category '*Etoys-Squeakland-other') -----
hasKedamaTurtlePlayer
self tileRows do: [:row |
row do: [:phrase | phrase traverseSearchForKedamaTurtleIfFound: [^ true]].
].
^ false.
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>methodNode (in category 'customevents-buttons') -----
- ----- Method: ScriptEditorMorph>>methodNode (in category '*Etoys-Squeakland-customevents-buttons') -----
methodNode
"Answer the source-code string for the receiver. This is for use by classic tiles, but is also used in universal tiles to formulate an initial method declaration for a nascent user-defined script; in universalTiles mode, the codeString (at present anyway) is empty -- the actual code derives from the SyntaxMorph in that case"
| evaluator rewriter node |
(submorphs size = 2 and: [(submorphs second isMemberOf: MethodMorph)]) ifTrue: [
^ playerScripted class compilerClass new
compile: submorphs second model contents
in: playerScripted class
notifying: nil
ifFail: [] for: playerScripted.
].
node := self scriptParseNodeIn: self referenceWorld.
self hasKedamaTurtlePlayer ifFalse: [^ node].
Evaluator ifNil: [
self class setDefaultEvaluator.
].
evaluator := Evaluator.
evaluator makeAttributedTreeWith: node forReceiver: playerScripted.
evaluator addGraphEdgesRoot.
evaluator evaluateAllOccurence.
Rewrite ifTrue: [
rewriter := KedamaVectorParseTreeRewriter new.
rewriter attributedTree: evaluator attributedTree.
rewriter parseTree: evaluator attributedTree tree.
rewriter setEncoderFor: playerScripted in: self referenceWorld.
rewriter visit: evaluator attributedTree tree andParent: nil.
^ playerScripted class compilerClass new compile: rewriter parseTree decompileString in: playerScripted class notifying: nil ifFail: [^nil] for: playerScripted.
] ifFalse: [
evaluator attributedTree inspect.
^ evaluator parseTree
].
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>nextTile (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>nextTile (in category '*Etoys-Squeakland-etoys-debugger') -----
nextTile
^ (self ownerThatIsA: TileLikeMorph orA: ScriptEditorMorph)
nextTile
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>nextTileTo: (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>nextTileTo: (in category '*Etoys-Squeakland-etoys-debugger') -----
nextTileTo: aTileMorph
| tiles index |
tiles := self tiles.
index := (tiles indexOf: aTileMorph) + 1.
index > tiles size
ifTrue: [self = self topEditor
ifTrue: [^ tiles at: 1]
ifFalse: [^ self nextTile]].
^ tiles at: index!
Item was changed:
+ ----- Method: ScriptEditorMorph>>offerGoldBoxMenu (in category 'gold box') -----
- ----- Method: ScriptEditorMorph>>offerGoldBoxMenu (in category '*Etoys-Squeakland-gold box') -----
offerGoldBoxMenu
"Put up a gold-box menu beneath my gold-box icon. This will re-use an existing one"
self goldBoxMenu openInWorld; goHome!
Item was changed:
+ ----- Method: ScriptEditorMorph>>offerSimplerScriptorMenu (in category 'other') -----
- ----- Method: ScriptEditorMorph>>offerSimplerScriptorMenu (in category '*Etoys-Squeakland-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 |
self currentHand 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: self currentWorld.
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: self currentWorld.
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 changed:
+ ----- Method: ScriptEditorMorph>>openObjectsViewer (in category 'menu commands') -----
- ----- Method: ScriptEditorMorph>>openObjectsViewer (in category '*Etoys-Squeakland-menu commands') -----
openObjectsViewer
"Open the viewer of the player whose code I bear."
| aMorph |
aMorph := playerScripted costume.
aMorph presenter viewMorph: aMorph!
Item was changed:
+ ----- Method: ScriptEditorMorph>>openOrCloseScriptor (in category 'customevents-other') -----
- ----- Method: ScriptEditorMorph>>openOrCloseScriptor (in category '*Etoys-Squeakland-customevents-other') -----
openOrCloseScriptor
"Open up the scriptor on the screen"
self isInWorld
ifTrue:
[self delete]
ifFalse:
[self openInWorld; goHome; comeToFront]!
Item was changed:
+ ----- Method: ScriptEditorMorph>>parseNodeWith: (in category 'scripting') -----
- ----- Method: ScriptEditorMorph>>parseNodeWith: (in category '*Etoys-Squeakland-other') -----
parseNodeWith: encoder
| statements ret |
statements := WriteStream on: (Array new: self tileRows size).
self tileRows do: [:row |
row do: [:morph |
(morph respondsTo: #parseNodeWith:asStatement:) ifTrue: [
statements nextPut: (morph parseNodeWith: encoder asStatement: true)]]].
statements := statements contents.
ret := ReturnNode new expr: (encoder encodeVariable: 'self').
^ BlockNode new
arguments: #()
statements: (statements copyWith: ret)
returns: true
from: encoder.!
Item was changed:
+ ----- Method: ScriptEditorMorph>>removeDropSpaces (in category 'dropping/grabbing') -----
- ----- Method: ScriptEditorMorph>>removeDropSpaces (in category '*Etoys-Squeakland-dropping/grabbing') -----
removeDropSpaces
dropSpaces ifNotNil: [dropSpaces do: [:m | m delete]].
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>scriptContainer (in category 'access') -----
- ----- Method: ScriptEditorMorph>>scriptContainer (in category '*Etoys-Squeakland-access') -----
scriptContainer
"Answer the morph that holds the lines of script."
^ self!
Item was changed:
+ ----- Method: ScriptEditorMorph>>scriptParseNodeIn: (in category 'scripting') -----
- ----- Method: ScriptEditorMorph>>scriptParseNodeIn: (in category '*Etoys-Squeakland-other') -----
scriptParseNodeIn: aWorld
| n selOrFalse arguments block encoder |
encoder := ScriptEncoder new init: playerScripted class context: nil notifying: nil; referenceObject: aWorld.
n := MethodNode new.
selOrFalse := encoder encodeSelector: scriptName.
playerScripted class scripts at: scriptName ifPresent: [:uniclassScript |
arguments := uniclassScript argumentVariables asArray collect: [:each |
encoder bindArg: each variableName.
].
].
arguments ifNil: [
"In some sort of transition. Initial creation or name change."
scriptName numArgs = 0 ifTrue: [
arguments := #().
] ifFalse: [
arguments := (Array with: (encoder bindArg: 'parameter')).
].
].
block := self parseNodeWith: encoder.
^ n
selector: selOrFalse
arguments: arguments
precedence: scriptName precedence
temporaries: #()
block: block
encoder: encoder
primitive: 0.
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>setupMethodMorph (in category 'access') -----
- ----- Method: ScriptEditorMorph>>setupMethodMorph (in category '*Etoys-Squeakland-buttons') -----
setupMethodMorph
"create textual source instead"
| aCodePane |
aCodePane := MethodHolder
isolatedCodePaneForClass: playerScripted class
selector: scriptName.
aCodePane
hResizing: #spaceFill;
vResizing: #spaceFill;
minHeight: 100 px.
self
hResizing: #shrinkWrap;
vResizing: #shrinkWrap.
self addMorphBack: aCodePane.
self fullBounds.
self
listDirection: #topToBottom;
hResizing: #rigid;
vResizing: #rigid;
rubberBandCells: true;
minWidth: self width.
showingMethodPane := true.
self currentWorld startSteppingSubmorphsOf: self!
Item was changed:
+ ----- Method: ScriptEditorMorph>>showingCarets (in category 'other') -----
- ----- Method: ScriptEditorMorph>>showingCarets (in category '*Etoys-Squeakland-other') -----
showingCarets
"Answer whether the receiver is in showing-carets mode."
^ self valueOfProperty: #showingCarets ifAbsentPut: [true]!
Item was changed:
+ ----- Method: ScriptEditorMorph>>showingCaretsString (in category 'other') -----
- ----- Method: ScriptEditorMorph>>showingCaretsString (in category '*Etoys-Squeakland-other') -----
showingCaretsString
"Answer a strilng characterizing whether I am showing carets or not."
^ (self showingCarets ifTrue: ['<yes>'] ifFalse: ['<no>']), 'show arrows' translated!
Item was changed:
+ ----- Method: ScriptEditorMorph>>startTracking (in category 'dropping/grabbing') -----
- ----- Method: ScriptEditorMorph>>startTracking (in category '*Etoys-Squeakland-dropping/grabbing') -----
startTracking
| ed |
((ed := ScriptEditorMorph trackedEditor) notNil and: [ed ~~ self]) ifTrue: [
ed stopSteppingSelector: #trackDropZones.
ed removeSpaces.
].
ScriptEditorMorph trackedEditor: self.
self startSteppingSelector: #trackDropZones.!
Item was changed:
+ ----- Method: ScriptEditorMorph>>stepMe (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>stepMe (in category '*Etoys-Squeakland-etoys-debugger') -----
stepMe
self etoysDebugger evaluateNextTile !
Item was changed:
+ ----- Method: ScriptEditorMorph>>stopTracking (in category 'dropping/grabbing') -----
- ----- Method: ScriptEditorMorph>>stopTracking (in category '*Etoys-Squeakland-dropping/grabbing') -----
stopTracking
| ed |
(((ed := ScriptEditorMorph trackedEditor) notNil) and: [ed ~~ self]) ifTrue: [
ed stopSteppingSelector: #trackDropZones.
ed removeSpaces.
].
self stopSteppingSelector: #trackDropZones.
handWithTile := nil.
ScriptEditorMorph trackedEditor: nil.
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>tiles (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>tiles (in category '*Etoys-Squeakland-etoys-debugger') -----
tiles
^ self tileRows collect: [:each | each first]!
Item was changed:
+ ----- Method: ScriptEditorMorph>>toggleShowingCarets (in category 'other') -----
- ----- Method: ScriptEditorMorph>>toggleShowingCarets (in category '*Etoys-Squeakland-other') -----
toggleShowingCarets
"Toggle whether I'm showing carets."
self setProperty: #showingCarets toValue: self showingCarets not.
self fixUpCarets.
self install!
Item was changed:
+ ----- Method: ScriptEditorMorph>>viewerTile (in category 'access') -----
- ----- Method: ScriptEditorMorph>>viewerTile (in category '*Etoys-Squeakland-access') -----
viewerTile
| viewers category viewerline |
viewers := playerScripted allOpenViewersOnReceiverAndSiblings.
viewers isEmpty
ifTrue: [^ nil].
category := viewers first categoryMorphs
detect: [:e | e chosenCategorySymbol = #scripts]
ifNone: [^ nil].
viewerline := category submorphs
detect: [:e | (e isKindOf: ViewerLine)
and: [e elementSymbol = scriptName]]
ifNone: [^ nil].
viewerline world
ifNil: [^ nil].
^ viewerline!
Item was changed:
+ ----- Method: ScriptInstantiation>>resetTo:ifCurrently: (in category 'customevents-status control') -----
- ----- Method: ScriptInstantiation>>resetTo:ifCurrently: (in category '*Etoys-Squeakland-status control') -----
resetTo: newStatus ifCurrently: aStatus
"If my status *had been* aStatus, quietly reset it to newStatus, without tampering with event handlers. But get the physical display of all affected status morphs right"
status == aStatus ifTrue:
[status := newStatus.
self updateAllStatusMorphs]!
Item was changed:
+ ----- Method: ScriptInstantiation>>statusLabel (in category 'customevents-status control') -----
- ----- Method: ScriptInstantiation>>statusLabel (in category '*Etoys-Squeakland-status control') -----
statusLabel
^self translatedStatus!
Item was changed:
+ ----- Method: ScriptStatusControl>>fixUpScriptInstantiation (in category 'access') -----
- ----- Method: ScriptStatusControl>>fixUpScriptInstantiation (in category '*Etoys-Squeakland-access') -----
fixUpScriptInstantiation
"If the receiver's scriptInstantiation is broken (owing to a bug also fixed in the update housing this code) fix it up and reply true, else reply false."
| myPlayer correctInstantiation result |
myPlayer := scriptInstantiation player.
correctInstantiation := myPlayer scriptInstantiationForSelector: scriptInstantiation selector.
result := correctInstantiation ~~ scriptInstantiation.
result
ifTrue:
[self removeAllMorphs.
tickPauseWrapper := nil.
tickPauseButtonsShowing := false.
self initializeFor: correctInstantiation].
^ result!
Item was changed:
+ ----- Method: SoundReadoutTile>>choices (in category 'arrows') -----
- ----- Method: SoundReadoutTile>>choices (in category '*Etoys-Squeakland-arrows') -----
choices
^self soundChoices.
!
Item was changed:
+ ----- Method: StackMorph class>>formerDescriptionForPartsBin (in category 'parts bin') -----
- ----- Method: StackMorph class>>formerDescriptionForPartsBin (in category '*Etoys-Squeakland-parts bin') -----
formerDescriptionForPartsBin
^ self partName: 'Stack' translatedNoop
categories: #()
documentation: 'A database of any sort -- slide show, rolodex, and any point in between' translatedNoop!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>cleanUp: (in category 'class initialization') -----
- ----- Method: StandardScriptingSystem class>>cleanUp: (in category '*Etoys-class initialization') -----
cleanUp: agressive
"Clean up unreferenced players. If agressive, reinitialize and nuke players"
self removeUnreferencedPlayers.
agressive ifTrue:[
References keys do: [:k | References removeKey: k].
ClassVarNamesInUse := nil.
self initialize.
].!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>initialize (in category 'class initialization') -----
- ----- Method: StandardScriptingSystem class>>initialize (in category '*Etoys-class initialization') -----
initialize
"Initialize the scripting system. Sometimes this method is vacuously changed just to get it in a changeset so that its invocation will occur as part of an update"
(self environment at: #ScriptingSystem ifAbsent: [nil]) ifNil:
[self environment at: #ScriptingSystem put: self new].
ScriptingSystem
initializeHelpStrings.
self registerInFlapsRegistry.
"StandardScriptingSystem initialize"!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>noteAddedSelector:meta: (in category 'adding/removing methods') -----
- ----- Method: StandardScriptingSystem class>>noteAddedSelector:meta: (in category '*Etoys') -----
noteAddedSelector: aSelector meta: isMeta
[aSelector == #wordingForOperator: ifTrue:
[Vocabulary changeMadeToViewerAdditions]] on: Error do:[].
super noteAddedSelector: aSelector meta: isMeta!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>registerInFlapsRegistry (in category 'class initialization') -----
- ----- Method: StandardScriptingSystem class>>registerInFlapsRegistry (in category '*Etoys-*MorphicExtras-class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
ifPresent: [:cl | cl registerQuad: {#ScriptingSystem. #prototypicalHolder. 'Holder' translatedNoop. 'A place for storing alternative pictures in an animation, etc.' translatedNoop}
forFlapNamed: 'PlugIn Supplies'.
cl registerQuad: {#ScriptingSystem. #prototypicalHolder. 'Holder' translatedNoop. 'A place for storing alternative pictures in an animation, etc.' translatedNoop}
forFlapNamed: 'Supplies'.
cl registerQuad: {#ScriptingSystem. #newScriptingSpace. 'Scripting' translatedNoop. 'A confined place for drawing and scripting, with its own private stop/step/go buttons.' translatedNoop}
forFlapNamed: 'Widgets'.
cl registerQuad: {#ScriptingSystem. #holderWithAlphabet. 'Alphabet' translatedNoop. 'A source for single-letter objects' translatedNoop}
forFlapNamed: 'Widgets'.]!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>removePlayersIn: (in category 'projects') -----
- ----- Method: StandardScriptingSystem class>>removePlayersIn: (in category '*Etoys') -----
removePlayersIn: project
"Remove existing player references for project"
project world presenter reallyAllExtantPlayers do: [:pl |
References removeKey: (project world uniqueNameForReferenceFor: pl) ifAbsent: []
].
!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>removeUnreferencedPlayers (in category 'class initialization') -----
- ----- Method: StandardScriptingSystem class>>removeUnreferencedPlayers (in category '*Etoys-class initialization') -----
removeUnreferencedPlayers
"Remove existing but unreferenced player references"
"StandardScriptingSystem removeUnreferencedPlayers"
References keys do:
[ : key | | ref |
ref := References at: key.
((ref respondsTo: #costume) and: [ ref costume pasteUpMorph isNil ]) ifTrue: [ References removeKey: key ] ]!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>unload (in category 'class initialization') -----
- ----- Method: StandardScriptingSystem class>>unload (in category '*Etoys-*MorphicExtras-class initialization') -----
unload
"Unload the receiver from global registries"
self environment at: #Flaps ifPresent: [:cl |
cl unregisterQuadsWithReceiver: ScriptingSystem] !
Item was changed:
+ ----- Method: StandardViewer>>assureScriptsCategoryShows (in category 'categories') -----
- ----- Method: StandardViewer>>assureScriptsCategoryShows (in category '*Etoys-Squeakland-categories') -----
assureScriptsCategoryShows
"Assure that the receiver is showing a 'scripts' category."
| catSyms newCat anIndex |
((catSyms := self symbolsOfCategoriesCurrentlyShowing) includes: ScriptingSystem nameForScriptsCategory)
ifFalse:
[newCat := self categoryViewerFor: #scripts.
anIndex := (catSyms isEmpty or: [(#(search variables) includes: catSyms first) not])
ifTrue:
[2]
ifFalse:
[(catSyms first = #search)
ifTrue:
[(catSyms size = 1 or: [catSyms second ~= #variables])
ifTrue:
[3]
ifFalse:
[4]]
ifFalse:
[3]].
self addMorph: newCat asElementNumber: anIndex]!
Item was changed:
+ ----- Method: StandardViewer>>enforceImplicitSelf (in category 'user interface') -----
- ----- Method: StandardViewer>>enforceImplicitSelf (in category '*Etoys-Squeakland-user interface') -----
enforceImplicitSelf
"If the implicitSelf preference is set to true, obscure all unnecessary objRef tiles."
self allMorphs do:
[:m | ((m isKindOf: TileMorph) and: [m type == #objRef])
ifTrue:
[m emblazonPlayerNameOnReferenceTileWithin: self]] !
Item was changed:
+ ----- Method: StandardViewer>>updateScriptsCategory (in category 'categories') -----
- ----- Method: StandardViewer>>updateScriptsCategory (in category '*Etoys-Squeakland-categories') -----
updateScriptsCategory
"If any category viewer is showing scripts, relaunch it."
self categoryMorphs do:
[:m |
(m chosenCategorySymbol = #scripts) ifTrue:
[m beReplacedByCategory: #scripts]]!
Item was changed:
+ ----- Method: SyntaxMorph>>parseNodeWith:asStatement: (in category 'code generation') -----
- ----- Method: SyntaxMorph>>parseNodeWith:asStatement: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder asStatement: aBoolean
| methodNode |
methodNode := self parseNodeWith: encoder.
^ aBoolean
ifFalse: [methodNode]
ifTrue: [methodNode block]!
Item was changed:
+ ----- Method: SystemQueryPhrase>>addCommandFeedback: (in category 'hilighting') -----
- ----- Method: SystemQueryPhrase>>addCommandFeedback: (in category '*Etoys-Squeakland-hilighting') -----
addCommandFeedback: evt
"Add screen feedback showing what would be torn off in a drag. Overridden vacuously here to avoid a crash when super code is applied to a SystemQueryPhrase."!
Item was changed:
+ ----- Method: SystemQueryPhrase>>parseNodeWith: (in category 'code generation') -----
- ----- Method: SystemQueryPhrase>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ submorphs first parseNodeWith: encoder!
Item was changed:
+ ----- Method: TextFieldMorph class>>authoringPrototype (in category 'scripting') -----
- ----- Method: TextFieldMorph class>>authoringPrototype (in category '*Etoys-scripting') -----
authoringPrototype
"Answer an instance of the receiver that can serve as a prototype for authoring"
| proto |
proto := super authoringPrototype.
proto setProperty: #shared toValue: true.
proto extent: 170 @ 30.
proto color: Color veryLightGray lighter.
proto contents: 'on a clear day you can...'.
^ proto
!
Item was changed:
+ ----- Method: TextFieldMorph class>>exampleBackgroundField (in category 'instance creation') -----
- ----- Method: TextFieldMorph class>>exampleBackgroundField (in category '*eToys-instance creation') -----
exampleBackgroundField
"Answer a scrollable background field for a parts bin"
| aMorph |
aMorph := self authoringPrototype.
aMorph contents: 'background field' asText allBold.
aMorph setProperty: #shared toValue: true.
aMorph setNameTo: 'scrollingField1'.
aMorph setProperty: #holdsSeparateDataForEachInstance toValue: true.
^ aMorph!
Item was changed:
+ ----- Method: TextFieldMorph class>>initialize (in category 'class initialization') -----
- ----- Method: TextFieldMorph class>>initialize (in category '*Etoys-class initialization') -----
initialize
self registerInFlapsRegistry. !
Item was changed:
+ ----- Method: TextFieldMorph class>>registerInFlapsRegistry (in category 'class initialization') -----
- ----- Method: TextFieldMorph class>>registerInFlapsRegistry (in category '*Etoys-class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
ifPresent: [:cl | cl registerQuad: {#TextFieldMorph. #exampleBackgroundField. 'Scrolling Field' translatedNoop. 'A scrolling data field which will have a different value on every card of the background' translatedNoop}
forFlapNamed: 'Scripting'.]!
Item was changed:
+ ----- Method: TextFieldMorph class>>unload (in category 'class initialization') -----
- ----- Method: TextFieldMorph class>>unload (in category '*Etoys-class initialization') -----
unload
"Unload the receiver from global registries"
self environment at: #Flaps ifPresent: [:cl |
cl unregisterQuadsWithReceiver: self] !
Item was changed:
+ ----- Method: TextPropertiesMorph>>applyToWholeText: (in category 'accessing') -----
- ----- Method: TextPropertiesMorph>>applyToWholeText: (in category '*Etoys-Squeakland-accessing') -----
applyToWholeText: anObject
"Set the value of applyToWholeText"
applyToWholeText := anObject!
Item was changed:
+ ----- Method: TextPropertiesMorph>>establishSelectionInterval (in category 'button actions') -----
- ----- Method: TextPropertiesMorph>>establishSelectionInterval (in category '*Etoys-Squeakland-button actions') -----
establishSelectionInterval
"If the active editor has a nonempty selection interval, assimilate it."
| activeEditor itsSize |
activeEditor := self activeEditor.
self applyToWholeText ifTrue: [ ^activeEditor selectAll].
(selectionInterval size > 0)
ifTrue: "User set it manually, so remember it"
[^activeEditor selectInterval: selectionInterval]
ifFalse:
[itsSize := self activeTextMorph text string size.
selectionInterval := Interval from: selectionInterval start to: (selectionInterval stop min: itsSize).
^activeEditor selectInterval: selectionInterval]!
Item was changed:
+ ----- Method: TextPropertiesMorph>>selectionInterval (in category 'accessing') -----
- ----- Method: TextPropertiesMorph>>selectionInterval (in category '*Etoys-Squeakland-accessing') -----
selectionInterval
"Answer the value of selectionInterval"
^ selectionInterval!
Item was changed:
+ ----- Method: TextPropertiesMorph>>selectionInterval: (in category 'accessing') -----
- ----- Method: TextPropertiesMorph>>selectionInterval: (in category '*Etoys-Squeakland-accessing') -----
selectionInterval: anObject
"Set the value of selectionInterval"
selectionInterval := anObject!
Item was changed:
+ ----- Method: TileLikeMorph>>nextTile (in category 'etoys-debugger') -----
- ----- Method: TileLikeMorph>>nextTile (in category '*Etoys-Squeakland-etoys-debugger') -----
nextTile
^ (self ownerThatIsA: ScriptEditorMorph)
nextTileTo: self!
Item was changed:
+ ----- Method: TileMorph class>>addArrowsOn: (in category 'utilities') -----
- ----- Method: TileMorph class>>addArrowsOn: (in category '*Etoys-Squeakland-utilities') -----
addArrowsOn: aMorph
"add arrows on a morph, and answer {upArrow. downArrow}"
| downArrow upArrow holder |
downArrow := ImageMorph new image: TileMorph downPicture.
upArrow := ImageMorph new image: TileMorph upPicture.
holder := Morph new extent: downArrow width @ (upArrow height + downArrow height + 1).
holder beTransparent.
upArrow position: holder topLeft.
downArrow position: upArrow left @ (upArrow bottom + 1).
holder addMorph: upArrow.
holder addMorph: downArrow.
holder setProperty: #arrows toValue: true.
holder clipSubmorphs: true.
aMorph addMorphFront: holder.
^ Array with: upArrow with: downArrow!
Item was changed:
+ ----- Method: TileMorph class>>implicitSelfInTilesChanged (in category 'utilities') -----
- ----- Method: TileMorph class>>implicitSelfInTilesChanged (in category '*Etoys-Squeakland-utilities') -----
implicitSelfInTilesChanged
"The implicitSelfInTiles preference changed. Caution: although this may appear to have no senders in the image, it is in fact invoked when the implicitSelfInTiles preference is toggled... so please do not delete it."
Smalltalk isMorphic ifFalse: [^ self].
Project current world allScriptEditorsInProject do: [:scriptEditor | scriptEditor install].
Project current world allViewersInProject do: [:viewer | viewer enforceImplicitSelf].
"
(Preferences buttonForPreference: #implicitSelfInTiles) openInHand.
"!
Item was changed:
+ ----- Method: TileMorph class>>updatingOperators (in category 'constants') -----
- ----- Method: TileMorph class>>updatingOperators (in category '*Etoys-Squeakland-constants') -----
updatingOperators
^ UpdatingOperators!
Item was changed:
+ ----- Method: TileMorph>>addCaretsAsAppropriate: (in category 'arrows') -----
- ----- Method: TileMorph>>addCaretsAsAppropriate: (in category '*Etoys-Squeakland-arrows') -----
addCaretsAsAppropriate: showingCarets
"If the argument provided is true, make any expected up-down and suffix-retract carets visible; if false, hide them all."
self setVisibilityOfUpDownCarets: showingCarets.
(showingCarets and: [self couldAddSuffixArrow])
ifFalse:
[self rescindSuffixArrow.
self rescindRetractArrow]
ifTrue:
[self addSuffixArrow.
self addRetractArrow] "has its own test."
!
Item was changed:
+ ----- Method: TileMorph>>addRetractArrowAnyway (in category 'arrows') -----
- ----- Method: TileMorph>>addRetractArrowAnyway (in category '*Etoys-Squeakland-arrows') -----
addRetractArrowAnyway
retractArrow := ImageMorph new image: RetractPicture.
suffixArrow ifNotNil: [
self addMorph: retractArrow inFrontOf: suffixArrow].
fullBounds := nil.
self extent: self fullBounds extent!
Item was changed:
+ ----- Method: TileMorph>>buildHPopArrows (in category 'arrows popup') -----
- ----- Method: TileMorph>>buildHPopArrows (in category '*Etoys-Squeakland-arrows popup') -----
buildHPopArrows
| panel left right |
self outmostScriptEditor
ifNil: [^ nil].
(retractArrow isNil
and: [suffixArrow isNil])
ifTrue: [^ nil].
panel := Morph new.
panel cornerStyle: #rounded.
left := SketchMorph new
form: (ScriptingSystem formAtKey: #LargeLeftArrow).
right := SketchMorph new
form: (ScriptingSystem formAtKey: #LargeRightArrow).
panel
color: color.
panel sticky: true.
panel layoutPolicy: TableLayout new.
panel listDirection: #leftToRight.
panel hResizing: #shrinkWrap.
panel vResizing: #shrinkWrap.
panel cellInset: 4 px.
panel layoutInset: 2 px.
retractArrow
ifNotNil: [panel addMorphBack: left].
suffixArrow
ifNotNil: [panel addMorphBack: right].
panel
on: #mouseLeave
send: #hidePopArrows
to: self.
left
on: #mouseUp
send: #popArrowRetractArrowHit:
to: self.
right
on: #mouseUp
send: #popArrowSuffixArrowHit:
to: self.
^ panel!
Item was changed:
+ ----- Method: TileMorph>>buildVPopArrows (in category 'arrows popup') -----
- ----- Method: TileMorph>>buildVPopArrows (in category '*Etoys-Squeakland-arrows popup') -----
buildVPopArrows
| panel up down |
upArrow
ifNil: [^ nil].
panel := Morph new.
panel cornerStyle: #rounded.
up := SketchMorph new
form: (ScriptingSystem formAtKey: #LargeUpArrow).
down := SketchMorph new
form: (ScriptingSystem formAtKey: #LargeDownArrow).
panel color: color.
panel sticky: true.
panel layoutPolicy: TableLayout new.
panel listDirection: #topToBottom.
panel hResizing: #shrinkWrap.
panel vResizing: #shrinkWrap.
panel cellInset: 4 px.
panel layoutInset: 2 px.
panel addMorphBack: up.
panel addMorphBack: down.
panel
on: #mouseLeave
send: #hidePopArrows
to: self.
up
on: #mouseDown
send: #popArrowUp:
to: self.
up
on: #mouseMove
send: #popArrowMouseMove:
to: self.
down
on: #mouseDown
send: #popArrowDown:
to: self.
down
on: #mouseMove
send: #popArrowMouseMove:
to: self.
^ panel!
Item was changed:
+ ----- Method: TileMorph>>couldAddSuffixArrow (in category 'arrows') -----
- ----- Method: TileMorph>>couldAddSuffixArrow (in category '*Etoys-Squeakland-arrows') -----
couldAddSuffixArrow
"Answer whether it is appropriate for the receiver to bear a suffix arrow."
| phrase pad |
type = #operator ifTrue:
[((owner isKindOf: PhraseTileMorph) and: [owner submorphs last == self] and: [#("Point" Number) includes: owner resultType])
ifTrue: [^ true]].
(#(literal function parameter) includes: type) ifFalse: [^ false].
(pad := self ownerThatIsA: TilePadMorph) ifNil: [^ false].
(#("Point" Number) includes: pad type) ifFalse: [^ false].
phrase := pad owner.
(phrase isKindOf: TimesRow) ifTrue: [^ true]. "times-repeat situation"
(phrase isKindOf: PhraseTileMorph)
ifTrue: [^ phrase submorphs last allMorphs includes: self]
ifFalse: [^ phrase isKindOf: FunctionTile]!
Item was changed:
+ ----- Method: TileMorph>>decimalPlaces (in category 'mouse handling') -----
- ----- Method: TileMorph>>decimalPlaces (in category '*Etoys-Squeakland-mouse handling') -----
decimalPlaces
"Answer the number of decimal places of the contained number"
| readout |
(readout := self findA: UpdatingStringMorph) ifNotNil: [^readout decimalPlaces ].
^0!
Item was changed:
+ ----- Method: TileMorph>>downArrow (in category 'accessing') -----
- ----- Method: TileMorph>>downArrow (in category '*Etoys-Squeakland-accessing') -----
downArrow
^ downArrow
!
Item was changed:
+ ----- Method: TileMorph>>emblazonPlayerNameOnReferenceTile (in category 'initialization') -----
- ----- Method: TileMorph>>emblazonPlayerNameOnReferenceTile (in category '*Etoys-Squeakland-initialization') -----
emblazonPlayerNameOnReferenceTile
"Make the string within the receiver be the right thing."
self emblazonPlayerNameOnReferenceTileWithin: (self outermostMorphThat: [:m | m isTileEditor])!
Item was changed:
+ ----- Method: TileMorph>>emblazonPlayerNameOnReferenceTileWithin: (in category 'initialization') -----
- ----- Method: TileMorph>>emblazonPlayerNameOnReferenceTileWithin: (in category '*Etoys-Squeakland-initialization') -----
emblazonPlayerNameOnReferenceTileWithin: scriptorOrViewer
"Make the string within the receiver be the right thing."
| newLabel usePad |
newLabel := actualObject externalName.
Preferences implicitSelfInTiles ifTrue:
[scriptorOrViewer ifNotNil:
[scriptorOrViewer playerScripted == actualObject ifTrue:
[newLabel := '']]].
(newLabel notEmpty and: [self isPossessive]) ifTrue:
[newLabel := newLabel, '''s' translated].
self line1: newLabel.
usePad := owner isKindOf: TilePadMorph.
newLabel
ifEmpty:
[usePad ifTrue: [owner hResizing: #rigid; width: 0; clipSubmorphs: true].
self hResizing: #rigid; width: 0; borderWidth: 0]
ifNotEmpty:
[usePad ifTrue: [owner hResizing: #shrinkWrap; clipSubmorphs: false].
self hResizing: #shrinkWrap; borderWidth: 1 px]
!
Item was changed:
+ ----- Method: TileMorph>>hidePopArrows (in category 'arrows popup') -----
- ----- Method: TileMorph>>hidePopArrows (in category '*Etoys-Squeakland-arrows popup') -----
hidePopArrows
| popArrows |
popArrows := self activeHand
valueOfProperty: #popArrows
ifAbsent: [^ self].
popArrows second
ifNotNil: [popArrows second delete].
popArrows third
ifNotNil: [popArrows third delete].
self activeHand removeProperty: #popArrows!
Item was changed:
+ ----- Method: TileMorph>>isPopArrowNeeded (in category 'arrows popup') -----
- ----- Method: TileMorph>>isPopArrowNeeded (in category '*Etoys-Squeakland-arrows popup') -----
isPopArrowNeeded
^ upArrow notNil or: [suffixArrow notNil]!
Item was changed:
+ ----- Method: TileMorph>>parseNodeWith: (in category 'code generation') -----
- ----- Method: TileMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
| op playerBearingCode |
playerBearingCode := self playerBearingCode. "Must determine whom is scripted for what follows to work; if it's ever nil, we've got trouble"
type = #expression
ifTrue:
[^ (ScriptCompiler newParser parse: 'xxx ', operatorOrExpression class: UndefinedObject) block statements first].
type = #literal
ifTrue:
[^ encoder encodeLiteral: literal].
type == #objRef
ifTrue:
[^playerBearingCode == actualObject
ifTrue:
["If the object is the method's own 'self' then we MUST, rather than just MAY, put out 'self' rather than the referencer call, though the latter will temporarily work if only one instance of the uniclass exists."
^ encoder encodeVariable: 'self']
ifFalse:
[(actualObject isPlayerLike and: [actualObject isSequentialStub]) ifTrue: [
^ actualObject parseNodeWith: encoder.
] ifFalse: [
^ encoder encodePlayer: actualObject]]].
type = #operator
ifTrue:
[op := ((UpdatingOperators includesKey: operatorOrExpression)
and: [self precedingTileType = #slotRef])
ifTrue: [UpdatingOperators at: operatorOrExpression]
ifFalse: [operatorOrExpression].
^op isEmpty
ifTrue: [self halt.]
ifFalse: [^ encoder encodeSelector: (EqualityOperators at: op ifAbsent: [op])]].
!
Item was changed:
+ ----- Method: TileMorph>>popArrowDown: (in category 'arrows popup') -----
- ----- Method: TileMorph>>popArrowDown: (in category '*Etoys-Squeakland-arrows popup') -----
popArrowDown: evt
self setProperty: #previousLiteral toValue: self literalFromContents.
self setProperty: #previousPoint toValue: evt position.
evt handler
ifNotNil: [evt handler
on: #mouseStillDown
send: #popArrowDown:
to: self].
self currentHand releaseKeyboardFocus.
self arrowAction: self arrowDelta negated!
Item was changed:
+ ----- Method: TileMorph>>popArrowMouseMove: (in category 'arrows popup') -----
- ----- Method: TileMorph>>popArrowMouseMove: (in category '*Etoys-Squeakland-arrows popup') -----
popArrowMouseMove: evt
| popArrows vpanel |
popArrows := self activeHand
valueOfProperty: #popArrows
ifAbsent: [^ self].
vpanel := popArrows second.
vpanel
ifNotNil: [vpanel submorphs
do: [:each | each
on: #mouseStillDown
send: nil
to: nil]].
self mouseMove: evt!
Item was changed:
+ ----- Method: TileMorph>>popArrowRetractArrowHit: (in category 'arrows popup') -----
- ----- Method: TileMorph>>popArrowRetractArrowHit: (in category '*Etoys-Squeakland-arrows popup') -----
popArrowRetractArrowHit: evt
self retractArrowHit.
self showPopArrows!
Item was changed:
+ ----- Method: TileMorph>>popArrowSuffixArrowHit: (in category 'arrows popup') -----
- ----- Method: TileMorph>>popArrowSuffixArrowHit: (in category '*Etoys-Squeakland-arrows popup') -----
popArrowSuffixArrowHit: evt
self showSuffixChoices.
self showPopArrows!
Item was changed:
+ ----- Method: TileMorph>>popArrowUp: (in category 'arrows popup') -----
- ----- Method: TileMorph>>popArrowUp: (in category '*Etoys-Squeakland-arrows popup') -----
popArrowUp: evt
self setProperty: #previousLiteral toValue: self literalFromContents.
self setProperty: #previousPoint toValue: evt position.
evt handler
ifNotNil: [evt handler
on: #mouseStillDown
send: #popArrowUp:
to: self].
self currentHand releaseKeyboardFocus.
self arrowAction: self arrowDelta!
Item was changed:
+ ----- Method: TileMorph>>rescindRetractArrow (in category 'arrows') -----
- ----- Method: TileMorph>>rescindRetractArrow (in category '*Etoys-Squeakland-arrows') -----
rescindRetractArrow
"If I have a retract arrow, remove it, and nil out my retractArrow inst var."
retractArrow ifNotNil:
[retractArrow delete.
retractArrow := nil]!
Item was changed:
+ ----- Method: TileMorph>>rescindSuffixArrow (in category 'arrows') -----
- ----- Method: TileMorph>>rescindSuffixArrow (in category '*Etoys-Squeakland-arrows') -----
rescindSuffixArrow
"If I have a suffix arrow, remove it, and nil out my suffixArrow inst var."
suffixArrow ifNotNil:
[suffixArrow delete.
suffixArrow := nil]!
Item was changed:
+ ----- Method: TileMorph>>retractArrow (in category 'accessing') -----
- ----- Method: TileMorph>>retractArrow (in category '*Etoys-Squeakland-accessing') -----
retractArrow
^ retractArrow!
Item was changed:
+ ----- Method: TileMorph>>retractArrowHit (in category 'arrows') -----
- ----- Method: TileMorph>>retractArrowHit (in category '*Etoys-Squeakland-arrows') -----
retractArrowHit
"The user hit the retract button; carry out the retraction."
| phrase pad goodPad |
(phrase := self couldRetract) ifNil: [^ self].
pad := phrase ownerThatIsA: TilePadMorph.
goodPad := phrase firstSubmorph.
pad owner replaceSubmorph: pad by: goodPad.
goodPad topEditor scriptEdited!
Item was changed:
+ ----- Method: TileMorph>>setDecimalPlacesFromTypeIn: (in category 'misc') -----
- ----- Method: TileMorph>>setDecimalPlacesFromTypeIn: (in category '*Etoys-Squeakland-misc') -----
setDecimalPlacesFromTypeIn: aString
self labelMorph ifNotNil: [:m |
m setDecimalPlacesFromTypeIn: aString]!
Item was changed:
+ ----- Method: TileMorph>>setVisibilityOfUpDownCarets: (in category 'arrows') -----
- ----- Method: TileMorph>>setVisibilityOfUpDownCarets: (in category '*Etoys-Squeakland-arrows') -----
setVisibilityOfUpDownCarets: showCarets
"If the argument is true, make all the 'up and down' carets, such as those that let you change the value of a number or of a boolean constant, visible; if false, remove them from sight. "
(submorphs detect: [:m | m hasProperty: #arrows] ifNone: [nil]) ifNotNil:
[:wrapper |
showCarets
ifTrue: [wrapper width: 9 px]
ifFalse: [wrapper width: 0]]!
Item was changed:
+ ----- Method: TileMorph>>showPopArrows (in category 'arrows popup') -----
- ----- Method: TileMorph>>showPopArrows (in category '*Etoys-Squeakland-arrows popup') -----
showPopArrows
| vpanel hpanel |
self class usePopUpArrows
ifFalse: [^ self].
self hidePopArrows.
self isPopArrowNeeded
ifFalse: [^ self].
vpanel := self buildVPopArrows.
hpanel := self buildHPopArrows.
self activeHand setProperty: #popArrows toValue: {self. vpanel. hpanel}.
self layoutChanged!
Item was changed:
+ ----- Method: TileMorph>>suffixArrow (in category 'accessing') -----
- ----- Method: TileMorph>>suffixArrow (in category '*Etoys-Squeakland-accessing') -----
suffixArrow
^ suffixArrow!
Item was changed:
+ ----- Method: TileMorph>>unhibernate (in category 'scripting') -----
- ----- Method: TileMorph>>unhibernate (in category '*Etoys-Squeakland-as yet unclassified') -----
unhibernate
| l |
l := self labelMorph.
l ifNotNil: [l label: l contents font: Preferences standardEToysFont].
self removeProperty: #needsLayoutFixed.
!
Item was changed:
+ ----- Method: TileMorph>>upArrow (in category 'accessing') -----
- ----- Method: TileMorph>>upArrow (in category '*Etoys-Squeakland-accessing') -----
upArrow
^ upArrow
!
Item was changed:
+ ----- Method: TileMorph>>wrapPhraseInFunction (in category 'arrows') -----
- ----- Method: TileMorph>>wrapPhraseInFunction (in category '*Etoys-Squeakland-arrows') -----
wrapPhraseInFunction
"The user made a gesture requesting that the phrase for which the receiver bears the widget hit be wrapped in a function. This applies for the moment only to numeric functions"
| pad newPad functionPhrase |
pad := self ownerThatIsA: TilePadMorph. "Or something higher than that???"
(pad isNil or: [pad type ~= #Number]) ifTrue: [^ Beeper beep].
newPad := TilePadMorph new setType: #Number.
newPad hResizing: #shrinkWrap; vResizing: #spaceFill.
functionPhrase := FunctionTile new.
newPad addMorphBack: functionPhrase.
pad owner replaceSubmorph: pad by: newPad.
functionPhrase operator: #abs pad: pad.
functionPhrase addSuffixArrow.
self scriptEdited
!
Item was changed:
+ ----- Method: TilePadMorph>>lastTileMorph (in category 'layout') -----
- ----- Method: TilePadMorph>>lastTileMorph (in category '*Etoys-Squeakland-layout') -----
lastTileMorph
"Answer the final TileMorph in the receiver's tree -- this might be at any of three levels deep..."
| aMorph lastInPhrase |
submorphs ifEmpty: [^ nil]. "But should not normally happen."
((aMorph := submorphs first) isTileMorph) ifTrue: [^ aMorph].
"If first submorph is not a TileMorph, it will be a PhraseTileMorph so..."
(lastInPhrase := aMorph submorphs last) isTileMorph ifTrue: [^ lastInPhrase].
"If the last morph in the phrase is not a Tile, then it's a TilePadMorph..."
^ lastInPhrase lastTileMorph!
Item was changed:
+ ----- Method: TilePadMorph>>parseNodeWith: (in category 'code generation') -----
- ----- Method: TilePadMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ (submorphs at: 1) parseNodeWith: encoder.
!
Item was changed:
+ ----- Method: TilePadMorph>>scriptEdited (in category 'miscellaneous') -----
- ----- Method: TilePadMorph>>scriptEdited (in category '*Etoys-Squeakland-miscellaneous') -----
scriptEdited
"Tell the scriptEditor who I belong to that I have changed."
| him |
(him := self outermostMorphThat: [:m| m isKindOf: ScriptEditorMorph])
ifNotNil: [him scriptEdited]!
Item was changed:
+ ----- Method: TilePadMorph>>wrapInFunction (in category 'miscellaneous') -----
- ----- Method: TilePadMorph>>wrapInFunction (in category '*Etoys-Squeakland-miscellaneous') -----
wrapInFunction
"The user made a gesture requesting that the receiver be wrapped in a (numeric) function."
| newPad functionPhrase |
newPad := TilePadMorph new setType: #Number.
newPad hResizing: #shrinkWrap; vResizing: #spaceFill.
functionPhrase := FunctionTile new.
newPad addMorphBack: functionPhrase.
owner replaceSubmorph: self by: newPad.
functionPhrase operator: #abs pad: self.
self scriptEdited!
Item was changed:
+ ----- Method: TimesRepeatMorph>>evaluateOn: (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatMorph>>evaluateOn: (in category '*etoys-debugger') -----
evaluateOn: anEtoysDebugger
^ anEtoysDebugger evaluateRepeat: self!
Item was changed:
+ ----- Method: TimesRepeatTile>>calculateTimesToRepeat (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>calculateTimesToRepeat (in category '*etoys-debugger') -----
calculateTimesToRepeat
^ (Compiler evaluate: (String streamContents: [:stream |
self numberOfTimesToRepeatPart submorphs
ifEmpty: [stream nextPutAll: '0']
ifNotEmpty: [self numberOfTimesToRepeatPart storeCodeOn: stream indent: 0]])
for: self topEditor playerScripted
logged: false)!
Item was changed:
+ ----- Method: TimesRepeatTile>>evaluateOn: (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>evaluateOn: (in category '*etoys-debugger') -----
evaluateOn: anEtoysDebugger
^ anEtoysDebugger evaluateRepeat: self!
Item was changed:
+ ----- Method: TimesRepeatTile>>nextTile (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>nextTile (in category '*etoys-debugger') -----
nextTile
"Instead of just returning my next tile I return my first tile if I haven't been evaluated enough times"
self timesToRepeat <= 0
ifTrue: [^ super nextTile].
self timesToRepeat: self timesToRepeat - 1.
^ self whatToRepeatPart tiles at: 1 ifAbsent: [super nextTile]!
Item was changed:
+ ----- Method: TimesRepeatTile>>timesToRepeat (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>timesToRepeat (in category '*etoys-debugger') -----
timesToRepeat
^ self topEditor etoysDebugger timesToRepeat!
Item was changed:
+ ----- Method: TimesRepeatTile>>timesToRepeat: (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>timesToRepeat: (in category '*etoys-debugger') -----
timesToRepeat: aNumber
^ self topEditor etoysDebugger timesToRepeat: aNumber!
Item was changed:
+ ----- Method: TimesRepeatTile>>whatToRepeatPart (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>whatToRepeatPart (in category '*etoys-debugger') -----
whatToRepeatPart
^ whatToRepeatPart!
Item was changed:
+ ----- Method: TwoWayScrollPane>>colorForInsets (in category 'accessing') -----
- ----- Method: TwoWayScrollPane>>colorForInsets (in category '*Etoys-accessing') -----
colorForInsets
"My submorphs use the surrounding color"
owner notNil and:
[ owner color isColor ifTrue: [ ^ owner color ] ].
^ Color white!
Item was changed:
+ ----- Method: TwoWayScrollPane>>containsPoint: (in category 'geometry testing') -----
- ----- Method: TwoWayScrollPane>>containsPoint: (in category '*Etoys-geometry testing') -----
containsPoint: aPoint
(super containsPoint: aPoint) ifTrue: [^ true].
"Also include scrollbar when it is extended..."
"used to handle retractable scrolbar"
^ false!
Item was changed:
+ ----- Method: TwoWayScrollPane>>createScrollBarNamed: (in category 'initialization') -----
- ----- Method: TwoWayScrollPane>>createScrollBarNamed: (in category '*Etoys-initialization') -----
createScrollBarNamed: aString
"creates a scroll bar named as aString"
| result |
result := ScrollBar new model: self slotName: aString.
result borderStyle: (BorderStyle inset width: 2).
^ result!
Item was changed:
+ ----- Method: TwoWayScrollPane>>createScroller (in category 'initialization') -----
- ----- Method: TwoWayScrollPane>>createScroller (in category '*Etoys-initialization') -----
createScroller
"create a scroller"
| result |
result := TransformMorph new color: Color transparent.
result offset: 0 @ 0.
^ result!
Item was changed:
+ ----- Method: TwoWayScrollPane>>defaultBorderColor (in category 'initialization') -----
- ----- Method: TwoWayScrollPane>>defaultBorderColor (in category '*Etoys-initialization') -----
defaultBorderColor
^ Color transparent!
Item was changed:
+ ----- Method: TwoWayScrollPane>>defaultBorderStyle (in category 'initialization') -----
- ----- Method: TwoWayScrollPane>>defaultBorderStyle (in category '*Etoys-initialization') -----
defaultBorderStyle
^ BorderStyle inset!
Item was changed:
+ ----- Method: TwoWayScrollPane>>doLayoutIn: (in category 'layout') -----
- ----- Method: TwoWayScrollPane>>doLayoutIn: (in category '*Etoys-layout') -----
doLayoutIn: layoutBounds
"layout has changed. update scroll deltas or whatever else"
(owner notNil and: [owner hasProperty: #autoFitContents])
ifTrue: [self fitContents].
super doLayoutIn: layoutBounds.!
Item was changed:
+ ----- Method: TwoWayScrollPane>>extent: (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>extent: (in category '*Etoys-geometry') -----
extent: newExtent
bounds extent = newExtent ifTrue: [^ self].
super extent: (newExtent max: 36@32).
self resizeScrollBar; resizeScroller; setScrollDeltas.
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>fitContents (in category 'layout') -----
- ----- Method: TwoWayScrollPane>>fitContents (in category '*Etoys-layout') -----
fitContents
"Adjust my size to fit my contents reasonably snugly"
self extent: scroller submorphBounds extent
+ (yScrollBar width @ xScrollBar height)
+ (self borderWidth*2)
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>getMenu: (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>getMenu: (in category '*Etoys-menu') -----
getMenu: shiftKeyState
"Answer the menu for this text view, supplying an empty menu to be filled in. If the menu selector takes an extra argument, pass in the current state of the shift key."
| menu aMenu aTitle |
getMenuSelector isNil ifTrue: [^nil].
menu := MenuMorph new defaultTarget: model.
aTitle := getMenuTitleSelector
ifNotNil: [model perform: getMenuTitleSelector].
getMenuSelector numArgs = 1
ifTrue:
[aMenu := model perform: getMenuSelector with: menu.
aTitle ifNotNil: [aMenu addTitle: aTitle].
^aMenu].
getMenuSelector numArgs = 2
ifTrue:
[aMenu := model
perform: getMenuSelector
with: menu
with: shiftKeyState.
aTitle ifNotNil: [aMenu addTitle: aTitle].
^aMenu].
^self error: 'The getMenuSelector must be a 1- or 2-keyword symbol'!
Item was changed:
+ ----- Method: TwoWayScrollPane>>handlesMouseDown: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>handlesMouseDown: (in category '*Etoys-event handling') -----
handlesMouseDown: evt
^ true!
Item was changed:
+ ----- Method: TwoWayScrollPane>>handlesMouseOver: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>handlesMouseOver: (in category '*Etoys-event handling') -----
handlesMouseOver: evt
^ true!
Item was changed:
+ ----- Method: TwoWayScrollPane>>hideOrShowScrollBar (in category 'retractable scroll bar') -----
- ----- Method: TwoWayScrollPane>>hideOrShowScrollBar (in category '*Etoys-retractable scroll bar') -----
hideOrShowScrollBar
^self "we don't support retractable at the moment"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>hideOrShowScrollBar:forRange: (in category 'retractable scroll bar') -----
- ----- Method: TwoWayScrollPane>>hideOrShowScrollBar:forRange: (in category '*Etoys-retractable scroll bar') -----
hideOrShowScrollBar: scrollBar forRange: range
(self hasProperty: #hideUnneededScrollbars) ifFalse: [^ self].
(submorphs includes: scrollBar)
ifTrue: [range <= 0 ifTrue: [scrollBar model: nil; delete]]
ifFalse: [range > 0 ifTrue: [scrollBar model: self. self resizeScrollBar; addMorph: scrollBar]]
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>initialize (in category 'initialization') -----
- ----- Method: TwoWayScrollPane>>initialize (in category '*Etoys-initialization') -----
initialize
"initialize the state of the receiver"
super initialize.
""
self addMorph: (yScrollBar := self createScrollBarNamed: 'yScrollBar');
addMorph: (xScrollBar := self createScrollBarNamed: 'xScrollBar');
addMorph: (scroller := self createScroller).
""
self extent: 150 @ 120!
Item was changed:
+ ----- Method: TwoWayScrollPane>>keyStroke: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>keyStroke: (in category '*Etoys-event handling') -----
keyStroke: evt
"If pane is not full, pass the event to the last submorph,
assuming it is the most appropriate recipient (!!)"
scroller submorphs last keyStroke: evt!
Item was changed:
+ ----- Method: TwoWayScrollPane>>leftOrRight (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>leftOrRight (in category '*Etoys-menu') -----
leftOrRight "Change scroll bar location"
"used to handle left vs right scrollbar"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>leftoverScrollRange (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>leftoverScrollRange (in category '*Etoys-geometry') -----
leftoverScrollRange
"Return the entire scrolling range minus the currently viewed area."
^ self totalScrollRange - (self innerBounds extent * 3 // 4) max: 0@0
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>menuSelector: (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>menuSelector: (in category '*Etoys-menu') -----
menuSelector: aSelector
getMenuSelector := aSelector!
Item was changed:
+ ----- Method: TwoWayScrollPane>>menuTitleSelector: (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>menuTitleSelector: (in category '*Etoys-menu') -----
menuTitleSelector: aSelector
getMenuTitleSelector := aSelector!
Item was changed:
+ ----- Method: TwoWayScrollPane>>mouseDown: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>mouseDown: (in category '*Etoys-event handling') -----
mouseDown: evt
evt yellowButtonPressed "First check for option (menu) click"
ifTrue: [^ self yellowButtonActivity: evt shiftPressed].
"If pane is not full, pass the event to the last submorph,
assuming it is the most appropriate recipient (!!)"
scroller hasSubmorphs ifTrue:
[scroller submorphs last mouseDown: (evt transformedBy: (scroller transformFrom: self))]!
Item was changed:
+ ----- Method: TwoWayScrollPane>>mouseEnter: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>mouseEnter: (in category '*Etoys-event handling') -----
mouseEnter: event
"used to handle retractable scrolbar"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>mouseLeave: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>mouseLeave: (in category '*Etoys-event handling') -----
mouseLeave: event
"used to handle retractable scrolbar"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>mouseMove: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>mouseMove: (in category '*Etoys-event handling') -----
mouseMove: evt
"If pane is not full, pass the event to the last submorph,
assuming it is the most appropriate recipient (!!)"
scroller hasSubmorphs ifTrue:
[scroller submorphs last mouseMove: (evt transformedBy: (scroller transformFrom: self))]!
Item was changed:
+ ----- Method: TwoWayScrollPane>>mouseUp: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>mouseUp: (in category '*Etoys-event handling') -----
mouseUp: evt
"If pane is not full, pass the event to the last submorph,
assuming it is the most appropriate recipient (!!)"
scroller hasSubmorphs ifTrue:
[scroller submorphs last mouseUp: (evt transformedBy: (scroller transformFrom: self))]!
Item was changed:
+ ----- Method: TwoWayScrollPane>>rejectsEvent: (in category 'events-processing') -----
- ----- Method: TwoWayScrollPane>>rejectsEvent: (in category '*Etoys-events-processing') -----
rejectsEvent: anEvent
scroller submorphs isEmpty ifTrue: [^true]. "something messed up here"
scroller firstSubmorph isSyntaxMorph ifTrue: [^ super rejectsEvent: anEvent].
^self visible not "ignore locked status"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>resizeScrollBar (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>resizeScrollBar (in category '*Etoys-geometry') -----
resizeScrollBar
"used to handle left vs right scrollbar"
yScrollBar bounds: (bounds topLeft extent: 16 @ (bounds height - 16)).
xScrollBar bounds: ((bounds left + 16) @ (bounds bottom - 16) extent: (bounds width - 16) @ 16).
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>resizeScroller (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>resizeScroller (in category '*Etoys-geometry') -----
resizeScroller
| inner |
"used to handle left vs right scrollbar"
inner := self innerBounds.
scroller bounds: (inner topLeft + (yScrollBar width@0) corner: (inner bottomRight - (0@xScrollBar height)))!
Item was changed:
+ ----- Method: TwoWayScrollPane>>retractableOrNot (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>retractableOrNot (in category '*Etoys-menu') -----
retractableOrNot "Change scroll bar operation"
"used to handle retractable scrolbar"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scrollBarFills: (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>scrollBarFills: (in category '*Etoys-geometry') -----
scrollBarFills: aRectangle
"Return true if a flop-out scrollbar fills the rectangle"
"used to handle retractable scrolbar"
^ false!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scrollBarMenuButtonPressed: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>scrollBarMenuButtonPressed: (in category '*Etoys-scroll bar events') -----
scrollBarMenuButtonPressed: event
^ self yellowButtonActivity: event shiftPressed!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scrollBarOnLeft: (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>scrollBarOnLeft: (in category '*Etoys-menu') -----
scrollBarOnLeft: aBoolean
"used to handle left vs right scrollbar"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scrollBy: (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>scrollBy: (in category '*Etoys-geometry') -----
scrollBy: delta
"Move the contents in the direction delta."
"For now, delta is assumed to have a zero x-component. Used by scrollIntoView:"
| r newOffset |
newOffset := (scroller offset - delta max: 0@0) min: self leftoverScrollRange.
scroller offset: newOffset.
r := self leftoverScrollRange.
r y = 0
ifTrue: [yScrollBar value: 0.0]
ifFalse: [yScrollBar value: newOffset y asFloat / r y].
r x = 0
ifTrue: [xScrollBar value: 0.0]
ifFalse: [xScrollBar value: newOffset x asFloat / r x].
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scrollIntoView:extra: (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>scrollIntoView:extra: (in category '*Etoys-geometry') -----
scrollIntoView: desiredRectangle extra: anumber
| shift |
shift := desiredRectangle deltaToEnsureInOrCentered: (
scroller offset extent: scroller bounds extent
) extra: anumber.
shift = (0 @ 0) ifFalse: [self scrollBy: (0@0) - shift].
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scroller (in category 'accessing') -----
- ----- Method: TwoWayScrollPane>>scroller (in category '*Etoys-access') -----
scroller
^ scroller!
Item was changed:
+ ----- Method: TwoWayScrollPane>>setScrollDeltas (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>setScrollDeltas (in category '*Etoys-geometry') -----
setScrollDeltas
| range scrollDelta totalRange innerBounds |
totalRange := self totalScrollRange ifNil: [^ self].
range := self leftoverScrollRange.
innerBounds := self innerBounds.
scrollDelta := 10 @ 10.
self hideOrShowScrollBar: xScrollBar
forRange: totalRange x - (innerBounds width - yScrollBar width).
range x <= 0
ifTrue: [xScrollBar scrollDelta: 0.02 pageDelta: 0.2.
xScrollBar interval: 1.0]
ifFalse: [xScrollBar scrollDelta: (scrollDelta x / range x) asFloat
pageDelta: (innerBounds width - scrollDelta x / range x) asFloat.
xScrollBar interval: (innerBounds width - scrollDelta x / totalRange x) asFloat].
self hideOrShowScrollBar: yScrollBar
forRange: totalRange y - (innerBounds height - xScrollBar height).
range y <= 0
ifTrue: [yScrollBar scrollDelta: 0.02 pageDelta: 0.2.
yScrollBar interval: 1.0]
ifFalse: [yScrollBar scrollDelta: (scrollDelta y / range y) asFloat
pageDelta: (innerBounds height - scrollDelta y / range y) asFloat.
yScrollBar interval: (innerBounds height - scrollDelta y / totalRange y) asFloat]!
Item was changed:
+ ----- Method: TwoWayScrollPane>>shiftedYellowButtonActivity (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>shiftedYellowButtonActivity (in category '*Etoys-scroll bar events') -----
shiftedYellowButtonActivity
^ self yellowButtonActivity: true!
Item was changed:
+ ----- Method: TwoWayScrollPane>>totalScrollRange (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>totalScrollRange (in category '*Etoys-geometry') -----
totalScrollRange
"Return the entire scrolling range."
^ ((scroller localSubmorphBounds ifNil: [^nil]) encompass: 0@0) extent
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>unshiftedYellowButtonActivity (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>unshiftedYellowButtonActivity (in category '*Etoys-scroll bar events') -----
unshiftedYellowButtonActivity
^ self yellowButtonActivity: false!
Item was changed:
+ ----- Method: TwoWayScrollPane>>wantsSlot (in category 'accessing') -----
- ----- Method: TwoWayScrollPane>>wantsSlot (in category '*Etoys-access') -----
wantsSlot
"For now do it the old way, until we sort this out"
^ true!
Item was changed:
+ ----- Method: TwoWayScrollPane>>wantsYellowButtonMenu (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>wantsYellowButtonMenu (in category '*Etoys-menu') -----
wantsYellowButtonMenu
"Answer true if the receiver wants a yellow button menu"
^ getMenuSelector notNil!
Item was changed:
+ ----- Method: TwoWayScrollPane>>xScrollBarMenuButtonPressed: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>xScrollBarMenuButtonPressed: (in category '*Etoys-scroll bar events') -----
xScrollBarMenuButtonPressed: event
^ self yellowButtonActivity: event shiftPressed!
Item was changed:
+ ----- Method: TwoWayScrollPane>>xScrollBarValue: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>xScrollBarValue: (in category '*Etoys-scroll bar events') -----
xScrollBarValue: scrollValue
"although there appear to be no senders, see Slider>>setValue:"
scroller hasSubmorphs ifFalse: [^ self].
scroller offset: self leftoverScrollRange x * scrollValue @ scroller offset y!
Item was changed:
+ ----- Method: TwoWayScrollPane>>xScrollerHeight (in category 'retractable scroll bar') -----
- ----- Method: TwoWayScrollPane>>xScrollerHeight (in category '*Etoys-retractable scroll bar') -----
xScrollerHeight
(submorphs includes: xScrollBar) "Sorry the logic is reversed :( "
ifFalse: [^ 0 @ 0] "already included"
ifTrue: [^ 0 @ xScrollBar height] "leave space for it"
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>yScrollBarMenuButtonPressed: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>yScrollBarMenuButtonPressed: (in category '*Etoys-scroll bar events') -----
yScrollBarMenuButtonPressed: event
^ self yellowButtonActivity: event shiftPressed!
Item was changed:
+ ----- Method: TwoWayScrollPane>>yScrollBarValue: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>yScrollBarValue: (in category '*Etoys-scroll bar events') -----
yScrollBarValue: scrollValue
"although there appear to be no senders, see Slider>>setValue:"
scroller hasSubmorphs ifFalse: [^ self].
scroller offset: scroller offset x @ (self leftoverScrollRange y * scrollValue)!
Item was changed:
+ ----- Method: TwoWayScrollPane>>yellowButtonActivity: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>yellowButtonActivity: (in category '*Etoys-scroll bar events') -----
yellowButtonActivity: shiftKeyState
| menu |
(menu := self getMenu: shiftKeyState) ifNotNil:
[menu setInvokingView: self.
menu popUpEvent: self activeHand lastEvent in: self world]!
Item was changed:
+ ----- Method: TypeListTile>>addCaretsAsAppropriate: (in category 'arrows') -----
- ----- Method: TypeListTile>>addCaretsAsAppropriate: (in category '*Etoys-Squeakland-arrows') -----
addCaretsAsAppropriate: showingCarets
"If the argument provided is true, make any expected up-down and suffix-retract carets visible; if false, hide them all."
self setVisibilityOfUpDownCarets: true. "regardless of setting..."
self addMenuIcon!
Item was changed:
+ ----- Method: UniclassScript>>allScriptGoverningButtons (in category 'script editor') -----
- ----- Method: UniclassScript>>allScriptGoverningButtons (in category '*Etoys-Squeakland-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])!
Item was changed:
+ ----- Method: Viewer class>>innerBorderColor (in category 'constants') -----
- ----- Method: Viewer class>>innerBorderColor (in category '*Etoys-Squeakland-constants') -----
innerBorderColor
^ (UserInterfaceTheme current get: #titleBorderColor for: self) ifNil: [(Color r: 0.6 g: 0.7 b: 1)]!
Item was changed:
+ ----- Method: Viewer>>bearingFromPhrase (in category 'queries') -----
- ----- Method: Viewer>>bearingFromPhrase (in category '*Etoys-Squeakland-special phrases') -----
bearingFromPhrase
"Answer a bearing-from phrase to hand to the user."
^ self conjuredUpPhraseWithOperator: #bearingFrom: type: #Number!
Item was changed:
+ ----- Method: Viewer>>bearingToPhrase (in category 'special phrases') -----
- ----- Method: Viewer>>bearingToPhrase (in category '*Etoys-Squeakland-special phrases') -----
bearingToPhrase
"Answer a bearing-to phrase to hand to the user."
^ self conjuredUpPhraseWithOperator: #bearingTo: type: #Number!
Item was changed:
+ ----- Method: Viewer>>conjuredUpPhraseWithOperator: (in category 'special phrases') -----
- ----- Method: Viewer>>conjuredUpPhraseWithOperator: (in category '*Etoys-Squeakland-special phrases') -----
conjuredUpPhraseWithOperator: anOperator
"Answer a PhraseTileMorph carefully constructed for overlaps, overlaps-any, and touches-a -- all pseudo-slots which take a player-valued argument."
| outerPhrase |
outerPhrase := PhraseTileMorph new
setOperator: #+
type: #Boolean
rcvrType: #Player
argType: #Player. "temp dummy"
(outerPhrase submorphs second) delete. "operator"
outerPhrase addMorphBack: (TileMorph new setOperator: anOperator).
(outerPhrase submorphs second) goBehind. "Make it third"
outerPhrase submorphs last addMorph: self presenter standardPlayer tileToRefer.
^ outerPhrase!
Item was changed:
+ ----- Method: Viewer>>conjuredUpPhraseWithOperator:type: (in category 'special phrases') -----
- ----- Method: Viewer>>conjuredUpPhraseWithOperator:type: (in category '*Etoys-Squeakland-special phrases') -----
conjuredUpPhraseWithOperator: anOperator type: aType
"Answer a PhraseTileMorph carefully constructed for overlaps, overlaps-any, and touches-a, distance to, bearing to, bearing from -- all pseudo-slots which take a player-valued argument."
| outerPhrase aTile |
outerPhrase := PhraseTileMorph new
setOperator: #+
type: aType
rcvrType: #Player
argType: #Player. "temp dummy"
(outerPhrase submorphs second) delete. "operator"
aTile := TileMorph new.
aTile setOperator: anOperator andUseWording: (ScriptingSystem wordingForOperator: anOperator).
outerPhrase addMorphBack: aTile.
Smalltalk at: #AA put: aTile.
aTile addCaretsAsAppropriate: false.
(outerPhrase submorphs second) goBehind. "Make it third"
outerPhrase submorphs last addMorph: self presenter standardPlayer tileToRefer.
^ outerPhrase!
Item was changed:
+ ----- Method: Viewer>>distanceToPlayerPhrase (in category 'special phrases') -----
- ----- Method: Viewer>>distanceToPlayerPhrase (in category '*Etoys-Squeakland-special phrases') -----
distanceToPlayerPhrase
"Answer a distance-to phrase to hand to the user."
^ self conjuredUpPhraseWithOperator: #distanceToPlayer: type: #Number!
Item was changed:
+ ----- Method: ViewerFlapTab class>>defaultNameStemForInstances (in category 'printing') -----
- ----- Method: ViewerFlapTab class>>defaultNameStemForInstances (in category '*Etoys-printing') -----
defaultNameStemForInstances
^ 'viewerFlapTab' translatedNoop!
Item was changed:
+ ----- Method: ViewerFlapTab class>>includeInNewMorphMenu (in category 'new-morph participation') -----
- ----- Method: ViewerFlapTab class>>includeInNewMorphMenu (in category '*Etoys-new-morph participation') -----
includeInNewMorphMenu
"Not to be instantiated from the menu"
^ false!
Item was changed:
+ ----- Method: ViewerLine>>addCommandFeedback: (in category 'slot') -----
- ----- Method: ViewerLine>>addCommandFeedback: (in category '*Etoys-Squeakland-slot') -----
addCommandFeedback: evt
"Add screen feedback showing what would be torn off in a drag"
| aMorph |
aMorph := RectangleMorph new bounds: ((submorphs third topLeft - (2@1)) corner: (submorphs last bottomRight) + (2@1)).
aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem commandFeedback; lock.
^ Project current world addHighlightMorph: aMorph for: nil!
Item was changed:
+ ----- Method: WatcherWrapper>>burnishForReplacing (in category 'copying') -----
- ----- Method: WatcherWrapper>>burnishForReplacing (in category '*Etoys-Squeakland-copying') -----
burnishForReplacing
"Final appearance modifications before the receiver is inserted as a replacement for an earlier version of the watcher. This is a hook so that the FollowingWatcher has a chance to get its fonts right."!
Item was changed:
+ ----- Method: WatcherWrapper>>detailedWatcherColor (in category 'initialization') -----
- ----- Method: WatcherWrapper>>detailedWatcherColor (in category '*Etoys-Squeakland-initialization') -----
detailedWatcherColor
"Answer the color to use for detailed watcher."
^ (Color r: 0.508 g: 0.663 b: 1.0)!
Item was changed:
+ ----- Method: WatcherWrapper>>getter (in category 'accessing') -----
- ----- Method: WatcherWrapper>>getter (in category '*Etoys-Squeakland-accessing') -----
getter
"Answer the selector that serves as the getter for this watcher."
^ self valueOfProperty: #getter ifAbsent: [variableName asGetterSelector]!
Item was changed:
+ ----- Method: WatcherWrapper>>prospectiveReplacement (in category 'copying') -----
- ----- Method: WatcherWrapper>>prospectiveReplacement (in category '*Etoys-Squeakland-copying') -----
prospectiveReplacement
"Answer another watcher of the same class which will serve as the replacement for the receiver. This is used when the whole apparatus needs to be rebuilt after, for example, a type change or a name change."
| replacement |
replacement := self class new.
replacement position: self position.
^ replacement!
Item was changed:
+ ----- Method: WatcherWrapper>>variableName (in category 'accessing') -----
- ----- Method: WatcherWrapper>>variableName (in category '*Etoys-Squeakland-accessing') -----
variableName
"Answer the name of the variable being watched."
^ variableName!
1
0
David T. Lewis uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-dtl.511.mcz
==================== Summary ====================
Name: EToys-dtl.511
Author: dtl
Time: 15 January 2024, 9:15:17.875147 pm
UUID: 90eb09b8-4d2c-41c7-b755-df347500f84d
Ancestors: EToys-mt.510
Clean up method categoreies in. Combine similarly named categories. Eliminate redundant method package overrides, if a class is in package Etoys then its methods should not have #Etoys- extensions.
=============== Diff against EToys-mt.510 ===============
Item was changed:
+ ----- Method: AcceptableCleanTextMorph>>accept (in category 'menu commands') -----
- ----- Method: AcceptableCleanTextMorph>>accept (in category '*Etoys-menu commands') -----
accept
"Overridden to allow accept of clean text"
| textToAccept ok |
textToAccept := textMorph text.
ok := setTextSelector isNil or:
[setTextSelector numArgs = 2
ifTrue:
[model
perform: setTextSelector
with: textToAccept
with: self]
ifFalse: [model perform: setTextSelector with: textToAccept]].
ok
ifTrue:
[self setText: self getText.
self hasUnacceptedEdits: false]!
Item was changed:
+ ----- Method: AllPlayersTool class>>allPlayersToolForActiveWorld (in category 'parts bin') -----
- ----- Method: AllPlayersTool class>>allPlayersToolForActiveWorld (in category '*Etoys-Squeakland-parts bin') -----
allPlayersToolForActiveWorld
"Launch an AllPlayersTool to view the scripted objects of the active world"
| aTool |
aTool := self newStandAlone.
aTool center: self currentWorld center.
^ aTool
"
AllPlayersTool allPlayersToolForActiveWorld
"!
Item was changed:
+ ----- Method: AllPlayersTool>>helpString (in category 'menus') -----
- ----- Method: AllPlayersTool>>helpString (in category '*Etoys-Squeakland-menus') -----
helpString
"Answer a string of help"
^ 'Each row represents an object, or "player" in the project.
Click on the menu icon to get a menu of options concerning the player.
Click on a player''s picture to reveal its location.
Click on the turquoise eye to open the player''s viewer.
Click on a player''s name to obtain a tile representing it.'
translated.!
Item was changed:
+ ----- Method: AllPlayersTool>>playersOnDisplay (in category 'reinvigoration') -----
- ----- Method: AllPlayersTool>>playersOnDisplay (in category '*Etoys-Squeakland-reinvigoration') -----
playersOnDisplay
"Answer a list of the players represented by the rows in the tool."
| aList |
(submorphs size < 3 or: [(submorphs third isKindOf: ScrollPane) not]) ifTrue: [^ #()].
aList := submorphs third scroller firstSubmorph submorphs collect:
[:aRow | aRow playerRepresented].
^ aList copyWithout: nil!
Item was changed:
+ ----- Method: AllPlayersTool>>updateScrollbar (in category 'initialization') -----
- ----- Method: AllPlayersTool>>updateScrollbar (in category '*Etoys-Squeakland-initialization') -----
updateScrollbar
"Every subsystem needs a little bit of inscrutable magic"
self setExtentFromHalo: ((self extent x max:300) @ (self extent y max: 400))!
Item was changed:
+ ----- Method: AllScriptsTool>>helpString (in category 'initialization') -----
- ----- Method: AllScriptsTool>>helpString (in category '*Etoys-Squeakland-initialization') -----
helpString
"Answer the help string for the all-scripts tool."
^
'This tool allows you to see all the scripts for all the objects in this project.
Sometimes you are only interested in those scripts that are ticking, or that are *ready* to tick when you hit the GO button (which are said to be "paused.")
* Check "tickers only" if you only want to see such scripts -- i.e., scripts that are either paused or ticking.
* If "tickers only" is *not* checked, then all scripts will be shown, whatever their status.
* The other checkbox, labeled "all instances", only comes into play if you have created "multiple sibling instances" (good grief) of the same object, which share the same scripts; if you have such things, it is often convenient to see the scripts of just *one* such sibling, because it will take up less space and require less mindshare -- and note that you can control a script for an object *and* all its siblings from the menu of that one that you see, via menu items such as "propagate status to siblings".
* If "all instances" is checked, scripts for all sibling instances will be shown, whereas if "all instances" is *not* checked, only one of each group of siblings will be selected to have its scripts shown.
But how do you get "multiple sibling instances" of the same object? There are several ways:
(1) Use the "make a sibling instance" or the "make multiple siblings..." menu item in the halo menu of a scripted object.
(2) Use the "copy" tile in a script.
(3) Request "give me a copy now" from the menu associated with the "copy" item in a Viewer.
If you have on your screen multiple sibling instances of the same object, then you may or may want to see them all in the All Scripts tool, and that is what the "all instances" checkbox governs.
Set "all instances" if you want a separate entry for each instance, as
opposed to a single representative of that kind of object.
Note that if you obtain a copy of an object by using the green halo handle, it will *not* be a sibling instance of the original. It will in many ways seem to be, because it will start out its life having the same scripts as the original. But it will then lead an independent life, so that changes to scripts of the original will not be reflected in it, and vice-versa.
This is an important distinction, and an unavoidable one because people sometimes want the deep sharing of sibling instances and sometimes they clearly do not. But the truly understandable description of these concepts and distinctions certainly lies *ahead* of us!!' translated!
Item was changed:
+ ----- Method: AssignmentTileMorph>>assignmentRootForParseNode (in category 'initialization') -----
- ----- Method: AssignmentTileMorph>>assignmentRootForParseNode (in category '*Etoys-Squeakland-player viewer') -----
assignmentRootForParseNode
"Answer the assignment root"
^ assignmentRoot asSetterSelector!
Item was changed:
+ ----- Method: AssignmentTileMorph>>assignmentSuffix (in category 'accessing') -----
- ----- Method: AssignmentTileMorph>>assignmentSuffix (in category '*Etoys-Squeakland-accessing') -----
assignmentSuffix
^ assignmentSuffix.
!
Item was changed:
+ ----- Method: AssignmentTileMorph>>operatorForSexpAssignmentSuffix: (in category 'code generation') -----
- ----- Method: AssignmentTileMorph>>operatorForSexpAssignmentSuffix: (in category '*Etoys-Squeakland-code generation') -----
operatorForSexpAssignmentSuffix: aString
"Answer the operator associated with the receiver, assumed to be one of the compound assignments"
| toTest |
toTest := aString asString.
#( ('Incr:' #Incr:)
('Decr:' #Decr:)
('Mult:' #Mult:)
(':' ''))
do:
[:pair | toTest = pair first ifTrue: [^ pair second]].
^ toTest
"AssignmentTileMorph new operatorForTreeAssignmentSuffix: 'Incr:'"!
Item was changed:
+ ----- Method: AssignmentTileMorph>>parseNodeWith: (in category 'code generation') -----
- ----- Method: AssignmentTileMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
self error: 'error'.
!
Item was changed:
+ ----- Method: BooleanScriptEditor>>parseNodeWith: (in category 'other') -----
- ----- Method: BooleanScriptEditor>>parseNodeWith: (in category '*Etoys-Squeakland-other') -----
parseNodeWith: encoder
(submorphs notEmpty and: [submorphs first submorphs notEmpty])
ifTrue: [^ super parseNodeWith: encoder].
^ encoder encodeLiteral: true.
!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph class>>forBottomEdge (in category 'instance creation') -----
- ----- Method: BorderedSubpaneDividerMorph class>>forBottomEdge (in category '*Etoys-instance creation') -----
forBottomEdge
^self new horizontal resizingEdge: #bottom!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph class>>forTopEdge (in category 'instance creation') -----
- ----- Method: BorderedSubpaneDividerMorph class>>forTopEdge (in category '*Etoys-instance creation') -----
forTopEdge
^self new horizontal resizingEdge: #top!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph class>>horizontal (in category 'instance creation') -----
- ----- Method: BorderedSubpaneDividerMorph class>>horizontal (in category '*Etoys-instance creation') -----
horizontal
^self new horizontal!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph class>>vertical (in category 'instance creation') -----
- ----- Method: BorderedSubpaneDividerMorph class>>vertical (in category '*Etoys-instance creation') -----
vertical
^self new vertical!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>defaultBorderWidth (in category 'initialization') -----
- ----- Method: BorderedSubpaneDividerMorph>>defaultBorderWidth (in category '*Etoys-initialization') -----
defaultBorderWidth
"answer the default border width for the receiver"
^ 0!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>defaultColor (in category 'initialization') -----
- ----- Method: BorderedSubpaneDividerMorph>>defaultColor (in category '*Etoys-initialization') -----
defaultColor
"answer the default color/fill style for the receiver"
^ Color black!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>firstEnter: (in category 'private') -----
- ----- Method: BorderedSubpaneDividerMorph>>firstEnter: (in category '*Etoys-private') -----
firstEnter: evt
"The first time this divider is activated, find its window and redirect further interaction there."
| window |
window := self firstOwnerSuchThat: [:m | m respondsTo: #secondaryPaneTransition:divider:].
window ifNil: [ self suspendEventHandler. ^ self ]. "not working out"
window secondaryPaneTransition: evt divider: self.
self on: #mouseEnter send: #secondaryPaneTransition:divider: to: window.
!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>horizontal (in category 'layout') -----
- ----- Method: BorderedSubpaneDividerMorph>>horizontal (in category '*Etoys-layout') -----
horizontal
self hResizing: #spaceFill.!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>initialize (in category 'initialization') -----
- ----- Method: BorderedSubpaneDividerMorph>>initialize (in category '*Etoys-initialization') -----
initialize
"initialize the state of the receiver"
super initialize.
""
self extent: 1 @ 1!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>resizingEdge (in category 'accessing') -----
- ----- Method: BorderedSubpaneDividerMorph>>resizingEdge (in category '*Etoys-accessing') -----
resizingEdge
^resizingEdge
!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>resizingEdge: (in category 'accessing') -----
- ----- Method: BorderedSubpaneDividerMorph>>resizingEdge: (in category '*Etoys-accessing') -----
resizingEdge: edgeSymbol
(#(top bottom) includes: edgeSymbol) ifFalse:
[ self error: 'resizingEdge must be #top or #bottom' ].
resizingEdge := edgeSymbol.
self on: #mouseEnter send: #firstEnter: to: self.
!
Item was changed:
+ ----- Method: BorderedSubpaneDividerMorph>>vertical (in category 'layout') -----
- ----- Method: BorderedSubpaneDividerMorph>>vertical (in category '*Etoys-layout') -----
vertical
self vResizing: #spaceFill.!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>hideOrShowPane (in category 'displaying') -----
- ----- Method: BrowserCommentTextMorph>>hideOrShowPane (in category '*Etoys-displaying') -----
hideOrShowPane
(self model editSelection == #editClass)
ifTrue: [ self showPane ]
ifFalse: [ self hidePane ]!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>hidePane (in category 'displaying') -----
- ----- Method: BrowserCommentTextMorph>>hidePane (in category '*Etoys-displaying') -----
hidePane
| win |
self window ifNotNil: [:window | window removePaneSplitters].
self lowerPane ifNotNil:
[ :lp |
lp layoutFrame bottomFraction: self layoutFrame bottomFraction.
lp layoutFrame bottomOffset: SystemWindow borderWidth negated].
win := self window ifNil: [ ^self ].
self delete.
win updatePanesFromSubmorphs.
win addPaneSplitters!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>lowerPane (in category 'accessing') -----
- ----- Method: BrowserCommentTextMorph>>lowerPane (in category '*Etoys-accessing') -----
lowerPane
"Answer the AlignmentMorph that I live beneath"
^self valueOfProperty: #browserLowerPane!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>noteNewOwner: (in category 'updating') -----
- ----- Method: BrowserCommentTextMorph>>noteNewOwner: (in category '*Etoys-updating') -----
noteNewOwner: win
super noteNewOwner: win.
self setProperty: #browserWindow toValue: win.
win ifNil: [ ^self ].
win setProperty: #browserClassCommentPane toValue: self.
self setProperty: #browserLowerPane
toValue: (win submorphThat: [ :m |
m isAlignmentMorph
and: [ m layoutFrame bottomFraction notNil
and: [ m layoutFrame bottomFraction >= self layoutFrame topFraction ]]]
ifNone: [])!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>showPane (in category 'displaying') -----
- ----- Method: BrowserCommentTextMorph>>showPane (in category '*Etoys-displaying') -----
showPane
owner ifNil: [
| win |
win := self window ifNil: [ ^self ].
win addMorph: self fullFrame: self layoutFrame.
win updatePanesFromSubmorphs ].
self lowerPane ifNotNil: [ :lp | lp layoutFrame bottomFraction: self layoutFrame topFraction ].
self window ifNotNil: [:win | win addPaneSplitters]!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>update: (in category 'updating') -----
- ----- Method: BrowserCommentTextMorph>>update: (in category '*Etoys-updating') -----
update: anAspect
super update: anAspect.
anAspect == #editSelection ifFalse: [ ^self ].
self hideOrShowPane!
Item was changed:
+ ----- Method: BrowserCommentTextMorph>>window (in category 'accessing') -----
- ----- Method: BrowserCommentTextMorph>>window (in category '*Etoys-accessing') -----
window
^self owner ifNil: [ self valueOfProperty: #browserWindow ].!
Item was changed:
+ ----- Method: CategoryViewer>>addColorSeesDetailTo: (in category 'editing pane') -----
- ----- Method: CategoryViewer>>addColorSeesDetailTo: (in category '*Etoys-Squeakland-entries') -----
addColorSeesDetailTo: aRow
"Special-casee code for the boolean-valued phrase variously known as is-over-color or sees-color."
| hotTileForSelf colorMorph |
(aRow submorphs last) delete.
aRow addMorphBack: (hotTileForSelf := ColorSeerTile new showPalette: false; yourself).
aRow addMorphBack: (colorMorph := ColorTileMorph new showPalette: false;
typeColor: (ScriptingSystem colorForType: #Color); yourself).
colorMorph colorSwatch color: Color blue.
hotTileForSelf on: #mouseEnter send: #addGetterFeedback to: aRow.
hotTileForSelf on: #mouseLeave send: #removeHighlightFeedback to: aRow.
hotTileForSelf on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow.
hotTileForSelf on: #mouseDown send: #makeGetter:event:from:
to: self
withValue: (Array with: #color:sees: with: #Boolean).
colorMorph on: #mouseEnter send: #addGetterFeedback to: aRow.
colorMorph on: #mouseLeave send: #removeHighlightFeedback to: aRow.
colorMorph on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow.
colorMorph on: #mouseDown send: #makeGetter:event:from:
to: self
withValue: (Array with: #color:sees: with: #Boolean).
aRow addMorphBack: (Morph new extent: 0@(aRow height)).
!
Item was changed:
+ ----- Method: CategoryViewer>>addPlayerArgumentTo: (in category 'entries') -----
- ----- Method: CategoryViewer>>addPlayerArgumentTo: (in category '*Etoys-Squeakland-entries') -----
addPlayerArgumentTo: aRow
"Add, delimited by spacer morphs, a player-valued TileMorph to the row provided."
| aTileToRefer |
aRow addMorphBack: (Morph new extent: 0@0). "spacer (Is this spacer really needed??? - takashi)"
aTileToRefer := self presenter standardPlayer tileToRefer.
aTileToRefer on: #mouseEnter send: #addGetterFeedback to: aRow.
aTileToRefer on: #mouseLeave send: #removeHighlightFeedback to: aRow.
aTileToRefer on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow.
aRow addMorphBack: aTileToRefer .
aRow addMorphBack: (AlignmentMorph new beTransparent). "flexible spacer"
!
Item was changed:
+ ----- Method: CategoryViewer>>assureCategoryFullyVisible (in category 'categories') -----
- ----- Method: CategoryViewer>>assureCategoryFullyVisible (in category '*Etoys-Squeakland-categories') -----
assureCategoryFullyVisible
"Keep deleting categoryviewers other than the receiver until the receiver is fully visible."
| ready toDelete |
ready := false.
[(self bounds bottom > self currentWorld bottom) and: [ready not]] whileTrue: [
owner submorphs size > 2
ifTrue: [
toDelete := owner submorphs allButFirst reversed
detect: [:cv | cv ~~ self]
ifNone: [^ self].
toDelete delete.
self world doOneCycleNow]
ifFalse: [
ready := true]].!
Item was changed:
+ ----- Method: CategoryViewer>>booleanPhraseFromNumericGetterWithArgument: (in category 'support') -----
- ----- Method: CategoryViewer>>booleanPhraseFromNumericGetterWithArgument: (in category '*Etoys-Squeakland-as yet unclassified') -----
booleanPhraseFromNumericGetterWithArgument: phrase
"Answer a morph derived from the incoming phrase, a bearingTo: or distanceToPlayer: phrase, which will be suitable for dropping into a TEST area. "
| outerPhrase rel finalTile |
rel := Vocabulary numberVocabulary comparatorForSampleBoolean.
outerPhrase := PhraseTileMorph new setOperator: rel type: #Boolean rcvrType: #Number argType: #Number.
outerPhrase firstSubmorph addMorph: phrase.
outerPhrase firstSubmorph changeTableLayout.
finalTile := ScriptingSystem tileForArgType: #Number. "comes with arrows"
outerPhrase submorphs last addMorph: finalTile.
outerPhrase submorphs second submorphs last setBalloonText: (ScriptingSystem helpStringForOperator: rel).
^ outerPhrase!
Item was changed:
+ ----- Method: CategoryViewer>>categoryNameMorph (in category 'categories') -----
- ----- Method: CategoryViewer>>categoryNameMorph (in category '*Etoys-Squeakland-categories') -----
categoryNameMorph
"Answer the StringMorph that holds the current category name."
^ namePane findA: StringMorph!
Item was changed:
+ ----- Method: CategoryViewer>>phraseForTest (in category 'entries') -----
- ----- Method: CategoryViewer>>phraseForTest (in category '*Etoys-Squeakland-entries') -----
phraseForTest
"Answer a phrase for the non-slot-like command represented by aMethodInterface - classic tiles"
| aPhrase aRow |
aPhrase := PhraseTileForTest new.
aRow := ViewerLine newRow.
aRow addMorphBack: ScriptingSystem buttonSpacer.
aRow addMorphBack: self spacerAfterButton.
aRow addMorphBack: aPhrase.
aRow setBalloonText: 'Press here to tear off a TEST/YES/NO unit which you can drop into your script' translated.
^ aRow.
!
Item was changed:
+ ----- Method: CategoryViewer>>phraseForTimesRepeat (in category 'entries') -----
- ----- Method: CategoryViewer>>phraseForTimesRepeat (in category '*Etoys-Squeakland-entries') -----
phraseForTimesRepeat
"Answer a phrase representing times/repeat"
| aPhrase aRow |
aPhrase := PhraseTileForTimesRepeat new.
aRow := ViewerLine newRow.
aRow addMorphBack: ScriptingSystem buttonSpacer.
aRow addMorphBack: self spacerAfterButton.
aRow addMorphBack: aPhrase.
aRow setBalloonText: 'Drag here to tear off a Repeat/Times unit which you can drop into your script' translated.
^ aRow.
!
Item was changed:
+ ----- Method: CategoryViewer>>spacerAfterButton (in category 'entries') -----
- ----- Method: CategoryViewer>>spacerAfterButton (in category '*Etoys-Squeakland-entries') -----
spacerAfterButton
^ Morph new extent: 2 @ 0;
beTransparent!
Item was changed:
+ ----- Method: CategoryViewer>>universalTilesPhraseForVariableFrom: (in category 'entries') -----
- ----- Method: CategoryViewer>>universalTilesPhraseForVariableFrom: (in category '*Etoys-Squeakland-entries') -----
universalTilesPhraseForVariableFrom: aMethodInterface
"The universal-tiles variant of phraseForVariableFrom:... Split out to preserve it, somewhat, though we're not using universal tiles any more, presuambly ever again (indeed we never did) but for convenience moved here so that 'universal' code doesn't becloud #phraseForVariableFrom:"
| anArrow slotName getterButton cover inner aRow doc setter tryer |
aRow := ViewerLine newRow
elementSymbol: (slotName := aMethodInterface selector);
wrapCentering: #center;
cellPositioning: #leftCenter.
(self wantsInfoButtonFor: slotName)
ifFalse:
[aRow addMorphBack: ScriptingSystem buttonSpacer]
ifTrue:
[aRow addMorphBack: (self infoButtonFor: slotName)].
aRow addMorphBack: self spacerAfterButton.
inner := scriptedPlayer universalTilesForGetterOf: aMethodInterface.
cover := Morph new color: Color transparent.
cover extent: inner fullBounds extent.
(getterButton := cover copy) addMorph: cover; addMorphBack: inner.
cover on: #mouseDown send: #makeUniversalTilesGetter:event:from:
to: self withValue: aMethodInterface.
aRow addMorphFront: (tryer := ScriptingSystem tryButtonFor: inner).
tryer color: tryer color lighter lighter.
aRow addMorphBack: getterButton.
getterButton on: #mouseEnter send: #addGetterFeedback to: aRow.
getterButton on: #mouseLeave send: #removeHighlightFeedback to: aRow.
getterButton on: #mouseLeaveDragging send: #removeHighlightFeedback to: aRow.
(doc := aMethodInterface documentation) ifNotNil:
[getterButton setBalloonText: doc].
aRow addMorphBack: (AlignmentMorph new beTransparent). "flexible spacer"
(setter := aMethodInterface companionSetterSelector) ifNotNil:
[aRow addMorphBack: (Morph new color: self color; extent: 2@10). " spacer"
anArrow := self arrowSetterButton: #newMakeSetterFromInterface:evt:from:
args: aMethodInterface.
anArrow beTransparent.
aRow addMorphBack: anArrow].
anArrow ifNotNil: [anArrow step].
^ aRow!
Item was changed:
+ ----- Method: CategoryViewer>>wantsInfoButtonFor: (in category 'entries') -----
- ----- Method: CategoryViewer>>wantsInfoButtonFor: (in category '*Etoys-Squeakland-entries') -----
wantsInfoButtonFor: slotName
"Answer whether a menu button is desired in a viewer for a slot of the given name."
^ (#(color:sees: seesColor: overlaps: overlapsAny: touchesA:) includes: slotName) not!
Item was changed:
+ ----- Method: ColorSeerTile>>parseNodeWith: (in category 'code generation') -----
- ----- Method: ColorSeerTile>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
self error: 'should not reach here'.!
Item was changed:
+ ----- Method: CompoundTileMorph>>aboutToBeAcceptedInScriptor (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>aboutToBeAcceptedInScriptor (in category '*Etoys-Squeakland-miscellaneous') -----
aboutToBeAcceptedInScriptor
"The receiver is about to be accepted in a Scriptor. Adjust state information accordingly."
justGrabbedFromViewer := false.
self removeProperty: #newPermanentScript.
self removeProperty: #newPermanentPlayer.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>addCommandFeedback: (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>addCommandFeedback: (in category '*Etoys-Squeakland-miscellaneous') -----
addCommandFeedback: evt
"Add screen feedback showing what would be torn off in a drag"
| aMorph |
aMorph := RectangleMorph new
bounds: self bounds;
beTransparent;
borderWidth: 2;
borderColor: ScriptingSystem commandFeedback;
lock;
yourself.
self currentWorld addHighlightMorph: aMorph for: self outmostScriptEditor.!
Item was changed:
+ ----- Method: CompoundTileMorph>>blockNode:with: (in category 'code generation') -----
- ----- Method: CompoundTileMorph>>blockNode:with: (in category '*Etoys-Squeakland-code generation') -----
blockNode: scriptPart with: encoder
^ BlockNode new arguments: #() statements: (self blockNodeElements: scriptPart with: encoder) returns: false from: encoder.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>blockNodeElements:with: (in category 'code generation') -----
- ----- Method: CompoundTileMorph>>blockNodeElements:with: (in category '*Etoys-Squeakland-code generation') -----
blockNodeElements: scriptPart with: encoder
| rows r |
rows := scriptPart tileRows.
^ Array streamContents: [:strm |
1 to: rows size do: [:i |
r := rows at: i.
r do: [:t | strm nextPut: (t parseNodeWith: encoder asStatement: true)].
].
].
!
Item was changed:
+ ----- Method: CompoundTileMorph>>delegatingMouseEnter: (in category 'initialization') -----
- ----- Method: CompoundTileMorph>>delegatingMouseEnter: (in category '*Etoys-Squeakland-initialization') -----
delegatingMouseEnter: evt
| o oo |
(o := self owner) ifNotNil: [(oo := o owner) ifNotNil: [^ oo mouseEnter: evt]].
!
Item was changed:
+ ----- Method: CompoundTileMorph>>evaluateOn: (in category 'etoys-debugger') -----
- ----- Method: CompoundTileMorph>>evaluateOn: (in category '*Etoys-Squeakland-etoys-debugger') -----
evaluateOn: anEtoysDebugger
^ anEtoysDebugger evaluateTest: self!
Item was changed:
+ ----- Method: CompoundTileMorph>>evaluateTestPart (in category 'etoys-debugger') -----
- ----- Method: CompoundTileMorph>>evaluateTestPart (in category '*Etoys-Squeakland-etoys-debugger') -----
evaluateTestPart
| condition |
condition := testPart tiles at: 1 ifAbsent: [^ true].
^ Compiler evaluate: condition codeString
for: (condition associatedPlayer
ifNil: [condition topEditor playerScripted])
logged: false!
Item was changed:
+ ----- Method: CompoundTileMorph>>justGrabbedFromViewer (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>justGrabbedFromViewer (in category '*Etoys-Squeakland-miscellaneous') -----
justGrabbedFromViewer
"Answer whether the receiver originated in a Viewer. Only tiles that originated in a viewer will ever do that infernal sprouting of a new script around them. The nil branch is only for backward compatibility."
^ justGrabbedFromViewer ifNil: [justGrabbedFromViewer := true]!
Item was changed:
+ ----- Method: CompoundTileMorph>>justGrabbedFromViewer: (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>justGrabbedFromViewer: (in category '*Etoys-Squeakland-miscellaneous') -----
justGrabbedFromViewer: aBoolean
"Set the receiver's justGrabbedFromViewer instance variable"
justGrabbedFromViewer := aBoolean!
Item was changed:
+ ----- Method: CompoundTileMorph>>justGrabbedFromViewerOrNil (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>justGrabbedFromViewerOrNil (in category '*Etoys-Squeakland-miscellaneous') -----
justGrabbedFromViewerOrNil
"Answer the value of the receiver's justGrabbedFromViewer slot. Needed only for conversion methods"
^ justGrabbedFromViewer!
Item was changed:
+ ----- Method: CompoundTileMorph>>labelMorphs (in category 'access') -----
- ----- Method: CompoundTileMorph>>labelMorphs (in category '*Etoys-Squeakland-access') -----
labelMorphs
| w |
w := WriteStream on: (Array new: 3).
w nextPut: self submorphs first submorphs second.
w nextPut: self submorphs second submorphs second.
w nextPut: self submorphs third submorphs second.
^ w contents.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>noPart (in category 'etoys-debugger') -----
- ----- Method: CompoundTileMorph>>noPart (in category '*Etoys-Squeakland-etoys-debugger') -----
noPart
^ noPart!
Item was changed:
+ ----- Method: CompoundTileMorph>>parseNodeWith: (in category 'code generation') -----
- ----- Method: CompoundTileMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
| rec yes no |
rec := (self blockNodeElements: testPart with: encoder).
rec size > 0 ifTrue: [rec := rec last] ifFalse: [rec := encoder encodeLiteral: true].
yes := self blockNode: yesPart with: encoder.
no := self blockNode: noPart with: encoder.
^ MessageNode new
receiver: rec
selector: #ifTrue:ifFalse:
arguments: (Array with: yes with: no)
precedence: (#ifTrue:ifFalse: precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>parseNodeWith:asStatement: (in category 'code generation') -----
- ----- Method: CompoundTileMorph>>parseNodeWith:asStatement: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder asStatement: aBoolean
^ self parseNodeWith: encoder.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>removeHighlightFeedback (in category 'miscellaneous') -----
- ----- Method: CompoundTileMorph>>removeHighlightFeedback (in category '*Etoys-Squeakland-miscellaneous') -----
removeHighlightFeedback
"Remove any existing highlight feedback"
self world removeHighlightFeedback.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>testPart (in category 'etoys-debugger') -----
- ----- Method: CompoundTileMorph>>testPart (in category '*Etoys-Squeakland-etoys-debugger') -----
testPart
^ testPart!
Item was changed:
+ ----- Method: CompoundTileMorph>>unhibernate (in category 'initialization') -----
- ----- Method: CompoundTileMorph>>unhibernate (in category '*Etoys-Squeakland-initialization') -----
unhibernate
self labelMorphs do: [:l | l label: l contents font: Preferences standardEToysFont].
self removeProperty: #needsLayoutFixed.
!
Item was changed:
+ ----- Method: CompoundTileMorph>>yesPart (in category 'etoys-debugger') -----
- ----- Method: CompoundTileMorph>>yesPart (in category '*Etoys-Squeakland-etoys-debugger') -----
yesPart
^ yesPart!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>ageTriplets (in category 'Squeakland-classification accessing') -----
- ----- Method: EToyProjectDetailsMorph class>>ageTriplets (in category '*Etoys-Squeakland-classification accessing') -----
ageTriplets
"Answer a list of the triplets characterizing the 'age' categories; each triplet is of the form
(<numeric code> <string code> <english version>)"
^ AgeTriplets ifNil: [
AgeTriplets := (self cachedTripletsFor: #age)
ifNil: [self defaultAgeTriplets]]!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>cachedTripletsFor: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>cachedTripletsFor: (in category '*Etoys-Squeakland-classification information') -----
cachedTripletsFor: aCategory
"Load triplets from file, e.g. '.ageCatList-de.csv' for the 'age' category"
| file |
[
file := FileStream readOnlyFileNamed: (self tripletsFileNameFor: aCategory).
[^self tripletsFrom: file contentsOfEntireFile] ensure: [file close].
] ifError: [].
^nil
!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>csvLineQuotedDecodedFor: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph class>>csvLineQuotedDecodedFor: (in category '*Etoys-Squeakland-utilities') -----
csvLineQuotedDecodedFor: aString
"Given that the string provided consists of items delimited by double-quotes and separated by commas, answer an array containing the individual items with quotes removed."
| openQuoteHanging readStream elementStream char |
openQuoteHanging := false.
^ Array streamContents: [:writeStream |
readStream := aString readStream.
elementStream := WriteStream on: ''.
[readStream atEnd] whileFalse:
[char := readStream next.
char = $"
ifTrue:
[openQuoteHanging
ifTrue:
[writeStream nextPut: elementStream contents.
elementStream := WriteStream on: ''.
openQuoteHanging := false]
ifFalse:
[openQuoteHanging := true]]
ifFalse:
[openQuoteHanging ifTrue:
[elementStream nextPut: char]]]]
"
(((HTTPSocket httpGet: 'http://squeakland.org/subjectCatList' args: #() user: '' passwd: '')) contents copyReplaceAll: String lf with: String cr) lines collect: [:l | EToyProjectDetailsMorph csvLineQuotedDecodedFor: l]
"!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>defaultAgeTriplets (in category 'Squeakland-classification defaults') -----
- ----- Method: EToyProjectDetailsMorph class>>defaultAgeTriplets (in category '*Etoys-Squeakland-classification defaults') -----
defaultAgeTriplets
"Answer a default set of triplets characterizing the Age classifications"
^ #(
('556' 'showcase : by age : 6 to 8' 'Ages 6 to 8')
('558' 'showcase : by age : 9 to 11' 'Ages 9 to 11')
('559' 'showcase : by age : 12 to 14' 'Ages 12 to 14')
('560' 'showcase : by age : 15 to 18' 'Ages 15 to 18') )!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>defaultRegionTriplets (in category 'Squeakland-classification defaults') -----
- ----- Method: EToyProjectDetailsMorph class>>defaultRegionTriplets (in category '*Etoys-Squeakland-classification defaults') -----
defaultRegionTriplets
"Answer default triplets for the region codes"
^ #(
('619' 'showcase : by region : Africa' 'Africa')
('620' 'showcase : by region : Antarctica' 'Antarctica')
('621' 'showcase : by region : Asia' 'Asia')
('622' 'showcase : by region : Australia' 'Australia')
('623' 'showcase : by region : Caribbean' 'Caribbean')
('624' 'showcase : by region : Central America' 'Central America')
('625' 'showcase : by region : Europe' 'Europe')
('626' 'showcase : by region : North America' 'North America')
('627' 'showcase : by region : Oceania' 'Oceania')
('628' 'showcase : by region : South America' 'South America')
)
"
EToyProjectDetailsMorph defaultRegionTriplets
"!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>defaultSubjectTriplets (in category 'Squeakland-classification defaults') -----
- ----- Method: EToyProjectDetailsMorph class>>defaultSubjectTriplets (in category '*Etoys-Squeakland-classification defaults') -----
defaultSubjectTriplets
"Answer a default set of triplets characterizing the Subject classifications"
^ #(
('554' 'showcase : by subject : language arts' 'Language Arts')
('553' 'showcase : by subject : mathemetics' 'Mathematics')
('555' 'showcase : by subject : science' 'Science')
('860' 'showcase : by subject : social studies' 'Social Studies')
('861' 'showcase : by subject : music' 'Music')
('862' 'showcase : by subject : visual arts' 'Visual Arts')
('863' 'showcase : by subject : health' 'Health'))!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>linesIn: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph class>>linesIn: (in category '*Etoys-Squeakland-utilities') -----
linesIn: aString
"Answer an array whose elements are strings constituting the lines in the input string."
^ Array streamContents: [:aStream |
aString linesDo:
[: aLine | aStream nextPut: aLine]]
"
EToyProjectDetailsMorph linesIn: 'Fred
the
Bear'
"!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>regionTriplets (in category 'Squeakland-classification accessing') -----
- ----- Method: EToyProjectDetailsMorph class>>regionTriplets (in category '*Etoys-Squeakland-classification accessing') -----
regionTriplets
"Answer a list of triplets of the form (numberCode stringCode englishName) for the regions."
^ RegionTriplets ifNil: [
RegionTriplets := (self cachedTripletsFor: #region)
ifNil: [self defaultRegionTriplets]]!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>restoreDefaultTriplets (in category 'Squeakland-classification defaults') -----
- ----- Method: EToyProjectDetailsMorph class>>restoreDefaultTriplets (in category '*Etoys-Squeakland-classification defaults') -----
restoreDefaultTriplets
"Restore the defaults obtained from cold hard code."
RegionTriplets := self defaultRegionTriplets.
AgeTriplets := self defaultAgeTriplets.
SubjectTriplets := self defaultSubjectTriplets
"
EToyProjectDetailsMorph restoreDefaultTriplets
"!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>subjectTriplets (in category 'Squeakland-classification accessing') -----
- ----- Method: EToyProjectDetailsMorph class>>subjectTriplets (in category '*Etoys-Squeakland-classification accessing') -----
subjectTriplets
"Answer a list of triplets characterizing the subjects in the current taxonomy."
^ SubjectTriplets ifNil: [
SubjectTriplets := (self cachedTripletsFor: #subject)
ifNil: [self defaultSubjectTriplets]]!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>tripletsFileNameFor: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>tripletsFileNameFor: (in category '*Etoys-Squeakland-classification information') -----
tripletsFileNameFor: aCategory
"self tripletsFileNameFor: #age"
^ '.', aCategory, 'CatList-', Locale current localeID printString, '.csv'
!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>tripletsFrom: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>tripletsFrom: (in category '*Etoys-Squeakland-classification information') -----
tripletsFrom: csvString
| result |
[result := (self linesIn: (csvString copyReplaceAll: String lf with: String cr))
collect: [:l | self csvLineQuotedDecodedFor: l]
] on: Error do: [:ex | ^ nil].
(self validateCategoryTriplets: result) ifFalse: [^ nil].
^result.
!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>tripletsUrlFor: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>tripletsUrlFor: (in category '*Etoys-Squeakland-classification information') -----
tripletsUrlFor: aCategory
"self tripletsUrlFor: #age"
^'http://squeakland.org/', aCategory, 'CatList?lang=', Locale current localeID printString!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>updateTripletsFor: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>updateTripletsFor: (in category '*Etoys-Squeakland-classification information') -----
updateTripletsFor: aCategory
"Fetch the age-range, subject, or region triplet files from the web site and cache them locally."
| contents triplets file filename |
contents := (HTTPSocket httpGet: (self tripletsUrlFor: aCategory) args: #() user: '' passwd: '') contents.
triplets := self tripletsFrom: contents.
triplets ifNotNil: [
self useTriplets: triplets for: aCategory.
filename := self tripletsFileNameFor: aCategory.
file := FileStream fileNamed: filename.
[file truncate; nextPutAll: contents] ensure: [file close].
].
!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>updateTripletsFromWebSite (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>updateTripletsFromWebSite (in category '*Etoys-Squeakland-classification information') -----
updateTripletsFromWebSite
"Attempt to update the age-range, subject, and region triplets cache on file by looking for the latest versions on the web site."
#(age subject region) do: [:cat |
self updateTripletsFor: cat]!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>updateTripletsFromWebSiteInBackground (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>updateTripletsFromWebSiteInBackground (in category '*Etoys-Squeakland-classification information') -----
updateTripletsFromWebSiteInBackground
[
[self updateTripletsFromWebSite] ifError: []
] forkAt: Processor userBackgroundPriority named: 'Etoys category updater'!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>useTriplets:for: (in category 'Squeakland-classification accessing') -----
- ----- Method: EToyProjectDetailsMorph class>>useTriplets:for: (in category '*Etoys-Squeakland-classification accessing') -----
useTriplets: triplets for: aCategory
aCategory = #age ifTrue: [AgeTriplets := triplets].
aCategory = #subject ifTrue: [SubjectTriplets := triplets].
aCategory = #region ifTrue: [RegionTriplets := triplets].!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph class>>validateCategoryTriplets: (in category 'Squeakland-classification information') -----
- ----- Method: EToyProjectDetailsMorph class>>validateCategoryTriplets: (in category '*Etoys-Squeakland-classification information') -----
validateCategoryTriplets: aList
"The input is a tuple obtained by extracting lines from a string obtained from the squeakland web site. Answer true if the tuple passes the smoke-test for category triplets."
(aList isNil or: [aList size < 2]) ifTrue: [^ false].
aList do:
[:element |
(element isCollection not or: [element size < 3]) ifTrue: [^ false]].
^ true
"
self validateCategoryTriplets: RegionTriplets
"!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph>>choicesFor: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph>>choicesFor: (in category '*Etoys-Squeakland-utilities') -----
choicesFor: aSymbol
"Answer the list of choices to offer for the given symbol, which will be subject, age, or region. Answer nil if the symbol provided is one without enumerated choices."
aSymbol = #subject ifTrue:
[^ self class subjectTriplets].
aSymbol = #age ifTrue:
[^ self class ageTriplets].
aSymbol = #region ifTrue:
[^ self class regionTriplets].
^ nil!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph>>doPopUp:event:for: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph>>doPopUp:event:for: (in category '*Etoys-Squeakland-utilities') -----
doPopUp: aSymbol event: anEvent for: aTextMorph
"The user clicked on a pop-up field in the project-info dialog. Put up the pop-up of choices."
| aMenu aTitle |
aMenu := MenuMorph new defaultTarget: self.
aTitle := aTextMorph valueOfProperty: #menuTitle.
aTitle ifNotNil:
[aMenu addTitle: aTitle translated].
aMenu add: '(none)' translated target: self selector: #setInfoField:to: argumentList: {aSymbol asString. '(none)'}.
aMenu addLine.
(self choicesFor: aSymbol) do:
[:aChoice |
aMenu add: aChoice third translated target: self selector: #setInfoField:to: argumentList: {aSymbol. aChoice first}].
aMenu popUpInWorld!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph>>popUpEntryNamed: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph>>popUpEntryNamed: (in category '*Etoys-Squeakland-utilities') -----
popUpEntryNamed: aString
"Answer a text morph that will serve as a pop-up"
| newField |
newField := StaticTextMorph new beAllFont: self myFont;
extent: 400 @ 20;
contentsWrapped: '(none)' translated.
namedFields at: aString put: newField.
newField on: #click send: #doPopUp:event:for: to: self withValue: aString.
^ newField!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph>>popUpEntryNamed:menuTitle: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph>>popUpEntryNamed:menuTitle: (in category '*Etoys-Squeakland-utilities') -----
popUpEntryNamed: aString menuTitle: titleInEnglish
"Answer a text morph that will serve as a pop-up. The first parameter is the key in the named-fields dictionary, the second is the title (in english) to give to the menu."
| newField |
newField := StaticTextMorph new beAllFont: self myFont;
extent: 400 @ 20;
contentsWrapped: '(none)' translated.
newField setProperty: #menuTitle toValue: titleInEnglish.
namedFields at: aString put: newField.
newField on: #click send: #doPopUp:event:for: to: self withValue: aString.
^ newField!
Item was changed:
+ ----- Method: EToyProjectDetailsMorph>>setInfoField:to: (in category 'Squeakland-utilities') -----
- ----- Method: EToyProjectDetailsMorph>>setInfoField:to: (in category '*Etoys-Squeakland-utilities') -----
setInfoField: aFieldName to: aValue
"Install a value into an info field of the dialog. Textual fields are filled literally, but enumerated fields (subject, region, etc.) are represented by codes which get mapped into (translated) text to display."
| newValue choices |
newValue := aValue.
choices := self choicesFor: aFieldName.
choices ifNotNil: "i.e. one of the fields with enumerated values"
[(choices detect: [:c | c first = aValue] ifNone: [nil]) ifNotNil:
[:item | newValue := item third translated]].
(namedFields at: aFieldName) contentsWrapped: newValue
!
Item was changed:
+ ----- Method: EToyProjectQueryMorph>>carryOutQuery:onProjectServer: (in category 'Squeakland-query') -----
- ----- Method: EToyProjectQueryMorph>>carryOutQuery:onProjectServer: (in category '*Etoys-Squeakland-query') -----
carryOutQuery: details onProjectServer: aProjectServer
"The user submitted a query; the parameter holds the details dictionary. Carry out the query."
| criteria clean |
criteria := OrderedCollection new.
details keysAndValuesDo:
[ :k :v |
(clean := v withBlanksTrimmed convertToEncoding: SuperSwikiServer defaultEncodingName) isEmpty
ifFalse: [criteria add: k,': *',clean,'*']].
aProjectServer queryProjectsAndShow: criteria!
Item was changed:
+ ----- Method: EtoyUpdatingThreePhaseButtonMorph class>>setForms (in category 'accessing') -----
- ----- Method: EtoyUpdatingThreePhaseButtonMorph class>>setForms (in category 'as yet unclassified') -----
setForms
CheckedForm := (Form
extent: 12@12
depth: 32
fromArray: #( 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 4278190081 4278190081 4278190081 0 0 0 0 0 0 0 0 4278190081 2003331177 4278190081 4278190081 0 0 0 0 0 0 0 4278190081 2003331177 0 4278190081 4278190081 0 0 0 0 0 0 4278190081 2003331177 0 0 4278190081 4278190081 0 4278190081 0 0 0 4278190081 2003331177 0 0 0 4278190081 4278190081 0 2003331177 4278190081 0 4278190081 2003331177 0 0 0 0 4278190081 4278190081 0 0 2003331177 4278190081 2003331177 0 0 0 0 0 4278190081 4278190081 0 0 0 2003331177 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081)
offset: 0@0).
MouseDownForm := UncheckedForm := (Form
extent: 12@12
depth: 32
fromArray: #( 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 0 0 0 0 0 0 0 0 0 0 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081 4278190081)
offset: 0@0)!
Item was changed:
+ ----- Method: EtoyUpdatingThreePhaseButtonMorph class>>setForms: (in category 'accessing') -----
- ----- Method: EtoyUpdatingThreePhaseButtonMorph class>>setForms: (in category '*Etoys-Squeakland-as yet unclassified') -----
setForms: size
| c |
UncheckedForm := Form extent: size@size depth: 16.
c := UncheckedForm getCanvas asBalloonCanvas.
c frameRectangle: UncheckedForm boundingBox width: (size // 12) color: Color black.
MouseDownForm := UncheckedForm deepCopy.
CheckedForm := UncheckedForm deepCopy.
c := CheckedForm getCanvas asBalloonCanvas.
c
line: ((size*0.2)(a)(size*0.5)) asIntegerPoint
to: ((size*0.4)(a)(size*0.7)) asIntegerPoint
width: 2
color: Color gray darker.
c line: ((size*0.4)(a)(size*0.7)) asIntegerPoint
to: ((size*0.9)(a)(size*0.2)) asIntegerPoint
width: 2
color: Color gray darker.
!
Item was changed:
+ ----- Method: GenericPropertiesMorph>>doGraphPaper (in category 'Squeakland-graph paper') -----
- ----- Method: GenericPropertiesMorph>>doGraphPaper (in category '*Etoys-Squeakland-graph paper') -----
doGraphPaper
"Switch to graph paper as a fill style."
self putUpGraphPaperPanel!
Item was changed:
+ ----- Method: GraphicTile>>parseNodeWith: (in category 'code generation') -----
- ----- Method: GraphicTile>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ encoder encodePlayer: literal.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>areOkaySelectors: (in category 'testing') -----
- ----- Method: KedamaExamplerPlayer>>areOkaySelectors: (in category '*Etoys-Squeakland-testing') -----
areOkaySelectors: aCollection
aCollection do: [:sel |
(#(= & | + - * / \\ // ifTrue:ifFalse:) includes: sel) ifFalse: [^ false].
].
^ true.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>containsBreedSelectors: (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>containsBreedSelectors: (in category '*Etoys-Squeakland-private') -----
containsBreedSelectors: collection
collection do: [:e |
(#(setTurtleCount: setGrouped:) includes: e) ifTrue: [^ true].
].
^ false.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>containsSequentialSelector: (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>containsSequentialSelector: (in category '*Etoys-Squeakland-private') -----
containsSequentialSelector: aSymbol
^ (#(random random: atRandom) includes: aSymbol)!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>containsSequentialSelectors: (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>containsSequentialSelectors: (in category '*Etoys-Squeakland-private') -----
containsSequentialSelectors: collection
collection do: [:e |
(self containsSequentialSelector: e) ifTrue: [^ true].
].
^ false.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>copyAllMethodsAgain2 (in category 'debug support') -----
- ----- Method: KedamaExamplerPlayer>>copyAllMethodsAgain2 (in category '*Etoys-Squeakland-debug support') -----
copyAllMethodsAgain2
| c result |
c := turtles class.
result := (ClassBuilder new)
name: c name
inEnvironment: c environment
subclassOf: c superclass
type: c typeOfClass
instanceVariableNames: KedamaTurtleVectorPlayer2 instanceVariablesString
classVariableNames: KedamaTurtleVectorPlayer2 classVariablesString
poolDictionaries: KedamaTurtleVectorPlayer2 sharedPoolsString
category: Object categoryForUniclasses.
turtles class copyAllCategoriesUnobtrusivelyFrom: KedamaTurtleVectorPlayer2.
sequentialStub ifNotNil: [sequentialStub class copyAllCategoriesUnobtrusivelyFrom: KedamaSequenceExecutionStub].
self flag: #todo. self flag: #uniclasses. "Discuss if we really want to hide uniclasses again"
c superclass environment forgetClass: result logged: false.
c superclass removeSubclass: result.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>createTurtles2 (in category 'subclass players management') -----
- ----- Method: KedamaExamplerPlayer>>createTurtles2 (in category '*Etoys-Squeakland-subclass players management') -----
createTurtles2
turtles := self class createTurtleSubclass2 new.
turtles kedamaWorld: kedamaWorld.
turtles exampler: self.
^ turtles.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>isBreedSelector: (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>isBreedSelector: (in category '*Etoys-Squeakland-private') -----
isBreedSelector: aSymbol
^ #(getTurtleCount setTurtleCount: setGrouped: getGrouped) includes: aSymbol.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>isUserDefinedSelector: (in category 'testing') -----
- ----- Method: KedamaExamplerPlayer>>isUserDefinedSelector: (in category '*Etoys-Squeakland-testing') -----
isUserDefinedSelector: aSymbol
^ self class superclass scripts notNil and: [self class superclass scripts includes: aSymbol].!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>removeScriptNamed: (in category 'method management') -----
- ----- Method: KedamaExamplerPlayer>>removeScriptNamed: (in category '*Etoys-Squeakland-method management') -----
removeScriptNamed: aScriptName
super removeScriptNamed: aScriptName.
turtles class removeSelectorSilently: aScriptName.
sequentialStub class removeSelectorSilently: aScriptName.
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>selectorIncludesSequentialCommand: (in category 'testing') -----
- ----- Method: KedamaExamplerPlayer>>selectorIncludesSequentialCommand: (in category '*Etoys-Squeakland-testing') -----
selectorIncludesSequentialCommand: aSymbol
self flag: #todo. "for now we go sequential for any user defined script"
^ self class scripts includesKey: aSymbol "(self class sourceCodeAt: aSymbol)
includesSubstring: 'doSequentialCommand:'"!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>userDefinedSlotGetters (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>userDefinedSlotGetters (in category '*Etoys-Squeakland-private') -----
userDefinedSlotGetters
^ turtles info keys asArray collect: [:e | e asGetterSelector].
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>userDefinedSlotSetters (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>userDefinedSlotSetters (in category '*Etoys-Squeakland-private') -----
userDefinedSlotSetters
^ turtles info keys asArray collect: [:e | e asSetterSelector].
!
Item was changed:
+ ----- Method: KedamaExamplerPlayer>>vectorizableTheseSelectors: (in category 'private') -----
- ----- Method: KedamaExamplerPlayer>>vectorizableTheseSelectors: (in category '*Etoys-Squeakland-private') -----
vectorizableTheseSelectors: collection
| removed scripts |
scripts := self class scripts keys.
removed := collection reject: [:e | (scripts includes: e) or: [#(getTurtleCount setTurtleCount: setGrouped: getGrouped) includes: e]].
removed do: [:e |
((#(getX setX: getY setY: setColor: getColor getVisible setVisible: getTurtleVisible setTurtleVisible: getHeading setHeading: getAngleTo: getDistanceTo: getUphillIn: forward: turn: setPatchValueIn:to: beNotZero: getPatchValueIn:),
self userDefinedSlotGetters,
self userDefinedSlotSetters) includes: e) ifFalse: [^ false].
].
^ true.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>isDivisibleBy: (in category 'arithmetic') -----
- ----- Method: KedamaFloatArray>>isDivisibleBy: (in category '*Etoys-Squeakland-arithmetic') -----
isDivisibleBy: other
| result |
result := ByteArray new: self size.
other isNumber ifTrue: [
^ self primDVScalar: self and: other into: result.
].
((other isMemberOf: WordArray) or: [other isMemberOf: KedamaFloatArray]) ifTrue: [
^ self primDVArray: self and: other into: result.
].
^ super < other.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primDVArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primDVArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primDVArray: rcvr and: other into: result
"<primitive: 'primitiveDVArrays' module:'KedamaPlugin2'>"
"^ KedamaPlugin2 doPrimitive: #primitiveDVArrays."
1 to: rcvr size do: [:i |
result at: i put: (((rcvr at: i) isDivisibleBy: (other at: i)) ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primDVScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primDVScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primDVScalar: rcvr and: other into: result
"<primitive: 'primitiveDVScalar' module:'KedamaPlugin2'>"
"^ KedamaPlugin2 doPrimitive: #primitiveDVScalar."
1 to: rcvr size do: [:i |
result at: i put: (((rcvr at: i) isDivisibleBy: other) ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primEQArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primEQArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primEQArray: rcvr and: other into: result
<primitive: 'primitiveEQArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveEQArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) = (other at: i) ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primEQScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primEQScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primEQScalar: rcvr and: other into: result
<primitive: 'primitiveEQScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveEQScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) = other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primGEArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primGEArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primGEArray: rcvr and: other into: result
<primitive: 'primitiveGEArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveGEArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) >= (other at: i) ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primGEScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primGEScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primGEScalar: rcvr and: other into: result
<primitive: 'primitiveGEScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveGEScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) >= other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primGTArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primGTArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primGTArray: rcvr and: other into: result
<primitive: 'primitiveGTArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveGTArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) > (other at: i) ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primGTScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primGTScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primGTScalar: rcvr and: other into: result
<primitive: 'primitiveGTScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveGTScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) > other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primLEArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primLEArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primLEArray: rcvr and: other into: result
<primitive: 'primitiveLEArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveLEArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) <= (other at: i) ifTrue: [1] ifFalse: [0])
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primLEScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primLEScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primLEScalar: rcvr and: other into: result
<primitive: 'primitiveLEScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveLEScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) <= other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primLTArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primLTArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primLTArray: rcvr and: other into: result
<primitive: 'primitiveLTArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveLTArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) < (other at: i) ifTrue: [1] ifFalse: [0])
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primLTScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primLTScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primLTScalar: rcvr and: other into: result
<primitive: 'primitiveLTScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveLTScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) < other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primNEArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primNEArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primNEArray: rcvr and: other into: result
<primitive: 'primitiveNEArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveNEArrays."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) ~= (other at: i) ifTrue: [1] ifFalse: [0])
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primNEScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primNEScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primNEScalar: rcvr and: other into: result
<primitive: 'primitiveNEScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveNEScalar."
1 to: rcvr size do: [:i |
result at: i put: ((rcvr at: i) ~= other ifTrue: [1] ifFalse: [0]).
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primRemArray:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primRemArray:and:into: (in category '*Etoys-Squeakland-primitives') -----
primRemArray: rcvr and: other into: result
<primitive: 'primitiveRemArrays' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveRemArrays."
1 to: rcvr size do: [:i |
result at: i put: (rcvr at: i) \\ (other at: i)
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>primRemScalar:and:into: (in category 'primitives') -----
- ----- Method: KedamaFloatArray>>primRemScalar:and:into: (in category '*Etoys-Squeakland-primitives') -----
primRemScalar: rcvr and: other into: result
<primitive: 'primitiveRemScalar' module:'KedamaPlugin2'>
"^ KedamaPlugin2 doPrimitive: #primitiveRemScalar."
1 to: rcvr size do: [:i |
result at: i put: (rcvr at: i) \\ other.
].
^ result.
!
Item was changed:
+ ----- Method: KedamaFloatArray>>random (in category 'arithmetic') -----
- ----- Method: KedamaFloatArray>>random (in category '*Etoys-Squeakland-arithmetic') -----
random
| result |
result := KedamaFloatArray new: self size.
1 to: self size do: [:i |
result at: i put: ((self at: i) random + (self at: i) fractionPart).
].
^ result.!
Item was changed:
+ ----- Method: KedamaGetColorComponentTile>>parseNodeWith: (in category 'code generation') -----
- ----- Method: KedamaGetColorComponentTile>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ patchTile parseNodeWith: encoder!
Item was changed:
+ ----- Method: KedamaMorph class>>migrateInstancesWithoutChangePending (in category 'class initialization') -----
- ----- Method: KedamaMorph class>>migrateInstancesWithoutChangePending (in category '*Etoys-Squeakland-class initialization') -----
migrateInstancesWithoutChangePending
KedamaMorph allInstancesDo: [:each |
each migrateInstancesWithoutChangePending.
].
!
Item was changed:
+ ----- Method: KedamaMorph>>defaultPatch (in category 'drawing') -----
- ----- Method: KedamaMorph>>defaultPatch (in category '*Etoys-Squeakland-drawing') -----
defaultPatch
| p |
defaultPatch ifNotNil: [^ defaultPatch].
"For older projects, it trys to extract a reasonable answer from somewhere."
(self player respondsTo: #getPatch) ifTrue: [
defaultPatch := self player getPatch costume renderedMorph.
^ defaultPatch.
].
p := KedamaPatchMorph new.
p kedamaWorld: self.
p assuredPlayer.
defaultPatch := p.
^ defaultPatch.
!
Item was changed:
+ ----- Method: KedamaMorph>>migrateInstancesWithoutChangePending (in category 'private') -----
- ----- Method: KedamaMorph>>migrateInstancesWithoutChangePending (in category '*Etoys-Squeakland-private') -----
migrateInstancesWithoutChangePending
self instVarNamed: 'changePending' put: false.
self instVarNamed: 'drawRequested' put: true.
self setKedamaWorldToKnownPatches.
!
Item was changed:
+ ----- Method: KedamaMorph>>setKedamaWorldToKnownPatches (in category 'utils') -----
- ----- Method: KedamaMorph>>setKedamaWorldToKnownPatches (in category '*Etoys-Squeakland-utils') -----
setKedamaWorldToKnownPatches
patchesToDisplay do: [:e |
e kedamaWorld: self.
defaultPatch ifNotNil: [^ defaultPatch kedamaWorld: self].
"For older projects, it trys to extract a reasonable answer from somewhere."
(self player respondsTo: #getPatch) ifTrue: [
defaultPatch := self player getPatch costume renderedMorph.
^ defaultPatch kedamaWorld: self.
].
].
!
Item was changed:
+ ----- Method: KedamaPatchMorph class>>migrateInstancesWithoutChangePending (in category 'class initialization') -----
- ----- Method: KedamaPatchMorph class>>migrateInstancesWithoutChangePending (in category '*Etoys-Squeakland-class initialization') -----
migrateInstancesWithoutChangePending
KedamaPatchMorph allInstancesDo: [:each |
each migrateInstancesWithoutChangePending.
].
!
Item was changed:
+ ----- Method: KedamaPatchMorph>>drawRequest (in category 'drawing') -----
- ----- Method: KedamaPatchMorph>>drawRequest (in category '*Etoys-Squeakland-drawing') -----
drawRequest
changePending ifFalse: [self changed].
changePending := true.
!
Item was changed:
+ ----- Method: KedamaPatchMorph>>kedamaWorld: (in category 'initialization') -----
- ----- Method: KedamaPatchMorph>>kedamaWorld: (in category '*Etoys-Squeakland-initialization') -----
kedamaWorld: anObject
kedamaWorld := anObject.
!
Item was changed:
+ ----- Method: KedamaPatchMorph>>migrateInstancesWithoutChangePending (in category 'private') -----
- ----- Method: KedamaPatchMorph>>migrateInstancesWithoutChangePending (in category '*Etoys-Squeakland-private') -----
migrateInstancesWithoutChangePending
self instVarNamed: 'changePending' put: false.
!
Item was changed:
+ ----- Method: KedamaPatchMorph>>primSetPixelsPredicates:xArray:yArray:bits:width:height:value: (in category 'primitives') -----
- ----- Method: KedamaPatchMorph>>primSetPixelsPredicates:xArray:yArray:bits:width:height:value: (in category '*Etoys-Squeakland-primitives') -----
primSetPixelsPredicates: predicates xArray: xArray yArray: yArray bits: bits width: width height: height value: value
| v |
<primitive: 'primSetPixelsAtXY' module: 'KedamaPlugin2'>
" ^ KedamaPlugin2 doPrimitive: #primSetPixelsAtXY."
value isNumber ifTrue: [v := value].
1 to: xArray size do: [:i |
(predicates at: i) = 1 ifTrue: [
value isNumber ifFalse: [
v := value at: i.
].
self pixelAtX: (xArray at: i) y: (yArray at: i) put: v.
].
].
!
Item was changed:
+ ----- Method: KedamaPatchMorph>>setPixelsPredicates:xArray:yArray:value: (in category 'commands and slots') -----
- ----- Method: KedamaPatchMorph>>setPixelsPredicates:xArray:yArray:value: (in category '*Etoys-Squeakland-commands and slots') -----
setPixelsPredicates: predicates xArray: xArray yArray: yArray value: value
form bits class == ByteArray ifTrue: [form unhibernate].
self primSetPixelsPredicates: predicates xArray: xArray yArray: yArray bits: form bits width: form width height: form height value: value.
self formChanged.
!
Item was changed:
+ ----- Method: KedamaPatchTile>>useDefaultPatch: (in category 'initialization support') -----
- ----- Method: KedamaPatchTile>>useDefaultPatch: (in category '*Etoys-Squeakland-initialization support') -----
useDefaultPatch: aPatch
| aTile displayer |
self removeAllMorphs.
"literal := aPatch."
type := #objRef.
aTile := KedamaPatchType basicNew newReadoutTile.
displayer := UpdatingStringMorph new
getSelector: #yourself;
target: 'patch';
growable: true;
minimumWidth: 24;
putSelector: nil;
font: Preferences standardEToysFont.
displayer stepTime: 1000.
"Note that when typeSymbol = #number, the #target: call above will have dealt with floatPrecision details"
displayer useStringFormat.
aTile addMorphBack: displayer.
aTile setLiteralInitially: ('patch').
self addMorphBack: aTile.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primForwardAt:xArray:yArray:headingArray:value:destWidth:destHeight:leftEdgeMode:rightEdgeMode:topEdgeMode:bottomEdgeMode: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primForwardAt:xArray:yArray:headingArray:value:destWidth:destHeight:leftEdgeMode:rightEdgeMode:topEdgeMode:bottomEdgeMode: (in category '*Etoys-Squeakland-as yet unclassified') -----
primForwardAt: i xArray: xArray yArray: yArray headingArray: headingArray value: value destWidth: destWidth destHeight: destHeight leftEdgeMode: leftEdgeMode rightEdgeMode: rightEdgeMode topEdgeMode: topEdgeMode bottomEdgeMode: bottomEdgeMode
| dist newX newY |
<primitive: 'primScalarForward' module:'KedamaPlugin2'>
"^ KedamaPlugin doPrimitive: #primScalarForward."
dist := value.
newX := (xArray at: i) + (dist asFloat * (headingArray at: i) cos).
newY := (yArray at: i) - (dist asFloat * (headingArray at: i) sin).
KedamaMorph scalarXAt: i xArray: xArray headingArray: headingArray value: newX destWidth: destWidth leftEdgeMode: leftEdgeMode rightEdgeMode: rightEdgeMode.
KedamaMorph scalarYAt: i yArray: yArray headingArray: headingArray value: newY destHeight: destHeight topEdgeMode: topEdgeMode bottomEdgeMode: bottomEdgeMode.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primGetAngleToX:toY:fromX:fromY: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primGetAngleToX:toY:fromX:fromY: (in category '*Etoys-Squeakland-as yet unclassified') -----
primGetAngleToX: toX toY: toY fromX: fromX fromY: fromY
| ret |
<primitive: 'scalarGetAngleTo' module:'KedamaPlugin2'>
ret := ((toX - fromX)@(toY - fromY)) theta radiansToDegrees + 90.0.
ret > 360.0 ifTrue: [^ ret - 360.0].
^ ret.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primGetDistanceToX:toY:fromX:fromY: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primGetDistanceToX:toY:fromX:fromY: (in category '*Etoys-Squeakland-as yet unclassified') -----
primGetDistanceToX: toX toY: toY fromX: fromX fromY: fromY
<primitive: 'scalarGetDistanceTo' module:'KedamaPlugin2'>
^ ((fromX - toX) squared + (fromY - toY)) squared sqrt.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primGetHeadingAt:headingArray: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primGetHeadingAt:headingArray: (in category '*Etoys-Squeakland-as yet unclassified') -----
primGetHeadingAt: i headingArray: headingArray
| heading |
<primitive: 'getScalarHeading' module:'KedamaPlugin2'>
"^ KedamaPlugin doPrimitive: #getScalarHeading."
heading := headingArray at: i.
^ heading := KedamaMorph radiansToDegrees: heading.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primSetHeadingAt:headingArray:value: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primSetHeadingAt:headingArray:value: (in category '*Etoys-Squeakland-as yet unclassified') -----
primSetHeadingAt: i headingArray: headingArray value: heading
| rad |
<primitive: 'setScalarHeading' module:'KedamaPlugin2'>
"^ KedamaPlugin doPrimitive: #setScalarHeading."
rad := KedamaMorph degreesToRadians: heading.
headingArray at: i put: rad.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primSetX:xIndex:headingArray:value:destWidth:leftEdgeMode:rightEdgeMode: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primSetX:xIndex:headingArray:value:destWidth:leftEdgeMode:rightEdgeMode: (in category '*Etoys-Squeakland-as yet unclassified') -----
primSetX: xArray xIndex: xIndex headingArray: headingArray value: value destWidth: destWidth leftEdgeMode: leftEdgeMode rightEdgeMode: rightEdgeMode
<primitive: 'turtleScalarSetX' module:'KedamaPlugin2'>
"^ KedamaPlugin doPrimitive: #turtleScalarSetX."
KedamaMorph scalarXAt: xIndex xArray: xArray headingArray: headingArray value: value destWidth: destWidth leftEdgeMode: leftEdgeMode rightEdgeMode: rightEdgeMode.
!
Item was changed:
+ ----- Method: KedamaSequenceExecutionStub class>>primSetY:yIndex:headingArray:value:destHeight:topEdgeMode:bottomEdgeMode: (in category 'kedama') -----
- ----- Method: KedamaSequenceExecutionStub class>>primSetY:yIndex:headingArray:value:destHeight:topEdgeMode:bottomEdgeMode: (in category '*Etoys-Squeakland-as yet unclassified') -----
primSetY: yArray yIndex: yIndex headingArray: headingArray value: value destHeight: destHeight topEdgeMode: topEdgeMode bottomEdgeMode: bottomEdgeMode
<primitive: 'turtleScalarSetY' module:'KedamaPlugin2'>
"^ KedamaPlugin doPrimitive: #turtleScalarSetY."
KedamaMorph scalarYAt: yIndex yArray: yArray headingArray: headingArray value: value destHeight: destHeight topEdgeMode: topEdgeMode bottomEdgeMode: bottomEdgeMode.
!
Item was changed:
+ ----- Method: KedamaSetColorComponentTile>>assignmentRootForParseNode (in category 'code generation') -----
- ----- Method: KedamaSetColorComponentTile>>assignmentRootForParseNode (in category '*Etoys-Squeakland-code generation') -----
assignmentRootForParseNode
^ assignmentRoot!
Item was changed:
+ ----- Method: KedamaSetColorComponentTile>>parseNodeWith: (in category 'code generation') -----
- ----- Method: KedamaSetColorComponentTile>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ patchTile parseNodeWith: encoder.
!
Item was changed:
+ ----- Method: KedamaSetPixelValueTile>>assignmentRootForParseNode (in category 'tile protocol') -----
- ----- Method: KedamaSetPixelValueTile>>assignmentRootForParseNode (in category '*Etoys-Squeakland-tile protocol') -----
assignmentRootForParseNode
^ 'setPatchValueIn:'.
!
Item was changed:
+ ----- Method: KedamaSetPixelValueTile>>parseNodeWith: (in category 'tile protocol') -----
- ----- Method: KedamaSetPixelValueTile>>parseNodeWith: (in category '*Etoys-Squeakland-tile protocol') -----
parseNodeWith: encoder
^ patchTile parseNodeWith: encoder!
Item was changed:
+ ----- Method: KeyboardBuffer>>commandKeyPressed (in category 'testing') -----
- ----- Method: KeyboardBuffer>>commandKeyPressed (in category '*Etoys-testing') -----
commandKeyPressed
^ event commandKeyPressed!
Item was changed:
+ ----- Method: KeyboardBuffer>>controlKeyPressed (in category 'testing') -----
- ----- Method: KeyboardBuffer>>controlKeyPressed (in category '*Etoys-testing') -----
controlKeyPressed
^ event controlKeyPressed!
Item was changed:
+ ----- Method: KeyboardBuffer>>flushKeyboard (in category 'keyboard control') -----
- ----- Method: KeyboardBuffer>>flushKeyboard (in category '*Etoys-keyboard control') -----
flushKeyboard
eventUsed ifFalse: [^ eventUsed := true].!
Item was changed:
+ ----- Method: KeyboardBuffer>>keyboard (in category 'keyboard control') -----
- ----- Method: KeyboardBuffer>>keyboard (in category '*Etoys-keyboard control') -----
keyboard
eventUsed ifFalse: [eventUsed := true. ^ event keyCharacter].
^ nil!
Item was changed:
+ ----- Method: KeyboardBuffer>>keyboardPeek (in category 'keyboard control') -----
- ----- Method: KeyboardBuffer>>keyboardPeek (in category '*Etoys-keyboard control') -----
keyboardPeek
eventUsed ifFalse: [^ event keyCharacter].
^ nil!
Item was changed:
+ ----- Method: KeyboardBuffer>>keyboardPressed (in category 'testing') -----
- ----- Method: KeyboardBuffer>>keyboardPressed (in category '*Etoys-testing') -----
keyboardPressed
^eventUsed not!
Item was changed:
+ ----- Method: KeyboardBuffer>>leftShiftDown (in category 'testing') -----
- ----- Method: KeyboardBuffer>>leftShiftDown (in category '*Etoys-testing') -----
leftShiftDown
^ event shiftPressed!
Item was changed:
+ ----- Method: KeyboardBuffer>>startingEvent: (in category 'private') -----
- ----- Method: KeyboardBuffer>>startingEvent: (in category '*Etoys-private') -----
startingEvent: evt
event := evt.
eventUsed := false!
Item was changed:
+ ----- Method: MethodHolder class>>isolatedCodePaneForClass:selector: (in category 'Etoys') -----
- ----- Method: MethodHolder class>>isolatedCodePaneForClass:selector: (in category '*Etoys') -----
isolatedCodePaneForClass: aClass selector: aSelector
"Answer a MethodMorph on the given class and selector"
| aCodePane aMethodHolder |
aMethodHolder := self new.
aMethodHolder methodClass: aClass methodSelector: aSelector.
aCodePane := MethodMorph on: aMethodHolder text: #contents accept: #contents:notifying:
readSelection: #contentsSelection menu: #codePaneMenu:shifted:.
aMethodHolder addDependent: aCodePane.
aCodePane borderWidth: 2; color: Color white.
aCodePane scrollBarOnLeft: false.
aCodePane width: 300.
^ aCodePane!
Item was changed:
+ ----- Method: MethodHolder class>>makeIsolatedCodePaneForClass:selector: (in category 'Etoys') -----
- ----- Method: MethodHolder class>>makeIsolatedCodePaneForClass:selector: (in category '*Etoys') -----
makeIsolatedCodePaneForClass: aClass selector: aSelector
"Create, and place in the morphic Hand, an isolated code pane bearing source code for the given class and selector"
(self isolatedCodePaneForClass: aClass selector: aSelector) openInHand!
Item was changed:
+ ----- Method: MethodHolder>>addModelMenuItemsTo:forMorph:hand: (in category 'menu') -----
- ----- Method: MethodHolder>>addModelMenuItemsTo:forMorph:hand: (in category '*Etoys-menu') -----
addModelMenuItemsTo: aCustomMenu forMorph: aMorph hand: aHandMorph
aCustomMenu addLine.
aCustomMenu add: 'whose script is this?' translated target: self action: #identifyScript
!
Item was changed:
+ ----- Method: MethodHolder>>changeMethodSelectorTo: (in category 'miscellaneous') -----
- ----- Method: MethodHolder>>changeMethodSelectorTo: (in category '*Etoys-miscellaneous') -----
changeMethodSelectorTo: aSelector
"Change my method selector as noted. Reset currentCompiledMethod"
methodSelector := aSelector.
currentCompiledMethod := methodClass compiledMethodAt: aSelector ifAbsent: [nil]!
Item was changed:
+ ----- Method: MethodHolder>>compiledMethod (in category 'miscellaneous') -----
- ----- Method: MethodHolder>>compiledMethod (in category '*Etoys-miscellaneous') -----
compiledMethod
^ methodClass compiledMethodAt: methodSelector!
Item was changed:
+ ----- Method: MethodHolder>>contents (in category 'contents') -----
- ----- Method: MethodHolder>>contents (in category '*Etoys-contents') -----
contents
"Answer the contents, with due respect for my contentsSymbol"
contents := methodClass sourceCodeAt: methodSelector ifAbsent: [''].
currentCompiledMethod := methodClass compiledMethodAt: methodSelector ifAbsent: [nil].
self showingDecompile ifTrue: [^ self decompiledSourceIntoContents].
self showingDocumentation ifTrue: [^ self commentContents].
^ contents := self sourceStringPrettifiedAndDiffed asText makeSelectorBoldIn: methodClass!
Item was changed:
+ ----- Method: MethodHolder>>contents:notifying: (in category 'contents') -----
- ----- Method: MethodHolder>>contents:notifying: (in category '*Etoys-contents') -----
contents: input notifying: aController
| selector |
(selector := methodClass newParser parseSelector: input asText) ifNil:
[self inform: 'Sorry - invalid format for the
method name and arguments -- cannot accept.'.
^ false].
selector == methodSelector ifFalse:
[self inform:
'You cannot change the name of
the method here -- it must continue
to be ', methodSelector.
^ false].
selector := methodClass
compile: input asText
classified: self selectedMessageCategoryName
notifying: aController.
selector == nil ifTrue: [^ false].
contents := input asString copy.
currentCompiledMethod := methodClass compiledMethodAt: methodSelector.
^ true!
Item was changed:
+ ----- Method: MethodHolder>>contents:notifying:forInstance: (in category 'contents') -----
- ----- Method: MethodHolder>>contents:notifying:forInstance: (in category '*Etoys-Squeakland-contents') -----
contents: input notifying: aController forInstance: aPlayer
| selector |
(selector := Parser new parseSelector: input asText) ifNil:
[self inform: 'Sorry - invalid format for the
method name and arguments -- cannot accept.'.
^ false].
selector == methodSelector ifFalse:
[self inform:
'You cannot change the name of
the method here -- it must continue
to be ', methodSelector.
^ false].
selector := methodClass
compileSilently: input asText
classified: self selectedMessageCategoryName
notifying: aController
for: aPlayer.
selector == nil ifTrue: [^ false].
contents := input asString copy.
currentCompiledMethod := methodClass compiledMethodAt: methodSelector.
^ true!
Item was changed:
+ ----- Method: MethodHolder>>identifyScript (in category 'miscellaneous') -----
- ----- Method: MethodHolder>>identifyScript (in category '*Etoys-miscellaneous') -----
identifyScript
| msg aPlayer |
msg := methodClass isUniClass
ifTrue:
[aPlayer := methodClass someInstance.
aPlayer costume
ifNotNil:
['This holds code for a script
named ', methodSelector, ' belonging
to an object named ', aPlayer externalName]
ifNil:
['This formerly held code for a script
named ', methodSelector, ' for a Player
who once existed but now is moribund.']]
ifFalse:
['This holds code for the method
named ', methodSelector, '
for class ', methodClass name].
self inform: msg!
Item was changed:
+ ----- Method: MethodHolder>>methodClass:methodSelector: (in category 'miscellaneous') -----
- ----- Method: MethodHolder>>methodClass:methodSelector: (in category '*Etoys-miscellaneous') -----
methodClass: aClass methodSelector: aSelector
methodClass := aClass.
methodSelector := aSelector.
currentCompiledMethod := aClass compiledMethodAt: aSelector ifAbsent: [nil]!
Item was changed:
+ ----- Method: MethodHolder>>selectedClass (in category 'selection') -----
- ----- Method: MethodHolder>>selectedClass (in category '*Etoys-selection') -----
selectedClass
^ methodClass theNonMetaClass!
Item was changed:
+ ----- Method: MethodHolder>>selectedClassOrMetaClass (in category 'selection') -----
- ----- Method: MethodHolder>>selectedClassOrMetaClass (in category '*Etoys-selection') -----
selectedClassOrMetaClass
^ methodClass!
Item was changed:
+ ----- Method: MethodHolder>>selectedMessageCategoryName (in category 'selection') -----
- ----- Method: MethodHolder>>selectedMessageCategoryName (in category '*Etoys-selection') -----
selectedMessageCategoryName
^ methodClass organization categoryOfElement: methodSelector!
Item was changed:
+ ----- Method: MethodHolder>>selectedMessageName (in category 'selection') -----
- ----- Method: MethodHolder>>selectedMessageName (in category '*Etoys-selection') -----
selectedMessageName
^ methodSelector!
Item was changed:
+ ----- Method: MethodHolder>>versions (in category 'miscellaneous') -----
- ----- Method: MethodHolder>>versions (in category '*Etoys-miscellaneous') -----
versions
"Return a VersionsBrowser (containing a list of ChangeRecords) of older versions of this method."
^ VersionsBrowser new scanVersionsOf: self compiledMethod
class: self selectedClass
meta: methodClass isMeta
category: self selectedMessageCategoryName
"(classOfMethod whichCategoryIncludesSelector: selectorOfMethod)"
selector: methodSelector!
Item was changed:
+ ----- Method: MethodWithInterface>>currentScriptEditor (in category 'script editor') -----
- ----- Method: MethodWithInterface>>currentScriptEditor (in category '*Etoys-Squeakland-script editor') -----
currentScriptEditor
"Return nil, since there is none. Relates to universal tiles only."
^ nil!
Item was changed:
+ ----- Method: MorphWithSubmorphsWrapper>>contents (in category 'hierarchy') -----
- ----- Method: MorphWithSubmorphsWrapper>>contents (in category '*Etoys-hierarchy') -----
contents
^item submorphs collect: [ :m |
self class with: m ]!
Item was changed:
+ ----- Method: NumericReadoutTile>>basicType (in category 'tiles') -----
- ----- Method: NumericReadoutTile>>basicType (in category '*eToys-tiles') -----
basicType
"Answer a symbol representing the inherent type I hold"
"Number String Boolean player collection sound color etc"
^ #Number!
Item was changed:
+ ----- Method: ObjectPropertiesMorph>>toggleSimplePanel (in category 'Squeakland') -----
- ----- Method: ObjectPropertiesMorph>>toggleSimplePanel (in category '*Etoys-Squeakland-as yet unclassified') -----
toggleSimplePanel
simplePanel := simplePanel not.
self rebuild!
Item was changed:
+ ----- Method: PaintInvokingMorph class>>authoringPrototype (in category 'scripting') -----
- ----- Method: PaintInvokingMorph class>>authoringPrototype (in category '*Etoys-scripting') -----
authoringPrototype
^ self new image: (ScriptingSystem formAtKey: 'Painting'); markAsPartsDonor; setBalloonText: 'drop this into any playfield or book page to make a new painting there'; yourself!
Item was changed:
+ ----- Method: PaintInvokingMorph class>>descriptionForPartsBin (in category 'parts bin') -----
- ----- Method: PaintInvokingMorph class>>descriptionForPartsBin (in category '*Etoys-parts bin') -----
descriptionForPartsBin
^ self partName: 'Paint' translatedNoop
categories: {'Graphics' translatedNoop}
documentation: 'Drop this icon to start painting a new object.' translatedNoop!
Item was changed:
+ ----- Method: PaintInvokingMorph class>>initialize (in category 'class initialization') -----
- ----- Method: PaintInvokingMorph class>>initialize (in category '*Etoys-class initialization') -----
initialize
self registerInFlapsRegistry.!
Item was changed:
+ ----- Method: PaintInvokingMorph class>>registerInFlapsRegistry (in category 'class initialization') -----
- ----- Method: PaintInvokingMorph class>>registerInFlapsRegistry (in category '*Etoys-class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
ifPresent: [:cl | cl registerQuad: {#PaintInvokingMorph. #new . 'Paint' translatedNoop. 'Drop this into an area to start making a fresh painting there' translatedNoop}
forFlapNamed: 'PlugIn Supplies'.
cl registerQuad: {#PaintInvokingMorph. #new. 'Paint' translatedNoop. 'Drop this into an area to start making a fresh painting there' translatedNoop}
forFlapNamed: 'Widgets'.
cl registerQuad: {#PaintInvokingMorph. #new. 'Paint' translatedNoop. 'Drop this into an area to start making a fresh painting there' translatedNoop}
forFlapNamed: 'Scripting']!
Item was changed:
+ ----- Method: PaintInvokingMorph class>>unload (in category 'class initialization') -----
- ----- Method: PaintInvokingMorph class>>unload (in category '*Etoys-class initialization') -----
unload
"Unload the receiver from global registries"
self environment at: #Flaps ifPresent: [:cl |
cl unregisterQuadsWithReceiver: self] !
Item was changed:
+ ----- Method: PaintInvokingMorph>>initialize (in category 'initialization') -----
- ----- Method: PaintInvokingMorph>>initialize (in category '*Etoys-initialization') -----
initialize
super initialize.
self image: (ScriptingSystem formAtKey: 'Painting')!
Item was changed:
+ ----- Method: PaintInvokingMorph>>initializeToStandAlone (in category 'parts bin') -----
- ----- Method: PaintInvokingMorph>>initializeToStandAlone (in category '*Etoys-parts bin') -----
initializeToStandAlone
super initializeToStandAlone.
self image: (ScriptingSystem formAtKey: 'Painting')!
Item was changed:
+ ----- Method: PaintInvokingMorph>>isCandidateForAutomaticViewing (in category 'support') -----
- ----- Method: PaintInvokingMorph>>isCandidateForAutomaticViewing (in category '*Etoys-support') -----
isCandidateForAutomaticViewing
^ self isPartsDonor not!
Item was changed:
+ ----- Method: PaintInvokingMorph>>justDroppedInto:event: (in category 'dropping/grabbing') -----
- ----- Method: PaintInvokingMorph>>justDroppedInto:event: (in category '*Etoys-dropping/grabbing') -----
justDroppedInto: aPasteUpMorph event: anEvent
"This message is sent to a dropped morph after it has been dropped on--and been accepted by--a drop-sensitive morph"
aPasteUpMorph isPartsBin ifFalse:[
self removeHalo.
self delete.
^aPasteUpMorph makeNewDrawing: anEvent].
^super justDroppedInto: aPasteUpMorph event: anEvent!
Item was changed:
+ ----- Method: PaintInvokingMorph>>wantsToBeDroppedInto: (in category 'dropping/grabbing') -----
- ----- Method: PaintInvokingMorph>>wantsToBeDroppedInto: (in category '*Etoys-dropping/grabbing') -----
wantsToBeDroppedInto: aMorph
"Only into PasteUps that are not part bins"
^aMorph isPlayfieldLike!
Item was changed:
+ ----- Method: ParameterTile>>parseNodeWith: (in category 'accessing') -----
- ----- Method: ParameterTile>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ encoder encodeVariable: 'parameter' ifUnknown: [encoder encodeLiteral: 1].
!
Item was changed:
+ ----- Method: ParameterTile>>scriptEditor: (in category 'accessing') -----
- ----- Method: ParameterTile>>scriptEditor: (in category '*Etoys-Squeakland-accessing') -----
scriptEditor: anEditor
scriptEditor := anEditor.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>aboutToBeAcceptedInScriptor (in category 'miscellaneous') -----
- ----- Method: PhraseTileMorph>>aboutToBeAcceptedInScriptor (in category '*Etoys-Squeakland-miscellaneous') -----
aboutToBeAcceptedInScriptor
"The receiver is about to be accepted in a Scriptor. Adjust state information accordingly."
justGrabbedFromViewer := false!
Item was changed:
+ ----- Method: PhraseTileMorph>>addCommandFeedback: (in category 'hilighting') -----
- ----- Method: PhraseTileMorph>>addCommandFeedback: (in category '*Etoys-Squeakland-hilighting') -----
addCommandFeedback: evt
"Add screen feedback showing what would be torn off in a drag"
| aMorph |
(self owner owner isMemberOf: PhraseTileMorph)
ifTrue: [self owner owner addCommandFeedback: evt. ^ self].
aMorph := RectangleMorph new bounds: ((self topLeft - (2@1)) corner: ((submorphs at: (2 max: submorphs size)) bottomRight + (2@1))).
"inHotZone := evt ifNil: [true] ifNotNil: [rect containsPoint: evt cursorPoint]."
aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem commandFeedback; lock.
Project current world addHighlightMorph: aMorph for: self outmostScriptEditor!
Item was changed:
+ ----- Method: PhraseTileMorph>>assignmentNodeWith: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>assignmentNodeWith: (in category '*Etoys-Squeakland-code generation') -----
assignmentNodeWith: encoder
| suffix rec sel args left op right m |
rec := submorphs first parseNodeWith: encoder.
suffix := submorphs second operatorForSexpAssignmentSuffix: submorphs second assignmentSuffix.
sel := submorphs second assignmentRootForParseNode.
args := WriteStream on: (Array new: 3).
(submorphs second isMemberOf: AssignmentTileMorph) ifFalse: [
args nextPut: (submorphs second parseNodeWith: encoder).
sel := (sel, 'to:') asSymbol.
].
suffix isEmpty ifFalse: [
left := self updatingOperatorNodeWith: encoder.
op := (AssignmentTileMorph new operatorForAssignmentSuffix: suffix) asSymbol.
right := self convertPrecedenceInParseNode: (submorphs third parseNodeWith: encoder) with: encoder.
m := MessageNode new
receiver: left
selector: op
arguments: (Array with: right)
precedence: (op precedence)
from: encoder
sourceRange: nil.
args nextPut: m.
] ifTrue: [
args nextPut: (self convertPrecedenceInParseNode: (submorphs third parseNodeWith: encoder) with: encoder).
].
^ MessageNode new
receiver: rec
selector: sel
arguments: args contents
precedence: (sel asSymbol precedence)
from: encoder
sourceRange: nil.!
Item was changed:
+ ----- Method: PhraseTileMorph>>colorNodeFor:with: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>colorNodeFor:with: (in category '*Etoys-Squeakland-code generation') -----
colorNodeFor: aColor with: encoder
"^ MessageNode new
receiver: (encoder encodeVariable: #Color)
selector: #r:g:b:
arguments: (Array with: (encoder encodeLiteral: aColor red)
with: (encoder encodeLiteral: aColor green)
with: (encoder encodeLiteral: aColor blue))
precedence: (#r:g:b: precedence)
from: encoder
sourceRange: nil."
^ encoder encodeLiteral: aColor.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>colorSeerNodeWith: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>colorSeerNodeWith: (in category '*Etoys-Squeakland-code generation') -----
colorSeerNodeWith: encoder
| rec sel args |
rec := submorphs first parseNodeWith: encoder.
sel := #color:sees:.
args := OrderedCollection new: 2.
args add: (self colorNodeFor: submorphs second colorSwatch color with: encoder).
args add: (submorphs third parseNodeWith: encoder).
^ MessageNode new
receiver: rec
selector: sel
arguments: args asArray
precedence: (sel precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>convertPrecedenceInParseNode:with: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>convertPrecedenceInParseNode:with: (in category '*Etoys-Squeakland-code generation') -----
convertPrecedenceInParseNode: message with: encoder
| e w list |
w := WriteStream on: (Array new: 3).
message eToysExpFlattenOn: w.
list := w contents.
e := EToyExpressionTransformer2 new newNodeFromList: list encoder: encoder.
^ e transform.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>convertPrecedenceOfArgsInParseNode:with: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>convertPrecedenceOfArgsInParseNode:with: (in category '*Etoys-Squeakland-code generation') -----
convertPrecedenceOfArgsInParseNode: message with: encoder
| e r w list |
message arguments size > 0 ifTrue: [
w := WriteStream on: (Array new: 3).
message arguments first eToysExpFlattenOn: w.
list := w contents.
e := EToyExpressionTransformer2 new newNodeFromList: list encoder: encoder.
r := e transform.
message arguments at: 1 put: r.
^ message.
] ifFalse: [
^ message.
].
!
Item was changed:
+ ----- Method: PhraseTileMorph>>createMultipleTestScripts: (in category 'mouse') -----
- ----- Method: PhraseTileMorph>>createMultipleTestScripts: (in category '*Etoys-Squeakland-mouse') -----
createMultipleTestScripts: aCount
"Simulate the action of dropping a copy of the receiver to launch a new script -- for performance testing. To use: Open an Inspector on some tile command in a Viewer, e.g. on 'Car forward 5'. In the trash pane of that Inspector, then, evaluate expressions like:
[self createMultipleTestScripts: 10] timeToRun.
and
MessageTally spyOn: [self createMultipleTestScripts: 4]
"
| aPosition |
aPosition := 10@10.
1 to: aCount do:
[:i | self forceScriptCreationAt: aPosition.
aPosition := aPosition + (0 @ 50). "avoid dropping into existing scriptor"
Project current world doOneCycle] "refresh viewer"!
Item was changed:
+ ----- Method: PhraseTileMorph>>evaluateOn: (in category 'etoys-debugger') -----
- ----- Method: PhraseTileMorph>>evaluateOn: (in category '*Etoys-Squeakland-etoys-debugger') -----
evaluateOn: anEtoysDebugger
^ anEtoysDebugger evaluatePhrase: self!
Item was changed:
+ ----- Method: PhraseTileMorph>>forceScriptCreationAt: (in category 'mouse') -----
- ----- Method: PhraseTileMorph>>forceScriptCreationAt: (in category '*Etoys-Squeakland-mouse') -----
forceScriptCreationAt: aPosition
"For performance testing."
| dup |
dup := self duplicate.
dup eventHandler: nil. "Remove viewer-related evt mouseover feedback"
dup formerPosition: self currentHand position.
self currentHand
attachMorph: dup;
simulateMorphDropAt: aPosition.!
Item was changed:
+ ----- Method: PhraseTileMorph>>isAssignment (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>isAssignment (in category '*Etoys-Squeakland-code generation') -----
isAssignment
^ (submorphs at: 2) isKindOf: AssignmentTileMorph.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>isColorSeer (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>isColorSeer (in category '*Etoys-Squeakland-code generation') -----
isColorSeer
^ (submorphs at: 2) isKindOf: ColorSeerTile.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>isGetter: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>isGetter: (in category '*Etoys-Squeakland-code generation') -----
isGetter: aSymbol
^ (aSymbol beginsWith: 'get').
!
Item was changed:
+ ----- Method: PhraseTileMorph>>operatorNodeWith: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>operatorNodeWith: (in category '*Etoys-Squeakland-code generation') -----
operatorNodeWith: encoder
| sel rec args |
sel := submorphs second operatorOrExpression.
sel := (TileMorph classPool at: #EqualityOperators) at: sel ifAbsent: [sel].
rec := submorphs first parseNodeWith: encoder.
args := WriteStream on: (Array new: 3).
((submorphs second isMemberOf: TileCommandWithArgumentMorph) or: [
submorphs second isMemberOf: KedamaGetColorComponentTile]) ifTrue: [
args nextPut: (submorphs second parseNodeWith: encoder).
].
(3 to: submorphs size) do: [:e |
args nextPut: ((submorphs at: e) parseNodeWith: encoder).
].
^ MessageNode new
receiver: rec
selector: sel
arguments: args contents
precedence: (sel precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>parseNodeWith: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ self parseNodeWith: encoder asStatement: false.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>parseNodeWith:asStatement: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>parseNodeWith:asStatement: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder asStatement: aBoolean
| ret |
submorphs size >= 2 ifTrue: [
self isAssignment ifTrue: [
^ self assignmentNodeWith: encoder.
].
self isColorSeer ifTrue: [
^ self colorSeerNodeWith: encoder.
].
(true) ifTrue: [
ret := self operatorNodeWith: encoder.
aBoolean ifTrue: [^ self convertPrecedenceOfArgsInParseNode: ret with: encoder].
^ ret.
].
].
ret := submorphs first parseNodeWith: encoder.
aBoolean ifTrue: [^ self convertPrecedenceInParseNode: ret with: encoder].
^ ret.
!
Item was changed:
+ ----- Method: PhraseTileMorph>>removeHighlightFeedback (in category 'hilighting') -----
- ----- Method: PhraseTileMorph>>removeHighlightFeedback (in category '*Etoys-Squeakland-hilighting') -----
removeHighlightFeedback
"Remove any existing highlight feedback"
^ Project current world removeHighlightFeedback
!
Item was changed:
+ ----- Method: PhraseTileMorph>>replacePlayerWith: (in category 'kedama') -----
- ----- Method: PhraseTileMorph>>replacePlayerWith: (in category '*Etoys-Squeakland-kedama') -----
replacePlayerWith: aPlayer
"Kedama hook."
| tile patch |
aPlayer isPlayerLike ifFalse: [^ self].
aPlayer isPrototypeTurtlePlayer ifTrue: [
tile := self firstMorphBearingKedamaPlayer.
tile ifNil: [^ self].
(tile isMemberOf: TileMorph) ifFalse: [^ self].
tile type = #objRef ifFalse: [^ self].
tile referToSimilarObject: aPlayer.
patch := aPlayer costume renderedMorph kedamaWorld defaultPatch player.
] ifFalse: [
(aPlayer costume renderedMorph isMemberOf: KedamaPatchMorph) ifTrue: [
patch := aPlayer.
] ifFalse: [^ self].
].
self allMorphsDo: [:e |
((e isMemberOf: UpdatingStringMorph) or: [e isMemberOf: UpdatingRectangleMorph]) ifTrue: [
e target isPlayerLike ifTrue: [
e target costume renderedMorph class = aPlayer costume renderedMorph class ifTrue: [
e target: aPlayer
].
].
].
(e isMemberOf: KedamaPatchTile) ifTrue: [
e usePatch: patch.
].
].!
Item was changed:
+ ----- Method: PhraseTileMorph>>updatingOperatorNodeWith: (in category 'code generation') -----
- ----- Method: PhraseTileMorph>>updatingOperatorNodeWith: (in category '*Etoys-Squeakland-code generation') -----
updatingOperatorNodeWith: encoder
| sel rec args |
sel := submorphs second assignmentRoot asGetterSelector.
rec := submorphs first parseNodeWith: encoder.
args := WriteStream on: (Array new: 3).
((submorphs second isMemberOf: TileCommandWithArgumentMorph)
or: [(submorphs second isMemberOf: KedamaSetColorComponentTile)
or: [submorphs second isMemberOf: KedamaSetPixelValueTile]]) ifTrue: [
args nextPut: (submorphs second parseNodeWith: encoder).
].
^ MessageNode new
receiver: rec
selector: sel
arguments: args contents
precedence: (sel precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: Player class>>compile:classified:withStamp:notifying:logSource:for: (in category 'private') -----
- ----- Method: Player class>>compile:classified:withStamp:notifying:logSource:for: (in category '*Etoys-Squeakland-private') -----
compile: text classified: category withStamp: changeStamp notifying: requestor logSource: logSource for: anInstance
| methodAndNode trailer |
trailer := self defaultMethodTrailer.
trailer sourceCode: text.
methodAndNode := self basicCompile: text asString notifying: requestor
trailer: trailer ifFail: [^nil] for: anInstance.
logSource ifTrue: [
self logMethodSource: text forMethodWithNode: methodAndNode
inCategory: category withStamp: changeStamp notifying: requestor.
].
self addAndClassifySelector: methodAndNode selector withMethod: methodAndNode
method inProtocol: category notifying: requestor.
self theNonMetaClass noteCompilationOf: methodAndNode selector meta: self isMeta.
^ methodAndNode selector!
Item was changed:
+ ----- Method: Player class>>createTurtleSubclass2 (in category 'turtles') -----
- ----- Method: Player class>>createTurtleSubclass2 (in category '*Etoys-Squeakland-turtles') -----
createTurtleSubclass2
^ KedamaTurtleVectorPlayer2 newUniqueClassInstVars: '' classInstVars: ''.
!
Item was changed:
+ ----- Method: Player class>>extraExampleCar (in category 'MorphicExtras-examples') -----
- ----- Method: Player class>>extraExampleCar (in category '*Etoys-*MorphicExtras-examples') -----
extraExampleCar
"Player extraExampleCar do: #openInWorld"
| trackMorph wheelMorph carMorph carPlayer alertMorph wheelPlayer parent |
trackMorph := SketchMorph withForm: (Form extraCarTrack magnifyBy: RealEstateAgent scaleFactor).
trackMorph assuredPlayer; name: 'Track'.
carMorph := SketchMorph withForm: (Form extraCar magnifyBy: RealEstateAgent scaleFactor).
carPlayer := self newSubclass new
costume: (carMorph name: #Car);
yourself.
wheelMorph := SketchMorph withForm: (Form extraWheel magnifyBy: RealEstateAgent scaleFactor).
wheelPlayer := self newSubclass new
costume: (wheelMorph name: #Wheel);
yourself.
alertMorph := RectangleMorph new
useRoundedCorners;
extent: 90 px @ 50 px;
color: Color black;
assuredPlayer;
name: 'Alert';
yourself.
{trackMorph. carMorph. wheelMorph. alertMorph} do: [:morph |
carPlayer environment at: morph name asSymbol put: morph player].
carPlayer environment at: #Wheel put: wheelPlayer.
Utilities useAuthorInitials: 'Objectland' during: [
carPlayer class compile: ((self extraExampleCarSource
asString lines allButFirst copyWithFirst: #drive)
joinSeparatedBy: Character cr)].
(carPlayer class >> #drive) decompile asScriptEditorFor: carPlayer.
carPlayer changeScript: #drive toStatus: #ticking.
carPlayer presenter stopRunningScripts.
parent := Morph new
color: Color transparent;
extent: 700 px @ 700 px;
addAllMorphsFront: {carMorph. trackMorph. wheelMorph. alertMorph}
yourself.
trackMorph position: 19 px @ 25 px.
wheelMorph center: (trackMorph pointAtFraction: 0.3 @ 1.15).
carMorph
center: (trackMorph pointAtFraction: 0.45 @ 0.89);
rotationDegrees: 100.
alertMorph
center: (wheelMorph pointAtFraction: 1.75 @ 0.5);
addMorph: ('Alert' asTextMorph
backgroundColor: (Color paleYellow alpha: 0.6);
center: (alertMorph pointAtFraction: 0.5 @ 1.2);
yourself).
^ {parent. carPlayer scriptEditorFor: #drive}!
Item was changed:
+ ----- Method: Player class>>extraExampleCarSource (in category 'MorphicExtras-examples') -----
- ----- Method: Player class>>extraExampleCarSource (in category '*Etoys-*MorphicExtras-examples') -----
extraExampleCarSource
^ 'extraExampleDrive
self forward: 5.
self turn: Wheel getHeading // 5'!
Item was changed:
+ ----- Method: Player class>>isRead: (in category 'turtles') -----
- ----- Method: Player class>>isRead: (in category '*Etoys-Squeakland-turtles') -----
isRead: aSelector
^ (aSelector beginsWith: 'get').
!
Item was changed:
+ ----- Method: Player class>>isWrite: (in category 'turtles') -----
- ----- Method: Player class>>isWrite: (in category '*Etoys-Squeakland-turtles') -----
isWrite: aSelector
^ (aSelector beginsWith: 'set').
!
Item was changed:
+ ----- Method: Player class>>myProject (in category 'other') -----
- ----- Method: Player class>>myProject (in category '*Etoys-Squeakland-other') -----
myProject
"Find the project I was defined in, or nil"
self isSystemDefined ifTrue: [^nil].
Project allProjects do: [:prj |
prj world presenter allExtantPlayers do: [:plr |
plr class == self ifTrue: [^prj]]].
^nil
!
Item was changed:
+ ----- Method: Player class>>readOrWriteOrNil: (in category 'turtles') -----
- ----- Method: Player class>>readOrWriteOrNil: (in category '*Etoys-Squeakland-turtles') -----
readOrWriteOrNil: aSymbol
(self isRead: aSymbol) ifTrue: [^ #read].
(self isWrite: aSymbol) ifTrue: [^ #write].
^ nil.
!
Item was changed:
+ ----- Method: PlayerSurrogate>>copyName (in category 'menu') -----
- ----- Method: PlayerSurrogate>>copyName (in category '*Etoys-Squeakland-menu') -----
copyName
"Copy the internal name of my referent to the clipboard."
Clipboard clipboardText: playerRepresented externalName!
Item was changed:
+ ----- Method: PlayerSurrogate>>destroyThisObject (in category 'scripting') -----
- ----- Method: PlayerSurrogate>>destroyThisObject (in category '*Etoys-Squeakland-as yet unclassified') -----
destroyThisObject
"Make an effort to remove this object."
playerRepresented isInTrash
ifTrue:
[^ self inform: 'Already in the Trash' translated].
playerRepresented costume slideToTrash: nil!
Item was changed:
+ ----- Method: PlayerSurrogate>>forciblyRenamePlayer (in category 'scripting') -----
- ----- Method: PlayerSurrogate>>forciblyRenamePlayer (in category '*Etoys-Squeakland-as yet unclassified') -----
forciblyRenamePlayer
"Allow the receiver to seize a name already nominally in use in the project."
| current reply currentlyBearingName newNameForHim binding |
current := playerRepresented knownName.
reply := FillInTheBlank request: 'Type the name you insist upon' translated initialAnswer: current.
reply isEmptyOrNil ifTrue: [^ self].
Preferences uniquePlayerNames ifFalse: [^ self costume renameTo: reply].
reply := (reply asIdentifier: true) asSymbol.
reply = current ifTrue: [^ self inform: 'no change' translated].
binding := Project current world referencePool hasBindingOf: reply.
binding ifNotNil: [
currentlyBearingName := binding value.
newNameForHim := Utilities keyLike: reply satisfying: [:name |
(Project current world referencePool includesKey: name) not].
currentlyBearingName renameTo: newNameForHim].
playerRepresented renameTo: reply.
self inform: (binding
ifNil: [('There was no conflict; this object is now named {1}' translated format: {reply})]
ifNotNil: ['Okay, this object is now named\{1}\and the object formerly known by this name is now called\{2}' translated format: {reply. newNameForHim}]).!
Item was changed:
+ ----- Method: PlayerSurrogate>>inspectPlayer (in category 'menu') -----
- ----- Method: PlayerSurrogate>>inspectPlayer (in category '*Etoys-Squeakland-menu') -----
inspectPlayer
"Inspect the player I represent."
playerRepresented inspectWithLabel: playerRepresented printString!
Item was changed:
+ ----- Method: PlayerSurrogate>>playerButtonHit (in category 'menu') -----
- ----- Method: PlayerSurrogate>>playerButtonHit (in category '*Etoys-Squeakland-menu') -----
playerButtonHit
"The user clicked on the menu icon."
| aMenu aString |
aMenu := MenuMorph new defaultTarget: self.
aString := playerRepresented uniqueNameForReference.
aMenu addTitle: aString.
aMenu addTranslatedList: #(
('where is this object?' revealThisObject)
('open viewer for this object' viewerForThisObject)
('tile for this object' handMeATile)
-
('destroy this object' destroyThisObject)
-
('rename object' renamePlayer)
('forcibly rename object' forciblyRenamePlayer 'If you want to give this object a name which conflicts with the name of some other object in the project, use this command. The other object with the same name will in the process be given a different name.')
-
('copy object''s name to clipboard' copyName)
('inspect object' inspectPlayer)
) translatedNoop.
aMenu popUpInWorld!
Item was changed:
+ ----- Method: PlayerSurrogate>>renamePlayer (in category 'menu') -----
- ----- Method: PlayerSurrogate>>renamePlayer (in category '*Etoys-Squeakland-menu') -----
renamePlayer
"Rename the player I represent."
| result |
result := FillInTheBlank request: 'Type new name:' translated
initialAnswer: playerRepresented knownName.
result isEmptyOrNil ifFalse:
[playerRepresented tryToRenameTo: result]!
Item was changed:
+ ----- Method: PluggableTabButtonMorph class>>on:label: (in category 'instance creation') -----
- ----- Method: PluggableTabButtonMorph class>>on:label: (in category '*Etoys-instance creation') -----
on: anObject label: getTextSelector
| instance |
instance := super new.
instance model: anObject.
instance textSelector: getTextSelector.
^ instance !
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>active (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>active (in category '*Etoys-access') -----
active
active ifNil: [ active := false ].
^ active!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>active: (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>active: (in category '*Etoys-access') -----
active: aBoolean
active := aBoolean.
self changed.!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>arcLengths (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>arcLengths (in category '*Etoys-private - access') -----
arcLengths
arcLengths ifNil: [ self calculateArcLengths ].
^ arcLengths!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>arcLengths: (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>arcLengths: (in category '*Etoys-private - access') -----
arcLengths: anArrayOfIntegers
arcLengths := anArrayOfIntegers
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>calculateArcLengths (in category 'precalculations') -----
- ----- Method: PluggableTabButtonMorph>>calculateArcLengths (in category '*Etoys-precalculations') -----
calculateArcLengths
| array radius |
radius := self cornerRadius.
array := Array new: radius.
1 to: radius do: [ :i | | x |
x := i - 0.5.
array at: i
put: (radius - ((2 * x * radius) - (x * x)) sqrt) asInteger].
self arcLengths: array!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>cornerRadius (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>cornerRadius (in category '*Etoys-private - access') -----
cornerRadius
^ 5
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>drawOn: (in category 'drawing') -----
- ----- Method: PluggableTabButtonMorph>>drawOn: (in category '*Etoys-drawing') -----
drawOn: aCanvas
self drawTabOn: aCanvas.
self drawSubMorphOn: aCanvas!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>drawSubMorphOn: (in category 'drawing') -----
- ----- Method: PluggableTabButtonMorph>>drawSubMorphOn: (in category '*Etoys-drawing') -----
drawSubMorphOn: aCanvas
| morphBounds |
morphBounds := self bounds insetBy: (self cornerRadius + 3) @ (self topInactiveGap // 2 + 2).
morphBounds := morphBounds translateBy: 0@(self topInactiveGap // 2 + 1).
self active ifTrue: [
morphBounds := morphBounds translateBy: 0@((self topInactiveGap // 2 + 1) negated)].
self subMorph bounds height < (morphBounds height)
ifTrue: [
morphBounds := morphBounds
insetBy: 0@((morphBounds height - self subMorph bounds height) // 2)].
self subMorph bounds width < (morphBounds width)
ifTrue: [
morphBounds := morphBounds
insetBy: ((morphBounds width - self subMorph bounds width) // 2)@0].
self subMorph bounds: morphBounds.
aCanvas drawMorph: self subMorph!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>drawTabOn: (in category 'drawing') -----
- ----- Method: PluggableTabButtonMorph>>drawTabOn: (in category '*Etoys-drawing') -----
drawTabOn: aCanvas
| top myColor cornerRadius myArcLengths myBounds |
cornerRadius := self cornerRadius.
myBounds := self bounds.
self active
ifTrue: [ top := myBounds top.
myColor := self color ]
ifFalse: [ top := myBounds top + self topInactiveGap.
myColor := self color whiter whiter ].
aCanvas fillRectangle:
((myBounds left + cornerRadius)
@ (top + cornerRadius)
corner: (myBounds right - cornerRadius)
@ self bottom)
color: myColor.
aCanvas fillRectangle:
((myBounds left + (cornerRadius * 2)) @ top
corner: (myBounds right - (cornerRadius * 2))
@ (top + cornerRadius))
color: myColor.
aCanvas fillOval:
((myBounds left + self cornerRadius) @ top
corner: (myBounds left + (self cornerRadius * 3))
@ (top + (self cornerRadius * 2)))
color: myColor.
aCanvas fillOval:
((myBounds right - (self cornerRadius * 3)) @ top
corner: (myBounds right - self cornerRadius)
@ (top + (self cornerRadius * 2)))
color: myColor.
myArcLengths := self arcLengths.
1 to: myArcLengths size do: [ :i | | length |
length := myArcLengths at: i.
aCanvas line: (myBounds left + cornerRadius - i) @ (myBounds bottom - 1 )
to: (myBounds left + cornerRadius - i) @ (myBounds bottom - length - 1)
color: myColor.
aCanvas line: (myBounds right - cornerRadius + i - 1) @ (myBounds bottom - 1)
to: (myBounds right - cornerRadius + i - 1) @ (myBounds bottom - length - 1)
color: myColor]
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>initialize (in category 'initialization') -----
- ----- Method: PluggableTabButtonMorph>>initialize (in category '*Etoys-initialization') -----
initialize
^ super initialize
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>innerExtent: (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>innerExtent: (in category '*Etoys-access') -----
innerExtent: aPoint
"Set the extent based on the primary visible part of the tab. In other words add twice the cornerRadius to this extent"
self extent: (aPoint x + (self cornerRadius * 2)) @ (aPoint y)!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>model (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>model (in category '*Etoys-access') -----
model
^ model
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>model: (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>model: (in category '*Etoys-access') -----
model: anObject
model := anObject!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>outerGap (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>outerGap (in category '*Etoys-access') -----
outerGap
"The horizontal distance of the outer left and right edges of the tab excluding the inner visible part"
^ self cornerRadius * 2!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>step (in category 'stepping') -----
- ----- Method: PluggableTabButtonMorph>>step (in category '*Etoys-stepping') -----
step
self subMorph step.
self changed.
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>stepTime (in category 'stepping') -----
- ----- Method: PluggableTabButtonMorph>>stepTime (in category '*Etoys-stepping') -----
stepTime
^ self subMorph stepTime
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>subMorph (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>subMorph (in category '*Etoys-private - access') -----
subMorph
subMorph ifNil: [ self update: self textSelector ].
^ subMorph!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>subMorph: (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>subMorph: (in category '*Etoys-private - access') -----
subMorph: aMorph
subMorph := aMorph
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>textSelector (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>textSelector (in category '*Etoys-access') -----
textSelector
^ textSelector
!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>textSelector: (in category 'access') -----
- ----- Method: PluggableTabButtonMorph>>textSelector: (in category '*Etoys-access') -----
textSelector: aSymbol
textSelector := aSymbol!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>toggle (in category 'actions') -----
- ----- Method: PluggableTabButtonMorph>>toggle (in category '*Etoys-actions') -----
toggle
self active: self active not!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>topInactiveGap (in category 'private - access') -----
- ----- Method: PluggableTabButtonMorph>>topInactiveGap (in category '*Etoys-private - access') -----
topInactiveGap
^ 5!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>update: (in category 'updating') -----
- ----- Method: PluggableTabButtonMorph>>update: (in category '*Etoys-updating') -----
update: aSelector
self textSelector ifNotNil: [
aSelector = self textSelector
ifTrue: [ | morph |
(aSelector isSymbol and: [model notNil])
ifTrue: [
morph :=
(self model perform: aSelector) asMorph]
ifFalse: [ morph := aSelector value asMorph].
self subMorph: morph]].
self changed!
Item was changed:
+ ----- Method: PluggableTabButtonMorph>>wantsSteps (in category 'stepping') -----
- ----- Method: PluggableTabButtonMorph>>wantsSteps (in category '*Etoys-stepping') -----
wantsSteps
^ self subMorph wantsSteps!
Item was changed:
+ ----- Method: Presenter class>>defaultPresenterClass (in category 'accessing') -----
- ----- Method: Presenter class>>defaultPresenterClass (in category '*Etoys-accessing') -----
defaultPresenterClass
"The default presenter class to use"
^DefaultPresenterClass ifNil:[self]!
Item was changed:
+ ----- Method: Presenter class>>defaultPresenterClass: (in category 'accessing') -----
- ----- Method: Presenter class>>defaultPresenterClass: (in category '*Etoys-accessing') -----
defaultPresenterClass: aPresenterClass
"The default presenter class to use"
DefaultPresenterClass := aPresenterClass!
Item was changed:
+ ----- Method: RandomNumberTile>>basicParseNodeWith: (in category 'code generation') -----
- ----- Method: RandomNumberTile>>basicParseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
basicParseNodeWith: encoder
^ MessageNode new
receiver: (encoder encodeLiteral: literal)
selector: #atRandom
arguments: #()
precedence: (#atRandom precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: RandomNumberTile>>kedamaParseNodeWith:actualObject: (in category 'code generation') -----
- ----- Method: RandomNumberTile>>kedamaParseNodeWith:actualObject: (in category '*Etoys-Squeakland-code generation') -----
kedamaParseNodeWith: encoder actualObject: obj
^ MessageNode new
receiver: (encoder encodePlayer: obj)
selector: #random:
arguments: (encoder encodeLiteral: literal)
precedence: (#random: precedence)
from: encoder
sourceRange: nil.
!
Item was changed:
+ ----- Method: RandomNumberTile>>labelMorphs (in category 'misc') -----
- ----- Method: RandomNumberTile>>labelMorphs (in category '*Etoys-Squeakland-misc') -----
labelMorphs
^ submorphs select: [:m | m isKindOf: StringMorph].
!
Item was changed:
+ ----- Method: RandomNumberTile>>parseNodeWith: (in category 'code generation') -----
- ----- Method: RandomNumberTile>>parseNodeWith: (in category '*Etoys-Squeakland-accessing') -----
parseNodeWith: encoder
| phrase player costume |
phrase := self outermostMorphThat: [:m| m isKindOf: PhraseTileMorph].
phrase ifNil: [^ self basicParseNodeWith: encoder].
player := phrase associatedPlayer.
player ifNil: [^ self basicParseNodeWith: encoder].
costume := player costume.
costume ifNil: [^ self basicParseNodeWith: encoder].
(player isKindOf: KedamaExamplerPlayer) ifTrue: [
^ self kedamaParseNodeWith: encoder actualObject: player costume renderedMorph kedamaWorld player].
(costume renderedMorph isMemberOf: KedamaMorph) ifTrue: [
^ self kedamaParseNodeWith: encoder actualObject: self].
^ self basicParseNodeWith: encoder.
!
Item was changed:
+ ----- Method: RandomNumberTile>>unhibernate (in category 'misc') -----
- ----- Method: RandomNumberTile>>unhibernate (in category '*Etoys-Squeakland-misc') -----
unhibernate
self labelMorphs do: [:l | l label: l contents font: Preferences standardEToysFont].
self removeProperty: #needsLayoutFixed.
!
Item was changed:
+ ----- Method: ScriptActivationButton>>editButtonsScript (in category 'scripting') -----
- ----- Method: ScriptActivationButton>>editButtonsScript (in category '*Etoys-Squeakland-button') -----
editButtonsScript
"Open the scriptor for the script activated by this button."
target openUnderlyingScriptorFor: arguments first!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>clearEvaluator (in category 'Tweak-Kedama') -----
- ----- Method: ScriptEditorMorph class>>clearEvaluator (in category '*Etoys-Squeakland-Tweak-Kedama') -----
clearEvaluator
"
ScriptEditorMorph clearEvaluator.
"
Evaluator := nil.
!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>generateParseNodeDirectly: (in category 'accessing') -----
- ----- Method: ScriptEditorMorph class>>generateParseNodeDirectly: (in category '*Etoys-Squeakland-accessing') -----
generateParseNodeDirectly: aBoolean
"Set the value for the class variable GenerateParseNodeDirectly, which governs an option of how to compile tile scripts."
GenerateParseNodeDirectly := aBoolean.
"
ScriptEditorMorph generateParseNodeDirectly: true
ScriptEditorMorph generateParseNodeDirectly: false
"
!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>setDefaultEvaluator (in category 'Tweak-Kedama') -----
- ----- Method: ScriptEditorMorph class>>setDefaultEvaluator (in category '*Etoys-Squeakland-Tweak-Kedama') -----
setDefaultEvaluator
Evaluator := KedamaAttributeEvaluator new.
Evaluator defineSyntaxFrom: KedamaAttributeEvaluator squeakParseNodes.
Evaluator readDefinitionsFrom: KedamaTurtleMethodAttributionDefinition2.
Evaluator compileEvaluator.
!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>setRewriteFlag: (in category 'Tweak-Kedama') -----
- ----- Method: ScriptEditorMorph class>>setRewriteFlag: (in category '*Etoys-Squeakland-Tweak-Kedama') -----
setRewriteFlag: aBoolean
Rewrite := aBoolean.
!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>trackedEditor (in category 'tracking') -----
- ----- Method: ScriptEditorMorph class>>trackedEditor (in category '*Etoys-Squeakland-tracking') -----
trackedEditor
^ TrackedEditor
!
Item was changed:
+ ----- Method: ScriptEditorMorph class>>trackedEditor: (in category 'tracking') -----
- ----- Method: ScriptEditorMorph class>>trackedEditor: (in category '*Etoys-Squeakland-tracking') -----
trackedEditor: anObject
TrackedEditor := anObject.
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>addCommandFeedback: (in category 'menu commands') -----
- ----- Method: ScriptEditorMorph>>addCommandFeedback: (in category '*Etoys-Squeakland-menu commands') -----
addCommandFeedback: evt
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>addGoldBoxItemsTo: (in category 'other') -----
- ----- Method: ScriptEditorMorph>>addGoldBoxItemsTo: (in category '*Etoys-Squeakland-other') -----
addGoldBoxItemsTo: aMenu
"Add gold-box-related submenu to the scriptor menu"
| subMenu |
subMenu := MenuMorph new defaultTarget: self.
subMenu addTitle: 'gold box' translated.
subMenu addTranslatedList: #(
('hand me a test-yest-no tile' addYesNoToHand)
('hand me a "repeat..times" tile' handUserTimesRepeatTile)
('hand me a "random number" tile' handUserRandomTile)
('hand me a "function" tile' handUserFunctionTile)
('hand me a "button up?" tile' handUserButtonUpTile)
('hand me a "button down?" tile' handUserButtonDownTile)
('hand me a tile for self ' handUserTileForSelf)
('hand me a numeric-constant tile' handUserNumericConstantTile)
) translatedNoop.
aMenu add: 'gold box items' translated subMenu: subMenu!
Item was changed:
+ ----- Method: ScriptEditorMorph>>buttonToOpenOrCloseThisScript (in category 'customevents-other') -----
- ----- Method: ScriptEditorMorph>>buttonToOpenOrCloseThisScript (in category '*Etoys-Squeakland-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>>deleteEtoysDebugger (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>deleteEtoysDebugger (in category '*Etoys-Squeakland-etoys-debugger') -----
deleteEtoysDebugger
"If present, delete the currently-associated etoysDebugger."
| aDebugger |
aDebugger := self valueOfProperty: #etoysDebugger ifAbsent: [^ self].
aDebugger delete. "removes the highlighter from the world"
self removeProperty: #etoysDebugger!
Item was changed:
+ ----- Method: ScriptEditorMorph>>enforceImplicitSelf (in category 'access') -----
- ----- Method: ScriptEditorMorph>>enforceImplicitSelf (in category '*Etoys-Squeakland-access') -----
enforceImplicitSelf
"If the implicitSelf preference is set to true, obscure all unnecessary objRef tiles."
self scriptContainer allMorphs do:
[:m | ((m isKindOf: TileMorph) and: [m type == #objRef])
ifTrue:
[m emblazonPlayerNameOnReferenceTileWithin: self]] !
Item was changed:
+ ----- Method: ScriptEditorMorph>>etoysDebugger (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>etoysDebugger (in category '*Etoys-Squeakland-etoys-debugger') -----
etoysDebugger
^ self valueOfProperty: #etoysDebugger ifAbsentPut: [EtoysDebugger on: self]!
Item was changed:
+ ----- Method: ScriptEditorMorph>>findObject (in category 'menu commands') -----
- ----- Method: ScriptEditorMorph>>findObject (in category '*Etoys-Squeakland-menu commands') -----
findObject
"Reveal the object bearing the code "
playerScripted revealPlayerIn: Project current world.!
Item was changed:
+ ----- Method: ScriptEditorMorph>>generateParseNodeDirectly (in category 'access') -----
- ----- Method: ScriptEditorMorph>>generateParseNodeDirectly (in category '*Etoys-Squeakland-access') -----
generateParseNodeDirectly
^ GenerateParseNodeDirectly == true.
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>goldBoxMenu (in category 'gold box') -----
- ----- Method: ScriptEditorMorph>>goldBoxMenu (in category '*Etoys-Squeakland-gold box') -----
goldBoxMenu
"Answer a graphical menu to be put up in conjunction with the Gold Box"
| aBox |
aBox := Project current world findA: GoldBoxMenu.
aBox ifNil: [aBox := GoldBoxMenu new].
aBox initializeFor: self.
^ aBox!
Item was changed:
+ ----- Method: ScriptEditorMorph>>handUserFunctionTile (in category 'other') -----
- ----- Method: ScriptEditorMorph>>handUserFunctionTile (in category '*Etoys-Squeakland-other') -----
handUserFunctionTile
"Hand the user a function tile, presumably to drop in the script"
| functionPhrase argTile aPad |
functionPhrase := FunctionTile new.
argTile := (Vocabulary vocabularyNamed: 'Number') defaultArgumentTile.
aPad := TilePadMorph new setType: #Number.
aPad addMorphBack: argTile.
functionPhrase operator: #abs pad: aPad.
functionPhrase openInHand!
Item was changed:
+ ----- Method: ScriptEditorMorph>>handUserNumericConstantTile (in category 'initialize buttons') -----
- ----- Method: ScriptEditorMorph>>handUserNumericConstantTile (in category '*Etoys-Squeakland-initialize buttons') -----
handUserNumericConstantTile
"Construct a numeric-constant tile and hand it to the user."
| aTile |
aTile := Vocabulary numberVocabulary defaultArgumentTile.
aTile openInHand!
Item was changed:
+ ----- Method: ScriptEditorMorph>>handUserTimesRepeatTile (in category 'other') -----
- ----- Method: ScriptEditorMorph>>handUserTimesRepeatTile (in category '*Etoys-Squeakland-other') -----
handUserTimesRepeatTile
"Hand the user a times-repeat tile, presumably to drop in the script"
| aMorph |
aMorph := TimesRepeatTile new.
self currentHand attachMorph: aMorph.
aMorph position: self currentHand position.!
Item was changed:
+ ----- Method: ScriptEditorMorph>>hasKedamaTurtlePlayer (in category 'other') -----
- ----- Method: ScriptEditorMorph>>hasKedamaTurtlePlayer (in category '*Etoys-Squeakland-other') -----
hasKedamaTurtlePlayer
self tileRows do: [:row |
row do: [:phrase | phrase traverseSearchForKedamaTurtleIfFound: [^ true]].
].
^ false.
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>methodNode (in category 'customevents-buttons') -----
- ----- Method: ScriptEditorMorph>>methodNode (in category '*Etoys-Squeakland-customevents-buttons') -----
methodNode
"Answer the source-code string for the receiver. This is for use by classic tiles, but is also used in universal tiles to formulate an initial method declaration for a nascent user-defined script; in universalTiles mode, the codeString (at present anyway) is empty -- the actual code derives from the SyntaxMorph in that case"
| evaluator rewriter node |
(submorphs size = 2 and: [(submorphs second isMemberOf: MethodMorph)]) ifTrue: [
^ playerScripted class compilerClass new
compile: submorphs second model contents
in: playerScripted class
notifying: nil
ifFail: [] for: playerScripted.
].
node := self scriptParseNodeIn: self referenceWorld.
self hasKedamaTurtlePlayer ifFalse: [^ node].
Evaluator ifNil: [
self class setDefaultEvaluator.
].
evaluator := Evaluator.
evaluator makeAttributedTreeWith: node forReceiver: playerScripted.
evaluator addGraphEdgesRoot.
evaluator evaluateAllOccurence.
Rewrite ifTrue: [
rewriter := KedamaVectorParseTreeRewriter new.
rewriter attributedTree: evaluator attributedTree.
rewriter parseTree: evaluator attributedTree tree.
rewriter setEncoderFor: playerScripted in: self referenceWorld.
rewriter visit: evaluator attributedTree tree andParent: nil.
^ playerScripted class compilerClass new compile: rewriter parseTree decompileString in: playerScripted class notifying: nil ifFail: [^nil] for: playerScripted.
] ifFalse: [
evaluator attributedTree inspect.
^ evaluator parseTree
].
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>nextTile (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>nextTile (in category '*Etoys-Squeakland-etoys-debugger') -----
nextTile
^ (self ownerThatIsA: TileLikeMorph orA: ScriptEditorMorph)
nextTile
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>nextTileTo: (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>nextTileTo: (in category '*Etoys-Squeakland-etoys-debugger') -----
nextTileTo: aTileMorph
| tiles index |
tiles := self tiles.
index := (tiles indexOf: aTileMorph) + 1.
index > tiles size
ifTrue: [self = self topEditor
ifTrue: [^ tiles at: 1]
ifFalse: [^ self nextTile]].
^ tiles at: index!
Item was changed:
+ ----- Method: ScriptEditorMorph>>offerGoldBoxMenu (in category 'gold box') -----
- ----- Method: ScriptEditorMorph>>offerGoldBoxMenu (in category '*Etoys-Squeakland-gold box') -----
offerGoldBoxMenu
"Put up a gold-box menu beneath my gold-box icon. This will re-use an existing one"
self goldBoxMenu openInWorld; goHome!
Item was changed:
+ ----- Method: ScriptEditorMorph>>offerSimplerScriptorMenu (in category 'other') -----
- ----- Method: ScriptEditorMorph>>offerSimplerScriptorMenu (in category '*Etoys-Squeakland-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 |
self currentHand 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: self currentWorld.
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: self currentWorld.
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 changed:
+ ----- Method: ScriptEditorMorph>>openObjectsViewer (in category 'menu commands') -----
- ----- Method: ScriptEditorMorph>>openObjectsViewer (in category '*Etoys-Squeakland-menu commands') -----
openObjectsViewer
"Open the viewer of the player whose code I bear."
| aMorph |
aMorph := playerScripted costume.
aMorph presenter viewMorph: aMorph!
Item was changed:
+ ----- Method: ScriptEditorMorph>>openOrCloseScriptor (in category 'customevents-other') -----
- ----- Method: ScriptEditorMorph>>openOrCloseScriptor (in category '*Etoys-Squeakland-customevents-other') -----
openOrCloseScriptor
"Open up the scriptor on the screen"
self isInWorld
ifTrue:
[self delete]
ifFalse:
[self openInWorld; goHome; comeToFront]!
Item was changed:
+ ----- Method: ScriptEditorMorph>>parseNodeWith: (in category 'scripting') -----
- ----- Method: ScriptEditorMorph>>parseNodeWith: (in category '*Etoys-Squeakland-other') -----
parseNodeWith: encoder
| statements ret |
statements := WriteStream on: (Array new: self tileRows size).
self tileRows do: [:row |
row do: [:morph |
(morph respondsTo: #parseNodeWith:asStatement:) ifTrue: [
statements nextPut: (morph parseNodeWith: encoder asStatement: true)]]].
statements := statements contents.
ret := ReturnNode new expr: (encoder encodeVariable: 'self').
^ BlockNode new
arguments: #()
statements: (statements copyWith: ret)
returns: true
from: encoder.!
Item was changed:
+ ----- Method: ScriptEditorMorph>>removeDropSpaces (in category 'dropping/grabbing') -----
- ----- Method: ScriptEditorMorph>>removeDropSpaces (in category '*Etoys-Squeakland-dropping/grabbing') -----
removeDropSpaces
dropSpaces ifNotNil: [dropSpaces do: [:m | m delete]].
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>scriptContainer (in category 'access') -----
- ----- Method: ScriptEditorMorph>>scriptContainer (in category '*Etoys-Squeakland-access') -----
scriptContainer
"Answer the morph that holds the lines of script."
^ self!
Item was changed:
+ ----- Method: ScriptEditorMorph>>scriptParseNodeIn: (in category 'scripting') -----
- ----- Method: ScriptEditorMorph>>scriptParseNodeIn: (in category '*Etoys-Squeakland-other') -----
scriptParseNodeIn: aWorld
| n selOrFalse arguments block encoder |
encoder := ScriptEncoder new init: playerScripted class context: nil notifying: nil; referenceObject: aWorld.
n := MethodNode new.
selOrFalse := encoder encodeSelector: scriptName.
playerScripted class scripts at: scriptName ifPresent: [:uniclassScript |
arguments := uniclassScript argumentVariables asArray collect: [:each |
encoder bindArg: each variableName.
].
].
arguments ifNil: [
"In some sort of transition. Initial creation or name change."
scriptName numArgs = 0 ifTrue: [
arguments := #().
] ifFalse: [
arguments := (Array with: (encoder bindArg: 'parameter')).
].
].
block := self parseNodeWith: encoder.
^ n
selector: selOrFalse
arguments: arguments
precedence: scriptName precedence
temporaries: #()
block: block
encoder: encoder
primitive: 0.
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>setupMethodMorph (in category 'access') -----
- ----- Method: ScriptEditorMorph>>setupMethodMorph (in category '*Etoys-Squeakland-buttons') -----
setupMethodMorph
"create textual source instead"
| aCodePane |
aCodePane := MethodHolder
isolatedCodePaneForClass: playerScripted class
selector: scriptName.
aCodePane
hResizing: #spaceFill;
vResizing: #spaceFill;
minHeight: 100 px.
self
hResizing: #shrinkWrap;
vResizing: #shrinkWrap.
self addMorphBack: aCodePane.
self fullBounds.
self
listDirection: #topToBottom;
hResizing: #rigid;
vResizing: #rigid;
rubberBandCells: true;
minWidth: self width.
showingMethodPane := true.
self currentWorld startSteppingSubmorphsOf: self!
Item was changed:
+ ----- Method: ScriptEditorMorph>>showingCarets (in category 'other') -----
- ----- Method: ScriptEditorMorph>>showingCarets (in category '*Etoys-Squeakland-other') -----
showingCarets
"Answer whether the receiver is in showing-carets mode."
^ self valueOfProperty: #showingCarets ifAbsentPut: [true]!
Item was changed:
+ ----- Method: ScriptEditorMorph>>showingCaretsString (in category 'other') -----
- ----- Method: ScriptEditorMorph>>showingCaretsString (in category '*Etoys-Squeakland-other') -----
showingCaretsString
"Answer a strilng characterizing whether I am showing carets or not."
^ (self showingCarets ifTrue: ['<yes>'] ifFalse: ['<no>']), 'show arrows' translated!
Item was changed:
+ ----- Method: ScriptEditorMorph>>startTracking (in category 'dropping/grabbing') -----
- ----- Method: ScriptEditorMorph>>startTracking (in category '*Etoys-Squeakland-dropping/grabbing') -----
startTracking
| ed |
((ed := ScriptEditorMorph trackedEditor) notNil and: [ed ~~ self]) ifTrue: [
ed stopSteppingSelector: #trackDropZones.
ed removeSpaces.
].
ScriptEditorMorph trackedEditor: self.
self startSteppingSelector: #trackDropZones.!
Item was changed:
+ ----- Method: ScriptEditorMorph>>stepMe (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>stepMe (in category '*Etoys-Squeakland-etoys-debugger') -----
stepMe
self etoysDebugger evaluateNextTile !
Item was changed:
+ ----- Method: ScriptEditorMorph>>stopTracking (in category 'dropping/grabbing') -----
- ----- Method: ScriptEditorMorph>>stopTracking (in category '*Etoys-Squeakland-dropping/grabbing') -----
stopTracking
| ed |
(((ed := ScriptEditorMorph trackedEditor) notNil) and: [ed ~~ self]) ifTrue: [
ed stopSteppingSelector: #trackDropZones.
ed removeSpaces.
].
self stopSteppingSelector: #trackDropZones.
handWithTile := nil.
ScriptEditorMorph trackedEditor: nil.
!
Item was changed:
+ ----- Method: ScriptEditorMorph>>tiles (in category 'etoys-debugger') -----
- ----- Method: ScriptEditorMorph>>tiles (in category '*Etoys-Squeakland-etoys-debugger') -----
tiles
^ self tileRows collect: [:each | each first]!
Item was changed:
+ ----- Method: ScriptEditorMorph>>toggleShowingCarets (in category 'other') -----
- ----- Method: ScriptEditorMorph>>toggleShowingCarets (in category '*Etoys-Squeakland-other') -----
toggleShowingCarets
"Toggle whether I'm showing carets."
self setProperty: #showingCarets toValue: self showingCarets not.
self fixUpCarets.
self install!
Item was changed:
+ ----- Method: ScriptEditorMorph>>viewerTile (in category 'access') -----
- ----- Method: ScriptEditorMorph>>viewerTile (in category '*Etoys-Squeakland-access') -----
viewerTile
| viewers category viewerline |
viewers := playerScripted allOpenViewersOnReceiverAndSiblings.
viewers isEmpty
ifTrue: [^ nil].
category := viewers first categoryMorphs
detect: [:e | e chosenCategorySymbol = #scripts]
ifNone: [^ nil].
viewerline := category submorphs
detect: [:e | (e isKindOf: ViewerLine)
and: [e elementSymbol = scriptName]]
ifNone: [^ nil].
viewerline world
ifNil: [^ nil].
^ viewerline!
Item was changed:
+ ----- Method: ScriptInstantiation>>resetTo:ifCurrently: (in category 'customevents-status control') -----
- ----- Method: ScriptInstantiation>>resetTo:ifCurrently: (in category '*Etoys-Squeakland-status control') -----
resetTo: newStatus ifCurrently: aStatus
"If my status *had been* aStatus, quietly reset it to newStatus, without tampering with event handlers. But get the physical display of all affected status morphs right"
status == aStatus ifTrue:
[status := newStatus.
self updateAllStatusMorphs]!
Item was changed:
+ ----- Method: ScriptInstantiation>>statusLabel (in category 'customevents-status control') -----
- ----- Method: ScriptInstantiation>>statusLabel (in category '*Etoys-Squeakland-status control') -----
statusLabel
^self translatedStatus!
Item was changed:
+ ----- Method: ScriptStatusControl>>fixUpScriptInstantiation (in category 'access') -----
- ----- Method: ScriptStatusControl>>fixUpScriptInstantiation (in category '*Etoys-Squeakland-access') -----
fixUpScriptInstantiation
"If the receiver's scriptInstantiation is broken (owing to a bug also fixed in the update housing this code) fix it up and reply true, else reply false."
| myPlayer correctInstantiation result |
myPlayer := scriptInstantiation player.
correctInstantiation := myPlayer scriptInstantiationForSelector: scriptInstantiation selector.
result := correctInstantiation ~~ scriptInstantiation.
result
ifTrue:
[self removeAllMorphs.
tickPauseWrapper := nil.
tickPauseButtonsShowing := false.
self initializeFor: correctInstantiation].
^ result!
Item was changed:
+ ----- Method: SoundReadoutTile>>choices (in category 'arrows') -----
- ----- Method: SoundReadoutTile>>choices (in category '*Etoys-Squeakland-arrows') -----
choices
^self soundChoices.
!
Item was changed:
+ ----- Method: StackMorph class>>formerDescriptionForPartsBin (in category 'parts bin') -----
- ----- Method: StackMorph class>>formerDescriptionForPartsBin (in category '*Etoys-Squeakland-parts bin') -----
formerDescriptionForPartsBin
^ self partName: 'Stack' translatedNoop
categories: #()
documentation: 'A database of any sort -- slide show, rolodex, and any point in between' translatedNoop!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>cleanUp: (in category 'class initialization') -----
- ----- Method: StandardScriptingSystem class>>cleanUp: (in category '*Etoys-class initialization') -----
cleanUp: agressive
"Clean up unreferenced players. If agressive, reinitialize and nuke players"
self removeUnreferencedPlayers.
agressive ifTrue:[
References keys do: [:k | References removeKey: k].
ClassVarNamesInUse := nil.
self initialize.
].!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>initialize (in category 'class initialization') -----
- ----- Method: StandardScriptingSystem class>>initialize (in category '*Etoys-class initialization') -----
initialize
"Initialize the scripting system. Sometimes this method is vacuously changed just to get it in a changeset so that its invocation will occur as part of an update"
(self environment at: #ScriptingSystem ifAbsent: [nil]) ifNil:
[self environment at: #ScriptingSystem put: self new].
ScriptingSystem
initializeHelpStrings.
self registerInFlapsRegistry.
"StandardScriptingSystem initialize"!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>noteAddedSelector:meta: (in category 'adding/removing methods') -----
- ----- Method: StandardScriptingSystem class>>noteAddedSelector:meta: (in category '*Etoys') -----
noteAddedSelector: aSelector meta: isMeta
[aSelector == #wordingForOperator: ifTrue:
[Vocabulary changeMadeToViewerAdditions]] on: Error do:[].
super noteAddedSelector: aSelector meta: isMeta!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>registerInFlapsRegistry (in category 'class initialization') -----
- ----- Method: StandardScriptingSystem class>>registerInFlapsRegistry (in category '*Etoys-*MorphicExtras-class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
ifPresent: [:cl | cl registerQuad: {#ScriptingSystem. #prototypicalHolder. 'Holder' translatedNoop. 'A place for storing alternative pictures in an animation, etc.' translatedNoop}
forFlapNamed: 'PlugIn Supplies'.
cl registerQuad: {#ScriptingSystem. #prototypicalHolder. 'Holder' translatedNoop. 'A place for storing alternative pictures in an animation, etc.' translatedNoop}
forFlapNamed: 'Supplies'.
cl registerQuad: {#ScriptingSystem. #newScriptingSpace. 'Scripting' translatedNoop. 'A confined place for drawing and scripting, with its own private stop/step/go buttons.' translatedNoop}
forFlapNamed: 'Widgets'.
cl registerQuad: {#ScriptingSystem. #holderWithAlphabet. 'Alphabet' translatedNoop. 'A source for single-letter objects' translatedNoop}
forFlapNamed: 'Widgets'.]!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>removePlayersIn: (in category 'projects') -----
- ----- Method: StandardScriptingSystem class>>removePlayersIn: (in category '*Etoys') -----
removePlayersIn: project
"Remove existing player references for project"
project world presenter reallyAllExtantPlayers do: [:pl |
References removeKey: (project world uniqueNameForReferenceFor: pl) ifAbsent: []
].
!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>removeUnreferencedPlayers (in category 'class initialization') -----
- ----- Method: StandardScriptingSystem class>>removeUnreferencedPlayers (in category '*Etoys-class initialization') -----
removeUnreferencedPlayers
"Remove existing but unreferenced player references"
"StandardScriptingSystem removeUnreferencedPlayers"
References keys do:
[ : key | | ref |
ref := References at: key.
((ref respondsTo: #costume) and: [ ref costume pasteUpMorph isNil ]) ifTrue: [ References removeKey: key ] ]!
Item was changed:
+ ----- Method: StandardScriptingSystem class>>unload (in category 'class initialization') -----
- ----- Method: StandardScriptingSystem class>>unload (in category '*Etoys-*MorphicExtras-class initialization') -----
unload
"Unload the receiver from global registries"
self environment at: #Flaps ifPresent: [:cl |
cl unregisterQuadsWithReceiver: ScriptingSystem] !
Item was changed:
+ ----- Method: StandardViewer>>assureScriptsCategoryShows (in category 'categories') -----
- ----- Method: StandardViewer>>assureScriptsCategoryShows (in category '*Etoys-Squeakland-categories') -----
assureScriptsCategoryShows
"Assure that the receiver is showing a 'scripts' category."
| catSyms newCat anIndex |
((catSyms := self symbolsOfCategoriesCurrentlyShowing) includes: ScriptingSystem nameForScriptsCategory)
ifFalse:
[newCat := self categoryViewerFor: #scripts.
anIndex := (catSyms isEmpty or: [(#(search variables) includes: catSyms first) not])
ifTrue:
[2]
ifFalse:
[(catSyms first = #search)
ifTrue:
[(catSyms size = 1 or: [catSyms second ~= #variables])
ifTrue:
[3]
ifFalse:
[4]]
ifFalse:
[3]].
self addMorph: newCat asElementNumber: anIndex]!
Item was changed:
+ ----- Method: StandardViewer>>enforceImplicitSelf (in category 'user interface') -----
- ----- Method: StandardViewer>>enforceImplicitSelf (in category '*Etoys-Squeakland-user interface') -----
enforceImplicitSelf
"If the implicitSelf preference is set to true, obscure all unnecessary objRef tiles."
self allMorphs do:
[:m | ((m isKindOf: TileMorph) and: [m type == #objRef])
ifTrue:
[m emblazonPlayerNameOnReferenceTileWithin: self]] !
Item was changed:
+ ----- Method: StandardViewer>>updateScriptsCategory (in category 'categories') -----
- ----- Method: StandardViewer>>updateScriptsCategory (in category '*Etoys-Squeakland-categories') -----
updateScriptsCategory
"If any category viewer is showing scripts, relaunch it."
self categoryMorphs do:
[:m |
(m chosenCategorySymbol = #scripts) ifTrue:
[m beReplacedByCategory: #scripts]]!
Item was changed:
+ ----- Method: SyntaxMorph>>parseNodeWith:asStatement: (in category 'code generation') -----
- ----- Method: SyntaxMorph>>parseNodeWith:asStatement: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder asStatement: aBoolean
| methodNode |
methodNode := self parseNodeWith: encoder.
^ aBoolean
ifFalse: [methodNode]
ifTrue: [methodNode block]!
Item was changed:
+ ----- Method: SystemQueryPhrase>>addCommandFeedback: (in category 'hilighting') -----
- ----- Method: SystemQueryPhrase>>addCommandFeedback: (in category '*Etoys-Squeakland-hilighting') -----
addCommandFeedback: evt
"Add screen feedback showing what would be torn off in a drag. Overridden vacuously here to avoid a crash when super code is applied to a SystemQueryPhrase."!
Item was changed:
+ ----- Method: SystemQueryPhrase>>parseNodeWith: (in category 'code generation') -----
- ----- Method: SystemQueryPhrase>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ submorphs first parseNodeWith: encoder!
Item was changed:
+ ----- Method: TextFieldMorph class>>authoringPrototype (in category 'scripting') -----
- ----- Method: TextFieldMorph class>>authoringPrototype (in category '*Etoys-scripting') -----
authoringPrototype
"Answer an instance of the receiver that can serve as a prototype for authoring"
| proto |
proto := super authoringPrototype.
proto setProperty: #shared toValue: true.
proto extent: 170 @ 30.
proto color: Color veryLightGray lighter.
proto contents: 'on a clear day you can...'.
^ proto
!
Item was changed:
+ ----- Method: TextFieldMorph class>>exampleBackgroundField (in category 'instance creation') -----
- ----- Method: TextFieldMorph class>>exampleBackgroundField (in category '*eToys-instance creation') -----
exampleBackgroundField
"Answer a scrollable background field for a parts bin"
| aMorph |
aMorph := self authoringPrototype.
aMorph contents: 'background field' asText allBold.
aMorph setProperty: #shared toValue: true.
aMorph setNameTo: 'scrollingField1'.
aMorph setProperty: #holdsSeparateDataForEachInstance toValue: true.
^ aMorph!
Item was changed:
+ ----- Method: TextFieldMorph class>>initialize (in category 'class initialization') -----
- ----- Method: TextFieldMorph class>>initialize (in category '*Etoys-class initialization') -----
initialize
self registerInFlapsRegistry. !
Item was changed:
+ ----- Method: TextFieldMorph class>>registerInFlapsRegistry (in category 'class initialization') -----
- ----- Method: TextFieldMorph class>>registerInFlapsRegistry (in category '*Etoys-class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
ifPresent: [:cl | cl registerQuad: {#TextFieldMorph. #exampleBackgroundField. 'Scrolling Field' translatedNoop. 'A scrolling data field which will have a different value on every card of the background' translatedNoop}
forFlapNamed: 'Scripting'.]!
Item was changed:
+ ----- Method: TextFieldMorph class>>unload (in category 'class initialization') -----
- ----- Method: TextFieldMorph class>>unload (in category '*Etoys-class initialization') -----
unload
"Unload the receiver from global registries"
self environment at: #Flaps ifPresent: [:cl |
cl unregisterQuadsWithReceiver: self] !
Item was changed:
+ ----- Method: TextPropertiesMorph>>applyToWholeText: (in category 'accessing') -----
- ----- Method: TextPropertiesMorph>>applyToWholeText: (in category '*Etoys-Squeakland-accessing') -----
applyToWholeText: anObject
"Set the value of applyToWholeText"
applyToWholeText := anObject!
Item was changed:
+ ----- Method: TextPropertiesMorph>>establishSelectionInterval (in category 'button actions') -----
- ----- Method: TextPropertiesMorph>>establishSelectionInterval (in category '*Etoys-Squeakland-button actions') -----
establishSelectionInterval
"If the active editor has a nonempty selection interval, assimilate it."
| activeEditor itsSize |
activeEditor := self activeEditor.
self applyToWholeText ifTrue: [ ^activeEditor selectAll].
(selectionInterval size > 0)
ifTrue: "User set it manually, so remember it"
[^activeEditor selectInterval: selectionInterval]
ifFalse:
[itsSize := self activeTextMorph text string size.
selectionInterval := Interval from: selectionInterval start to: (selectionInterval stop min: itsSize).
^activeEditor selectInterval: selectionInterval]!
Item was changed:
+ ----- Method: TextPropertiesMorph>>selectionInterval (in category 'accessing') -----
- ----- Method: TextPropertiesMorph>>selectionInterval (in category '*Etoys-Squeakland-accessing') -----
selectionInterval
"Answer the value of selectionInterval"
^ selectionInterval!
Item was changed:
+ ----- Method: TextPropertiesMorph>>selectionInterval: (in category 'accessing') -----
- ----- Method: TextPropertiesMorph>>selectionInterval: (in category '*Etoys-Squeakland-accessing') -----
selectionInterval: anObject
"Set the value of selectionInterval"
selectionInterval := anObject!
Item was changed:
+ ----- Method: TileLikeMorph>>nextTile (in category 'etoys-debugger') -----
- ----- Method: TileLikeMorph>>nextTile (in category '*Etoys-Squeakland-etoys-debugger') -----
nextTile
^ (self ownerThatIsA: ScriptEditorMorph)
nextTileTo: self!
Item was changed:
+ ----- Method: TileMorph class>>addArrowsOn: (in category 'utilities') -----
- ----- Method: TileMorph class>>addArrowsOn: (in category '*Etoys-Squeakland-utilities') -----
addArrowsOn: aMorph
"add arrows on a morph, and answer {upArrow. downArrow}"
| downArrow upArrow holder |
downArrow := ImageMorph new image: TileMorph downPicture.
upArrow := ImageMorph new image: TileMorph upPicture.
holder := Morph new extent: downArrow width @ (upArrow height + downArrow height + 1).
holder beTransparent.
upArrow position: holder topLeft.
downArrow position: upArrow left @ (upArrow bottom + 1).
holder addMorph: upArrow.
holder addMorph: downArrow.
holder setProperty: #arrows toValue: true.
holder clipSubmorphs: true.
aMorph addMorphFront: holder.
^ Array with: upArrow with: downArrow!
Item was changed:
+ ----- Method: TileMorph class>>implicitSelfInTilesChanged (in category 'utilities') -----
- ----- Method: TileMorph class>>implicitSelfInTilesChanged (in category '*Etoys-Squeakland-utilities') -----
implicitSelfInTilesChanged
"The implicitSelfInTiles preference changed. Caution: although this may appear to have no senders in the image, it is in fact invoked when the implicitSelfInTiles preference is toggled... so please do not delete it."
Smalltalk isMorphic ifFalse: [^ self].
Project current world allScriptEditorsInProject do: [:scriptEditor | scriptEditor install].
Project current world allViewersInProject do: [:viewer | viewer enforceImplicitSelf].
"
(Preferences buttonForPreference: #implicitSelfInTiles) openInHand.
"!
Item was changed:
+ ----- Method: TileMorph class>>updatingOperators (in category 'constants') -----
- ----- Method: TileMorph class>>updatingOperators (in category '*Etoys-Squeakland-constants') -----
updatingOperators
^ UpdatingOperators!
Item was changed:
+ ----- Method: TileMorph>>addCaretsAsAppropriate: (in category 'arrows') -----
- ----- Method: TileMorph>>addCaretsAsAppropriate: (in category '*Etoys-Squeakland-arrows') -----
addCaretsAsAppropriate: showingCarets
"If the argument provided is true, make any expected up-down and suffix-retract carets visible; if false, hide them all."
self setVisibilityOfUpDownCarets: showingCarets.
(showingCarets and: [self couldAddSuffixArrow])
ifFalse:
[self rescindSuffixArrow.
self rescindRetractArrow]
ifTrue:
[self addSuffixArrow.
self addRetractArrow] "has its own test."
!
Item was changed:
+ ----- Method: TileMorph>>addRetractArrowAnyway (in category 'arrows') -----
- ----- Method: TileMorph>>addRetractArrowAnyway (in category '*Etoys-Squeakland-arrows') -----
addRetractArrowAnyway
retractArrow := ImageMorph new image: RetractPicture.
suffixArrow ifNotNil: [
self addMorph: retractArrow inFrontOf: suffixArrow].
fullBounds := nil.
self extent: self fullBounds extent!
Item was changed:
+ ----- Method: TileMorph>>buildHPopArrows (in category 'arrows popup') -----
- ----- Method: TileMorph>>buildHPopArrows (in category '*Etoys-Squeakland-arrows popup') -----
buildHPopArrows
| panel left right |
self outmostScriptEditor
ifNil: [^ nil].
(retractArrow isNil
and: [suffixArrow isNil])
ifTrue: [^ nil].
panel := Morph new.
panel cornerStyle: #rounded.
left := SketchMorph new
form: (ScriptingSystem formAtKey: #LargeLeftArrow).
right := SketchMorph new
form: (ScriptingSystem formAtKey: #LargeRightArrow).
panel
color: color.
panel sticky: true.
panel layoutPolicy: TableLayout new.
panel listDirection: #leftToRight.
panel hResizing: #shrinkWrap.
panel vResizing: #shrinkWrap.
panel cellInset: 4 px.
panel layoutInset: 2 px.
retractArrow
ifNotNil: [panel addMorphBack: left].
suffixArrow
ifNotNil: [panel addMorphBack: right].
panel
on: #mouseLeave
send: #hidePopArrows
to: self.
left
on: #mouseUp
send: #popArrowRetractArrowHit:
to: self.
right
on: #mouseUp
send: #popArrowSuffixArrowHit:
to: self.
^ panel!
Item was changed:
+ ----- Method: TileMorph>>buildVPopArrows (in category 'arrows popup') -----
- ----- Method: TileMorph>>buildVPopArrows (in category '*Etoys-Squeakland-arrows popup') -----
buildVPopArrows
| panel up down |
upArrow
ifNil: [^ nil].
panel := Morph new.
panel cornerStyle: #rounded.
up := SketchMorph new
form: (ScriptingSystem formAtKey: #LargeUpArrow).
down := SketchMorph new
form: (ScriptingSystem formAtKey: #LargeDownArrow).
panel color: color.
panel sticky: true.
panel layoutPolicy: TableLayout new.
panel listDirection: #topToBottom.
panel hResizing: #shrinkWrap.
panel vResizing: #shrinkWrap.
panel cellInset: 4 px.
panel layoutInset: 2 px.
panel addMorphBack: up.
panel addMorphBack: down.
panel
on: #mouseLeave
send: #hidePopArrows
to: self.
up
on: #mouseDown
send: #popArrowUp:
to: self.
up
on: #mouseMove
send: #popArrowMouseMove:
to: self.
down
on: #mouseDown
send: #popArrowDown:
to: self.
down
on: #mouseMove
send: #popArrowMouseMove:
to: self.
^ panel!
Item was changed:
+ ----- Method: TileMorph>>couldAddSuffixArrow (in category 'arrows') -----
- ----- Method: TileMorph>>couldAddSuffixArrow (in category '*Etoys-Squeakland-arrows') -----
couldAddSuffixArrow
"Answer whether it is appropriate for the receiver to bear a suffix arrow."
| phrase pad |
type = #operator ifTrue:
[((owner isKindOf: PhraseTileMorph) and: [owner submorphs last == self] and: [#("Point" Number) includes: owner resultType])
ifTrue: [^ true]].
(#(literal function parameter) includes: type) ifFalse: [^ false].
(pad := self ownerThatIsA: TilePadMorph) ifNil: [^ false].
(#("Point" Number) includes: pad type) ifFalse: [^ false].
phrase := pad owner.
(phrase isKindOf: TimesRow) ifTrue: [^ true]. "times-repeat situation"
(phrase isKindOf: PhraseTileMorph)
ifTrue: [^ phrase submorphs last allMorphs includes: self]
ifFalse: [^ phrase isKindOf: FunctionTile]!
Item was changed:
+ ----- Method: TileMorph>>decimalPlaces (in category 'mouse handling') -----
- ----- Method: TileMorph>>decimalPlaces (in category '*Etoys-Squeakland-mouse handling') -----
decimalPlaces
"Answer the number of decimal places of the contained number"
| readout |
(readout := self findA: UpdatingStringMorph) ifNotNil: [^readout decimalPlaces ].
^0!
Item was changed:
+ ----- Method: TileMorph>>downArrow (in category 'accessing') -----
- ----- Method: TileMorph>>downArrow (in category '*Etoys-Squeakland-accessing') -----
downArrow
^ downArrow
!
Item was changed:
+ ----- Method: TileMorph>>emblazonPlayerNameOnReferenceTile (in category 'initialization') -----
- ----- Method: TileMorph>>emblazonPlayerNameOnReferenceTile (in category '*Etoys-Squeakland-initialization') -----
emblazonPlayerNameOnReferenceTile
"Make the string within the receiver be the right thing."
self emblazonPlayerNameOnReferenceTileWithin: (self outermostMorphThat: [:m | m isTileEditor])!
Item was changed:
+ ----- Method: TileMorph>>emblazonPlayerNameOnReferenceTileWithin: (in category 'initialization') -----
- ----- Method: TileMorph>>emblazonPlayerNameOnReferenceTileWithin: (in category '*Etoys-Squeakland-initialization') -----
emblazonPlayerNameOnReferenceTileWithin: scriptorOrViewer
"Make the string within the receiver be the right thing."
| newLabel usePad |
newLabel := actualObject externalName.
Preferences implicitSelfInTiles ifTrue:
[scriptorOrViewer ifNotNil:
[scriptorOrViewer playerScripted == actualObject ifTrue:
[newLabel := '']]].
(newLabel notEmpty and: [self isPossessive]) ifTrue:
[newLabel := newLabel, '''s' translated].
self line1: newLabel.
usePad := owner isKindOf: TilePadMorph.
newLabel
ifEmpty:
[usePad ifTrue: [owner hResizing: #rigid; width: 0; clipSubmorphs: true].
self hResizing: #rigid; width: 0; borderWidth: 0]
ifNotEmpty:
[usePad ifTrue: [owner hResizing: #shrinkWrap; clipSubmorphs: false].
self hResizing: #shrinkWrap; borderWidth: 1 px]
!
Item was changed:
+ ----- Method: TileMorph>>hidePopArrows (in category 'arrows popup') -----
- ----- Method: TileMorph>>hidePopArrows (in category '*Etoys-Squeakland-arrows popup') -----
hidePopArrows
| popArrows |
popArrows := self activeHand
valueOfProperty: #popArrows
ifAbsent: [^ self].
popArrows second
ifNotNil: [popArrows second delete].
popArrows third
ifNotNil: [popArrows third delete].
self activeHand removeProperty: #popArrows!
Item was changed:
+ ----- Method: TileMorph>>isPopArrowNeeded (in category 'arrows popup') -----
- ----- Method: TileMorph>>isPopArrowNeeded (in category '*Etoys-Squeakland-arrows popup') -----
isPopArrowNeeded
^ upArrow notNil or: [suffixArrow notNil]!
Item was changed:
+ ----- Method: TileMorph>>parseNodeWith: (in category 'code generation') -----
- ----- Method: TileMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
| op playerBearingCode |
playerBearingCode := self playerBearingCode. "Must determine whom is scripted for what follows to work; if it's ever nil, we've got trouble"
type = #expression
ifTrue:
[^ (ScriptCompiler newParser parse: 'xxx ', operatorOrExpression class: UndefinedObject) block statements first].
type = #literal
ifTrue:
[^ encoder encodeLiteral: literal].
type == #objRef
ifTrue:
[^playerBearingCode == actualObject
ifTrue:
["If the object is the method's own 'self' then we MUST, rather than just MAY, put out 'self' rather than the referencer call, though the latter will temporarily work if only one instance of the uniclass exists."
^ encoder encodeVariable: 'self']
ifFalse:
[(actualObject isPlayerLike and: [actualObject isSequentialStub]) ifTrue: [
^ actualObject parseNodeWith: encoder.
] ifFalse: [
^ encoder encodePlayer: actualObject]]].
type = #operator
ifTrue:
[op := ((UpdatingOperators includesKey: operatorOrExpression)
and: [self precedingTileType = #slotRef])
ifTrue: [UpdatingOperators at: operatorOrExpression]
ifFalse: [operatorOrExpression].
^op isEmpty
ifTrue: [self halt.]
ifFalse: [^ encoder encodeSelector: (EqualityOperators at: op ifAbsent: [op])]].
!
Item was changed:
+ ----- Method: TileMorph>>popArrowDown: (in category 'arrows popup') -----
- ----- Method: TileMorph>>popArrowDown: (in category '*Etoys-Squeakland-arrows popup') -----
popArrowDown: evt
self setProperty: #previousLiteral toValue: self literalFromContents.
self setProperty: #previousPoint toValue: evt position.
evt handler
ifNotNil: [evt handler
on: #mouseStillDown
send: #popArrowDown:
to: self].
self currentHand releaseKeyboardFocus.
self arrowAction: self arrowDelta negated!
Item was changed:
+ ----- Method: TileMorph>>popArrowMouseMove: (in category 'arrows popup') -----
- ----- Method: TileMorph>>popArrowMouseMove: (in category '*Etoys-Squeakland-arrows popup') -----
popArrowMouseMove: evt
| popArrows vpanel |
popArrows := self activeHand
valueOfProperty: #popArrows
ifAbsent: [^ self].
vpanel := popArrows second.
vpanel
ifNotNil: [vpanel submorphs
do: [:each | each
on: #mouseStillDown
send: nil
to: nil]].
self mouseMove: evt!
Item was changed:
+ ----- Method: TileMorph>>popArrowRetractArrowHit: (in category 'arrows popup') -----
- ----- Method: TileMorph>>popArrowRetractArrowHit: (in category '*Etoys-Squeakland-arrows popup') -----
popArrowRetractArrowHit: evt
self retractArrowHit.
self showPopArrows!
Item was changed:
+ ----- Method: TileMorph>>popArrowSuffixArrowHit: (in category 'arrows popup') -----
- ----- Method: TileMorph>>popArrowSuffixArrowHit: (in category '*Etoys-Squeakland-arrows popup') -----
popArrowSuffixArrowHit: evt
self showSuffixChoices.
self showPopArrows!
Item was changed:
+ ----- Method: TileMorph>>popArrowUp: (in category 'arrows popup') -----
- ----- Method: TileMorph>>popArrowUp: (in category '*Etoys-Squeakland-arrows popup') -----
popArrowUp: evt
self setProperty: #previousLiteral toValue: self literalFromContents.
self setProperty: #previousPoint toValue: evt position.
evt handler
ifNotNil: [evt handler
on: #mouseStillDown
send: #popArrowUp:
to: self].
self currentHand releaseKeyboardFocus.
self arrowAction: self arrowDelta!
Item was changed:
+ ----- Method: TileMorph>>rescindRetractArrow (in category 'arrows') -----
- ----- Method: TileMorph>>rescindRetractArrow (in category '*Etoys-Squeakland-arrows') -----
rescindRetractArrow
"If I have a retract arrow, remove it, and nil out my retractArrow inst var."
retractArrow ifNotNil:
[retractArrow delete.
retractArrow := nil]!
Item was changed:
+ ----- Method: TileMorph>>rescindSuffixArrow (in category 'arrows') -----
- ----- Method: TileMorph>>rescindSuffixArrow (in category '*Etoys-Squeakland-arrows') -----
rescindSuffixArrow
"If I have a suffix arrow, remove it, and nil out my suffixArrow inst var."
suffixArrow ifNotNil:
[suffixArrow delete.
suffixArrow := nil]!
Item was changed:
+ ----- Method: TileMorph>>retractArrow (in category 'accessing') -----
- ----- Method: TileMorph>>retractArrow (in category '*Etoys-Squeakland-accessing') -----
retractArrow
^ retractArrow!
Item was changed:
+ ----- Method: TileMorph>>retractArrowHit (in category 'arrows') -----
- ----- Method: TileMorph>>retractArrowHit (in category '*Etoys-Squeakland-arrows') -----
retractArrowHit
"The user hit the retract button; carry out the retraction."
| phrase pad goodPad |
(phrase := self couldRetract) ifNil: [^ self].
pad := phrase ownerThatIsA: TilePadMorph.
goodPad := phrase firstSubmorph.
pad owner replaceSubmorph: pad by: goodPad.
goodPad topEditor scriptEdited!
Item was changed:
+ ----- Method: TileMorph>>setDecimalPlacesFromTypeIn: (in category 'misc') -----
- ----- Method: TileMorph>>setDecimalPlacesFromTypeIn: (in category '*Etoys-Squeakland-misc') -----
setDecimalPlacesFromTypeIn: aString
self labelMorph ifNotNil: [:m |
m setDecimalPlacesFromTypeIn: aString]!
Item was changed:
+ ----- Method: TileMorph>>setVisibilityOfUpDownCarets: (in category 'arrows') -----
- ----- Method: TileMorph>>setVisibilityOfUpDownCarets: (in category '*Etoys-Squeakland-arrows') -----
setVisibilityOfUpDownCarets: showCarets
"If the argument is true, make all the 'up and down' carets, such as those that let you change the value of a number or of a boolean constant, visible; if false, remove them from sight. "
(submorphs detect: [:m | m hasProperty: #arrows] ifNone: [nil]) ifNotNil:
[:wrapper |
showCarets
ifTrue: [wrapper width: 9 px]
ifFalse: [wrapper width: 0]]!
Item was changed:
+ ----- Method: TileMorph>>showPopArrows (in category 'arrows popup') -----
- ----- Method: TileMorph>>showPopArrows (in category '*Etoys-Squeakland-arrows popup') -----
showPopArrows
| vpanel hpanel |
self class usePopUpArrows
ifFalse: [^ self].
self hidePopArrows.
self isPopArrowNeeded
ifFalse: [^ self].
vpanel := self buildVPopArrows.
hpanel := self buildHPopArrows.
self activeHand setProperty: #popArrows toValue: {self. vpanel. hpanel}.
self layoutChanged!
Item was changed:
+ ----- Method: TileMorph>>suffixArrow (in category 'accessing') -----
- ----- Method: TileMorph>>suffixArrow (in category '*Etoys-Squeakland-accessing') -----
suffixArrow
^ suffixArrow!
Item was changed:
+ ----- Method: TileMorph>>unhibernate (in category 'scripting') -----
- ----- Method: TileMorph>>unhibernate (in category '*Etoys-Squeakland-as yet unclassified') -----
unhibernate
| l |
l := self labelMorph.
l ifNotNil: [l label: l contents font: Preferences standardEToysFont].
self removeProperty: #needsLayoutFixed.
!
Item was changed:
+ ----- Method: TileMorph>>upArrow (in category 'accessing') -----
- ----- Method: TileMorph>>upArrow (in category '*Etoys-Squeakland-accessing') -----
upArrow
^ upArrow
!
Item was changed:
+ ----- Method: TileMorph>>wrapPhraseInFunction (in category 'arrows') -----
- ----- Method: TileMorph>>wrapPhraseInFunction (in category '*Etoys-Squeakland-arrows') -----
wrapPhraseInFunction
"The user made a gesture requesting that the phrase for which the receiver bears the widget hit be wrapped in a function. This applies for the moment only to numeric functions"
| pad newPad functionPhrase |
pad := self ownerThatIsA: TilePadMorph. "Or something higher than that???"
(pad isNil or: [pad type ~= #Number]) ifTrue: [^ Beeper beep].
newPad := TilePadMorph new setType: #Number.
newPad hResizing: #shrinkWrap; vResizing: #spaceFill.
functionPhrase := FunctionTile new.
newPad addMorphBack: functionPhrase.
pad owner replaceSubmorph: pad by: newPad.
functionPhrase operator: #abs pad: pad.
functionPhrase addSuffixArrow.
self scriptEdited
!
Item was changed:
+ ----- Method: TilePadMorph>>lastTileMorph (in category 'layout') -----
- ----- Method: TilePadMorph>>lastTileMorph (in category '*Etoys-Squeakland-layout') -----
lastTileMorph
"Answer the final TileMorph in the receiver's tree -- this might be at any of three levels deep..."
| aMorph lastInPhrase |
submorphs ifEmpty: [^ nil]. "But should not normally happen."
((aMorph := submorphs first) isTileMorph) ifTrue: [^ aMorph].
"If first submorph is not a TileMorph, it will be a PhraseTileMorph so..."
(lastInPhrase := aMorph submorphs last) isTileMorph ifTrue: [^ lastInPhrase].
"If the last morph in the phrase is not a Tile, then it's a TilePadMorph..."
^ lastInPhrase lastTileMorph!
Item was changed:
+ ----- Method: TilePadMorph>>parseNodeWith: (in category 'code generation') -----
- ----- Method: TilePadMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') -----
parseNodeWith: encoder
^ (submorphs at: 1) parseNodeWith: encoder.
!
Item was changed:
+ ----- Method: TilePadMorph>>scriptEdited (in category 'miscellaneous') -----
- ----- Method: TilePadMorph>>scriptEdited (in category '*Etoys-Squeakland-miscellaneous') -----
scriptEdited
"Tell the scriptEditor who I belong to that I have changed."
| him |
(him := self outermostMorphThat: [:m| m isKindOf: ScriptEditorMorph])
ifNotNil: [him scriptEdited]!
Item was changed:
+ ----- Method: TilePadMorph>>wrapInFunction (in category 'miscellaneous') -----
- ----- Method: TilePadMorph>>wrapInFunction (in category '*Etoys-Squeakland-miscellaneous') -----
wrapInFunction
"The user made a gesture requesting that the receiver be wrapped in a (numeric) function."
| newPad functionPhrase |
newPad := TilePadMorph new setType: #Number.
newPad hResizing: #shrinkWrap; vResizing: #spaceFill.
functionPhrase := FunctionTile new.
newPad addMorphBack: functionPhrase.
owner replaceSubmorph: self by: newPad.
functionPhrase operator: #abs pad: self.
self scriptEdited!
Item was changed:
+ ----- Method: TimesRepeatMorph>>evaluateOn: (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatMorph>>evaluateOn: (in category '*etoys-debugger') -----
evaluateOn: anEtoysDebugger
^ anEtoysDebugger evaluateRepeat: self!
Item was changed:
+ ----- Method: TimesRepeatTile>>calculateTimesToRepeat (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>calculateTimesToRepeat (in category '*etoys-debugger') -----
calculateTimesToRepeat
^ (Compiler evaluate: (String streamContents: [:stream |
self numberOfTimesToRepeatPart submorphs
ifEmpty: [stream nextPutAll: '0']
ifNotEmpty: [self numberOfTimesToRepeatPart storeCodeOn: stream indent: 0]])
for: self topEditor playerScripted
logged: false)!
Item was changed:
+ ----- Method: TimesRepeatTile>>evaluateOn: (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>evaluateOn: (in category '*etoys-debugger') -----
evaluateOn: anEtoysDebugger
^ anEtoysDebugger evaluateRepeat: self!
Item was changed:
+ ----- Method: TimesRepeatTile>>nextTile (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>nextTile (in category '*etoys-debugger') -----
nextTile
"Instead of just returning my next tile I return my first tile if I haven't been evaluated enough times"
self timesToRepeat <= 0
ifTrue: [^ super nextTile].
self timesToRepeat: self timesToRepeat - 1.
^ self whatToRepeatPart tiles at: 1 ifAbsent: [super nextTile]!
Item was changed:
+ ----- Method: TimesRepeatTile>>timesToRepeat (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>timesToRepeat (in category '*etoys-debugger') -----
timesToRepeat
^ self topEditor etoysDebugger timesToRepeat!
Item was changed:
+ ----- Method: TimesRepeatTile>>timesToRepeat: (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>timesToRepeat: (in category '*etoys-debugger') -----
timesToRepeat: aNumber
^ self topEditor etoysDebugger timesToRepeat: aNumber!
Item was changed:
+ ----- Method: TimesRepeatTile>>whatToRepeatPart (in category 'etoys-debugger') -----
- ----- Method: TimesRepeatTile>>whatToRepeatPart (in category '*etoys-debugger') -----
whatToRepeatPart
^ whatToRepeatPart!
Item was changed:
+ ----- Method: TwoWayScrollPane>>colorForInsets (in category 'accessing') -----
- ----- Method: TwoWayScrollPane>>colorForInsets (in category '*Etoys-accessing') -----
colorForInsets
"My submorphs use the surrounding color"
owner notNil and:
[ owner color isColor ifTrue: [ ^ owner color ] ].
^ Color white!
Item was changed:
+ ----- Method: TwoWayScrollPane>>containsPoint: (in category 'geometry testing') -----
- ----- Method: TwoWayScrollPane>>containsPoint: (in category '*Etoys-geometry testing') -----
containsPoint: aPoint
(super containsPoint: aPoint) ifTrue: [^ true].
"Also include scrollbar when it is extended..."
"used to handle retractable scrolbar"
^ false!
Item was changed:
+ ----- Method: TwoWayScrollPane>>createScrollBarNamed: (in category 'initialization') -----
- ----- Method: TwoWayScrollPane>>createScrollBarNamed: (in category '*Etoys-initialization') -----
createScrollBarNamed: aString
"creates a scroll bar named as aString"
| result |
result := ScrollBar new model: self slotName: aString.
result borderStyle: (BorderStyle inset width: 2).
^ result!
Item was changed:
+ ----- Method: TwoWayScrollPane>>createScroller (in category 'initialization') -----
- ----- Method: TwoWayScrollPane>>createScroller (in category '*Etoys-initialization') -----
createScroller
"create a scroller"
| result |
result := TransformMorph new color: Color transparent.
result offset: 0 @ 0.
^ result!
Item was changed:
+ ----- Method: TwoWayScrollPane>>defaultBorderColor (in category 'initialization') -----
- ----- Method: TwoWayScrollPane>>defaultBorderColor (in category '*Etoys-initialization') -----
defaultBorderColor
^ Color transparent!
Item was changed:
+ ----- Method: TwoWayScrollPane>>defaultBorderStyle (in category 'initialization') -----
- ----- Method: TwoWayScrollPane>>defaultBorderStyle (in category '*Etoys-initialization') -----
defaultBorderStyle
^ BorderStyle inset!
Item was changed:
+ ----- Method: TwoWayScrollPane>>doLayoutIn: (in category 'layout') -----
- ----- Method: TwoWayScrollPane>>doLayoutIn: (in category '*Etoys-layout') -----
doLayoutIn: layoutBounds
"layout has changed. update scroll deltas or whatever else"
(owner notNil and: [owner hasProperty: #autoFitContents])
ifTrue: [self fitContents].
super doLayoutIn: layoutBounds.!
Item was changed:
+ ----- Method: TwoWayScrollPane>>extent: (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>extent: (in category '*Etoys-geometry') -----
extent: newExtent
bounds extent = newExtent ifTrue: [^ self].
super extent: (newExtent max: 36@32).
self resizeScrollBar; resizeScroller; setScrollDeltas.
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>fitContents (in category 'layout') -----
- ----- Method: TwoWayScrollPane>>fitContents (in category '*Etoys-layout') -----
fitContents
"Adjust my size to fit my contents reasonably snugly"
self extent: scroller submorphBounds extent
+ (yScrollBar width @ xScrollBar height)
+ (self borderWidth*2)
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>getMenu: (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>getMenu: (in category '*Etoys-menu') -----
getMenu: shiftKeyState
"Answer the menu for this text view, supplying an empty menu to be filled in. If the menu selector takes an extra argument, pass in the current state of the shift key."
| menu aMenu aTitle |
getMenuSelector isNil ifTrue: [^nil].
menu := MenuMorph new defaultTarget: model.
aTitle := getMenuTitleSelector
ifNotNil: [model perform: getMenuTitleSelector].
getMenuSelector numArgs = 1
ifTrue:
[aMenu := model perform: getMenuSelector with: menu.
aTitle ifNotNil: [aMenu addTitle: aTitle].
^aMenu].
getMenuSelector numArgs = 2
ifTrue:
[aMenu := model
perform: getMenuSelector
with: menu
with: shiftKeyState.
aTitle ifNotNil: [aMenu addTitle: aTitle].
^aMenu].
^self error: 'The getMenuSelector must be a 1- or 2-keyword symbol'!
Item was changed:
+ ----- Method: TwoWayScrollPane>>handlesMouseDown: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>handlesMouseDown: (in category '*Etoys-event handling') -----
handlesMouseDown: evt
^ true!
Item was changed:
+ ----- Method: TwoWayScrollPane>>handlesMouseOver: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>handlesMouseOver: (in category '*Etoys-event handling') -----
handlesMouseOver: evt
^ true!
Item was changed:
+ ----- Method: TwoWayScrollPane>>hideOrShowScrollBar (in category 'retractable scroll bar') -----
- ----- Method: TwoWayScrollPane>>hideOrShowScrollBar (in category '*Etoys-retractable scroll bar') -----
hideOrShowScrollBar
^self "we don't support retractable at the moment"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>hideOrShowScrollBar:forRange: (in category 'retractable scroll bar') -----
- ----- Method: TwoWayScrollPane>>hideOrShowScrollBar:forRange: (in category '*Etoys-retractable scroll bar') -----
hideOrShowScrollBar: scrollBar forRange: range
(self hasProperty: #hideUnneededScrollbars) ifFalse: [^ self].
(submorphs includes: scrollBar)
ifTrue: [range <= 0 ifTrue: [scrollBar model: nil; delete]]
ifFalse: [range > 0 ifTrue: [scrollBar model: self. self resizeScrollBar; addMorph: scrollBar]]
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>initialize (in category 'initialization') -----
- ----- Method: TwoWayScrollPane>>initialize (in category '*Etoys-initialization') -----
initialize
"initialize the state of the receiver"
super initialize.
""
self addMorph: (yScrollBar := self createScrollBarNamed: 'yScrollBar');
addMorph: (xScrollBar := self createScrollBarNamed: 'xScrollBar');
addMorph: (scroller := self createScroller).
""
self extent: 150 @ 120!
Item was changed:
+ ----- Method: TwoWayScrollPane>>keyStroke: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>keyStroke: (in category '*Etoys-event handling') -----
keyStroke: evt
"If pane is not full, pass the event to the last submorph,
assuming it is the most appropriate recipient (!!)"
scroller submorphs last keyStroke: evt!
Item was changed:
+ ----- Method: TwoWayScrollPane>>leftOrRight (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>leftOrRight (in category '*Etoys-menu') -----
leftOrRight "Change scroll bar location"
"used to handle left vs right scrollbar"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>leftoverScrollRange (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>leftoverScrollRange (in category '*Etoys-geometry') -----
leftoverScrollRange
"Return the entire scrolling range minus the currently viewed area."
^ self totalScrollRange - (self innerBounds extent * 3 // 4) max: 0@0
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>menuSelector: (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>menuSelector: (in category '*Etoys-menu') -----
menuSelector: aSelector
getMenuSelector := aSelector!
Item was changed:
+ ----- Method: TwoWayScrollPane>>menuTitleSelector: (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>menuTitleSelector: (in category '*Etoys-menu') -----
menuTitleSelector: aSelector
getMenuTitleSelector := aSelector!
Item was changed:
+ ----- Method: TwoWayScrollPane>>mouseDown: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>mouseDown: (in category '*Etoys-event handling') -----
mouseDown: evt
evt yellowButtonPressed "First check for option (menu) click"
ifTrue: [^ self yellowButtonActivity: evt shiftPressed].
"If pane is not full, pass the event to the last submorph,
assuming it is the most appropriate recipient (!!)"
scroller hasSubmorphs ifTrue:
[scroller submorphs last mouseDown: (evt transformedBy: (scroller transformFrom: self))]!
Item was changed:
+ ----- Method: TwoWayScrollPane>>mouseEnter: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>mouseEnter: (in category '*Etoys-event handling') -----
mouseEnter: event
"used to handle retractable scrolbar"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>mouseLeave: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>mouseLeave: (in category '*Etoys-event handling') -----
mouseLeave: event
"used to handle retractable scrolbar"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>mouseMove: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>mouseMove: (in category '*Etoys-event handling') -----
mouseMove: evt
"If pane is not full, pass the event to the last submorph,
assuming it is the most appropriate recipient (!!)"
scroller hasSubmorphs ifTrue:
[scroller submorphs last mouseMove: (evt transformedBy: (scroller transformFrom: self))]!
Item was changed:
+ ----- Method: TwoWayScrollPane>>mouseUp: (in category 'event handling') -----
- ----- Method: TwoWayScrollPane>>mouseUp: (in category '*Etoys-event handling') -----
mouseUp: evt
"If pane is not full, pass the event to the last submorph,
assuming it is the most appropriate recipient (!!)"
scroller hasSubmorphs ifTrue:
[scroller submorphs last mouseUp: (evt transformedBy: (scroller transformFrom: self))]!
Item was changed:
+ ----- Method: TwoWayScrollPane>>rejectsEvent: (in category 'events-processing') -----
- ----- Method: TwoWayScrollPane>>rejectsEvent: (in category '*Etoys-events-processing') -----
rejectsEvent: anEvent
scroller submorphs isEmpty ifTrue: [^true]. "something messed up here"
scroller firstSubmorph isSyntaxMorph ifTrue: [^ super rejectsEvent: anEvent].
^self visible not "ignore locked status"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>resizeScrollBar (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>resizeScrollBar (in category '*Etoys-geometry') -----
resizeScrollBar
"used to handle left vs right scrollbar"
yScrollBar bounds: (bounds topLeft extent: 16 @ (bounds height - 16)).
xScrollBar bounds: ((bounds left + 16) @ (bounds bottom - 16) extent: (bounds width - 16) @ 16).
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>resizeScroller (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>resizeScroller (in category '*Etoys-geometry') -----
resizeScroller
| inner |
"used to handle left vs right scrollbar"
inner := self innerBounds.
scroller bounds: (inner topLeft + (yScrollBar width@0) corner: (inner bottomRight - (0@xScrollBar height)))!
Item was changed:
+ ----- Method: TwoWayScrollPane>>retractableOrNot (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>retractableOrNot (in category '*Etoys-menu') -----
retractableOrNot "Change scroll bar operation"
"used to handle retractable scrolbar"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scrollBarFills: (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>scrollBarFills: (in category '*Etoys-geometry') -----
scrollBarFills: aRectangle
"Return true if a flop-out scrollbar fills the rectangle"
"used to handle retractable scrolbar"
^ false!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scrollBarMenuButtonPressed: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>scrollBarMenuButtonPressed: (in category '*Etoys-scroll bar events') -----
scrollBarMenuButtonPressed: event
^ self yellowButtonActivity: event shiftPressed!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scrollBarOnLeft: (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>scrollBarOnLeft: (in category '*Etoys-menu') -----
scrollBarOnLeft: aBoolean
"used to handle left vs right scrollbar"!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scrollBy: (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>scrollBy: (in category '*Etoys-geometry') -----
scrollBy: delta
"Move the contents in the direction delta."
"For now, delta is assumed to have a zero x-component. Used by scrollIntoView:"
| r newOffset |
newOffset := (scroller offset - delta max: 0@0) min: self leftoverScrollRange.
scroller offset: newOffset.
r := self leftoverScrollRange.
r y = 0
ifTrue: [yScrollBar value: 0.0]
ifFalse: [yScrollBar value: newOffset y asFloat / r y].
r x = 0
ifTrue: [xScrollBar value: 0.0]
ifFalse: [xScrollBar value: newOffset x asFloat / r x].
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scrollIntoView:extra: (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>scrollIntoView:extra: (in category '*Etoys-geometry') -----
scrollIntoView: desiredRectangle extra: anumber
| shift |
shift := desiredRectangle deltaToEnsureInOrCentered: (
scroller offset extent: scroller bounds extent
) extra: anumber.
shift = (0 @ 0) ifFalse: [self scrollBy: (0@0) - shift].
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>scroller (in category 'accessing') -----
- ----- Method: TwoWayScrollPane>>scroller (in category '*Etoys-access') -----
scroller
^ scroller!
Item was changed:
+ ----- Method: TwoWayScrollPane>>setScrollDeltas (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>setScrollDeltas (in category '*Etoys-geometry') -----
setScrollDeltas
| range scrollDelta totalRange innerBounds |
totalRange := self totalScrollRange ifNil: [^ self].
range := self leftoverScrollRange.
innerBounds := self innerBounds.
scrollDelta := 10 @ 10.
self hideOrShowScrollBar: xScrollBar
forRange: totalRange x - (innerBounds width - yScrollBar width).
range x <= 0
ifTrue: [xScrollBar scrollDelta: 0.02 pageDelta: 0.2.
xScrollBar interval: 1.0]
ifFalse: [xScrollBar scrollDelta: (scrollDelta x / range x) asFloat
pageDelta: (innerBounds width - scrollDelta x / range x) asFloat.
xScrollBar interval: (innerBounds width - scrollDelta x / totalRange x) asFloat].
self hideOrShowScrollBar: yScrollBar
forRange: totalRange y - (innerBounds height - xScrollBar height).
range y <= 0
ifTrue: [yScrollBar scrollDelta: 0.02 pageDelta: 0.2.
yScrollBar interval: 1.0]
ifFalse: [yScrollBar scrollDelta: (scrollDelta y / range y) asFloat
pageDelta: (innerBounds height - scrollDelta y / range y) asFloat.
yScrollBar interval: (innerBounds height - scrollDelta y / totalRange y) asFloat]!
Item was changed:
+ ----- Method: TwoWayScrollPane>>shiftedYellowButtonActivity (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>shiftedYellowButtonActivity (in category '*Etoys-scroll bar events') -----
shiftedYellowButtonActivity
^ self yellowButtonActivity: true!
Item was changed:
+ ----- Method: TwoWayScrollPane>>totalScrollRange (in category 'geometry') -----
- ----- Method: TwoWayScrollPane>>totalScrollRange (in category '*Etoys-geometry') -----
totalScrollRange
"Return the entire scrolling range."
^ ((scroller localSubmorphBounds ifNil: [^nil]) encompass: 0@0) extent
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>unshiftedYellowButtonActivity (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>unshiftedYellowButtonActivity (in category '*Etoys-scroll bar events') -----
unshiftedYellowButtonActivity
^ self yellowButtonActivity: false!
Item was changed:
+ ----- Method: TwoWayScrollPane>>wantsSlot (in category 'accessing') -----
- ----- Method: TwoWayScrollPane>>wantsSlot (in category '*Etoys-access') -----
wantsSlot
"For now do it the old way, until we sort this out"
^ true!
Item was changed:
+ ----- Method: TwoWayScrollPane>>wantsYellowButtonMenu (in category 'menu') -----
- ----- Method: TwoWayScrollPane>>wantsYellowButtonMenu (in category '*Etoys-menu') -----
wantsYellowButtonMenu
"Answer true if the receiver wants a yellow button menu"
^ getMenuSelector notNil!
Item was changed:
+ ----- Method: TwoWayScrollPane>>xScrollBarMenuButtonPressed: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>xScrollBarMenuButtonPressed: (in category '*Etoys-scroll bar events') -----
xScrollBarMenuButtonPressed: event
^ self yellowButtonActivity: event shiftPressed!
Item was changed:
+ ----- Method: TwoWayScrollPane>>xScrollBarValue: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>xScrollBarValue: (in category '*Etoys-scroll bar events') -----
xScrollBarValue: scrollValue
"although there appear to be no senders, see Slider>>setValue:"
scroller hasSubmorphs ifFalse: [^ self].
scroller offset: self leftoverScrollRange x * scrollValue @ scroller offset y!
Item was changed:
+ ----- Method: TwoWayScrollPane>>xScrollerHeight (in category 'retractable scroll bar') -----
- ----- Method: TwoWayScrollPane>>xScrollerHeight (in category '*Etoys-retractable scroll bar') -----
xScrollerHeight
(submorphs includes: xScrollBar) "Sorry the logic is reversed :( "
ifFalse: [^ 0 @ 0] "already included"
ifTrue: [^ 0 @ xScrollBar height] "leave space for it"
!
Item was changed:
+ ----- Method: TwoWayScrollPane>>yScrollBarMenuButtonPressed: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>yScrollBarMenuButtonPressed: (in category '*Etoys-scroll bar events') -----
yScrollBarMenuButtonPressed: event
^ self yellowButtonActivity: event shiftPressed!
Item was changed:
+ ----- Method: TwoWayScrollPane>>yScrollBarValue: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>yScrollBarValue: (in category '*Etoys-scroll bar events') -----
yScrollBarValue: scrollValue
"although there appear to be no senders, see Slider>>setValue:"
scroller hasSubmorphs ifFalse: [^ self].
scroller offset: scroller offset x @ (self leftoverScrollRange y * scrollValue)!
Item was changed:
+ ----- Method: TwoWayScrollPane>>yellowButtonActivity: (in category 'scroll bar events') -----
- ----- Method: TwoWayScrollPane>>yellowButtonActivity: (in category '*Etoys-scroll bar events') -----
yellowButtonActivity: shiftKeyState
| menu |
(menu := self getMenu: shiftKeyState) ifNotNil:
[menu setInvokingView: self.
menu popUpEvent: self activeHand lastEvent in: self world]!
Item was changed:
+ ----- Method: TypeListTile>>addCaretsAsAppropriate: (in category 'arrows') -----
- ----- Method: TypeListTile>>addCaretsAsAppropriate: (in category '*Etoys-Squeakland-arrows') -----
addCaretsAsAppropriate: showingCarets
"If the argument provided is true, make any expected up-down and suffix-retract carets visible; if false, hide them all."
self setVisibilityOfUpDownCarets: true. "regardless of setting..."
self addMenuIcon!
Item was changed:
+ ----- Method: UniclassScript>>allScriptGoverningButtons (in category 'script editor') -----
- ----- Method: UniclassScript>>allScriptGoverningButtons (in category '*Etoys-Squeakland-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])!
Item was changed:
+ ----- Method: Viewer class>>innerBorderColor (in category 'constants') -----
- ----- Method: Viewer class>>innerBorderColor (in category '*Etoys-Squeakland-constants') -----
innerBorderColor
^ (UserInterfaceTheme current get: #titleBorderColor for: self) ifNil: [(Color r: 0.6 g: 0.7 b: 1)]!
Item was changed:
+ ----- Method: Viewer>>bearingFromPhrase (in category 'queries') -----
- ----- Method: Viewer>>bearingFromPhrase (in category '*Etoys-Squeakland-special phrases') -----
bearingFromPhrase
"Answer a bearing-from phrase to hand to the user."
^ self conjuredUpPhraseWithOperator: #bearingFrom: type: #Number!
Item was changed:
+ ----- Method: Viewer>>bearingToPhrase (in category 'special phrases') -----
- ----- Method: Viewer>>bearingToPhrase (in category '*Etoys-Squeakland-special phrases') -----
bearingToPhrase
"Answer a bearing-to phrase to hand to the user."
^ self conjuredUpPhraseWithOperator: #bearingTo: type: #Number!
Item was changed:
+ ----- Method: Viewer>>conjuredUpPhraseWithOperator: (in category 'special phrases') -----
- ----- Method: Viewer>>conjuredUpPhraseWithOperator: (in category '*Etoys-Squeakland-special phrases') -----
conjuredUpPhraseWithOperator: anOperator
"Answer a PhraseTileMorph carefully constructed for overlaps, overlaps-any, and touches-a -- all pseudo-slots which take a player-valued argument."
| outerPhrase |
outerPhrase := PhraseTileMorph new
setOperator: #+
type: #Boolean
rcvrType: #Player
argType: #Player. "temp dummy"
(outerPhrase submorphs second) delete. "operator"
outerPhrase addMorphBack: (TileMorph new setOperator: anOperator).
(outerPhrase submorphs second) goBehind. "Make it third"
outerPhrase submorphs last addMorph: self presenter standardPlayer tileToRefer.
^ outerPhrase!
Item was changed:
+ ----- Method: Viewer>>conjuredUpPhraseWithOperator:type: (in category 'special phrases') -----
- ----- Method: Viewer>>conjuredUpPhraseWithOperator:type: (in category '*Etoys-Squeakland-special phrases') -----
conjuredUpPhraseWithOperator: anOperator type: aType
"Answer a PhraseTileMorph carefully constructed for overlaps, overlaps-any, and touches-a, distance to, bearing to, bearing from -- all pseudo-slots which take a player-valued argument."
| outerPhrase aTile |
outerPhrase := PhraseTileMorph new
setOperator: #+
type: aType
rcvrType: #Player
argType: #Player. "temp dummy"
(outerPhrase submorphs second) delete. "operator"
aTile := TileMorph new.
aTile setOperator: anOperator andUseWording: (ScriptingSystem wordingForOperator: anOperator).
outerPhrase addMorphBack: aTile.
Smalltalk at: #AA put: aTile.
aTile addCaretsAsAppropriate: false.
(outerPhrase submorphs second) goBehind. "Make it third"
outerPhrase submorphs last addMorph: self presenter standardPlayer tileToRefer.
^ outerPhrase!
Item was changed:
+ ----- Method: Viewer>>distanceToPlayerPhrase (in category 'special phrases') -----
- ----- Method: Viewer>>distanceToPlayerPhrase (in category '*Etoys-Squeakland-special phrases') -----
distanceToPlayerPhrase
"Answer a distance-to phrase to hand to the user."
^ self conjuredUpPhraseWithOperator: #distanceToPlayer: type: #Number!
Item was changed:
+ ----- Method: ViewerFlapTab class>>defaultNameStemForInstances (in category 'printing') -----
- ----- Method: ViewerFlapTab class>>defaultNameStemForInstances (in category '*Etoys-printing') -----
defaultNameStemForInstances
^ 'viewerFlapTab' translatedNoop!
Item was changed:
+ ----- Method: ViewerFlapTab class>>includeInNewMorphMenu (in category 'new-morph participation') -----
- ----- Method: ViewerFlapTab class>>includeInNewMorphMenu (in category '*Etoys-new-morph participation') -----
includeInNewMorphMenu
"Not to be instantiated from the menu"
^ false!
Item was changed:
+ ----- Method: ViewerLine>>addCommandFeedback: (in category 'slot') -----
- ----- Method: ViewerLine>>addCommandFeedback: (in category '*Etoys-Squeakland-slot') -----
addCommandFeedback: evt
"Add screen feedback showing what would be torn off in a drag"
| aMorph |
aMorph := RectangleMorph new bounds: ((submorphs third topLeft - (2@1)) corner: (submorphs last bottomRight) + (2@1)).
aMorph beTransparent; borderWidth: 2; borderColor: ScriptingSystem commandFeedback; lock.
^ Project current world addHighlightMorph: aMorph for: nil!
Item was changed:
+ ----- Method: WatcherWrapper>>burnishForReplacing (in category 'copying') -----
- ----- Method: WatcherWrapper>>burnishForReplacing (in category '*Etoys-Squeakland-copying') -----
burnishForReplacing
"Final appearance modifications before the receiver is inserted as a replacement for an earlier version of the watcher. This is a hook so that the FollowingWatcher has a chance to get its fonts right."!
Item was changed:
+ ----- Method: WatcherWrapper>>detailedWatcherColor (in category 'initialization') -----
- ----- Method: WatcherWrapper>>detailedWatcherColor (in category '*Etoys-Squeakland-initialization') -----
detailedWatcherColor
"Answer the color to use for detailed watcher."
^ (Color r: 0.508 g: 0.663 b: 1.0)!
Item was changed:
+ ----- Method: WatcherWrapper>>getter (in category 'accessing') -----
- ----- Method: WatcherWrapper>>getter (in category '*Etoys-Squeakland-accessing') -----
getter
"Answer the selector that serves as the getter for this watcher."
^ self valueOfProperty: #getter ifAbsent: [variableName asGetterSelector]!
Item was changed:
+ ----- Method: WatcherWrapper>>prospectiveReplacement (in category 'copying') -----
- ----- Method: WatcherWrapper>>prospectiveReplacement (in category '*Etoys-Squeakland-copying') -----
prospectiveReplacement
"Answer another watcher of the same class which will serve as the replacement for the receiver. This is used when the whole apparatus needs to be rebuilt after, for example, a type change or a name change."
| replacement |
replacement := self class new.
replacement position: self position.
^ replacement!
Item was changed:
+ ----- Method: WatcherWrapper>>variableName (in category 'accessing') -----
- ----- Method: WatcherWrapper>>variableName (in category '*Etoys-Squeakland-accessing') -----
variableName
"Answer the name of the variable being watched."
^ variableName!
1
0
David T. Lewis uploaded a new version of KernelTests to project The Treated Inbox:
http://source.squeak.org/treated/KernelTests-dtl.449.mcz
==================== Summary ====================
Name: KernelTests-dtl.449
Author: dtl
Time: 13 January 2024, 10:25:41.643571 pm
UUID: db371749-54f3-4972-8899-65b439f89d10
Ancestors: KernelTests-jar.448
Test to document a mixed arithmetic issue, reference Kernel-mt.1550 and Kernel-mt.1551
=============== Diff against KernelTests-jar.448 ===============
Item was added:
+ ----- Method: FloatTest>>testSmallIntegerDivide (in category 'tests - arithmetic') -----
+ testSmallIntegerDivide
+ "mixed integer and float operation should not introduce loss of precision"
+
+ self should: [Compiler evaluate: '(3 / 5.0) = (3.0 / 5.0)']
+ !
1
0
David T. Lewis uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-dtl.450.mcz
==================== Summary ====================
Name: KernelTests-dtl.450
Author: dtl
Time: 15 January 2024, 1:20:30.836973 pm
UUID: ffa71d27-9f27-49c3-9577-f77022415dd1
Ancestors: KernelTests-jar.449
Test to document a mixed arithmetic issue, reference Kernel-mt.1550 and Kernel-mt.1551
=============== Diff against KernelTests-jar.449 ===============
Item was added:
+ ----- Method: FloatTest>>testSmallIntegerDivide (in category 'tests - arithmetic') -----
+ testSmallIntegerDivide
+ "Mixed integer and float operation should not introduce loss of precision"
+
+ self should: [Compiler evaluate: '(3 / 5.0) = (3.0 / 5.0)']
+ !
1
0