Squeak-dev January 2023

squeak-dev@lists.squeakfoundation.org

31 participants
225 discussions

The Trunk: Morphic-tonyg.1804.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tonyg.1804.mcz ==================== Summary ==================== Name: Morphic-tonyg.1804 Author: tonyg Time: 29 November 2021, 1:26:42.579417 pm UUID: 91dd5db6-e377-48c1-a9aa-bab83670c14f Ancestors: Morphic-mt.1803 Suggested customization hooks to set various kinds of grip/scrollbar sizes. I have found this useful for working with Squeak on cell-phone sized devices with high DPI. =============== Diff against Morphic-mt.1803 =============== Item was changed: ----- Method: AbstractResizerMorph class>>gripThickness (in category 'preferences') ----- gripThickness "A number in pixels that encodes the area were the user can target splitters or edge grips." <preference: 'Grip Thickness' category: 'windows' description: 'A number in pixels that encodes the area were the user can target splitters or edge grips such as in application windows. Bigger grips make it easier to click on them.' type: #Number> + ^ GripThickness ifNil: [(UserInterfaceTheme current get: #gripThickness) ifNil: [4]]! - ^ GripThickness ifNil: [4]! Item was changed: ----- Method: AbstractResizerMorph class>>handleLength (in category 'preferences') ----- handleLength <preference: 'Handle Length' category: 'windows' description: 'AThe size of a grip handle if shown. Can be interpreted as width or height, depending of the resizer orientation. Does not affect the clickable area. See grip thickness for that.' type: #Number> + ^ HandleLength ifNil: [(UserInterfaceTheme current get: #handleLength) ifNil: [25]]! - ^ HandleLength ifNil: [25]! Item was changed: ----- Method: ScrollPane class>>scrollBarThickness (in category 'defaults') ----- scrollBarThickness - ^ Preferences scrollBarsNarrow + ifTrue: [(UserInterfaceTheme current get: #scrollBarThicknessNarrow) ifNil: [10]] + ifFalse: [(UserInterfaceTheme current get: #scrollBarThickness) ifNil: [14]]! - ifTrue: [10] - ifFalse: [14]!

1 0

The Trunk: Morphic-ct.1531.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1531.mcz ==================== Summary ==================== Name: Morphic-ct.1531 Author: ct Time: 20 September 2019, 8:46:54.327726 pm UUID: 9ba3d907-10d4-524a-9e97-cd66a530f0ef Ancestors: Morphic-mt.1526 Fix a bug in MorphicProject>>#applyUserInterfaceTheme While working with many Projects during the latest weeks, I often noticed DNUs when changing the UI theme. Apparently UserInterfaceTheme>>#apply asks ALL objects in memory to apply the theme, so if a project was recently closed and not yet gc'ed, I got an error. =============== Diff against Morphic-mt.1526 =============== Item was changed: ----- Method: MorphicProject>>canApplyUserInterfaceTheme (in category 'updating') ----- canApplyUserInterfaceTheme + ^ world notNil! - ^ true!

1 0

The Trunk: Morphic-ct.1534.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1534.mcz ==================== Summary ==================== Name: Morphic-ct.1534 Author: ct Time: 20 September 2019, 8:57:09.233726 pm UUID: 9adeb330-a9c3-9b4c-a8e8-ee1ff7566968 Ancestors: Morphic-mt.1526 Add convenience constructor for NewColorPickerMorph. We don't need a color if we have the getter. =============== Diff against Morphic-mt.1526 =============== Item was added: + ----- Method: NewColorPickerMorph class>>on:getColorSelector:setColorSelector: (in category 'create') ----- + on: objectToHaveItsColorSet getColorSelector: colorGetterSymbol setColorSelector: colorSetterSymbol + ^ self + on: objectToHaveItsColorSet + originalColor: (colorGetterSymbol value: objectToHaveItsColorSet) + setColorSelector: colorSetterSymbol!

1 0

The Trunk: Morphic-ct.1539.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1539.mcz ==================== Summary ==================== Name: Morphic-ct.1539 Author: ct Time: 1 October 2019, 2:30:30.532339 pm UUID: 18bcdacc-91ad-9f40-87b4-1a1b0996373b Ancestors: Morphic-ct.1534 Add even more convenient constructor for NewColorPickerMorph (NewColorPickerMorph on: Morph new openInWorld colorSelector: #color) openInHand =============== Diff against Morphic-ct.1534 =============== Item was added: + ----- Method: NewColorPickerMorph class>>on:colorSelector: (in category 'create') ----- + on: objectToHaveItsColorSet colorSelector: colorSymbol + ^ self + on: objectToHaveItsColorSet + getColorSelector: colorSymbol + setColorSelector: colorSymbol asMutator!

1 0

The Trunk: Morphic-ct.1556.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/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].!

1 0

The Trunk: Morphic-ct.1617.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1617.mcz ==================== Summary ==================== Name: Morphic-ct.1617 Author: ct Time: 12 January 2020, 3:34:20.453555 am UUID: d75dd5ad-8420-c443-9314-c01d96409fae Ancestors: Morphic-tpr.1616 Fixes #applyUserInterfaceTheme on SystemProgressMorph really! Explanation: Resetting the ProgressMorph from the class side is definively bad, because it deletes the progress morph if currently visible. The current instance-side implementation was not reliable either, because if the UniqueInstance is not in world, it cannot apply the new UI theme. Thus we need to override #canApplyUserInterfaceTheme from Morph. This commit replaces Morphic-ct.1615. See also: http://forum.world.st/SystemProgressMorph-applyUserInterfaceTheme-td5108129… =============== Diff against Morphic-tpr.1616 =============== Item was removed: - ----- Method: SystemProgressMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- - applyUserInterfaceTheme - - self reset.! Item was added: + ----- Method: SystemProgressMorph>>canApplyUserInterfaceTheme (in category 'updating') ----- + canApplyUserInterfaceTheme + + ^ true!

1 0

The Trunk: Morphic-ct.1686.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1686.mcz ==================== Summary ==================== Name: Morphic-ct.1686 Author: ct Time: 17 September 2020, 5:41:03.546813 pm UUID: 412bd6fc-041c-e74e-959c-498a12f39817 Ancestors: Morphic-mt.1683 Fix: Don't defer construction of main docking bar when initializing a new MorphicProject. Such lazy construction can be really disturbing when preparing a project from another one, as it will be done in Objectland. =============== Diff against Morphic-mt.1683 =============== Item was changed: ----- Method: MorphicProject>>initialize (in category 'initialize') ----- initialize "Initialize a new Morphic Project" + super initialize. + world := PasteUpMorph newWorldForProject: self. self setWorldBackground: true. + Locale switchToID: CurrentProject localeID. + Preferences useVectorVocabulary ifTrue: [world installVectorVocabulary]. + + self assureMainDockingBarPresenceMatchesPreference.! - Preferences useVectorVocabulary ifTrue: [world installVectorVocabulary]!

1 0

The Trunk: Morphic-ct.1784.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1784.mcz ==================== Summary ==================== Name: Morphic-ct.1784 Author: ct Time: 4 October 2021, 2:22:53.472931 pm UUID: 802f4119-f7af-3741-8b7c-d3a99d3a41f4 Ancestors: Morphic-ul.1780 Honor new instance variable of KeyboardEvent during comparison. =============== Diff against Morphic-ul.1780 =============== Item was changed: ----- Method: KeyboardEvent>>= (in category 'comparing') ----- = aMorphicEvent super = aMorphicEvent ifFalse:[^false]. buttons = aMorphicEvent buttons ifFalse: [^ false]. keyValue = aMorphicEvent keyValue ifFalse: [^ false]. + keyCode = aMorphicEvent keyCode ifFalse: [^ false]. + ^ true! - ^ true - !

1 0

The Trunk: Morphic-ct.1785.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1785.mcz ==================== Summary ==================== Name: Morphic-ct.1785 Author: ct Time: 4 October 2021, 5:13:36.846947 pm UUID: e5774334-8b07-7545-9ea5-5389620d51d0 Ancestors: Morphic-ul.1780 Revises proposal from Morphic-ct.1781 to rearrange menu items in the docking bar. For the sake of consistency, move the generic items to the top of the list not only in the changes menu but also in the do-it menu and in the windows menu. I argue that this way is more ergonomic for two reasons: 1. As opposed to variable items, generic items are the only constants in the menu which have the highest potential for being adopted by the muscle memory. 2. If the list gets very long, the accessibility of generic items is impaired (cf. steering law), which I consider more critical than the reduced accessibility of 1 out of 20 or 30 entries. Even worse, if the lists gets really huge, it might not fit into the height of the world (and we currently do not have scroll bars for menus). +1s or -1s and your arguments wanted. :-) =============== Diff against Morphic-ul.1780 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>listChangesOn: (in category 'submenu - changes') ----- listChangesOn: menu + menu defaultTarget: self. + menu addTranslatedList: #( + ('Simple Change Sorter' browseChanges) + ('Dual Change Sorter' browseChangesDual) + ('Browse changed methods' browseChangedMethods) + - + ('( ... fetching changes ... )' nil)). + menu lastItem isEnabled: false. + + self flag: #hack. "To avoid relayout of static items when dynamic items with icons from below will added, add blank icons right now." + menu addBlankIconsIfNecessary: (MenuIcons blankIconOfWidth: RealEstateAgent defaultIconExtent x). + + [| latestMethodChanges latestClassChanges | - | latestMethodChanges latestClassChanges| latestMethodChanges := (Array streamContents: [:s | ChangeSet current changedMethodsDo: [:method :changeType :dateAndTime :category | s nextPut: { dateAndTime. method. changeType. category }]]) sorted: [:a :b | a first >= b first]. - - 1 to: (10 min: latestMethodChanges size) do: [:index | | spec method | - spec := latestMethodChanges at: index. - method := spec second. - menu addItem: [:item | - item - contents: ('{1} {2} \{{3}\} \{{4}\}' format: {method methodClass. method selector. spec fourth. method methodClass category}) ; - target: ToolSet; - balloonText: spec third asString; - icon: ((#(remove addedThenRemoved) includes: spec third) ifTrue: [MenuIcons smallDeleteIcon] ifFalse: [ - spec third = #add ifTrue: [MenuIcons smallNewIcon] ifFalse: [MenuIcons blankIcon]]); - selector: (method isInstalled ifTrue: [#browseMethod:] ifFalse: [#browseMethodVersion:]); - arguments: {method}]]. - - latestClassChanges := (Array streamContents: [:s | - ChangeSet current changedClassesDo: [:class :changeTypes :dateAndTime :category | - "We are not interested in classes whose method's did only change." - changeTypes ifNotEmpty: [s nextPut: { dateAndTime. class. changeTypes. category }]]]) - sorted: [:a :b | a first >= b first]. - - latestClassChanges ifNotEmpty: [menu addLine]. - 1 to: (10 min: latestClassChanges size) do: [:index | | spec class | - spec := latestClassChanges at: index. - class := spec second. - menu addItem: [:item | - item - contents: ('{1} \{{2}\}' format: {class name. spec fourth }) ; - target: ToolSet; - balloonText: (spec third sorted joinSeparatedBy: Character space); - icon: ((spec third includesAnyOf: #(remove addedThenRemoved)) - ifTrue: [MenuIcons smallDeleteIcon] - ifFalse: [ - (spec third includes: #add) - ifTrue: [MenuIcons smallNewIcon] - ifFalse: [MenuIcons blankIcon]]); - selector: ((spec third includes: #remove) ifTrue: [#inspect:] ifFalse: [#browseClass:]); - arguments: {class}]]. + Project current addDeferredUIMessage: [ + menu lastItem delete. + + 1 to: (10 min: latestMethodChanges size) do: [:index | | spec method | + spec := latestMethodChanges at: index. + method := spec second. + menu addItem: [:item | + item + contents: ('{1} {2} \{{3}\} \{{4}\}' format: {method methodClass. method selector. spec fourth. method methodClass category}) ; + target: ToolSet; + balloonText: spec third asString; + icon: ((#(remove addedThenRemoved) includes: spec third) ifTrue: [MenuIcons smallDeleteIcon] ifFalse: [ + spec third = #add ifTrue: [MenuIcons smallNewIcon] ifFalse: [MenuIcons blankIcon]]); + selector: (method isInstalled ifTrue: [#browseMethod:] ifFalse: [#browseMethodVersion:]); + arguments: {method}]]. + + latestClassChanges := (Array streamContents: [:s | + ChangeSet current changedClassesDo: [:class :changeTypes :dateAndTime :category | + "We are not interested in classes whose method's did only change." + changeTypes ifNotEmpty: [s nextPut: { dateAndTime. class. changeTypes. category }]]]) + sorted: [:a :b | a first >= b first]. - menu defaultTarget: self. - menu addTranslatedList: #( - - - ('Browse current change set' browseChangeSet) - ('Browse changed methods' browseChangedMethods) - - - ('Simple Change Sorter' browseChanges) - ('Dual Change Sorter' browseChangesDual)). + latestClassChanges ifNotEmpty: [menu addLine]. + 1 to: (10 min: latestClassChanges size) do: [:index | | spec class | + spec := latestClassChanges at: index. + class := spec second. + menu addItem: [:item | + item + contents: ('{1} \{{2}\}' format: {class name. spec fourth }) ; + target: ToolSet; + balloonText: (spec third sorted joinSeparatedBy: Character space); + icon: ((spec third includesAnyOf: #(remove addedThenRemoved)) + ifTrue: [MenuIcons smallDeleteIcon] + ifFalse: [ + (spec third includes: #add) + ifTrue: [MenuIcons smallNewIcon] + ifFalse: [MenuIcons blankIcon]]); + selector: ((spec third includes: #remove) ifTrue: [#inspect:] ifFalse: [#browseClass:]); + arguments: {class}]]]] forkAt: Processor userBackgroundPriority.! - - ! Item was changed: ----- Method: TheWorldMainDockingBar>>listCommonRequestsOn: (in category 'submenu - do') ----- listCommonRequestsOn: aMenu | strings | + aMenu add: 'edit this list' translated target: Utilities action: #editCommonRequestStrings. + aMenu addLine. + strings := Utilities commonRequestStrings contents. - strings asString linesDo: [:aString | aString = '-' ifTrue: [aMenu addLine] + ifFalse: [aMenu add: (aString ifEmpty: [' ']) target: Utilities selector: #eval: argument: aString]].! - ifFalse: [aMenu add: (aString ifEmpty: [' ']) target: Utilities selector: #eval: argument: aString]]. - - aMenu addLine. - aMenu add: 'edit this list' translated target: Utilities action: #editCommonRequestStrings.! Item was changed: ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu - windows') ----- listWindowsOn: menu | windows | + menu + add: 'Collapse all windows' translated target: Project current world selector: #collapseAllWindows; + add: 'Close all windows' translated target: self selector: #closeAllWindowsUnsafe; + addItem: [:item | item + contents: 'Close all windows without changes' translated; + target: self; + icon: MenuIcons smallBroomIcon; + selector: #closeAllWindows]; + add: 'Close all windows but workspaces' translated target: self selector: #closeAllWindowsButWorkspaces; + addLine. + windows := self allVisibleWindows sorted: [:winA :winB | ((winA model isNil or: [winB model isNil]) or: [winA model name = winB model name]) ifTrue: [winA label < winB label] ifFalse: [winA model name < winB model name]]. windows ifEmpty: [ menu addItem: [ :item | item contents: 'No Windows' translated; isEnabled: false ] ]. windows do: [ :each | | windowColor | windowColor := (each model respondsTo: #windowColorToUse) ifTrue: [each model windowColorToUse] ifFalse: [UserInterfaceTheme current get: #uniformWindowColor for: Model]. menu addItem: [ :item | item contents: (self windowMenuItemLabelFor: each); icon: (self colorIcon: windowColor); target: each; selector: #comeToFront; subMenuUpdater: self selector: #windowMenuFor:on: arguments: { each }; + action: [ each beKeyWindow; expand ] ] ].! - action: [ each beKeyWindow; expand ] ] ]. - menu - addLine; - add: 'Collapse all windows' target: (Project current world) selector: #collapseAllWindows; - add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe; - addItem: [:item | item - contents: 'Close all windows without changes'; - target: self; - icon: MenuIcons smallBroomIcon; - selector: #closeAllWindows]; - add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces.!

1 0

The Trunk: Morphic-ct.1789.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1789.mcz ==================== Summary ==================== Name: Morphic-ct.1789 Author: ct Time: 26 October 2021, 8:08:31.851896 pm UUID: 48a9e28b-da86-1b44-bc84-d9e4447f374e Ancestors: Morphic-ct.1788 Fixes yellow-button menu invocation for hierarchical lists that are not inside a system window. This fixes the following issues: - Perform a yellow-button click on hierarchical list inside a dialog window (that it, outside a system window). Previously, the window menu was shown rather than the list menu. - From an object explorer, drag/copy the PluggableTreeMorph into the world via halo. If you yellow-clicked any item in the detached tree morph, the item was not selected correctly before. =============== Diff against Morphic-eem.1784 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>addMorphsTo:from:allowSorting:withExpandedItems:atLevel: (in category 'private') ----- addMorphsTo: morphList from: aCollection allowSorting: sortBoolean withExpandedItems: expandedItems atLevel: newIndent | priorMorph newCollection firstAddition | priorMorph := nil. newCollection := (sortBoolean and: [sortingSelector notNil]) ifTrue: [ aCollection sorted: [ :a :b | (a perform: sortingSelector) <= (b perform: sortingSelector)] ] ifFalse: [ aCollection ]. firstAddition := nil. newCollection do: [:item | priorMorph := self indentingItemClass basicNew initWithContents: item prior: priorMorph forList: self indentLevel: newIndent. priorMorph initWithColor: self textColor andFont: self font. priorMorph selectionColor: self selectionColor; selectionTextColor: self selectionTextColor; hoverColor: self hoverColor; highlightTextColor: self highlightTextColor; filterColor: self filterColor; + filterTextColor: self filterTextColor; + wantsYellowButtonMenu: false. - filterTextColor: self filterTextColor. firstAddition ifNil: [firstAddition := priorMorph]. morphList add: priorMorph. ((item hasEquivalentIn: expandedItems) or: [priorMorph isExpanded]) ifTrue: [ self flag: #bug. "mt: Endless recursion can happen for similar items in the tree." priorMorph isExpanded: true. priorMorph addChildrenForList: self addingTo: morphList withExpandedItems: expandedItems. ]. ]. ^firstAddition ! Item was changed: ----- Method: SimpleHierarchicalListMorph>>addSubmorphsAfter:fromCollection:allowSorting: (in category 'private') ----- addSubmorphsAfter: parentMorph fromCollection: aCollection allowSorting: sortBoolean | priorMorph morphList newCollection | priorMorph := nil. newCollection := (sortBoolean and: [sortingSelector notNil]) ifTrue: [ aCollection sorted: [ :a :b | (a perform: sortingSelector) <= (b perform: sortingSelector)] ] ifFalse: [ aCollection ]. morphList := OrderedCollection new. newCollection do: [:item | priorMorph := self indentingItemClass basicNew initWithContents: item prior: priorMorph forList: self indentLevel: parentMorph indentLevel + 1. priorMorph color: self textColor; font: self font; selectionColor: self selectionColor; selectionTextColor: self selectionTextColor; hoverColor: self hoverColor; highlightTextColor: self highlightTextColor; filterColor: self filterColor; + filterTextColor: self filterTextColor; + wantsYellowButtonMenu: false. - filterTextColor: self filterTextColor. morphList add: priorMorph. ]. scroller addAllMorphs: morphList after: parentMorph. ^morphList ! Item was changed: ----- Method: SimpleHierarchicalListMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. self setProperty: #autoExpand toValue: false. + scroller wantsYellowButtonMenu: false. self on: #mouseMove send: #mouseStillDown:onItem: to: self! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'TextEditor withAllSubclassesDo: [:editor | editor initialize]. "recreate menu morphs to update their morphic layer number"'! - (PackageInfo named: 'Morphic') postscript: 'SystemProgressMorph reset. "New layer number"'!

1 0

← Newer
1
...
15
16
17
18
19
20
21
22
23
Older →

Jump to page: