Squeak-dev October 2019

squeak-dev@lists.squeakfoundation.org

41 participants
284 discussions

The Inbox: MorphicExtras-ct.271.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.271.mcz ==================== Summary ==================== Name: MorphicExtras-ct.271 Author: ct Time: 1 October 2019, 8:34:14.776339 pm UUID: c725929f-54bd-d64d-8eb3-ebba10d204f4 Ancestors: MorphicExtras-ct.267 Add BannerMorph example to demonstrate ScreeningMorph, BackgroundMorph and other Morph techniques. 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.267 =============== Item was added: + EllipseMorph subclass: #BannerMorph + instanceVariableNames: 'header contents' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Demo'! + + !BannerMorph commentStamp: 'ct 9/7/2019 10:43' prior: 0! + I display a header and a contents text, arranged in an EllipseMorph in a flamboyant way. I use a ScreeningMorph and a BackgroundMorph to hinder the user to avert his gaze from me.! Item was added: + ----- Method: BannerMorph class>>example (in category 'examples') ----- + example + "BannerMorph example openInWorld" + + ^ self + header: 'Yes, <u>you</u> are ...' withCRs asHtmlText + contents: 'Live in Morphic' asUppercase asText! Item was added: + ----- Method: BannerMorph class>>header:contents: (in category 'instance creation') ----- + header: aStringOrText contents: anotherStringOrText + + ^ self basicNew + header: aStringOrText contents: anotherStringOrText; + initialize; + yourself! Item was added: + ----- Method: BannerMorph>>contents (in category 'accessing') ----- + contents + + ^ contents! Item was added: + ----- Method: BannerMorph>>createBackground (in category 'initialize-release') ----- + createBackground + + | fillMorph fillStyle | + fillStyle := GradientFillStyle colors: + ({Color red. Color green. Color blue} + in: [:colors | colors, colors reverse]). + fillStyle + origin: 0 @ 0; + direction: 150 @ 50. + fillMorph := (Morph new + fillStyle: fillStyle; + yourself). + ^ BackgroundMorph new + extent: 300 @ 130; + addMorph: fillMorph; + yourself! Item was added: + ----- Method: BannerMorph>>createContents (in category 'initialize-release') ----- + createContents + + | text | + text := self contents asText + addAttribute: TextEmphasis bold; + addAttribute: (TextFontReference toFont: + (StrikeFont familyName: #ComicPlain size: 39)); + asMorph. + text readOnly: true; flag: #ct. "We're no *that* life, yet :(" + ^ ScreeningMorph new + addMorph: (self createBackground + extent: text extent; + yourself); + addMorph: text; + showScreened; + cellPositioning: #center; + yourself! Item was added: + ----- Method: BannerMorph>>createHeader (in category 'initialize-release') ----- + createHeader + + | text | + text := (self header copyWithFirst: Character cr) asText + addAttribute: TextEmphasis bold; + addAttribute: (TextFontReference toFont: + (StrikeFont familyName: #Accula size: 29)); + yourself. + ^ text asMorph + centered; + fillsOwner: true; + yourself! Item was added: + ----- Method: BannerMorph>>header (in category 'accessing') ----- + header + + ^ header! Item was added: + ----- Method: BannerMorph>>header:contents: (in category 'accessing') ----- + header: aStringOrText contents: anotherStringOrText + + header := aStringOrText. + contents := anotherStringOrText.! Item was added: + ----- Method: BannerMorph>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + self extent: 300 @ 200. + self + changeProportionalLayout; + addMorph: (Morph new + color: Color transparent; + changeTableLayout; + listCentering: #center; wrapCentering: #center; + addMorph: self createContents; + yourself) + fullFrame: LayoutFrame fullFrame; + addMorph: self createHeader.! Item was added: + ----- Method: BannerMorph>>initializeToStandAlone (in category 'initialize-release') ----- + initializeToStandAlone + + self header: 'Introducing' contents: self class name. + super initializeToStandAlone.!

1 0

The Inbox: Morphic-ct.1558.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1558.mcz ==================== Summary ==================== Name: Morphic-ct.1558 Author: ct Time: 1 October 2019, 6:36:53.070339 pm UUID: dd0d9425-c53c-934e-a797-8871e1d05378 Ancestors: Morphic-ul.1552 Adds LineMorph 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 Morphic-ul.1552 =============== Item was added: + ----- Method: LineMorph class>>exampleBackArrow (in category 'examples') ----- + exampleBackArrow + "LineMorph exampleBackArrow openInHand" + + ^ (LineMorph from: 12 @ 0 to: 0 @ 0 color: Color black width: 1) + makeForwardArrow; + yourself!

1 0

The Inbox: MorphicExtras-ct.269.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.269.mcz ==================== Summary ==================== Name: MorphicExtras-ct.269 Author: ct Time: 1 October 2019, 6:33:51.583339 pm UUID: 99e1febf-d775-b743-9e00-1b95bab0bf68 Ancestors: MorphicExtras-ct.267 Adds CurveMorph examples. 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.267 =============== Item was added: + ----- Method: CurveMorph class>>extraExampleArrow (in category '*MorphicExtras-examples') ----- + extraExampleArrow + "CurveMorph extraExampleArrow openInHand" + + | arrow | + arrow := CurveMorph + vertices: {200 @ 75. 35 @ 0. 40 @ 55. -55 @ 30} + color: Color veryDarkGray + borderWidth: 5 + borderColor: Color veryDarkGray. + arrow makeOpen; makeForwardArrow; beSmoothCurve. + arrow addHandles. + ^ arrow! Item was added: + ----- Method: CurveMorph class>>extraExampleTextFlow (in category '*MorphicExtras-examples') ----- + extraExampleTextFlow + "CurveMorph extraExampleTextFlow openInHand" + + | curve text | + curve := CurveMorph + vertices: {135 @ 270. 75 @ 200. 50 @ 150. 100 @ 100. 125 @ 150. 175 @ 100. 200 @ 150. 175 @ 200 . 115 @ 340} * RealEstateAgent scaleFactor + color: Color cyan + borderWidth: 25 * RealEstateAgent scaleFactor + borderColor: Color salmon. + curve makeOpen; beSmoothCurve. + text := ('Texts can also follow ........................................ an open curve. ' asText + , ('So morphic!!' asText + addAttribute: TextEmphasis italic; + addAttribute: (TextColor color: Color blue); + yourself)) + addAttribute: (TextFontChange fontNumber: (3.4 * RealEstateAgent scaleFactor) rounded); + asMorph. + text textColor: Color yellow. + curve addMorph: text. + text followCurve. + ^ curve!

1 0

The Inbox: MorphicExtras-ct.268.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.268.mcz ==================== Summary ==================== Name: MorphicExtras-ct.268 Author: ct Time: 1 October 2019, 6:31:46.944339 pm UUID: 82578cf0-8147-8f47-9f9a-fd3b7aaad5c5 Ancestors: MorphicExtras-ct.267 Adds PolygonMorph examples Depends on ST80-ct.240. 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.267 =============== Item was added: + ----- Method: PolygonMorph class>>extraCircularVertices (in category '*MorphicExtras-examples') ----- + extraCircularVertices + + ^ ((Circle center: 400 @ 300 radius: 200 quadrant: 1) computeVertices: 5) reverse + , ((Circle center: 400 @ 300 radius: 200 quadrant: 4) computeVertices: 5) reverse + , ((Circle center: 400 @ 400 radius: 100 quadrant: 4) computeVertices: 5) + , ((Circle center: 400 @ 400 radius: 100 quadrant: 1) computeVertices: 5) + , ((Circle center: 400 @ 200 radius: 100 quadrant: 3) computeVertices: 5) reverse + , ((Circle center: 400 @ 200 radius: 100 quadrant: 2) computeVertices: 5) reverse! Item was added: + ----- Method: PolygonMorph class>>extraExampleTextFlow (in category '*MorphicExtras-examples') ----- + extraExampleTextFlow + "PolygonMorph extraExampleTextFlow openInHand" + + | polygon text obstacle | + polygon := self new. + polygon + setVertices: self extraCircularVertices; + extent: 309 asPoint; + beSmoothCurve; + color: Color lightGray; + addHandles. + + text := (TextMorph + string: 'TextMorphs can be chained together, causing their contents to flow between containers as either the contents or the containers change. If a TextMorph is embedded in another Morph, you can ask it to have fill the shape of that Morph. Moreover, you can ask it to avoid occlusions, in which case it will do its best to avoid collisions with siblings being in front of it. If a TextMorph is embedded in a CurveMorph, you can ask it to have the text follow the curve, as illustrated here.' asTextMorph + fontName: #BitstreamVeraSans + size: 14) + textColor: Color white; + fillsOwner: true; + yourself. + obstacle := StarMorph new + center: polygon center - (50 @ 25); + extent: 81 asPoint; + color: Color orchid; + yourself. + + polygon + addMorph: text; + addMorph: obstacle. + text centered. + text container avoidsOcclusions: true. + ^ polygon! Item was added: + ----- Method: PolygonMorph class>>extraExampleTrapeze (in category '*MorphicExtras-examples') ----- + extraExampleTrapeze + "PolygonMorph extraExampleTrapeze openInHand" + + | polygon text | + polygon := self new. + polygon + setVertices: {0 @ 100. 275 @ 100. 200 @ 0. 75 @ 0}; + addHandles ; + balloonText: 'Click and drag the handles to change my shape'. + text := '<b>Polygons</b> can be closed or open, filled or empty as well as lined or convex and can have directed arrows, bevelled borders and last but not least adapted handles.' asHtmlText asMorph + beAllFont: (TextStyle default fontOfSize: 14); + fillsOwner: true; + yourself. + polygon addMorph: text. + text centered. + ^ polygon! Item was added: + ----- Method: PolygonMorph class>>extraExampleTrapezePlus (in category '*MorphicExtras-examples') ----- + extraExampleTrapezePlus + "PolygonMorph extraExampleTrapezePlus openInHand" + "Some additional decoration" + + ^ self extraExampleTrapeze + fillStyle: ((GradientFillStyle + ramp: { 0.0 -> Color orange. 0.7 -> Color magenta twiceLighter. 1.0 -> Color red muchLighter }) + origin: 0 @ 0; direction: 275 @ 100; + yourself); + borderWidth: 2; + borderColor: Color blue; + dashedBorder: {35. 20. Color yellow}; + yourself!

1 0

The Inbox: Morphic-ct.1557.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1557.mcz ==================== Summary ==================== Name: Morphic-ct.1557 Author: ct Time: 1 October 2019, 6:25:19.707339 pm UUID: 2c65699d-e477-f445-a4ab-00f2e1c854bf Ancestors: Morphic-ul.1552 Adds simple SketchMorph example. Depends on Graphics-ct.422. 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 Morphic-ul.1552 =============== Item was added: + ----- Method: SketchMorph class>>exampleMouseUpAction (in category 'examples') ----- + exampleMouseUpAction + "SketchMorph exampleMouseUpAction openInWorld" + + ^ (self withForm: Form squeakIcon) + addMouseUpActionWith: 'self inform: ''Carpe Squeak!!'''; + yourself!

1 0

The Inbox: Morphic-ct.1556.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1556.mcz ==================== Summary ==================== Name: Morphic-ct.1556 Author: ct Time: 1 October 2019, 4:14:07.036339 pm UUID: b353603d-f85b-6f45-b660-2f137d99eb5d Ancestors: Morphic-ul.1552 Complements System-ct.1106 and reworks ProjectViewMorph preview sizes. Fixes a bug since a few commits, where ProjectViewMorphs without windows have the full size of their model's world. Extract #initialExtent, use a modern value, and set it respecting scaleFactor. Simplify #on: paths. Simplify #openOn: and use RealEstateAgent for convenience. =============== Diff against Morphic-ul.1552 =============== Item was changed: ----- Method: MorphicProject>>previewImageForm (in category 'display') ----- previewImageForm + ^ self world imageForm scaledToSize: self viewSize! - ^ self world imageForm! Item was changed: ----- Method: ProjectViewMorph class>>newProjectViewInAWindowFor: (in category 'project window creation') ----- newProjectViewInAWindowFor: aProject "Return an instance of me on a new Morphic project (in a SystemWindow)." | window proj | proj := self on: aProject. window := (SystemWindow labelled: aProject name) model: aProject. + window extent: proj extent. window addMorph: proj frame: (0@0 corner: 1.0(a)1.0). proj borderWidth: 0. ^ window ! Item was changed: ----- Method: ProjectViewMorph class>>openOn: (in category 'instance creation') ----- openOn: aProject "Open a ProjectViewMorph for the project in question" + ProjectViewOpenNotification signal ifFalse: [^ self]. + + (Preferences projectViewsInWindows + ifTrue: [ (self newProjectViewInAWindowFor: aProject) ] + ifFalse: [ (self on: aProject) ]) + openAsTool.! - ProjectViewOpenNotification signal ifTrue: [ - Preferences projectViewsInWindows ifTrue: [ - (self newProjectViewInAWindowFor: aProject) openInWorld - ] ifFalse: [ - (self on: aProject) openInWorld "but where??" - ]. - ]. - ! Item was added: + ----- Method: ProjectViewMorph>>initialExtent (in category 'geometry') ----- + initialExtent + + ^ 300 @ 200! Item was changed: ----- Method: ProjectViewMorph>>initialize (in category 'initialization') ----- initialize "Initialize the receiver." super initialize. + self extent: self initialExtent * RealEstateAgent scaleFactor. "currentBorderColor := Color gray." self addProjectNameMorphFiller. self enableDragNDrop: true. self isOpaque: true. ! Item was changed: ----- Method: ProjectViewMorph>>on: (in category 'events') ----- on: aProject project := aProject. self addProjectNameMorphFiller. lastProjectThumbnail := nil. + project viewSize ifNil: [project viewSize: self extent]. project thumbnail: project previewImageForm. + self extent: project thumbnail extent.! - project thumbnail - ifNil: [self extent: 100@80] "more like screen dimensions?" - ifNotNil: [self extent: project thumbnail extent].!

2 1

The Inbox: System-ct.1107.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ct.1107.mcz ==================== Summary ==================== Name: System-ct.1107 Author: ct Time: 1 October 2019, 4:30:20.065339 pm UUID: de49d2b3-27eb-6d48-8afa-2a93b8b0ed51 Ancestors: System-mt.1102 Fixes bug in #allImplementorsOf:localTo: concerning duplicates, revealed in Tests-ct.419 == text below is ignored === Ancestors: System-mt.1102 System-mt.1102: Adds a simple, yet convenient, way to scale icons for demo/hi-dpi mode. A no-scale takes about 150 nanoseconds on my machine, which should be okay --- performance-wise --- for existing tools. Maybe we can improve the code a little bit more for the default scale. Note that one could also use icons with s higher resolution, which would then be down-scaled to the reference extent... A ChangeSet class>>removeEmptyChangeSets M ChangeSet class>>removeEmptyUnnamedChangeSets M MethodReference M Preferences class>>changeFontSize: M Preferences class>>setDefaultFonts: M Preferences class>>useFormsInPaintBox A Project>>interruptSystem: M Project>>previewImageForm D Project>>setViewSize: A Project>>transcript A Project>>userDelete A Project>>viewSize: M SmalltalkImage>>handleUserInterrupt M SystemNavigation>>allImplementorsOf:localTo: A ToolSet class>>browseMethod: M Utilities class>>initializeCommonRequestStrings =============== Diff against System-mt.1102 =============== Item was changed: ----- Method: SystemNavigation>>allImplementorsOf:localTo: (in category 'query') ----- allImplementorsOf: aSelector localTo: aClass "Answer a sorted collection of all the methods that are named aSelector in, above, or below the given class." | result | + result := Set new. - result := OrderedCollection new. { aClass theNonMetaClass. aClass theMetaClass } do: [ :baseClass | baseClass withAllSuperAndSubclassesDoGently: [ :class | (class includesSelector: aSelector) ifTrue: [ result add: (MethodReference class: class selector: aSelector) ] ] ]. + ^result sorted! - ^result sort!

1 0

The Inbox: Tests-ct.419.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of Tests was added to project The Inbox: http://source.squeak.org/inbox/Tests-ct.419.mcz ==================== Summary ==================== Name: Tests-ct.419 Author: ct Time: 1 October 2019, 4:28:42.992339 pm UUID: 63e06a89-0e97-2148-9c0c-79494748ca43 Ancestors: Tests-ul.418 Add regression test for a bug in SystemNavigation>>#allImplementorsOf:localTo: (a fix is coming soon) =============== Diff against Tests-ul.418 =============== Item was added: + ----- Method: SystemNavigationTest>>testAllImplementorsOfLocalTo (in category 'tests') ----- + testAllImplementorsOfLocalTo + | result | + result := sysNav allImplementorsOf: #yourself localTo: Morph. + self assert: [result size = 1]. + self assert: [result includes: (MethodReference class: Object selector: #yourself)].!

1 0

The Inbox: System-ct.1106.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ct.1106.mcz ==================== Summary ==================== Name: System-ct.1106 Author: ct Time: 1 October 2019, 4:00:54.218339 pm UUID: 1df7e934-f73b-7d46-810b-e54b7bacce21 Ancestors: System-mt.1102 Scale down previewImageForm according to viewSize. We do not need a preview image of several million pixels ... =============== Diff against System-mt.1102 =============== Item was changed: ----- Method: Project>>previewImageForm (in category 'displaying') ----- previewImageForm + ^ self imageForm scaledToSize: self viewSize! - ^ self imageForm!

1 0

The Inbox: Morphic-ct.1555.mcz
by commits＠source.squeak.org 01 Oct '19

01 Oct '19

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1555.mcz ==================== Summary ==================== Name: Morphic-ct.1555 Author: ct Time: 1 October 2019, 3:58:13.194339 pm UUID: 1bf7161d-2cdf-0745-ae8b-6c79af0585da Ancestors: Morphic-ul.1552 Complements System-ct.1105 =============== Diff against Morphic-ul.1552 =============== Item was changed: ----- Method: ProjectViewMorph>>enter (in category 'events') ----- enter "Enter my project." self world == self outermostWorldMorph ifFalse: [^Beeper beep]. "can't do this at the moment" project class == DiskProxy ifFalse: [(project world notNil and: [project world isMorph and: [project world hasOwner: self outermostWorldMorph]]) ifTrue: [^Beeper beep "project is open in a window already"]]. project class == DiskProxy ifTrue: ["When target is not in yet" self enterWhenNotPresent. "will bring it in" project class == DiskProxy ifTrue: [^self inform: 'Project not found' translated]]. + owner isSystemWindow ifTrue: [project viewSize: self extent]. - (owner isSystemWindow) ifTrue: [project setViewSize: self extent]. self showMouseState: 3. project enter: false revert: false saveForRevert: false! Item was changed: ----- Method: ProjectViewMorph>>enterAsActiveSubproject (in category 'events') ----- enterAsActiveSubproject "Enter my project." project class == DiskProxy ifTrue: ["When target is not in yet" [self enterWhenNotPresent "will bring it in"] on: ProjectEntryNotification do: [:ex | ^ex projectToEnter enterAsActiveSubprojectWithin: self world]. project class == DiskProxy ifTrue: [self error: 'Could not find view']]. + owner isSystemWindow ifTrue: [project viewSize: self extent]. - (owner isSystemWindow) ifTrue: [project setViewSize: self extent]. self showMouseState: 3. project enterAsActiveSubprojectWithin: self world!

1 0

Jump to page: