Packages October 2022

packages@lists.squeakfoundation.org

1 participants
58 discussions

The Trunk: Morphic-mt.2051.mcz
by commits＠source.squeak.org 28 Oct '22

28 Oct '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2051.mcz ==================== Summary ==================== Name: Morphic-mt.2051 Author: mt Time: 28 October 2022, 10:38:21.823861 am UUID: 3cec8211-57c2-9943-812f-871fa3bb1347 Ancestors: Morphic-ct.2050 Inspector fields can now be dropped into the world to represent compact watchers. Click on the watcher to open up the inspector again. Works with regular inspectors and from the ones embedded in debuggers. Complements Tools-mt.1178. =============== Diff against Morphic-ct.2050 =============== Item was changed: ----- Method: PasteUpMorph>>acceptDroppingMorph:event: (in category 'dropping/grabbing') ----- acceptDroppingMorph: dropped event: evt "The supplied morph, known to be acceptable to the receiver, is now to be assimilated; the precipitating event is supplied" | aMorph | (self isWorldMorph and: [dropped isTransferMorph] and: [self hasTransferMorphConverter not]) ifTrue: [ dropped dragTransferType = #filesAndDirectories ifTrue: [^ self dropFiles: dropped passenger event: evt]. dropped dragTransferType = #sourceCode + ifTrue: [^ self dropSourceCode: dropped passenger event: evt]. + dropped dragTransferType = #inspectorField "See Tools-Inspector" + ifTrue: [^ self dropInspectorField: dropped passenger event: evt]]. - ifTrue: [^ self dropSourceCode: dropped passenger event: evt]]. aMorph := self morphToDropFrom: dropped. self isWorldMorph ifFalse: [super acceptDroppingMorph: aMorph event: evt] ifTrue: ["Add the given morph to this world and start stepping it if it wants to be." aMorph isInWorld ifFalse: [aMorph position: evt position]. self addMorphFront: aMorph. (aMorph fullBounds intersects: self viewBox) ifFalse: [Beeper beep. aMorph position: self bounds center]]. aMorph submorphsDo: [:m | (m isKindOf: HaloMorph) ifTrue: [m delete]]. aMorph allMorphsDo: "Establish any penDown morphs in new world" [:m | | tfm mm | m player ifNotNil: [m player getPenDown ifTrue: [((mm := m player costume) notNil and: [(tfm := mm owner transformFrom: self) notNil]) ifTrue: [self noteNewLocation: (tfm localPointToGlobal: mm referencePosition) forPlayer: m player]]]]. self isPartsBin ifTrue: [aMorph isPartsDonor: true. aMorph stopSteppingSelfAndSubmorphs. aMorph suspendEventHandler] ifFalse: [self world startSteppingSubmorphsOf: aMorph]. " self presenter morph: aMorph droppedIntoPasteUpMorph: self." self showingListView ifTrue: [self sortSubmorphsBy: (self valueOfProperty: #sortOrder). self currentWorld abandonAllHalos]. self bringTopmostsToFront.! Item was added: + ----- Method: PasteUpMorph>>dropInspectorField:event: (in category 'event handling') ----- + dropInspectorField: anInspectorField event: evt + "Create a self-updating morph that serves as a compact watcher for the dropped inspector field." + + | watcher | + watcher := PluggableButtonMorph new + changeTableLayout; + cellPositioning: #topLeft; + model: [anInspectorField inspector object inspect]; + action: #value; + yourself. + + watcher + addMorph: ((UpdatingStringMorph on: anInspectorField selector: #value) + stepTime: 1000 "msecs"; + yourself); + addMorph: (('of ', (anInspectorField inspector object printString truncateWithElipsisTo: 40)) asMorph + font: Preferences standardBalloonHelpFont + yourself); + addMorph: (anInspectorField name asString asMorph + font: Preferences standardBalloonHelpFont + emphasis: TextEmphasis bold emphasisCode; + yourself). + + watcher center: evt position. + watcher bounds: (watcher bounds translatedToBeWithin: self bounds). + watcher openInWorld.! Item was changed: ----- Method: PasteUpMorph>>wantsDroppedTransferMorph: (in category 'dropping/grabbing') ----- wantsDroppedTransferMorph: transferMorph + ^ ((self hasTransferMorphConverter + or: [transferMorph dragTransferType = #filesAndDirectories]) + or: [transferMorph dragTransferType = #sourceCode]) + or: [transferMorph dragTransferType = #inspectorField "See Tools-Inspector"]! - ^ self hasTransferMorphConverter - or: [transferMorph dragTransferType = #filesAndDirectories] - or: [transferMorph dragTransferType = #sourceCode]!

1 0

The Trunk: Tools-mt.1178.mcz
by commits＠source.squeak.org 28 Oct '22

28 Oct '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1178.mcz ==================== Summary ==================== Name: Tools-mt.1178 Author: mt Time: 28 October 2022, 10:36:49.704861 am UUID: a4ba71f3-057a-3f4e-9b06-58aa9d8a8960 Ancestors: Tools-ct.1177 Add a drag-transfer type to inspector fields to allow for custom drop actions such as into the world. =============== Diff against Tools-ct.1177 =============== Item was changed: ----- Method: Inspector>>buildFieldListWith: (in category 'toolbuilder') ----- buildFieldListWith: builder ^ builder pluggableListSpec new model: self; list: #fieldList; getIndex: #selectionIndex; setIndex: #selectionIndex:; autoDeselect: true; menu: #fieldListMenu:shifted:; dragItem: #dragFromFieldList:; + dragType: #dragTypeInFieldListAt:; dropItem: #dropOnFieldList:at:shouldCopy:; keyPress: #inspectorKey:from:; yourself! Item was added: + ----- Method: Inspector>>dragTypeInFieldListAt: (in category 'fields - drag and drop') ----- + dragTypeInFieldListAt: index + + ^ #inspectorField!

1 0

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 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.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.!

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'!

1 0

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

The Trunk: MorphicExtras-ct.336.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.336.mcz ==================== Summary ==================== Name: MorphicExtras-ct.336 Author: ct Time: 18 October 2022, 1:02:37.357471 pm UUID: 1499f112-9679-fb44-b0fc-112c9d85d772 Ancestors: MorphicExtras-ct.335 Readds the classical BlobMorph by David N Smith. It can be instantiated from the Demo page of the parts bin. The BlobMorph was part of Squeak until Squeak 3.9.1 after when it was removed as part of a radical clean-up of not used classes (see ReleaseBuilderFor3dot10>>unloadMorphicClasses). Since it has historic value, still makes a nice example, all of its siblings (FishEyeMorph, MovingEyeMorph, et al.) have been readded again, too, and the MorphicExtras package is intended to be unloadable anyway, it makes sense to add it again. Minor revisions: * Converts underscore assignments to modern := assignments while preserving the prior timestamps (I hope that was ok?) * Adds support for Squeak 6.0+ scaleFactor * Fixes an event handling bug in #containsPoint: Thanks to Marcel for the pointer! =============== Diff against MorphicExtras-ct.335 =============== Item was added: + PolygonMorph subclass: #BlobMorph + instanceVariableNames: 'random velocity sneaky' + classVariableNames: 'AllBlobs' + poolDictionaries: '' + category: 'MorphicExtras-Demo'! + + !BlobMorph commentStamp: 'ct 10/18/2022 12:44' prior: 0! + The Blob was written by David N Smith. It started out as a simple test of the CurveMorph and ended up as an oozing, pulsating, repulsive mess which will wander across your screen until killed. Each instance has its own rate of oozing, so some are faster than others. It's not good for anything. + + Try: + BlobMorph new openInWorld + + 15 Jan 2000 by Bob Arning, a change so that the blob tries to be a color like the color under itself. + 16 Jan 2000 by David N Smith, added blob merging: if two blobs meet then one eats the other. + 18 Jan 2000 by Sean McGrath, smother color changes. + 06 Feb 2000 by Stefan Matthias Aust, refactoring and support for duplication, dragging and translucent colors.! Item was added: + ----- Method: BlobMorph class>>delete: (in category 'instance remembering') ----- + delete: anInstance + AllBlobs ifNotNil: [AllBlobs remove: anInstance ifAbsent: []]! Item was added: + ----- Method: BlobMorph class>>descriptionForPartsBin (in category 'parts bin') ----- + descriptionForPartsBin + ^ self partName: 'Blob' + categories: #('Demo') + documentation: 'A patch of primordial slime'! Item was added: + ----- Method: BlobMorph class>>new (in category 'instance creation') ----- + new + + ^ self remember: super new + ! Item was added: + ----- Method: BlobMorph class>>remember: (in category 'instance remembering') ----- + remember: anInstance + AllBlobs isNil ifTrue: [AllBlobs := IdentitySet new]. + ^ AllBlobs add: anInstance! Item was added: + ----- Method: BlobMorph>>adjustColors (in category 'stepping') ----- + adjustColors + "Bob Arning <arning(a)charm.net>" + "Color mixing - Sean McGrath <sean(a)email.ces.ucsf.edu>" + | nearbyColors center r degrees | + center := bounds center. + nearbyColors := vertices collect: + [:each | + degrees := (each - center) degrees. + r := (each - center) r. + Display colorAt: (Point r: r + 6 px degrees: degrees) + center]. + self color: ((self color alphaMixed: 0.95 with: (Color + r: (nearbyColors collect: [:each | each red]) average + g: (nearbyColors collect: [:each | each green]) average + b: (nearbyColors collect: [:each | each blue]) average)) + alpha: self color alpha). + sneaky ifFalse: [self color: color negated]! Item was added: + ----- Method: BlobMorph>>bounceOffWalls (in category 'stepping') ----- + bounceOffWalls + " Change sign of velocity when we hit a wall of the container " + | ob sb | + + " If owned by a handmorph we're being dragged or something; + don't bounce since the boundaries are different than our real parent " + owner isHandMorph ifTrue: [ ^ self ]. + + " If we're entirely within the parents bounds, we don't bounce " + ob := owner bounds. + sb := self bounds. + (ob containsRect: sb) ifTrue: [ ^ self ]. + + " We're partly outside the parents bounds; better bounce or we disappear!! " + sb top < ob top ifTrue: [ velocity := velocity x @ velocity y abs ]. + sb left < ob left ifTrue: [ velocity := velocity x abs @ velocity y ]. + sb bottom > ob bottom ifTrue: [ velocity := velocity x @ velocity y abs negated ]. + sb right > ob right ifTrue: [ velocity := velocity x abs negated @ velocity y ]. + ! Item was added: + ----- Method: BlobMorph>>containsPoint: (in category 'geometry testing') ----- + containsPoint: aPoint + (self color alpha = 1.0 or: [self currentEvent blueButtonPressed]) + ifTrue: [^ super containsPoint: aPoint]. + ^ false! Item was added: + ----- Method: BlobMorph>>defaultColor (in category 'initialization') ----- + defaultColor + "answer the default color/fill style for the receiver" + ^ random next < 0.25 + ifTrue: [Color random] + ifFalse: [Color random alpha: random next * 0.4 + 0.4]! Item was added: + ----- Method: BlobMorph>>delete (in category 'submorphs - add/remove') ----- + delete + self class delete: self. + super delete! Item was added: + ----- Method: BlobMorph>>initialize (in category 'initialization') ----- + initialize + "initialize the state of the receiver" + random := Random new. + sneaky := random next < 0.75. + super initialize. + "" + self beSmoothCurve; initializeBlobShape; setVelocity! Item was added: + ----- Method: BlobMorph>>initializeBlobShape (in category 'initialization') ----- + initializeBlobShape + + self + vertices: {59@40. 74@54. 79@74. 77@93. 57@97. 37@97. 22@83. 15@67. 22@50. 33@35. 47@33} * RealEstateAgent scaleFactor + color: self color + borderWidth: 1 px + borderColor: Color black! Item was added: + ----- Method: BlobMorph>>installModelIn: (in category 'debug and other') ----- + installModelIn: aWorld + "Overwritten to not add handles to the receiver."! Item was added: + ----- Method: BlobMorph>>limitRange: (in category 'stepping') ----- + limitRange: verts + " limit radius to range 20-120; limit interpoint angle to surrounding angles with max of twice of average separation. " + | cent new prevn nextn prevDeg nextDeg thisDeg dincr | + + cent := self bounds center. + new := Array new: verts size. + dincr := 360 // verts size. + verts doWithIndex: [ :pt :n | + + "Find prev/next points, allowing for wrapping around " + prevn := n-1 < 1 ifTrue: [new size] ifFalse: [n-1]. + nextn := n+1 > new size ifTrue: [1] ifFalse: [n+1]. + + "Get prev/this/next point's angles " + prevDeg := ((verts at: prevn)-cent) degrees. + thisDeg := ((verts at: n)-cent) degrees. + nextDeg := ((verts at: nextn)-cent) degrees. + + "Adjust if this is where angles wrap from 0 to 360" + (thisDeg - prevDeg) abs > 180 ifTrue: [ prevDeg := prevDeg - 360 ]. + (thisDeg - nextDeg) abs > 180 ifTrue: [ nextDeg := nextDeg + 360 ]. + + "Put adjusted point into new collection" + new at: n put: cent + + (self selfPolarPointRadius: ((((pt - cent) r) min: 80) max: 20) + degrees: (((thisDeg min: nextDeg-5) max: prevDeg+5) min: dincr*2+prevDeg)) ]. + ^ new + ! Item was added: + ----- Method: BlobMorph>>maximumVelocity (in category 'initialization') ----- + maximumVelocity + ^ 6.0! Item was added: + ----- Method: BlobMorph>>mergeBlobs (in category 'stepping') ----- + mergeBlobs + "See if we need to merge by checking our bounds against all other Blob + bounds, then all our vertices against any Blob with overlapping bounds. + If we find a need to merge, then someone else does all the work." + + (AllBlobs isNil or: [AllBlobs size < 2]) + ifTrue: [^ self]. + AllBlobs + do: + [:aBlob | + aBlob owner == self owner ifTrue: + [(self bounds intersects: aBlob bounds) ifTrue: + [vertices do: + [:aPoint | + (aBlob containsPoint: aPoint) ifTrue: + [^ self mergeSelfWithBlob: aBlob atPoint: aPoint]]]]] + without: self! Item was added: + ----- Method: BlobMorph>>mergeSelfWithBlob:atPoint: (in category 'stepping') ----- + mergeSelfWithBlob: aBlob atPoint: aPoint + " It has already been determined that we merge with aBlob; we do all the work here. " + | v v2 c | + + c := self bounds center. + + " Merge the vertices by throwing them all together in one pot " + v := vertices, aBlob vertices. + + " Sort the vertices by degrees to keep them in order " + v := (v asSortedCollection: [ :a :b | (a-c) degrees < (b-c) degrees ]) asArray. + + " Now, pick half of the vertices so the count stays the same " + v2 := Array new: v size // 2. + 1 to: v2 size do: [ :n | + v2 at: n put: (v at: n+n) ]. + v := v2. + + " Average each contiguous pair to help minimize jaggies " + 2 to: v size do: [ :n | + v at: n put: ((v at: n) + (v at: n-1)) / 2.0 ]. + + " Remember the new vertices, set a new velocity, then delete the merged blob " + vertices := v. + self setVelocity. + aBlob delete + ! Item was added: + ----- Method: BlobMorph>>oozeAFewPointsOf: (in category 'stepping') ----- + oozeAFewPointsOf: verts + " change some points at random to cause oozing across screen " + | n v | + + (verts size sqrt max: 2) floor timesRepeat: [ + n := (verts size * random next) floor + 1. + v := verts at: n. + v := (v x + (random next * 2.0 - 1.0)) @ + (v y + (random next * 2.0 - 1.0)). + verts at: n put: v + (velocity * RealEstateAgent scaleFactor) ].! Item was added: + ----- Method: BlobMorph>>selfPolarPointRadius:degrees: (in category 'stepping') ----- + selfPolarPointRadius: rho degrees: theta + " Same as Point>>#r:degrees: in Point class except that x and y are not truncated to integers " + | radians x y | + + radians := theta asFloat degreesToRadians. + x := rho asFloat * radians cos. + y := rho asFloat * radians sin. + ^ Point x: x y: y! Item was added: + ----- Method: BlobMorph>>setConstrainedPosition:hangOut: (in category 'geometry') ----- + setConstrainedPosition: aPoint hangOut: partiallyOutside + "Deal with dragging the blob over another blob which results in spontaneous deletations." + + self owner ifNil: [^ self]. + super setConstrainedPosition: aPoint hangOut: false. + "note that we keep them from overlapping"! Item was added: + ----- Method: BlobMorph>>setVelocity (in category 'initialization') ----- + setVelocity + + velocity := + ((random next - 0.5) * self maximumVelocity) @ + ((random next - 0.5) * self maximumVelocity)! Item was added: + ----- Method: BlobMorph>>step (in category 'stepping') ----- + step + | verts | + self comeToFront. + self mergeBlobs. + verts := vertices copy. + + " change two points at random to cause oozing across screen " + self oozeAFewPointsOf: verts. + + " limit radius and interpoint angle " + verts := self limitRange: verts. + + " Set new vertices; bounce off a wall if necessary " + self setVertices: verts. + self bounceOffWalls. + self adjustColors + ! Item was added: + ----- Method: BlobMorph>>stepTime (in category 'stepping') ----- + stepTime + "Answer the desired time between steps in milliseconds." + + ^ 125! Item was added: + ----- Method: BlobMorph>>veryDeepCopy (in category 'copying') ----- + veryDeepCopy + ^ self class remember: super veryDeepCopy!

1 0

The Trunk: Installer-Core-ct.452.mcz
by commits＠source.squeak.org 15 Oct '22

15 Oct '22

Christoph Thiede uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-ct.452.mcz ==================== Summary ==================== Name: Installer-Core-ct.452 Author: ct Time: 15 October 2022, 8:24:18.050533 pm UUID: d845f390-c267-3c49-ac35-31f0d34b04a3 Ancestors: Installer-Core-ct.451 Fixes a bug in new #ensureRecentMetacello that polluted the current change set with the preamble the SAR file. =============== Diff against Installer-Core-ct.451 =============== 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; load: #('default' 'Metacello-Help').!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2022