Squeak-dev August 2019

squeak-dev@lists.squeakfoundation.org

35 participants
288 discussions

FileList - file reader registration
by patrick.rein＠hpi.uni-potsdam.de 22 Aug '19

22 Aug '19

Hi everyone, while cleaning up something else, I discovered that we have the file reader registration infrastructure in two places: FileServices which is the actual implementation, and on the FileList tool. The FileList implementation only forwards calls to FileServices which makes sense for compatibility reasons but at the same time clutters the interface. I would like to deprecate these methods except if someone knows a good reason (e.g. a project) which heavily relies on this (refactoring code to use FileServices just requires changing the class name, the major calls are still the same). Bests Patrick

2 1

The Inbox: Morphic-kfr.1509.mcz
by commits＠source.squeak.org 22 Aug '19

22 Aug '19

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-kfr.1509.mcz ==================== Summary ==================== Name: Morphic-kfr.1509 Author: kfr Time: 22 August 2019, 6:46:21.434151 pm UUID: 8468fa35-928c-3849-8ee1-f86a3c72527a Ancestors: Morphic-mt.1508 #removeModalWindow is deprecated, but many old projects still references to it. Remove reference upon loading project. =============== Diff against Morphic-mt.1508 =============== Item was changed: ----- Method: PasteUpMorph>>fixUponLoad:seg: (in category 'objects from disk') ----- + fixUponLoad: aProject seg: anImageSegment - fixUponLoad: aProject seg: anImageSegment "We are in an old project that is being loaded from disk. + Fix up conventions that have changed." + | weakMessage | + self isWorldMorph + ifTrue: [(self valueOfProperty: #soundAdditions) + ifNotNil: [:additions | SampledSound assimilateSoundsFrom: additions]]. + self actionMap + ifNotNil: [:aDictionary | + weakMessage := aDictionary + at: #aboutToLeaveWorld + ifAbsent: []. + weakMessage + ifNotNil: [weakMessage selector = #removeModalWindow + ifTrue: [weakMessage receiver: nil]]]. - Fix up conventions that have changed." - - self isWorldMorph ifTrue: [ - (self valueOfProperty: #soundAdditions) ifNotNil: - [:additions | SampledSound - assimilateSoundsFrom: additions]]. - ^ super fixUponLoad: aProject seg: anImageSegment!

2 1

[Please Review] Many fixes for Morphic's layout
by Marcel Taeumel 22 Aug '19

22 Aug '19

Hi, there, Please find attached a change set that addresses several bugs around layouting and re-drawing. I had the following goals: - Better support for TextMorphs in TableLayout - Better support for protruding submorphs in a non-clipping and non-shrink-wrapping morph - Ensure full layout computation after calling #fullBounds ... no extra re-draw cycles to avoid flickering. I have to admit that I did break some layout things back in 2016 because I didn't understand the implementation good enough. Other things have never been working correctly before, such as height-for-width updates for TextMorph children ... which do their own (text) layout and thus misbehaved in a table-layout container. What's (still) not working? - Useful minimum extent for windows and dialogs - #justified list-centering with #spaceFill children (-> might be a new issue but rare?) How can you test some changes? Well, try resizing the find-class or save-file dialog to this: Usually, submorphs are either not protruding their morphs or they get clipped. If they are protruding and not clipped, the layout-cell computation was a mix of bounds and fullBounds. I suppose that other frameworks use just the bounds, ignoring any protruding submorphs, like this: The blue-filled morphs are shrink-wrapped in a container arranged from the left to the right. Protruding submorphs share the owner's border color. Only the rightmost morph has its own table layout and adjuts its height to its children -- but not its width. Best, Marcel

3 7

Re: [squeak-dev] Proposal: Morphs in Text
by karl ramberg 22 Aug '19

22 Aug '19

I'm a little late here. TextMorph does not really need TextAnchor I think. You can just drop morphs on the text and select avoid occlusions in the menu. What are the use of text anchors instead just dropped in morphs ? I filed in TextAnchorPlacement change set and it interferes somewhat with the avoid occlusions functions. Best, Karl On Fri, Jun 28, 2019 at 4:42 PM <patrick.rein(a)hpi.uni-potsdam.de> wrote: > Hi everyone, > > please find attached a new version of the change including an improved > protocol for setting the alignment added by Chris (basically as discussed > below). :) > > Bests > Patrick > > >Hi Chris, > > > >thanks for the recommendations! > > > >>The only thing that gave me pause was that API for #verticalAlignment:. > Initially, I just saw the selector and thought about it the same as the API > for regular horizontal text alignment (e.g., #left, #center, #right, > justified), and so tried: > >> self verticalAlignment: #bottom > >>but this informed me that this single-argument selector is actually > looking for two arguments. That's some great flexibility that I didn't > even consider, but I wonder whether this detracts from the usability of the > common cases: > >> #bottom, expected to do what #(#bottom #bottom) does, #center, to > do what, uh, #(#middle #middle) does, and #top, would do what, #top #top > does. > >>#verticalAlignment: handle the above, while #verticalAlignmentMorph: and > #verticalAlignmentLine: could be used for advanced customizations. Even > once I figured out it wanted a two-element Array for input, I had to go > back look at the method to remind myself which is first and which is > second. Separate attributes would be more readable. > > > >That is a good point. I myself had some difficulties remembering which > way they have to go... I have added a convenience case which now allows for > just sending a symbol and the method takes care of converting it to the > array internally (so #top results in #(top top)). > > > >>Lastly, #middle vs. #center. #center is what we have _everywhere_ to > refer to geometric centers, all over the image, including even for > horizontal text-alignment. The only #middle in the whole image relates to > a Collection element access. Could we use #center? > > > >Yes, that makes sense :) I renamed #middle to #center. > > > >The new changeset includes these changes. > > > >Bests > >Patrick > > > > > >["TextAnchorPlacement.cs"] > > > > > >[TextAnchorPlacement.cs] > ["TextAnchorPlacement.cs"] >

9 20

The Inbox: Morphic-cmfcmf.1496.mcz
by commits＠source.squeak.org 22 Aug '19

22 Aug '19

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-cmfcmf.1496.mcz ==================== Summary ==================== Name: Morphic-cmfcmf.1496 Author: cmfcmf Time: 1 August 2019, 6:57:12.047202 pm UUID: 34f7313a-f70a-3542-bd4d-9657b63cd95e Ancestors: Morphic-mt.1495 Use MenuMorph>>popUpEvent:in: instead of not existing MenuMorph>>openAt: when yellow button clicking on a TextAttribute with >>menu defined. =============== Diff against Morphic-mt.1495 =============== Item was changed: ----- Method: TextEditor>>yellowButtonDown: (in category 'events') ----- yellowButtonDown: event "Process a yellow button event. Answer true if the event was handled, false otherwise." (paragraph attributesAt: event cursorPoint) do:[:attr| attr menu ifNotNil:[ + attr menu + setInvokingView: self morph editView; + popUpEvent: event in: self morph world. - attr menu openAt: event cursorPoint. ^true]]. ^false!

4 3

The Trunk: Morphic-cmfcmf.1496.mcz
by commits＠source.squeak.org 22 Aug '19

22 Aug '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmfcmf.1496.mcz ==================== Summary ==================== Name: Morphic-cmfcmf.1496 Author: cmfcmf Time: 1 August 2019, 6:57:12.047202 pm UUID: 34f7313a-f70a-3542-bd4d-9657b63cd95e Ancestors: Morphic-mt.1495 Use MenuMorph>>popUpEvent:in: instead of not existing MenuMorph>>openAt: when yellow button clicking on a TextAttribute with >>menu defined. =============== Diff against Morphic-mt.1495 =============== Item was changed: ----- Method: TextEditor>>yellowButtonDown: (in category 'events') ----- yellowButtonDown: event "Process a yellow button event. Answer true if the event was handled, false otherwise." (paragraph attributesAt: event cursorPoint) do:[:attr| attr menu ifNotNil:[ + attr menu + setInvokingView: self morph editView; + popUpEvent: event in: self morph world. - attr menu openAt: event cursorPoint. ^true]]. ^false!

1 0

The Trunk: Morphic-mt.1508.mcz
by commits＠source.squeak.org 22 Aug '19

22 Aug '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1508.mcz ==================== Summary ==================== Name: Morphic-mt.1508 Author: mt Time: 22 August 2019, 3:43:28.184371 pm UUID: 8220c6d1-dec2-cd4b-b702-a479874e4ee7 Ancestors: Morphic-mt.1507, Morphic-cmfcmf.1496 Merges Morphic-cmfcmf.1496. =============== Diff against Morphic-mt.1507 =============== Item was changed: ----- Method: TextEditor>>yellowButtonDown: (in category 'events') ----- yellowButtonDown: event "Process a yellow button event. Answer true if the event was handled, false otherwise." (paragraph attributesAt: event cursorPoint) do:[:attr| attr menu ifNotNil:[ + attr menu + setInvokingView: self morph editView; + popUpEvent: event in: self morph world. - attr menu openAt: event cursorPoint. ^true]]. ^false!

1 0

The Trunk: EToys-mt.351.mcz
by commits＠source.squeak.org 22 Aug '19

22 Aug '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.351.mcz ==================== Summary ==================== Name: EToys-mt.351 Author: mt Time: 22 August 2019, 3:25:41.452931 pm UUID: 9f30c9f6-6576-124f-a0d9-a71d90f238a3 Ancestors: EToys-mt.350 Complements Morphic-mt.1506 including cellInset-to-cellGap conversion. =============== Diff against EToys-mt.350 =============== Item was changed: ----- Method: EventRecordingSpace>>initialize (in category 'initialization') ----- initialize "Initialize the receiver to be a complete mentoring space" super initialize. eventRecorder := MentoringEventRecorder new. eventRecorder recordingSpace: self. self beSticky. self listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #shrinkWrap. self extent: 1@1. self borderWidth: 2; borderColor: Color gray. self useRoundedCorners. showingSoundPanel := false. (contentArea := Worldlet new) setNameTo: 'tutorial'; color: Color white; setProperty: #automaticPhraseExpansion toValue: true; beSticky. self addMorphBack: contentArea. controlsPanel := AlignmentMorph newRow. controlsPanel hResizing: #spaceFill. + controlsPanel listCentering: #center. - controlsPanel listCentering: #center. controlsPanel listSpacing: #equal. controlsPanel cellInset: 4. controlsPanel minHeight: 32. self addMorphBack: controlsPanel. soundPanel := AlignmentMorph newRow. soundPanel hResizing: #spaceFill. + soundPanel listCentering: #center. - soundPanel listCentering: #center. soundPanel listSpacing: #equal. soundPanel cellInset: 4. soundPanel minHeight: 32. soundPanel color: (Color r: 1.0 g: 0.839 b: 0.645). self makeStatusButtons. state := #readyToRecord. self populateControlsPanel. "initializeFlaps will be called later, after opening in world" ! Item was changed: ----- Method: TimesRepeatMorph>>initialize (in category 'initialization') ----- initialize "Fully initialize the receiver." | dummyColumn timesRow timesRepeatColumn repeatRow separator repeatLabel placeHolder doLabel ephemerum | submorphs := #(). bounds := 0@0 corner: 50@40. self color: Color orange muchLighter. self layoutPolicy: TableLayout new. self "border, and layout properties in alphabetical order..." borderColor: self color darker; borderWidth: 2; - cellSpacing: #none; cellPositioning: #topLeft; hResizing: #spaceFill; layoutInset: 0; listDirection: #leftToRight; rubberBandCells: true; vResizing: #shrinkWrap; wrapCentering: #none. self setNameTo: 'Repeat Complex'. dummyColumn := AlignmentMorph newColumn. dummyColumn cellInset: 0; layoutInset: 0. dummyColumn width: 0. dummyColumn cellPositioning: #leftCenter. dummyColumn hResizing: #shrinkWrap; vResizing: #spaceFill. self addMorph: dummyColumn. timesRepeatColumn := AlignmentMorph newColumn. timesRepeatColumn setNameTo: 'Times Repeat'. timesRepeatColumn cellPositioning: #topLeft. timesRepeatColumn hResizing: #spaceFill. timesRepeatColumn vResizing: #shrinkWrap. timesRepeatColumn layoutInset: 0. timesRepeatColumn borderWidth: 0. timesRepeatColumn color: Color orange muchLighter. timesRow := AlignmentMorph newRow color: color; layoutInset: 0. timesRow minCellSize: (2@16). timesRow setNameTo: 'Times'. repeatLabel := StringMorph contents: 'Repeat' translated font: Preferences standardEToysFont. timesRow addMorphBack: repeatLabel. timesRow vResizing: #shrinkWrap. timesRow addMorphBack: (Morph new color: color; extent: 6@5). "spacer" numberOfTimesToRepeatPart := TilePadMorph new setType: #Number. numberOfTimesToRepeatPart hResizing: #shrinkWrap; color: Color transparent. numberOfTimesToRepeatPart addMorphBack: (TileMorph new addArrows; setLiteral: 2). numberOfTimesToRepeatPart borderWidth: 0; layoutInset: (1@0). timesRow addMorphBack: numberOfTimesToRepeatPart. timesRow addMorphBack: (StringMorph contents: ' times ' font: Preferences standardEToysFont). timesRow addMorphBack: AlignmentMorph newVariableTransparentSpacer. timesRepeatColumn addMorphBack: timesRow. separator := AlignmentMorph newRow color: Color transparent. separator vResizing: #rigid; hResizing: #spaceFill; height: 2. separator borderWidth: 0. timesRepeatColumn addMorphBack: separator. repeatRow := AlignmentMorph newRow color: color; layoutInset: 0. repeatRow minCellSize: (2@16). repeatRow setNameTo: 'Repeat '. placeHolder := Morph new. placeHolder beTransparent; extent: (8@0). repeatRow addMorphBack: placeHolder. repeatRow vResizing: #shrinkWrap. doLabel := StringMorph contents: 'Do' font: Preferences standardEToysFont. repeatRow addMorphBack: doLabel. repeatRow addMorphBack: (Morph new color: color; extent: 5@5). "spacer" repeatRow addMorphBack: (whatToRepeatPart := ScriptEditorMorph new borderWidth: 0; layoutInset: 0). whatToRepeatPart hResizing: #spaceFill. whatToRepeatPart vResizing: #shrinkWrap. whatToRepeatPart color: Color transparent. whatToRepeatPart setNameTo: 'Script to repeat'. whatToRepeatPart addMorphBack: (ephemerum := Morph new height: 14) beTransparent. timesRepeatColumn addMorphBack: repeatRow. self addMorphBack: timesRepeatColumn. self bounds: self fullBounds. ephemerum delete! Item was changed: ----- Method: TimesRepeatTile>>initialize (in category 'initialization') ----- initialize "Fully initialize the receiver." | dummyColumn timesRepeatColumn repeatRow separator placeHolder doLabel ephemerum | submorphs := #(). bounds := 0@0 corner: 50@40. self color: Color orange muchLighter. self layoutPolicy: TableLayout new. self "border, and layout properties in alphabetical order..." borderColor: self color darker; + borderWidth: 2; - borderWidth: 2; - cellSpacing: #none; cellPositioning: #topLeft; hResizing: #spaceFill; layoutInset: 0; listDirection: #leftToRight; rubberBandCells: true; vResizing: #shrinkWrap; wrapCentering: #none. self setNameTo: 'Repeat Complex'. dummyColumn := AlignmentMorph newColumn. dummyColumn cellInset: 0; layoutInset: 0. dummyColumn width: 0. dummyColumn cellPositioning: #leftCenter. dummyColumn hResizing: #shrinkWrap; vResizing: #spaceFill. self addMorph: dummyColumn. timesRepeatColumn := AlignmentMorph newColumn. timesRepeatColumn setNameTo: 'Times Repeat'. timesRepeatColumn cellPositioning: #topLeft. timesRepeatColumn hResizing: #spaceFill. timesRepeatColumn vResizing: #shrinkWrap. timesRepeatColumn layoutInset: 0. timesRepeatColumn borderWidth: 0. timesRepeatColumn color: Color orange muchLighter. timesRow := TimesRow newRow color: color; layoutInset: 0. timesRepeatColumn addMorphBack: timesRow. separator := AlignmentMorph newRow color: Color transparent. separator vResizing: #rigid; hResizing: #spaceFill; height: 2. separator borderWidth: 0. timesRepeatColumn addMorphBack: separator. repeatRow := AlignmentMorph newRow color: color; layoutInset: 0. repeatRow minCellSize: (2@16). repeatRow setNameTo: 'Repeat '. placeHolder := Morph new. placeHolder beTransparent; extent: (8@0). repeatRow addMorphBack: placeHolder. repeatRow vResizing: #shrinkWrap. doLabel := StringMorph contents: 'Do' translated font: Preferences standardEToysFont. repeatRow addMorphBack: doLabel. repeatRow addMorphBack: (Morph new color: color; extent: 5@5). "spacer" repeatRow addMorphBack: (whatToRepeatPart := ScriptEditorMorph new borderWidth: 0; layoutInset: 0). whatToRepeatPart hResizing: #spaceFill; vResizing: #shrinkWrap; color: (Color transparent); height: (Preferences standardEToysFont height); minHeight: (Preferences standardEToysFont height); setNameTo: ('Script to repeat' translated); addMorphBack: ((ephemerum := Morph new height: 14) beTransparent). timesRepeatColumn addMorphBack: repeatRow. self addMorphBack: timesRepeatColumn. self bounds: self fullBounds. ephemerum delete!

1 0

The Trunk: Services-Base-mt.66.mcz
by commits＠source.squeak.org 22 Aug '19

22 Aug '19

Marcel Taeumel uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-mt.66.mcz ==================== Summary ==================== Name: Services-Base-mt.66 Author: mt Time: 22 August 2019, 3:25:12.833931 pm UUID: 3de68d05-9860-834a-b070-b36112b5b85a Ancestors: Services-Base-cmm.65 Complements Morphic-mt.1506 including cellInset-to-cellGap conversion. =============== Diff against Services-Base-cmm.65 =============== Item was changed: ----- Method: ServiceBrowserMorph>>newButtonRow (in category 'as yet unclassified') ----- newButtonRow ^BorderedMorph new color: Color transparent; + cellGap: 2; - cellInset: 2; layoutInset: 2; layoutPolicy: TableLayout new; listDirection: #leftToRight; listCentering: #topLeft; cellPositioning: #topLeft; on: #mouseEnter send: #paneTransition: to: self; on: #mouseLeave send: #paneTransition: to: self; "addMorphBack: self defaultButton; addMorphBack: self newSeparator; addMorphBack: self saveButton; addMorphBack: self loadButton; addMorphBack: self newSeparator; addMorphBack: self saveToDiskButton; addMorphBack: self loadFromDiskButton; addMorphBack: self newSeparator; addMorphBack: self newTransparentFiller; addMorphBack: self helpButton;" yourself.! Item was changed: ----- Method: ServiceGui>>styleBar: (in category 'styling') ----- styleBar: aBar aBar setNameTo: 'button bar'. aBar beSticky; + hResizing: #spaceFill; - hResizing: #spaceFill; wrapCentering: #center; cellPositioning: #leftCenter; clipSubmorphs: true; - cellInset: 0; color: Color veryVeryLightGray.!

1 0

The Trunk: PreferenceBrowser-mt.91.mcz
by commits＠source.squeak.org 22 Aug '19

22 Aug '19

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.91.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.91 Author: mt Time: 22 August 2019, 3:24:55.497931 pm UUID: 81841a24-8d1b-0540-9c59-086f362cc717 Ancestors: PreferenceBrowser-mt.90 Complements Morphic-mt.1506 including cellInset-to-cellGap conversion. =============== Diff against PreferenceBrowser-mt.90 =============== Item was changed: ----- Method: PBBooleanPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferencesPanel ^self horizontalPanel layoutInset: 2; + cellGap: 7; - cellInset: 7; color: aColor; addMorphBack: self morphForName; addMorphBack: self horizontalFiller; addMorphBack: self enabledButton; addMorphBack: self localToProjectButton; yourself.! Item was changed: ----- Method: PBColorPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferenceBrowser ^self horizontalPanel layoutInset: 2; color: aColor; + cellGap: 20; - cellInset: 20; cellPositioning: #center; addMorphBack: self morphForName; addMorphBack: self horizontalFiller; addMorphBack: self colorMenuButton; yourself! Item was changed: ----- Method: PBNumericPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferenceBrowser ^self horizontalPanel layoutInset: 2; color: aColor; + cellGap: 20; - cellInset: 20; cellPositioning: #center; addMorphBack: self morphForName; addMorphBack: self horizontalFiller; addMorphBack: self textField; yourself.! Item was changed: ----- Method: PBPreferenceButtonMorph>>addExtraControls (in category 'extra controls') ----- addExtraControls | m | m := self horizontalPanel + cellGap: 3; - cellInset: 3; addAllMorphs: self actionButtons; addMorphBack: self horizontalFiller; addMorphBack: self moreButton; yourself. self addMorphBack: (self blankSpaceOf: 2@2); addMorphBack: self preferenceHelpTextMorph; addMorphBack: self horizontalLine; addMorphBack: self preferenceCodeTextMorph; fullBounds; "to force a layout compute needed by the textMorphs's autoFit" addMorphBack: m ! Item was changed: ----- Method: PBPreferenceButtonMorph>>basicPanel (in category 'utility methods') ----- basicPanel ^BorderedMorph new beTransparent; extent: 0@0; borderWidth: 0; layoutInset: 0; + cellGap: 0; - cellInset: 0; layoutPolicy: TableLayout new; listCentering: #topLeft; cellPositioning: #center; hResizing: #spaceFill; vResizing: #shrinkWrap; yourself! Item was changed: ----- Method: PBPreferenceButtonMorph>>initializeLayout (in category 'initialization') ----- initializeLayout self layoutPolicy: TableLayout new; beTransparent; layoutInset: 0; + cellGap: 0; - cellInset: 0; listCentering: #topLeft; cellPositioning: #topLeft; listDirection: #topToBottom; hResizing: #spaceFill; vResizing: #shrinkWrap. ! Item was changed: ----- Method: PBPreferenceView>>basicPanel (in category 'user interface') ----- basicPanel ^BorderedMorph new beTransparent; extent: 0@0; borderWidth: 0; layoutInset: 0; + cellGap: 5; - cellInset: 5; layoutPolicy: TableLayout new; listCentering: #topLeft; cellPositioning: #center; hResizing: #shrinkWrap; vResizing: #shrinkWrap; yourself! Item was changed: ----- Method: PBTextPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') ----- representativeButtonWithColor: aColor inPanel: aPreferenceBrowser ^self horizontalPanel layoutInset: 2; color: aColor; + cellGap: 20; - cellInset: 20; cellPositioning: #center; addMorphBack: self morphForName; addMorphBack: self textField; yourself.! Item was changed: ----- Method: PreferenceBrowserMorph>>mainPanel (in category 'submorphs - main panel') ----- mainPanel ^mainPanel ifNil: [mainPanel := BorderedMorph new color: Color transparent; borderWidth: 0; hResizing: #spaceFill; vResizing: #spaceFill; + cellGap: 5; - cellInset: 5; changeProportionalLayout; on: #mouseEnter send: #paneTransition: to: self; addMorphBack: self newCategoryList; addMorphBack: self preferenceList; layoutFrame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@ 30 corner: 0@0)); addPaneSplitters; yourself].! Item was changed: ----- Method: PreferenceBrowserMorph>>newButtonRow (in category 'submorphs - buttons') ----- newButtonRow ^BorderedMorph new color: Color transparent; borderWidth: 0; + cellGap: 2; - cellInset: 2; layoutInset: 2; layoutPolicy: TableLayout new; listDirection: #leftToRight; listCentering: #topLeft; cellPositioning: #topLeft; on: #mouseEnter send: #paneTransition: to: self; on: #mouseLeave send: #paneTransition: to: self; addMorphBack: self defaultButton; addMorphBack: self newSeparator; addMorphBack: self saveButton; addMorphBack: self loadButton; addMorphBack: self newSeparator; addMorphBack: self saveToDiskButton; addMorphBack: self loadFromDiskButton; addMorphBack: self newSeparator; addMorphBack: self themeButton; addMorphBack: self newTransparentFiller; addMorphBack: self helpButton; yourself.! Item was changed: ----- Method: PreferenceBrowserMorph>>newCategoryListPanel (in category 'submorphs - category list') ----- newCategoryListPanel ^Morph new hResizing: #shrinkWrap; vResizing: #spaceFill; color: Color transparent; layoutPolicy: TableLayout new; + cellGap: 3; - cellInset: 3; listCentering: #topLeft; listDirection: #topToBottom; cellPositioning: #topLeft; clipSubmorphs: true; addMorphBack: self newCategoryListPanelLabel; addMorphBack: self newCategoryList! Item was changed: ----- Method: PreferenceBrowserMorph>>newPreferenceListPanel (in category 'submorphs - preference list') ----- newPreferenceListPanel | panel | panel := Morph new hResizing: #spaceFill; vResizing: #spaceFill; color: Color transparent; layoutPolicy: TableLayout new; + cellGap: 3; - cellInset: 3; listCentering: #topLeft; listDirection: #topToBottom; cellPositioning: #topLeft; clipSubmorphs: true; addMorphBack: self newPreferenceListPanelLabel; addMorphBack: self preferenceList. ^panel.! Item was changed: ----- Method: PreferenceBrowserMorph>>newSearchPanel (in category 'submorphs - search panel') ----- newSearchPanel | bottom | bottom := Morph new color: Color transparent; + cellGap: 5; - cellInset: 5; layoutPolicy: TableLayout new; listDirection: #leftToRight; listCentering: #topLeft; cellPositioning: #topLeft; hResizing: #spaceFill; vResizing: #shrinkWrap; addMorphBack: self newSearchTextField yourself. ^Morph new color: Color transparent; layoutPolicy: TableLayout new; listDirection: #topToBottom; listCentering: #topLeft; cellPositioning: #topLeft; hResizing: #spaceFill; vResizing: #shrinkWrap; + cellGap: 3; - cellInset: 3; addMorphBack: (StringMorph contents: 'Search preferences for: '); addMorphBack: bottom; yourself.! Item was changed: ----- Method: PreferenceWizardMorph>>createCheckbox:for:help: (in category 'initialization') ----- createCheckbox: label for: selector help: terms | box lbl btn | btn := self createButton layoutInset: 0; label: ' '; onColor: (self defaultColor adjustBrightness: 0.3) offColor: (self defaultColor adjustBrightness: 0.3); vResizing: #rigid; hResizing: #rigid; action: ('toggle', selector) asSymbol; getStateSelector: ('state', selector) asSymbol; getLabelSelector: ('label', selector) asSymbol; extent: 25@25. lbl := self createLabel: label color: self defaultTextColor. box := Morph new color: Color transparent; changeTableLayout; listDirection: #leftToRight; cellPositioning: #topLeft; hResizing: #spaceFill; vResizing: #shrinkWrap; + cellGap: 10; - cellInset: 10; yourself. box addAllMorphs: {btn. lbl}. self setBalloonText: (terms isString ifTrue: [terms] ifFalse: [self findHelpStringFor: terms]) for: box. ^ box! Item was changed: ----- Method: PreferenceWizardMorph>>createPage (in category 'initialization') ----- createPage ^ Morph new color: Color transparent; hResizing: #spaceFill; vResizing: #spaceFill; changeTableLayout; listDirection: #topToBottom; cellPositioning: #topLeft; layoutInset: 20; + cellGap: 10; - cellInset: 10; yourself! Item was changed: ----- Method: PreferenceWizardMorph>>initialize (in category 'initialization') ----- initialize super initialize. isFullScreen := false. self hasLowPerformance ifTrue: [self color: self defaultColor] ifFalse: [self color: (self defaultColor alpha: 0.75)]. self setProperty: #indicateKeyboardFocus toValue: #never. Preferences enable: #systemWindowEmbedOK. titleMorph := ('Welcome to Squeak' translated asText addAttribute: (TextColor color: self defaultTextColor); addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 20)); yourself) asMorph lock. titleMorph margins: (10@0 corner: 10@10). titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)). self initializePages; initializeButtons; initializeControlMorph; initializePreviewWorld; initializeForLowPerformance. self changeProportionalLayout; layoutInset: 20; + cellGap: 10; - cellInset: 10; cellPositioning: #center; addAllMorphs: {titleMorph. buttonRowMorph. controlMorph. previewWorld. startButton. skipButton. lowPerformanceMorph}. self addKeyboardCaptureFilter: self.! Item was changed: ----- Method: PreferenceWizardMorph>>initializeButtons (in category 'initialization') ----- initializeButtons buttonRowMorph := Morph new color: Color transparent; changeTableLayout; listDirection: #leftToRight; + cellGap: 10; - cellInset: 10; layoutInset: (0@20 corner: 0@0); vResizing: #shrinkWrap; hResizing: #spaceFill; yourself. buttonRowMorph addAllMorphs: { previousButton := self createButton action: #previous; label: 'Previous' translated. pagesLabel := (self createLabel: '0 / 0') hResizing: #shrinkWrap; margins: (20@0 corner: 20@0); fullBounds; yourself. nextButton := self createButton action: #next; label: 'Next' translated. self createHorizontalSpacer. self createButton action: #showSqueak; label: 'Done' translated}. buttonRowMorph fullBounds. buttonRowMorph layoutFrame: (LayoutFrame fractions: (0 @ 1 corner: 1 @ 1) offsets: (0@ buttonRowMorph height negated corner: 0 @ 0)). startButton := (self createButton action: #showPlayfield; label: 'Configure' translated). skipButton := (self createButton action: #showSqueak; label: 'Skip' translated). (startButton width max: skipButton width) in: [:w | startButton hResizing: #rigid; width: w. skipButton hResizing: #rigid; width: w. startButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (2*w negated @ 0 corner: 0 @ 0)). skipButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (0@ 0 corner: 2*w @ 0))].!

1 0

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

Jump to page: