Squeak-dev October 2022

squeak-dev@lists.squeakfoundation.org

22 participants
145 discussions

The Trunk: Morphic-ct.2033.mcz
by commits＠source.squeak.org 21 Oct '22

21 Oct '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2033.mcz ==================== Summary ==================== Name: Morphic-ct.2033 Author: ct Time: 24 August 2022, 6:02:53.835133 pm UUID: 6b380927-4044-c24d-a1cb-b4f6feb6dae3 Ancestors: Morphic-ct.2031 Fixes an drawing/invalidation issue with TransformMorphs. When an ancestor of a TransformMorph is moved directly, it invalidates both its old and its new bounds, so the damageRect can legitimately excess the bounds of the TransformMorph. Solution: Remove the intersection of the damage rect with the TransformMorph's bounds. Reprocase: m := Morph new. f := m addFlexShell rotationDegrees: 15; yourself. f openInWorld. f center: f world center. "Do this separately" m position: m position + 10. Please review. =============== Diff against Morphic-ct.2031 =============== Item was changed: ----- Method: TransformMorph>>invalidRect:from: (in category 'change reporting') ----- invalidRect: damageRect from: aMorph "Translate damage reports from submorphs by the scrollOffset." + + ^ super + invalidRect: (aMorph == self + ifTrue: [damageRect] + ifFalse: [(transform localBoundsToGlobal: damageRect) expanded]) + from: self! - aMorph == self - ifTrue:[super invalidRect: damageRect from: self] - ifFalse:[super invalidRect: (((transform localBoundsToGlobal: damageRect) intersect: bounds) expanded) from: self].!

1 0

The Trunk: Morphic-ct.2050.mcz
by commits＠source.squeak.org 21 Oct '22

21 Oct '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2050.mcz ==================== Summary ==================== Name: Morphic-ct.2050 Author: ct Time: 21 October 2022, 2:25:51.28487 pm UUID: 6b936800-d835-0f4c-be8e-9ae96e6f86ee Ancestors: Morphic-mt.2049, Morphic-ct.2033 Merges Morphic-ct.2033: Fixes an drawing/invalidation issue with TransformMorphs. [...] =============== Diff against Morphic-mt.2049 =============== Item was changed: ----- Method: TransformMorph>>invalidRect:from: (in category 'change reporting') ----- invalidRect: damageRect from: aMorph "Translate damage reports from submorphs by the scrollOffset." + + ^ super + invalidRect: (aMorph == self + ifTrue: [damageRect] + ifFalse: [(transform localBoundsToGlobal: damageRect) expanded]) + from: self! - aMorph == self - ifTrue:[super invalidRect: damageRect from: self] - ifFalse:[super invalidRect: (((transform localBoundsToGlobal: damageRect) intersect: bounds) expanded) from: self].!

1 0

The Inbox: Collections-ct.1022.mcz
by commits＠source.squeak.org 21 Oct '22

21 Oct '22

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ct.1022.mcz ==================== Summary ==================== Name: Collections-ct.1022 Author: ct Time: 21 October 2022, 2:24:04.563911 pm UUID: 6c7815e3-3bf9-be4b-a8cb-ae2373cb6658 Ancestors: Collections-nice.1021 Proposal: Adds PositionableStream>>#peek:. The implementation is taken from Damien Cassou (dc). [1] [1] https://github.com/hpi-swa/Squot/blob/4bf8e3b685ef9cbc195b7eca77d53a482833b… =============== Diff against Collections-nice.1021 =============== Item was added: + ----- Method: PositionableStream>>peek: (in category 'accessing') ----- + peek: anInteger + "Answer what would be returned if the message next: anInteger were sent to the receiver. If the receiver has less than anInteger more elements, only answer so many elements as available." + + | oldPosition result | + oldPosition := position. + result := self next: anInteger. + position := oldPosition. + ^ result!

1 0

Squeak 6.0: Installer-Core-mt.450.mcz
by commits＠source.squeak.org 21 Oct '22

21 Oct '22

Marcel Taeumel uploaded a new version of Installer-Core to project Squeak 6.0: http://source.squeak.org/squeak60/Installer-Core-mt.450.mcz ==================== Summary ==================== Name: Installer-Core-mt.450 Author: mt Time: 21 October 2022, 1:26:06.215037 pm UUID: d023a26c-cfb5-0a43-9102-89bbb16f1439 Ancestors: Installer-Core-mt.449 Fixes a bug in new #ensureRecentMetacello that polluted the current change set with the preamble the SAR file. Backported from Squeak 6.1alpha. =============== Diff against Installer-Core-mt.449 =============== Item was changed: ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') ----- ensureRecentMetacello "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md" | metacello | ((Smalltalk classNamed: #WebClient) ifNil: [ false ] ifNotNil: [ :webClient | [ (webClient httpHead: 'https://github.com') isSuccess ] on: Error do: [ false ] ]) ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ]. self isMetacelloInstalled ifFalse: [ | response | "Download base archive of Metacello." response := WebClient httpGet: 'https://files.squeak.org/metacello/metacello-squeak60.sar'. response isSuccess ifFalse: [ self error: ('Could not download Metacello archive: {1}' translated format: {response status})]. "Prepare a clean environment and install it." Smalltalk globals removeKey: #Metacello ifAbsent: ["Ignore prior attempts."]. + self new installSAR: 'metacello-squeak60.sar' from: response content asByteArray readStream]. - SARInstaller new fileInFrom: response content asByteArray readStream]. metacello := Smalltalk classNamed: #Metacello. "Now load latest version of Metacello" metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; get. metacello new baseline: 'Metacello'; repository: 'github://Metacello/metacello:master/repository'; load: #('default' 'Metacello-Help').!

1 0

esseDay7 := esseDay6 pauseDay; nextDay.
by rabbit 21 Oct '22

21 Oct '22

Alright, Howz everyone? I took a day to work on my vintage ride…so I sent #pauseDay to the esseDay6 promise. Now we will see promise chaining as Carol sends a 2nd message to the promise resolution (p1) of the initial send to Alice, which was resolved to the promise from sending a message to Bob. The resolution to the initial promise will occur in Bob. ———- Scope tables ———- Outz: - Questions (Yellow) - Exports (Pink) Inz: - Answers (Orange) - Imports (Burgundy) Carol sends 2nd message #isAllWell to the result of #meet: which is now the result of #greet:… The 2nd message is forwarded to Alice for the initial msg send. All the same Scope entries are made: - p2 reference (r3’) is IN in Carol’s table Imports (Burgundy) - remote resolver to p2 is OUT in Carols Questions (Yellow) — Have a good one; keep it, light. Kindly, langohr . .. … ‘…^,^ 🐇🐇🐇 Sent from Callisto House Mobile - Europa :: decentralized mobile homeless solutions ::

1 4

The Trunk: MorphicExtras-ct.338.mcz
by commits＠source.squeak.org 18 Oct '22

18 Oct '22

Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ct.338.mcz ==================== Summary ==================== Name: MorphicExtras-ct.338 Author: ct Time: 18 October 2022, 7:55:41.245293 pm UUID: fe629685-5d6a-d543-8fe9-729d5d675a7a Ancestors: MorphicExtras-ct.337 Adds ObjectlandMorph, the final part of the reconstruction of Objectland (formerly also known as "The Worlds of Squeak"). This version marks the (probably) last commit in a series of changes that I started making nearly 3 years ago [1]. Essential aims of the project were to revive the colorful collection of examples around the capacities of Squeak which was lastly delivered with Squeak 3.7, convert each example into code to provide a rich set of how-to examples to newbies in Squeak, and integrate it into the Trunk image again. [1] Most relevant versions have the keyword "Objectland" in their name, so you could use your favorite squeak-dev browsing tool to find them all. :-) See also: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html =============== Diff against MorphicExtras-ct.337 =============== Item was added: + Morph subclass: #ObjectlandMorph + instanceVariableNames: 'factoryState carouselState displayMorph eyes rootProjectMorph projectMorphs isGhost' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Demo'! + + !ObjectlandMorph commentStamp: 'ct 10/18/2022 18:44' prior: 0! + I hold an amount of examples around the Worlds of Squeak. As soon as I am activated, I insert a list of projects into my world. While building, I display some loading animation. I can be opened from the Objects Pin tool or also from the world's "open" menu. Click me multiple times to reveal a hidden feature!!! Item was added: + ----- Method: ObjectlandMorph class>>cheeseForm (in category 'resources') ----- + cheeseForm + "Credits: Cheese by qubodup - uploaded on April 6, 2015, 9:59 am. https://openclipart.org/detail/216862/cheese. CC0 License." + + ^ Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: self cheeseFormContents readStream)! Item was added: + ----- Method: ObjectlandMorph class>>cheeseFormContents (in category 'resources') ----- (excessive size, no diff calculated) Item was added: + ----- Method: ObjectlandMorph class>>createObjectlandProject (in category 'instance creation') ----- + createObjectlandProject + + | projectWindow | + projectWindow := Project current world + submorphThat: [:m | (m model isKindOf: Project) and: [m model name beginsWith: 'The Worlds of Squeak']] + ifNone: [^ self new createObjectlandProject]. + ^ projectWindow beKeyWindow! Item was added: + ----- Method: ObjectlandMorph class>>descriptionForPartsBin (in category 'PartsBin') ----- + descriptionForPartsBin + + ^ self + partName: 'Objectland' translatedNoop + categories: {'Demo' translatedNoop. 'Just for Fun' translatedNoop} + documentation: 'A collection of funny and educational examples introducing different domains of Squeak, including Morphic, Etoys, and others' translatedNoop! Item was added: + ----- Method: ObjectlandMorph class>>fill:with:factory:ifOverflow: (in category 'support') ----- + fill: aMorph with: n factory: factoryBlock ifOverflow: errorBlock + "Flood aMorph with n non-overlapping submorphs built by factoryBlock. Answer value of errorBlock if there is not enough space in the receiver." + + | random | + self flag: #todo. "move or rename" + + random := ThreadSafeRandom value. + ^ ((1 to: n) collect: [:x | factoryBlock value]) + do: [:morph | + | areas center | + areas := (self freeAreasIn: aMorph insetBy: morph extent + 1) + ifEmpty: [^ errorBlock value]. + center := (areas atRandom: random) + pointAtFraction: random next @ random next. + morph center: center. + aMorph addMorph: morph]; + yourself! Item was added: + ----- Method: ObjectlandMorph class>>freeAreasIn:insetBy: (in category 'support') ----- + freeAreasIn: aMorph insetBy: inset + "Collect all areas inside of aMorph's bounds that are not covered by any submorph. Answer a Set of disjunct Rectangles." + + | areas | + areas := Set new. + (aMorph bounds insetBy: inset) + allAreasOutsideList: (aMorph submorphs collect: [:m | m bounds outsetBy: inset]) + do: [:rect | areas add: rect]. + ^ areas select: #hasPositiveExtent.! Item was added: + ----- Method: ObjectlandMorph class>>initialize (in category 'initialize-release') ----- + initialize + + self registerInOpenMenu.! Item was added: + ----- Method: ObjectlandMorph class>>liftUpSubmorphsOf: (in category 'support') ----- + liftUpSubmorphsOf: aMorph + + ^ self + liftUpSubmorphsOf: aMorph + to: aMorph topRendererOrSelf owner! Item was added: + ----- Method: ObjectlandMorph class>>liftUpSubmorphsOf:to: (in category 'support') ----- + liftUpSubmorphsOf: aMorph to: ownerMorph + + aMorph submorphs reversed + inject: ownerMorph + into: [:previous :morph | + | morphBounds | + morphBounds := morph boundsIn: ownerMorph. + ownerMorph addMorph: morph inFrontOf: previous. + morph bounds: morphBounds].! Item was added: + ----- Method: ObjectlandMorph class>>openObjectland (in category 'instance creation') ----- + openObjectland + "ObjectlandMorph openObjectland" + + | project | + project := self createObjectlandProject. + project isInWorld ifFalse: [project openAsTool]. + "project model enter." + ^ project! Item was added: + ----- Method: ObjectlandMorph class>>registerInOpenMenu (in category 'initialize-release') ----- + registerInOpenMenu + + TheWorldMenu registerOpenCommand: {'Objectland'. {self. #openObjectland}}.! Item was added: + ----- Method: ObjectlandMorph class>>unload (in category 'initialize-release') ----- + unload + + self unregisterInOpenMenu.! Item was added: + ----- Method: ObjectlandMorph class>>unregisterInOpenMenu (in category 'initialize-release') ----- + unregisterInOpenMenu + + TheWorldMenu unregisterOpenCommand: 'Objectland'.! Item was added: + ----- Method: ObjectlandMorph>>build:atLocation:forOwner: (in category 'project creation') ----- + build: buildable atLocation: location forOwner: ownerMorph + "Prepare buildable to be displayed at location in ownerMorph, but do not yet add it to ownerMorph. The sender will do this later. + buildable: a Morph or Model that understands #buildWith:, or a block that answers one of the former + location: Rectangle or Point, relative to owner's bounds" + + | widget morph hResizing vResizing | + widget := buildable isBlock + ifTrue: [buildable cull: ownerMorph] + ifFalse: [buildable]. + morph := widget buildWith: MorphicToolBuilder new. + + hResizing := morph hResizing. vResizing := morph vResizing. + morph + fullBounds; + layoutFrame: ( + LayoutFrame fractions: (location isPoint + ifTrue: [morph extent / ownerMorph extent exactCenter: location] + ifFalse: [location])); + hResizing: #spaceFill; vResizing: #spaceFill. + "Compute proportional layout for the morph without embedding it into ownerMorph." + morph + layoutInBounds: (morph layoutFrame + layout: morph bounds + in: ownerMorph layoutBounds) + positioning: #center. + morph hResizing: hResizing; vResizing: vResizing. + + ^ morph! Item was added: + ----- Method: ObjectlandMorph>>buildInto:specs: (in category 'project creation') ----- + buildInto: ownerMorph specs: specs + "Build the given morph specs into ownerMorph. Make sure that all morphs appear at the same time in the ownerMorph." + + ^ specs + collect: [:spec | + self + build: spec value + atLocation: spec key + forOwner: ownerMorph] + thenDo: [:morph | + ownerMorph addMorph: morph]! Item was added: + ----- Method: ObjectlandMorph>>createEtoysProject (in category 'projects') ----- + createEtoysProject + + | etoysExample | + self flag: #forLater. "If we could enable etoysMode just for this project, this would be great" + + etoysExample := Player extraExampleCar. + ^ self + createProjectNamed: 'Fun with Etoys' translated + colorRamp: { + 1 -> Color plum darker. + 0 -> Color lightMagenta } + morphSpecs: { + (0.46 @ 0.6 exactCenter: 0.25 @ 0.6) -> [HelpBrowser new + rootTopic: SqueakTutorialsEToys; + showTopicNamed: #raceCar; + yourself]. + (0.3 @ 0.4 exactCenter: 0.7 @ 0.45) -> [etoysExample first addFlexShell]. "arena" + 0.3 @ 0.2 -> [AllScriptsTool newStandAlone]. + 0.7 @ 0.83 -> [etoysExample second] "script editor" } + initializeWorld: [:world | + self class liftUpSubmorphsOf: etoysExample first. + etoysExample first owner delete. + world stopRunningAll]! Item was added: + ----- Method: ObjectlandMorph>>createGamesProject (in category 'projects') ----- + createGamesProject + + ^ self + createProjectNamed: 'Fun with Games' translated + colorRamp: { + 0 -> Color green muchDarker. + 1 -> (Color green alphaMixed: 0.25 with: Color black) } + morphSpecs: { + 0.2 @ 0.7 -> [self makeGiftFor: FreeCell new labeled: 'Free Cell']. + 0.35 @ 0.8 -> [self makeGiftFor: CrosticPanel new labeled: 'Crostic Panel']. + 0.25 @ 0.35 -> [CipherPanel new]. + 0.8 @ 0.25 -> [SameGame new]. + 0.62 @ 0.7 -> [Tetris new pause]. + (0.25 @ 0.5 exactCenter: 0.85 @ 0.7) -> [ChineseCheckers new]. + }! Item was added: + ----- Method: ObjectlandMorph>>createGraphicsProject (in category 'projects') ----- + createGraphicsProject + + ^ self + createProjectNamed: 'Fun with Graphics' translated + colorRamp: { + 0 -> (Color r: 1 g: 0.916 b: 0.585). + 1 -> (Color r: 1 g: 0.804 b: 0.008) } + morphSpecs: { + (0.08 @ 0.15 exactCenter: 0.08 @ 0.7) -> [ + SketchMorph extraExampleCook]. + (0.08 @ 0.15 exactCenter: 0.77 @ 0.1) -> [ + SketchMorph extraExampleWizard]. + (0.12 @ 0.15 exactCenter: 0.35 @ 0.2) -> [ + BannerMorph example addFlexShell]. + (0.15 @ 0.15 exactCenter: 0.1 @ 0.18) -> [ + WatchMorph example]. + 0.12 @ 0.41 -> [ + CalendarMorph new + color: Color green muchDarker; + date: (Date year: 1996 month: 09 day: 24); step; + rotationDegrees: -2; + owner]. + 0.83 @ 0.58 -> [ + PolygonMorph extraExampleTextFlow]. + 0.55 @ 0.72 -> [ + CurveMorph extraExampleTextFlow addFlexShell scale: RealEstateAgent scaleFactor]. + (0.27 @ 0.2 exactCenter: 0.33 @ 0.77) -> [ + BouncingAtomsMorph new + rotationDegrees: 1; + color: Color orange darker; + yourself]. + (0.08 @ 0.15 exactCenter: 0.46 @ 0.12) -> [ + StarMorph new + addHandles; + balloonText: 'Drag my yellow handles to resize me, or click on my other handles to reshape me'; + yourself]. + (0.1 @ 0.2 exactCenter: 0.51 @ 0.42) -> [ + FishEyeMorph new + flag: #todo "maxExtent: 0.09 @ 0.17"; + addFlexShell]. + (0.18 @ 0.24 exactCenter: 0.62 @ 0.17) -> [:world | + (NewColorPickerMorph + on: world + originalColor: world fillStyle colorRamp last value + setColorSelector: #gradientFillColor:) + rotationDegrees: 11; + yourself]. + 0.34 @ 0.4 -> [ + PolygonMorph extraExampleTrapezePlus]. + (0.14 @ 0.14 exactCenter: 0.72 @ 0.64) -> [ + | curve | + (curve := CurveMorph extraExampleArrow) + addMorph: ('... snazzy bevelled edges!!' asTextMorph + center: (curve pointAtFraction: 0.75 @ 0.3); + rotationDegrees: 25; + owner); + addFlexShell]. + 0.125 @ 0.9 -> [ + self makeGiftFor: ObjectsTool newStandAlone labeled: 'Objects Tool']. + 0.85 asPoint -> [ + EventRecorderMorph new]. + 0.95 @ 0.23 -> [ + BlobMorph new]. + 0.28 @ 0.91 -> [ + BlobMorph new]. + 0.34 @ 0.08 -> [ + BlobMorph new]. } + initializeWorld: [:world | self class + fill: world + with: 20 + factory: [TetrisPieceMorph random] + ifOverflow: []]! Item was added: + ----- Method: ObjectlandMorph>>createObjectlandProject (in category 'projects') ----- + createObjectlandProject + + Cursor wait showWhile: [ + rootProjectMorph := self + createProjectNamed: 'The Worlds of Squeak!!' translated + colorRamp: { 0 -> Color tungsten. 1 -> Color black } + morphSpecs: { (0.2 asPoint exactCenter: 0.5 asPoint) -> [self addFlexShell] } + initializeWorld: [:world | + | previousButton closeButton | + "Unlike our children, *we* want a separate changeset indeed." + world project useOwnChangeSetWithCurrentName. + + previousButton := world findA: RectangleMorph. + closeButton := self newCloseProjectButton. + closeButton firstSubmorph image: (closeButton firstSubmorph image scaledToHeight: previousButton firstSubmorph image height). + world addMorph: (closeButton + position: world clearArea topLeft + 5 px; + yourself). + previousButton topLeft: closeButton topRight + (5 px @ 0). + world fillStyle + radial: true; + origin: world center]]. + + factoryState := #ready. + + ^ rootProjectMorph! Item was added: + ----- Method: ObjectlandMorph>>createProjectNamed:colorRamp:morphSpecs: (in category 'project creation') ----- + createProjectNamed: name colorRamp: colorRamp morphSpecs: specs + + ^ self + createProjectNamed: name + colorRamp: colorRamp + morphSpecs: specs + initializeWorld: []! Item was added: + ----- Method: ObjectlandMorph>>createProjectNamed:colorRamp:morphSpecs:initializeWorld: (in category 'project creation') ----- + createProjectNamed: name colorRamp: colorRamp morphSpecs: specs initializeWorld: aBlock + + | project | + project := MorphicProject new. + project useParentChangeSetButSetProjectName: name. + project flapsSuppressed: true. + project world useGradientFill. + project world fillStyle + radial: false; + colorRamp: colorRamp. + project world addMorph: (self newPreviousProjectButton + position: project world clearArea topLeft + 5 px; + yourself). + + self buildInto: project world specs: specs. + + aBlock cull: project world. + + ^ ProjectViewMorph newProjectViewInAWindowFor: project! Item was added: + ----- Method: ObjectlandMorph>>createSoundsProject (in category 'projects') ----- + createSoundsProject + + | scorePlayerMorph | + ^ self + createProjectNamed: 'Fun with Sounds' translated + colorRamp: { + 0 -> (Color r: 1 g: 0.369 b: 0.227). + 1 -> (Color r: 1 g: 0.164 b: 0.408) } + morphSpecs: { + 0.25 @ 0.4 -> [ + scorePlayerMorph := ScorePlayerMorph extraExample]. + (0.45 @ 0.25 exactCenter: 0.73 @ 0.2) -> [ + PianoRollScoreMorph new on: scorePlayerMorph scorePlayer]. + (0.55 @ 0.3 exactCenter: 0.35 @ 0.82) -> [ + PianoKeyboardMorph newStandAlone beSticky addFlexShell rotationDegrees: 12]. + 0.77 @ 0.5 -> [ + SpectrumAnalyzerMorph new showSignal]. + 0.2 @ 0.89 -> [ + RecordingControlsMorph new]. + 0.8 @ 0.8 -> [self newStopAllSoundsButton] + }! Item was added: + ----- Method: ObjectlandMorph>>createToolsProject (in category 'projects') ----- + createToolsProject + + ^ self + createProjectNamed: 'Fun with Tools' translated + colorRamp: { + 0 -> (Color r: 0.353 g: 0.784 b: 0.983). + 1 -> (Color r: 0.321 g: 0.929 b: 0.78) } + morphSpecs: { + 0.45 @ 0.3 -> [Workspace extraExample2]. + 0.2 @ 0.23 -> [Workspace extraExample1]. + 0.32 @ 0.7 -> [HelpBrowser new + rootTopic: CustomHelp; + showTopicNamed: #basicDevelopmentTools; + yourself]. + (0.25 @ 0.15 exactCenter: 0.6 @ 0.9) -> [:world | world project transcript]. + (0.35 @ 0.25 exactCenter: 0.78 @ 0.2) -> [ + PreferenceBrowser prototypicalToolWindow refreshWindowColor]. + (0.4 @ 0.5 exactCenter: 0.77 @ 0.5) -> [Browser new + setClass: Browser selector: #buildDefaultBrowserWith:]. + }! Item was added: + ----- Method: ObjectlandMorph>>displayText (in category 'display') ----- + displayText + + ^ displayMorph contents! Item was added: + ----- Method: ObjectlandMorph>>displayText: (in category 'display') ----- + displayText: aText + + displayMorph contents: aText. + + self isInWorld ifFalse: [^ self]. + self + fullBounds; "update width from displayMorph" + referencePositionInWorld: self world extent / 2.! Item was added: + ----- Method: ObjectlandMorph>>eyeColor: (in category 'display') ----- + eyeColor: aColor + + eyes do: [:eye | eye color: aColor]! Item was added: + ----- Method: ObjectlandMorph>>fillObjectlandProject (in category 'projects') ----- + fillObjectlandProject + + ^ self fillObjectlandProjectWith: { + self createEtoysProject. + self createGamesProject. + self createGraphicsProject. + self createToolsProject. + self createSoundsProject + }! Item was added: + ----- Method: ObjectlandMorph>>fillObjectlandProjectWith: (in category 'project creation') ----- + fillObjectlandProjectWith: elements + + | positions projects | + positions := (1 to: elements size) collect: [:index | + 1 / 4 asPoint exactCenter: (3 / 4 asPoint + rotateBy: 1 - index * 2 * Float pi / elements size + 0.4 + about: 1 / 2 asPoint)]. + + projects := "Morph rememberProvenanceDuring: [" + self buildInto: self world specs: (positions with: elements collect: #->)"]". + projects do: [:window | + | projectViewMorph | + projectViewMorph := window firstSubmorph. + projectViewMorph updateThumbnail: true]. + + ^ projects! Item was added: + ----- Method: ObjectlandMorph>>handlesMouseDown: (in category 'event handling') ----- + handlesMouseDown: anEvent + + ^ true! Item was added: + ----- Method: ObjectlandMorph>>initialize (in category 'initialization') ----- + initialize + + ^ self initialize: true! Item was added: + ----- Method: ObjectlandMorph>>initialize: (in category 'initialization') ----- + initialize: isGhostBoolean + + | mascotMorph | + super initialize. + isGhost := isGhostBoolean. + + self + color: Color transparent; + layoutInset: 5 px; + changeTableLayout; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + beSticky. + + mascotMorph := MovingEyeMorph perform: + (isGhost + ifFalse: [#extraExampleSqueakIsWatchingYou] + ifTrue: [#extraExampleSqueakGhostIsWatchingYou]). + mascotMorph := mascotMorph addFlexShell + scale: RealEstateAgent scaleFactor reciprocal; + yourself. + eyes := mascotMorph allMorphs select: [:morph | morph isKindOf: MovingEyeMorph]. + self addMorphBack: mascotMorph. + + displayMorph := StringMorph new + fontName: #BitstreamVeraSans pointSize: (42 / RealEstateAgent scaleFactor); + color: (isGhost ifFalse: [Color black] ifTrue: [Color white]); + contents: ''; + yourself. + self addMorphBack: displayMorph. + + carouselState := 1 @ 0.! Item was added: + ----- Method: ObjectlandMorph>>initializeToStandAlone (in category 'initialization') ----- + initializeToStandAlone + + self initialize: false. + + self displayText: 'Objectland' translated. + ^ self addFlexShell + height: Project current world height // 5; + yourself! Item was added: + ----- Method: ObjectlandMorph>>isGhost (in category 'accessing') ----- + isGhost + + ^ isGhost! Item was added: + ----- Method: ObjectlandMorph>>load (in category 'loading') ----- + load + + self displayText: 'Traveling to Objectland...' translated. + + projectMorphs := self fillObjectlandProject. + + self displayText: 'Welcome to Objectland!!' translated.! Item was added: + ----- Method: ObjectlandMorph>>makeGiftFor:labeled: (in category 'project creation') ----- + makeGiftFor: aMorph labeled: aStringOrText + + | gift | + gift := SketchMorph new + form: self class cheeseForm; + extent: 100 px @ 100 px; + balloonText: aStringOrText; + yourself. + gift + on: #mouseDown + send: #value + to: + [aMorph openCenteredInWorld. + gift delete]. + ^ gift! Item was added: + ----- Method: ObjectlandMorph>>mouseUp: (in category 'event handling') ----- + mouseUp: anEvent + + anEvent yellowButtonPressed ifTrue: [^ super mouseUp: anEvent]. + (self containsPoint: anEvent cursorPoint) ifFalse: [^ super mouseUp: anEvent]. + + factoryState ifNil: [^ self startLoading]. + + carouselState := carouselState leftRotated. "simple 4-state machine"! Item was added: + ----- Method: ObjectlandMorph>>newButtonLabeled:icon:color:action: (in category 'project creation') ----- + newButtonLabeled: aString icon: aForm color: aColor action: aBlock + + ^ RectangleMorph new + changeTableLayout; + listDirection: #leftToRight; + wrapCentering: #center; + layoutInset: 5 px; + cellGap: 10 px; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + color: aColor; + addMorphBack: aForm scaleIconToDisplay asMorph; + addMorphBack: aString asMorph; + addMouseUpActionWith: (MessageSend + receiver: aBlock selector: #value); + yourself! Item was added: + ----- Method: ObjectlandMorph>>newCloseProjectButton (in category 'project creation') ----- + newCloseProjectButton + + ^ self + newButtonLabeled: 'Close project' translated + icon: MenuIcons smallCancelIcon + color: Color salmon + action: [Project current close]! Item was added: + ----- Method: ObjectlandMorph>>newPreviousProjectButton (in category 'project creation') ----- + newPreviousProjectButton + + ^ self + newButtonLabeled: 'Previous project' translated + icon: MenuIcons backIcon + color: Color cantaloupe + action: [Project returnToPreviousProject]! Item was added: + ----- Method: ObjectlandMorph>>newStopAllSoundsButton (in category 'project creation') ----- + newStopAllSoundsButton + + ^ SimpleButtonMorph new + target: SoundService; + actionSelector: #stop; + label: 'Stop all sounds'; + yourself! Item was added: + ----- Method: ObjectlandMorph>>outOfWorld: (in category 'submorphs - add/remove') ----- + outOfWorld: aWorld + + projectMorphs ifNotNil: [ + (UserDialogBoxMorph new + title: 'Close Objectland?' translated; + createButton: 'Yes -- destroy all projects' translated value: true; + createButton: 'No -- only close the mascot' translated value: false; + selectedButtonIndex: 1; + registerKeyboardShortcuts; + preferredPosition: self currentHand position; + getUserResponse) + ifTrue: + [[projectMorphs do: [:m | m delete]] + valueSupplyingAnswer: #('*really want to delete the project*' true). + projectMorphs := nil]]. + + ^ super outOfWorld: aWorld! Item was added: + ----- Method: ObjectlandMorph>>projectMorphs (in category 'accessing') ----- + projectMorphs + + ^ projectMorphs! Item was added: + ----- Method: ObjectlandMorph>>startLoading (in category 'loading') ----- + startLoading + + factoryState := #loading. + [self load. + factoryState := #complete] + forkAt: Processor userBackgroundPriority! Item was added: + ----- Method: ObjectlandMorph>>step (in category 'stepping') ----- + step + + factoryState caseOf: { + [nil] -> []. + [#ready] -> [self startLoading]. + [#loading] -> [ + | animVar | + animVar := (Time millisecondClockValue / 300) sin + 1 / 2. + self eyeColor: (Color h: 82 s: animVar * 0.8 v: + (self isGhost ifFalse: [animVar / 2] ifTrue: [1]))]. + [#complete] -> [ + | dAngle | + self eyeColor: (self isGhost ifFalse: [Color black] ifTrue: [Color white]). + dAngle := 0.42 degreesToRadians * carouselState y. + projectMorphs do: [:morph | morph center: (morph center / self world extent + rotateBy: dAngle about: 0.5 asPoint) * self world extent]]. + }! Item was added: + ----- Method: ObjectlandMorph>>stepTime (in category 'stepping') ----- + stepTime + + ^ 30! Item was added: + ----- Method: Project>>useOwnChangeSetWithCurrentName (in category '*MorphicExtras-accessing') ----- + useOwnChangeSetWithCurrentName + + self setChangeSet: nil. + self name: self explicitName. + self explicitName: nil.! Item was added: + ----- Method: Project>>useParentChangeSetButSetProjectName: (in category '*MorphicExtras-accessing') ----- + useParentChangeSetButSetProjectName: aString + + self removeChangeSetIfPossible. + self setChangeSet: ChangeSet current. + self explicitName: aString.!

2 1

Bug in PaintBoxMorph/ SketchEditorMorph
by karl ramberg 18 Oct '22

18 Oct '22

[image: bild.png] I notice a couple of bugs when trying to draw. Many of these bugs are probably related. -Paint tools are displayed quite small. -The offset of the paint brush is wrong. -The size of the brush is much larger than the tool indicates The code for PaintBoxMorph is rather convoluted and hard to debug...

1 0

The Trunk: MorphicExtrasTests-ct.7.mcz
by commits＠source.squeak.org 18 Oct '22

18 Oct '22

Christoph Thiede uploaded a new version of MorphicExtrasTests to project The Trunk: http://source.squeak.org/trunk/MorphicExtrasTests-ct.7.mcz ==================== Summary ==================== Name: MorphicExtrasTests-ct.7 Author: ct Time: 18 October 2022, 7:56:05.431293 pm UUID: b58b1eef-6eb4-1a42-9d0e-d6c366075056 Ancestors: MorphicExtrasTests-mt.6 Complements MorphicExtras-ct.338 (ObjectlandMorph). =============== Diff against MorphicExtrasTests-mt.6 =============== Item was changed: SystemOrganization addCategory: #'MorphicExtrasTests-Postscript Filters'! SystemOrganization addCategory: #'MorphicExtrasTests-Flaps'! SystemOrganization addCategory: #'MorphicExtrasTests-Postscript Canvases'! + SystemOrganization addCategory: #'MorphicExtrasTests-Demo'! Item was added: + TestCase subclass: #ObjectlandTest + instanceVariableNames: 'project projects morph' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtrasTests-Demo'! Item was added: + ----- Method: ObjectlandTest class>>generateProjectScreenshots (in category 'screenshots') ----- + generateProjectScreenshots + + | configs allScreenshots originalScaleFactor originalScreenSize | + "Note: Can only test resolutions that are supported by your screen" + configs := + {{800 @ 600. 0.75}. + {1024 @ 768. 1}. + {1366 @ 768. 1}. + {1280 @ 960. 1.25}. + {1600 @ 900. 1}. + {1920 @ 1080. 1}. + {1920 @ 1080. 1.25}. + {1920 @ 1080. 1.5}. + {1920 @ 1080. 2.0}. + {3840 @ 2160. 1}. + {3840 @ 2160. 2.5}}. + + originalScreenSize := DisplayScreen actualScreenSize. + originalScaleFactor := DisplayScreen relativeScaleFactor. + + allScreenshots := OrderedDictionary new. + [configs + do: [:config | + allScreenshots at: config put: [ + | objectlandMorph screenshots morphs projects | + objectlandMorph := ObjectlandMorph new. + screenshots := OrderedDictionary new. + DisplayScreen + relativeScaleFactor: config second; + setNewScreenSize: config first. + morphs := OrderedCollection with: objectlandMorph createObjectlandProject. + morphs addAllLast: (objectlandMorph load; projectMorphs). + projects := OrderedCollection new. + [morphs + do: [:morph | + | project | + project := morph firstSubmorph project. + projects addFirst: project. + screenshots + at: project name + put: project world imageForm] + displayingProgress: 'Generating screenshots'] + ensure: [ + projects do: [:project | + project prepareForDelete; release]]. + screenshots] value] + displayingProgress: 'Testing configs'] + ensure: [ + DisplayScreen + relativeScaleFactor: originalScaleFactor; + setNewScreenSize: originalScreenSize]. + ^ allScreenshots! Item was added: + ----- Method: ObjectlandTest class>>viewProjectScreenshots (in category 'screenshots') ----- + viewProjectScreenshots + "Generate and view screenshots of all Objectland projects for different screen configurations. This is useful for manually revising the responsive layout and morph composition of Objectland. + Note: Before running this, move your image on the largest screen that you have (see comment in #generateProjectScreenshots)!! + + self viewProjectScreenshots + " + + | allScreenshots text | + allScreenshots := self generateProjectScreenshots. + + text := Text streamContents: [:stream | + allScreenshots keysAndValuesDo: [:config :screenshots | + stream + withAttribute: TextEmphasis bold do: [ + stream print: config]; + cr; cr. + screenshots keysAndValuesDo: [:label :screenshot | + stream + withAttribute: TextEmphasis italic do: [ + stream nextPutAll: label]; + cr; + withAttribute: screenshot asTextAnchor do: [ + stream nextPut: Character startOfHeader]; + cr; cr]. + stream cr]]. + + ^ text editWithLabel: 'Objectland project screenshots'! Item was added: + ----- Method: ObjectlandTest>>setUp (in category 'running') ----- + setUp + + super setUp. + morph := ObjectlandMorph new.! Item was added: + ----- Method: ObjectlandTest>>tearDown (in category 'running') ----- + tearDown + + [project ifNotNil: [ + project delete]. + morph ifNotNil: [ + morph projectMorphs ifNotNil: [:morphs | + morphs do: #delete]]] + valueSuppressingMessages: {'*delete*'}. + + ^ super tearDown! Item was added: + ----- Method: ObjectlandTest>>testCreateObjectlandProject (in category 'testing') ----- + testCreateObjectlandProject + + self + shouldnt: [project := morph createObjectlandProject] + raise: Error, Warning, Halt.! Item was added: + ----- Method: ObjectlandTest>>testLoadObjectlandProject (in category 'testing') ----- + testLoadObjectlandProject + <timeout: 30 "seconds"> + + project := MorphicProject new. + project world addMorph: morph. + self + shouldnt: [morph load] + raise: Error, Warning, Halt. + + self deny: [morph displayText asLowercase includesSubstring: '...']. + self assert: [morph projectMorphs size >= 3]. + morph projectMorphs do: [:projectMorph | + self assert: [projectMorph model name asLowercase includesSubstring: 'fun']. + self assert: [projectMorph model world submorphs size >= 5]].!

1 0

The Trunk: MorphicExtras-ct.337.mcz
by commits＠source.squeak.org 18 Oct '22

18 Oct '22

Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ct.337.mcz ==================== Summary ==================== Name: MorphicExtras-ct.337 Author: ct Time: 18 October 2022, 6:15:42.789427 pm UUID: 7f8a9475-b637-1046-b49f-af8073ce87e8 Ancestors: MorphicExtras-ct.336 Readds the classic Etoys race car example. This commit is part of reconstruction of Objectland (also known as "The Worlds of Squeak"). For more information, see: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html =============== Diff against MorphicExtras-ct.336 =============== Item was added: + ----- Method: Form class>>extraCar (in category '*MorphicExtras-examples') ----- + extraCar + + ^ Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: 'iVBORw0KGgoAAAANSUhEUgAAAEoAAABwCAYAAAC5Mea6AAADRElEQVR4XuXczXHEIAwF4D1uCbmmJbeQtrZXJ5fNOA7G+nkSoLczHGPMFywDwjxYf/vH5/4uD/7fPZIJa9u/9ndhQlJhHZEqY7mgWkhVsfihMmIUG5TrrceE5P5VRHo+n/u78P+HBUilsJANa10rDKtXGbJSdD3Hv9u27beEYEluHlEpup4rpDAsTQMslV5eZ9v/FG09qVDnm2tV6Kn0DqdVpHVF3rcJCQUlQZoeqofED8UPNQeUBYkfKgAq7c23IlRv2DIF1LnSu3GWFak1npKW6XqUanCqRLJChcWoqN4UDfVz579lCajjDZ8LEkpaz5RQvZvnhxoMxR+jZn/r8UMVhRo2hfHFqJgRuXYaww8FnBhDodBzvVJQml7lWfTnh1oACpZB0gbD2aFCc5KSBGLWOlQU1LRZ4kyobt4way+AtbJsqGW3zZSHCgHnh+KHGo7ED8UPxQ81BKk0FBKJH4ofCg9VFosfih8qD8qaoaGB8qa3KKCsecAr6JJQ5/J6vZqFEkuLJIGjgdIgiXoZP5QMjP+xkzyG/PGJCCsLanksfih+KH4ofqhl5nkPfqhbqNZecyRSCairDflepFLzvR6UZ2JccgXhGJ/OjfOsHljOQyixcKdFKg+FWAouuSxsSS5okg0UUPwZGQMUfX6PH4ofag2o0svB/FD8UP11paxv9KKg3KsQyLPtZoSCfONj3kCRCOX9ssvdAaIOWdDO2TSnKHqQTN8haj+6RkB5tgB5ocztskBJsRAgqDjpbldWj7JkZpBxcmqoKyxvNubfEnG1HoUA0mDB2hYVn6J6kRZraqhMpAioZvsQF7IG6igs7ZhwOFQWkubtaMayXkSCNRuUp30wKFTqHBOndIcDpj5+Uqgow N7BhFO9+SSPHnq/ubZHDYGyvPU8UHfXRwfzVChkjyoBdTXAmwFq+OjcCnWMH96A3cOafhrTi0+to3EtUFfbHcOhkBe7C+TnRiJ61PJQkhiCGn2jJ8cwqN4K410jsoJ6757S4pRmPUrSGywfNGqghvQq7eHGrQYgkglLQUmWgK8agMi4DI9TyOyHpgGe/Q0aVHc7I6Aitzpr6oDnDb0XyTxZFdkDQ+7Rk/iM+UIi9vcNXfpA7aVhfaIAAAAASUVORK5CYII=' readStream)! Item was added: + ----- Method: Form class>>extraCarTrack (in category '*MorphicExtras-examples') ----- + extraCarTrack + + ^ Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: 'iVBORw0KGgoAAAANSUhEUgAAAp8AAAHcCAYAAACQzMFXAAAbmElEQVR4XuXdy24rO5BE0fz/cf5vGRp4ZFsPF4tFxlrAvmfclqgMNBro8vl8Pt+1uvvwuy//G+jz+Xw+nz/G/FHk5w9Tn8/n8/l8/sj08/NHqs/n8/l8/tD08/OHqc/n8/l8/sj08/Pzx6jP5/P5fP7Q9PPzx6jP5/P5fP649PPz8395fD6fz+cPSj8/P3+I+nw+n88fhn5+fv4Y9fl8Pp/PH5J+fn7+EPX5fD6fPx79/Pz8Eerz+Xw+f1D6+fn5+UPU5/P5/JHp5+fn5w9Rn8/n8/nj0s/Pz88foT6fz+ePSj8/Pz9/hPp8Pp8/Mv38/Pz8/BHq8/n8kenn5+fn549Qn8/n84emn5+fnz9AfT6fzx+bfn5+fn7+CPX5fP7Y9PPz8/PzR6jP5/P5Y9PPz8/Pzx+gPp/PH5t+fn5+fv4I9fl8/uD08/Pz8/PzB6jP5/NHp5+fn5+fP0B9Pp8/Ov383u5o/18/v+3zL6jP5/NHp5+fn5+fP0J9Pp8/PP38/Pz8/AHq8/n80enn5+fn5+ePUJ/P549OPz8/Pz9/hPp8Pn94+vn5+fn5+QPU5/P5o9PPz8/Pzx+gPp/PH51+fn5+fn7+CPX5/OHp5+fn5+fnD1Cfz+ePTj8/Pz8/f4D6fD5/ePr5+fn5+fnj0+fz+cPTz8/Pz88foT6fzx+efn5+fqc72v83Pv+S+3z+8PTz8/Pz8/MHqM/n84enn5+fn58/Pn0+nz88/fz8/Pz8/AHq8/nD08/Pz8/Pzx+gPp/PH55+fn5+fn7++PT5/OHp5+fn5+fnD1Cfz+cPTz8/Pz8/f3z6fD5/ePr5+fn5+fkD1Ofzh6efn5+fn58/QH0+nz88/fz8/Pz8/PHp8/nD08/Pz8/Pz x+gPp8/PP38/Pz8/PxeDtAq/z8+3//5PzJ+fn5+fn7++PT5/OHp5+fn5+fnD1Cfzx+efn5+fn5+/vj0+Xz+8PTz8/Pz8/MHqM/nD08/Pz8/Pz9/gPp8/vj08/Pz8/Pz88enz+cPTz8/Pz8/P3+A+nz+8PTz8/Pz8/PHp8/n84enn5+fn5+fP0B9Pn94+vn5+fn5+ePT5/OHp5+fn5+fn58/Pn0+f3j6+fn5+fn5A9SXwuP/QPj5+fn5+fnj0+fzh6efn5+fn58/QH0+f3j6+fn5+fn5+ePT5/OHp5+fn5+fnz8+fT5/ePr5+fn5+fnj0+fzh6efn5+fn5+fP0B9Pn94+vn5+fn5+ePT5/OHp5+fn5+fn58/Pn0+f3j6+fn5+fn549Pn84enn5+fn5+fnz8+ff7w9PPz8/Pz8/PHp8/nj08/Pz8/Pz9/gPp8/vD0+1kf/r9+fn5+fp/kLxOfPz79/Pz8/Pz8/PHp8/nD08/Pz8/Pzx+fPp8/PP38/Pz8/Pz88enz+ePTz8/Pz8/PH58+nz88/fz8/Pzj7f9O+/nj0+cPTz8/Pz//QPu/5X7+d9vn83+s/Pz8/GPr83/r/ffg8/k/Rn5+fv7x8fm3wM9//z6f/4Pj5+cfDp/Pvwf+b4jP5//Q+Pn5L9Pn82+Dn//b6PN/XPz8/B9Pn8+/FX7+76fP5/+Y+Pk/lpmq/P/4VuL/nvm/pz6f/yPi5/84+nw+/3b4v68+n//j4ef/GPp8Pv+O+Pm/tz6f/4Ph5/8A+nw+/674v70+n/8D4ef/2Pl8Pv/G+Pm/xz7/h8HP/4Hz+Xw+/874v80+n/+D4Of/oPl8Pv/e+L/XPp//Q+Dn/3j5fD6ff3f832+fz/8R8PN/rHw+n393/N9zn8//AfDzf5R8Pp9/f/z833mf//D9/B8fn8/n82+Q//vv8/kP3/+B8fl8Pv8G+bfB5/MfvZ//Q+Lz+e6xPv833r8ZPoj/QP0fD5/P5/NvkX8/fD 7/sfs/Gj6fz+ffJD//jvj8R+7n/1j4fD6ff5f8m+Lz+Y/c/4Hw+Xw+/zb5+bfF5z9uP/+Hwefz+fz75N8Yn/+4/Ufp/yD4fD6ff5/8W+Pz+Q/b/yHw+Xw+/0b5+TfH5z9sP/8HwOfz+fw75d8en89/0P7j9/l8Pv9W+fn3x+c/aD//4ft8Pp9/q/wb5PMfs5//4H0+n8+/V/4t8vn8x+w/dp/P5/P5N2tw9Tafb7DHF9BvTv63zefz+fy75d8kn/+A/fwH7vP5fP7t8m+Tz+c/YP9x+3w+n8+/Xf598vmP189/2D6fz+ffL/9G+Xz+4/UftM/n8/n3y8+/VT7/4fqP2efz+Xz+HfPvlc9/tH7+Y/b5fD7/jvn3yufzH6z/kH0+n8/n3zL/Zvn8B+vnP2Kfz+fzb5l/t3w+/7H6D9jn8/n8W+bn3y6f/2D9x+vz+Xw+/5b5t8vnP1Y///H6fD6ff8v8++XzDfQH/7H5D9fn8/l2598f/4b5/MfqP1yfz+fz+bfMv2E+n/9Y/Ufr8/l8/j3z8++Yz3+s/qP1+Xw+n3/P/Dvm8x+qn/9ofT6fz79p/h3z+fyH6j9Yn8/n8/k3zb9jPv+R+o/W5/P5fP5d8++Yz+c/Uv/R+nw+n3/X/Pw75vMfqP9gfT6fz+ffNf+W+fxH6uc/WJ/P5/Pvmn/LfD7/kfoP1ufz+Xz+XfNvmc9/oP6D9fl8Pp9/2/xb5vP5D9R/rB+p8v/j8/m24t8h/575/AfqP1afz+fz+bfNv2c+n/9A/cfq8/l8/m3z8++Zz3+c/kP1+Xw+n3/f/Jvm8x+nn/9QfT6fz79v/k3z+fzH6T9Un8/n8/n3zb9pPv9x+o/U5/P5fP598++az+c/TP+R+nw+n3/j/Py75vMfpv9IfT6fz+ffOP+u+fyH6ec/Up/P5/NvnH/XfD7/YfoP1Ofz+Xz+jfNvm89/mP4D9fl8Pp9/4/zb5vP5j9J/oD7fJXy+xfg3yb9tPv9 R+o/T5/P5fP6d8++bz3+Ufv7j9Pl8Pv/O+fn3zec/Sv9x+nw+n8+/c/598/kP0s9/nD6fz+ffOv+++Xz+g/Qfps/n8/n8W+ffOZ//GP1H6fP5fD7/3vl3zuc/Rj//Ufp8Pp9/7/z8O+fzH6L/IH0+n8/n3zz/1vn8h+jnP0ifz+fzb55/63w+/xH6D9Ln8/l8/t3zb53Pf4D+g/T5fD6ff/v8W+fzH6Cf/xh9Pp/vFpP5N8q/d76b+A/Gf4w+n8/n3z8//975/MfnP0afz+fz+ffPv3c+/+H5+Y/R5/P5/Bvo5988n//w/Ifo8/l8Pv8O+jfP5z86/xH6fD6fz7+D/t3z+fxH5z9Cn8/n8++gf6v8u+fzH53/CH0+n8/n30H/9vn8R+fnP0Cfz+fz76Cff/t8/qPzH6DP5/P5/Dvo3z+f/+D8/Mfn8/l8/j30b6DP5z82/+H5fD6fz7+H/g30+Y/Nf3g+n8/n8++hfwef8+3NfxT+o/P5fD6ffw/9W+jzH5v/4Hw+n8/n30P/Hvr8x+bnPzafz+fz76Gffw99/mPzH5vP5/P5/Hvo30Sf/9j8/Ifm8/l8/k308++iz39o/iPz+Xw+n38T/dvo8x+a/8B8Pp/P599E/z76/Ifm5z8un8/n82+in38fff5D8x+Xz+fz+fyb6N9In//Q/PyH5fP5fP5N9PPvpM9/aP6j8vl8Pp9/F/1b6fMfmf+gfD6fz+ffRf9W+vwHNqZu+1//m+bz+Xz+ffTz76XPf1z+Y/L5fD6ffx/9m+nzH5f/kHw+n8/n30f/bvr8x+XnPyKfz+fzb6Sffzt9/sPyH5DP5/P5/Bvp30+f/7D8/Ifj8/l8/o3082+pz39Y/oPx+Xw+n38n/Xvq8x+V/1h8Pp/P599JP/+u+o/Kz38kPp/P599KP/+++vwH5T8On8/n8/m30r+xPv9B+fkPw+fz+fxb6effWZ//oPxH4fP5fD7/Xvq31uc/Jv8x+B6q/P/4 fL51+TfNv7k+/zH5D8Hn8/l8/r308++u/5j8/Efg8/l8/s3082+vz39I/gPw+Xw+n38z/fvr8x+S/+X3+Xw+n383/fwb7D8iP/+L7/P5fD7/bvp32Oc/Iv8L7/P5fD7/dvr599h/PH7+l93n8/n8++nn32Sf/3j8L7rP5/P5/Bvq599l/+H4X3Kfz+fz+TfUz7/N/sPx87/gPp/P5/PvqH+fff6j8b/cPp/P5/PvqJ9/o/1H4+d/sX2+WXy+Ffn3zr/TPv/B+F9on8/n8/m31M+/1/6D8b/MPp/P5/PvqZ9/s/3H4ud/kX0+n8/n31P/bvv8h+J/iX0+n8/n31U//3b7j8TP/wL7fD6fz7+t/v32+Q/E/+L6fD6fz7+tfv4d9x+I/6X1+Xw+n39f/fxb7vO/WP4X1ufz+Xz+ffXz77n/OPwvq8/n8/n8G+vn33T/Yfj5X1Kfz+fz+TfWv+0+/2H4X1Cfz+fz+XfWz7/v/qPwv5w+n8/nm201/l30b7zPfwz+l9Ln8/l8/r318++8/xj8L6XP5/P5/Jvr5996/yH4+V9Gn8/n8/k318+/+f5D8L+IPp/P5/Pvrp9/9/1H4H8BfT6fz+fzb69//33+A/C/fD6fz+fzb6+fvwH8L7//pfP5fD6ff4P9/C3gf/H9/C+cz+fz+fw77OfvAf9L73/RfD6fz+ffYj9/F/hfeP9L5vP5fD6ff4v9/G3gf9n9L5fP5/P5/Jvs528E/4vuf7F8Pp/P5/Pv8h11z/nX/3b7X3L/C+Xz+Xw+/zb7+XvB/3L7Xyafz+fz+fzb6m8G/4vt53+JfD6fz+ffaT9/O/hfav8L5PP5fD7/Vvv528H/QvtfHp/P5/P5/Hvt528I/4vsf3F8Pp/P599tP39H+F9i/0vj8/l8Pp9/u/0t4X+B/fwvi8/n8/n8++3nbwr/i+t/UXw+n8/nD1A/f1f4X1r/S+Lz+Xw+n3/L/fxt4X9h/S+Hz+fz+fx77udvD P/L6n8xfD6fz+fz77lf8M54/A+0eUcv8K//k+fz+Xw+/677+VvD/5L6Xwifz+fz+QPUz98b/hfU/zL4fD6fz+ffdz9/fPr549Pn8/l8/gD18zeH/8X0vwQ+n8/n8/l33i9ie/gfoD8+fT6fz+cPUD9/f/hfSP/D9/l8Pp/Pv/d+WRvE/9D88enz+Xw+f4D6+TvE/xL6H7rP5/P5fP7t98vbIv6H5Y9Pn8/n8/kD1M/fI/6Xz/+wfT6fz+fzd4Bf3ibxPyR/fPp8Pp/PH6B+/i7xv3D+h+wbq8r/j8/n8/3Jv+X+NvG/aP4H7PP5fD6fvw38svaJ/6H449Pn8/l8Pn8f+BvF/3L5H6zP5/P5fP5G8MvaKf4H4Y9Pn8/n8/n8veBvFf/L5H+gPp/P5/P5A9Qvb6/4H4A/Pn0+n8/n83eDv1n8L5H/Qfp8Pp/P549Qv6zd4v/R/fHp8/l8Pp+/I/zd4n9p/A/R5/P5fD5/gPrlbRf/D+6PT5/P5/P5/E3h539R/A/P5/P5fD5/gPrlbRj/D+2PT5/P94PP5zvB3wL+jvG/HP749Pl8Pp/PH6B+928Z/4/rj0+fz+fz+fyd4Tdtz/h/WH98+nw+n8/nD1A/f3z6H5bP5/P5fP4A9cvbNP4f1R+fPp/P5/P5I9Rv2q7x/6D+APX5fD6fzx+gftN2jf/H9Menz+fz+Xz+APWbsmv8P6Q/Pn0+n8/n8weo37Rt4/8R/fHp8/l8Pp8/QP388el/QD6fz+fz+ePTL2/f+H9Af3z6fD6fz+cPUD9/gPofjM/n8/nW5xvE3wz++PTzx6fP5/P5fP749Ltm5/h/PH98+nw+n8/nj08/f3z649Pn8/l8Pn98+uVtHf8P549Pn8/n8/n88ennj09/fPp8Pp/P5w9QP3+A+vkD1Ofz+Xw+f3z6+ePTH58+n8/n8/kD1M8foP6H4fP5fD6fz98j/t7xP2x/fPp8Pp/P549PP3+A+h+Gz+fz+Xz+AP Xzx6efPz59Pp/P5/PHp9/YzeP/0fwB6vP5fD6fP0CHdTT2r/9h7/5h+Hw+n8/nD1C/9M3j/9H8Aerz+Xw+nz9A/fzx6Y9Pn8/n8/n88ennD1A/f3z6fD6fz+cPUD9/fPoD1Ofz+Xw+f4D67bF5/D+YPz59Pp/P5/MHqJ8/Pv0B6vP5fD6fP0D9/AHq549Pn8/n8/n8Aernj09/fPp8Pp/P5w9Qvz12j//H8geoz+fz+Xz++PTzx6c/Pn0+n8/n8/lbxR+gfv749Pl8Pp/PH59+/vj8qD564r/+z4bP5/P5fP4AFfI/0B0/DJ/P5/P5fP5eEfaO/wfzx6fP5/P5fP4A9fP/t5/+APX5fD6fz+fvFX98+vkD1Ofz+Xw+f4D6+ePTH58+n8/n8/kD1M//v/v08weoz+fz+Xz+APV3jv8h+gPU5/P5fD5/gPr549P/YHw+n8/n8/nbxR+gfv4A9fl8Pp/PH6B+/vj0B6jP5/P5fP749PPHp58/QH0+n8/n8weov238D88fn77nqvz/+Hw+3z78PbH5tvH/aP4A9fl8Pp/PH6B+/vj0Pyifz+fz+Xz+fvHHp58/QH0+n8/n8weo36k94//h/PHp8/l8Pp8/Pv388el/YD6fz+fz+fwN449PP3+A+nw+n8/nj0+/UzvG/+P549Pn8/l8Pn98+vnj0//gfD6fz+fz+fvFH59+/gD1+Xw+n88fn37+B+iPT5/P5/P5/PHp549PP3+A+nw+n8/nj09/u/gfoj8+fT7fSz6fb1X+dvDHp58/QH0+n8/n88env1v8D9EfoD6fz+fz+ePTzx+ffv749Pl8Pp/P3y36ZvH/kP4A9fl8Pp/PH59+/vj0P0yfz+fz+Xz+ZvHHp58/QH0+n8/n88env1X8D9L/QH0+n8/n88en3x5bxf9j+gPU5/P5fD5/fPr549P/UH0+n8/n8/l7JXOn+H9Qf4D6fD6fz+ePTz9/fPofrM/n8/l8Pn+rZG4U/4/ qD1Cfz+fzveK7i78P/PHp549Pn8/n8/n88envE/9D9T9cn8/n8/n88em3yT7x/7D+APX5fD6fzx+ffv749D9gn8/n8/n88ennj08/f3z6fD6fz+ePT3+b+B+s/yH7fD6fz+ePTz9/fPr549Pn8/l8Pn+f+LvE/4D9Aerz+Xw+nz8+/fzx6eePT5/P5/P5/D3gj08/f4D6fD6fz+ePT3+P+B+w/2H7fD6fz+ePT78N94j/B/bHp8/n8/l8/vj8T32k/ut/yFj+T4/P5/P5/PHp549PP398+nw+n8/nbxJ/i/gftP+h+3w+n8/nj08/f3z6+ePT5/P5fD5/k/g7xP+w/Q/d5/P5fD5/fPr549PPH6A+n8/n88ennz8+/fzx6fP5fD6fPz79DeJ/4P6H7/P5fD6fPz79/PHp549Pn8/n8/n8LeLvD/9D978APp/P5/P549Nvve3h/8H9L4HP5/P5fP7w9HeH/+H7+QPU5/P5fP749MvcHJ36/0KzO+Jf/yfK5/P5fP749IvaGv4f3f+C+Hw+n8/n7w5/W/hfBD9/yPp8Pp/PH59+uXvA/+P7+cPU5/P5fP7W8G++/6Xw87+cPp/P5/PHp1/uffc/BD9/iPp8Pp/P3xf+Tfe/HH7+l9bn8/l8/vj0y7zh/ofh549Qn8/n8/m7wr/d/hfFz/8y+3w+n88fnX6599r/UPz8Eerz+Xw+fz/4d9r/Avn5X3Cfz+fz+fffL/c2+x+Onz9CfT6fzx+Pfv5N9r/Efv4X/owq/z8+n297/j3xi77F/ofk5w9Rn8/n82+wn397/S+/n/8QfD6fzx+Zfn7++PTz80eoz+fzR6Ofn39n/Qfm5z8Qn8/n82+fn39X/Ufo5+ePUJ/P598jPz//nvoP3s9/OD6fz78hfn7+/fR/PPz8/PPt8/m/z35+fuDd9D9Mv9Uekz9Off5vqJ+fn1/4/8LG/1D9/Efo8/m/k35+fv7N839U/fz8Eerzfxf9/Pz8 W+f/0Pr5+Y/X5/8G+vn5+fm3y//x9fPzfwR8337hf4f9/Pz8m7Mg/8P28/N/SPzPys/Pz8+/F/7R8fPz8/Pz8/Pzh6c/QP38/Pz8/Pz8/Pzh6Y9PPz8/Pz8/Pz9/ePoD1M/Pz8/Pz8/Pzx+e/gD18/Pz8/Pz8/OHpz8+/fz8/Pz8/Pz80ekPUD8/Pz8/Pz8/P394+gPUz8/Pz8/Pz88fnv749PPz8/Pz8/Pz88enP0D9/Pz8/Pz8/Pzh6Y9PPz8/Pz+/a+v2//Wbnr8o/QHq5+fn5+fn5+cPT3+A+vn5+fn5+fn5w9Pnj08/Pz8/Pz8/P394+gPUz8/Pz8/Pz88fnv4A9fPz8/Pz8/Pzh6fPH59+fn5+fn5+fv7w9Aeon5+fn5+fn58/PH3++PTz8/Pz8/Pz84enP0D9/Pz8/Pz8/Pzh6Q9QPz8/Pz8/Pz9/ePr88enn5+fn5+fn5w9Pf4D6+fn5+fn5+S1X99P89eePTz8/Pz8/Pz+/KfnLzx+gfn5+fn5+fn7+6PQHqJ+fn5+fn5+fPzx9/vj08/Pz8/Pz8/NHpz9A/fz8/Pz8/Pz84enzx6efn5+fn5+fPzx9/gD18/Pz8/Pz8/NHp88foH5+fn5+fn7+8PT5A9TPz8/Pz8/Pzx+e/gD18/Pz8/Pz8/OHp88foH5+fn5+fn7+8PT5A9TPz8/Pz8/Pzx+evnc8Puir6vb/9fPz8/Pz83td+Sz+l97Pz8/Pz8/PH54+f3z6+fn5+fn5+cPT5w9QPz8/Pz8/Pz9/dPr8Aern5+fn5+fnD0+fP0D9/Pz8/Pz8/Pzh6fMHqJ+fn5+fn58/PH3+APXz8/Pz8/Pzx6fPH6B+fn5+fn5+fv749PkD1M/Pz8/Pz88fnz5/gPr5+fn5+fn5+cPT5w9QPz8/Pz8/P398+vwB6gfWfn5+fn5E/ory+SPUz8/Pz8/Pzx+fPn+A+vn5+fn5+fnj0+fzB6ifn5+fn5+fPz59/gD18/Pz8/Pz8 8enzx+gfn5+fn5+fn7+8PT5I9TPz8/Pz8/PH58+f4T6+fn5+fn5+cPT5/MHqJ+fn5+fn58/PH3+CPXz8/Pz8/Pzx6fP549QPz8/Pz8/P394+vwR6ufn5+fn5+ePT58/RP3H6efn97xuPz+/3fIXjs8foX5+fn5+fn7+6PT5/CHq5+fn5+fnD0+fzx+hfn5+fn5+fv749PlD1M/Pz8/Pz88fnj6fP0L9/Pz8/Pz80enz+cPUz8/Pz8/Pzx+dPp8/UP38/Pz8/Pzh6fP5I9TPz8/Pz8/PH50+nz9K/fz8/Pz8/KHp8/nD1M/Pz8/Pzx+ZPp/PH6R+fn5+fv6Y9Pl8/iD18/Pz8xtf95r5F9Hn8/nD1M/Pz8/PH5g+n8/nD1Q/Pz8/f0T6fD6fP0z9/Pz8/LHo8/l8Pn+Q+vn5+ePS5/P5fP4w9fPz8/PHpc/n8/n8Yern5+ePS5/P5/P5g9TPz88fhD6fz+fz+cPUz88flz6fz+fz+cPVz88flz6fz+fz+fxh6ufnj0ifz+fz+fyB6ufnj0Sfz+fz+XwrDlb/L+bz+Xy5ZvoCAbwaVp+nMfkAAAAASUVORK5CYII=' readStream)! Item was added: + ----- Method: Form class>>extraWheel (in category '*MorphicExtras-examples') ----- + extraWheel + + ^ Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: 'iVBORw0KGgoAAAANSUhEUgAAAIoAAACDCAYAAABSiIOsAAAABHNCSVQFBQUBSsjp7wAAA6lJREFUeF7l3UtS7DAMBdAsg+WyJJbXswamPOCRxB9dHVe5mNGRfDrtyEl8+O1sezzvd7/5OHw4PpB13W8FB74SEB9Mw2+9D8aH4YPxYfhgfBw+GB+I330w/kD7YHwgPhgfiI/FR+JD8YEUGRAfi181LZcnH0jjU3x7LImDWnkgWmLp8o2uOAhtsHSazVcegGgs3WbuXY9xK5aOM3UfSgCS1LlW4pk8Ekr6lVvqz74/C0eglMbSvVqYGE/J8ei+9iDNraYdv7BAlRxbmfERlrzFyfjQOJT7InwoPhICylYsPhTjMv9WPD4S61L/Ukzajb0dY10yhj4UH4qPBIEyfSx9KH4h0UfiQ9kHpUPzq84n4pOfd/WhTIbSpflQfCg+lJHx6e/k8KH4UHwoPhQfyvIYfSg+FB+KD8WH4kNZGKP/FkIfig/lXBJfXv/tPhQfyrcw/tddLCCUK0C+ReND6QtlFJJIMD6UPUDisPhQ9iKJweJD2Y8kAosPpQYSH0oglB1IymPxodSCUhaLD2UckmGFOR/KsyWSt7fn8M/woTSEMuMzfCjNoMz8HB+KD8WHkgpl5aTTguKfTXwoIpQrWFZ8jv+z40PxoQhQztROfCj+GaXsWcuHUgiLD8WHMm0gL92M7UOx5iq37tpP2wyqO5KrNZVPMJ/969nm1mp08hZzApSfHuhafl9KlXz6UH5PSlkkCXsnS1B2YimTW38i+7eklEcyO7/+c8d/j6c8kpk59qGciyUCyYxc+1DOxxEBZHS+fSjH5QGY9mhGRTD8a7luJn/aszvVsGyD0nQX8eGLe1XAbIWyG0vK9v+7sZTYWSNp3SL9mK/GUQZKwppFl7PglXiG/ 8+EAUhGMhPMMiSjDt5Hsg/MsfKKtiqWjkhmYym75/GsgemMZAaYpfWx5NKz9sLgn+Jelq8KWDQos2sv03KVVnbW92Lemq+UkrO/xW6BfFUvOfv7CBXKWdUqYuftYVaAKXvAPpLMxcXt1/upC5PKomJ8cUiDsnKNqFVxSEOStC5XojDkQwnNm4/ER9K35Owj8SuJPpKAvPlIskoSfmHIR5KTPx+Lj8TH4iPxsfhAfDBMfvxk+HeyWWdbH4yPpETNxUfig1Ff/ONfCa6q6HZ8QJ0tRHZaWPSXM5phqfIcko8kEMusNwX4SI4eP0Uf/XgU/uu3X9rj6Xe/+WB8ID4YH4kPxgfig/GR+GB8IH7LROM3H40PxEfj4/Dh+DD8NhuP3/wGw3gHWgCo0DXGBVcAAAAASUVORK5CYII=' readStream)! Item was added: + ----- Method: Player class>>extraExampleCar (in category '*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 added: + ----- Method: Player class>>extraExampleCarSource (in category '*MorphicExtras-examples') ----- + extraExampleCarSource + + ^ 'extraExampleDrive + self forward: 5. + self turn: Wheel getHeading // 5'!

2 1

The Trunk: EToys-ct.485.mcz
by commits＠source.squeak.org 18 Oct '22

18 Oct '22

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.485.mcz ==================== Summary ==================== Name: EToys-ct.485 Author: ct Time: 18 October 2022, 6:15:32.339427 pm UUID: a456dbec-f901-a149-942b-74835ecc6c46 Ancestors: EToys-ct.484 Adds a tutorial on painting and creating scripts in Etoys to the help browser. The contents are mostly taken from the release image of Squeak 4.3 and revised slightly. Complements MorphicExtras-ct.337 (Etoys race car). This commit is part of reconstruction of Objectland (also known as "The Worlds of Squeak"). For more information, see: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html =============== Diff against EToys-ct.484 =============== Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! SystemOrganization addCategory: #'Etoys-OLPC-Display'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Calendar'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-SpeechBubbles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Intersection'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Simplification'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Triangulation'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Components'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Demo'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Experimental'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess960'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Mentoring'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Navigators'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Postscript Filters'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Formatter'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Forms'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser Entities'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Tokenizer'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-MIME'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet WordNet'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'! SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'! SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'! SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'! SystemOrganization addCategory: #'Etoys-Squeakland-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Clipboard-Extended'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Process Browser'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Support'! SystemOrganization addCategory: #'Etoys-Tests'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'! SystemOrganization addCategory: #'Etoys-Widgets'! + SystemOrganization addCategory: #'Etoys-Help'! Item was added: + SqueakTutorials subclass: #SqueakTutorialsEToys + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Etoys-Help'! Item was added: + ----- Method: SqueakTutorialsEToys class>>bookName (in category 'accessing') ----- + bookName + + ^ 'Etoys'! Item was added: + ----- Method: SqueakTutorialsEToys class>>makingAnEtoy (in category 'pages') ----- + makingAnEtoy + "This method was automatically generated. Edit it using:" + "SqueakTutorialsEToys edit: #makingAnEtoy" + <generated> + ^(HelpTopic + title: 'Making an eToy' + contents: + 'To start making an EToy, you always draw a picture. Click on the "Supplies" flap below. Drag out the Painting icon. When you drop it, you can paint a new object. Click "Keep" to end painting. + + There is another way to start a painting. Open the "Nav bar" flap at the bottom of the screen. Click on the picture of the paintbrush. + + When you finish a painting, the picture turns into a real Squeak object. In order to make scripts for this object, you''ll want a viewer on it. Command-click (right-click on a PC, or Alt-click) on the object to get a halo. Then click on the aqua icon of an eye.!!' readStream nextChunkText) + key: #makingAnEtoy; + shouldStyle: false; + yourself! Item was added: + ----- Method: SqueakTutorialsEToys class>>pages (in category 'accessing') ----- + pages + + ^ self class methodsInCategory: #pages! Item was added: + ----- Method: SqueakTutorialsEToys class>>raceCar (in category 'pages') ----- + raceCar + "This method was automatically generated. Edit it using:" + "SqueakTutorialsEToys edit: #raceCar" + <generated> + ^(HelpTopic + title: 'Race Car' + contents: + 'There are many ways to make things in Squeak. EToys let you draw fun things and then tell them what to do. + + At the right is an EToy that lets you drive a car. If you don''t see it yet, click here. + + Put your mouse over the blue steering wheel (between this window and the status display). Press the "blue button" of your mouse (this can either be your right or your middle mouse key, or use the left mouse button while pressing the cmd key). A "halo" of buttons will appear. Locate the blue handle at the lower left. This rotation control lets you turn the steering wheel. Drag it around and see what happens. + + Press the green "Go" button in the Stop-Step-Go controls. The race car will start moving. Put your mouse back over the steering wheel and steer the car. Press "Stop" to stop the car. + + The script in the center of the racetrack makes the car go. It changes the car''s heading by reading the heading of the steering wheel. You can increase the speed of the car by clicking the up arrow of the number after "Car forward by". + + Press the "Try it" button on the script, this is the left-most mouse icon. + + Scripts are constructed using a parts bin called a "Viewer". Press the blue button on the race car and its halo will appear. Click at cyan eye handle on the left and press "Open viewer for player". A flap will open with the Car''s viewer in it. (Click the tiny car again to close the flap.) + + You can make a new script for the Car by grabbing the tile for "Car emptyScript" and dropping it. Then grab other tiles and drop them into the script. You can see other categories of tiles by clicking on the green arrows beside the category name. + + Just for fun, let''s add more things to our car. There is an alert light to the dashboard, but it does not work. If you drive off the road, we want the light to shine red. + 1) From the "tests" section in the car''s viewer, grab the test tile into the drive script. + 2) From the same category, find the test "isOverColor" tile and drag it next to the label "test" in our script. + 3) The tile says "Car''s isOverColor __" and a patch of color. Click on the patch of color. You will see a color picker and have an eyedropper as the cursor. Click on the gray of the street. + 4) Open the halo on the Alert light, and open a viewer for its player from the cyan eye handle. + 5) In the Alert''s viewer, find the category of commands "color & border". You may have to click on the plus icon at the right top of the viewer or on the green arrows to get it. + 6) The first command is "Alert''s color". Click on the square on the right with the green arrow in it. Suddenly you will have the tiles that set Alert''s color. + 7) Drag the left arrow for this command and drop those tiles into the "Yes" section of the script. + 8) Grab from the arrow next to the square again to get another copy of the tiles and put them in the "No" section. + 9) Decide what color the Alert should be when everything is OK. Click on the patch of color in the "No" tiles, and choose the color. + + Now click Go, drive the car, and see what the Alert light does.!! + ]style[(184 10 450 21 2390),Rcode:// + Player extraExampleCar do: #openInWorld;,,Rcode:// + AllScriptsTool newStandAlone openInHand;,!!' readStream nextChunkText) + key: #raceCar; + shouldStyle: false; + yourself! Item was added: + ----- Method: SqueakTutorialsEToys class>>usesCodeStyling (in category 'testing') ----- + usesCodeStyling + + ^ false!

1 0

← Newer
1
2
3
4
5
6
7
8
...
15
Older →

Jump to page: