Squeak-dev June 2022

squeak-dev@lists.squeakfoundation.org

30 participants
310 discussions

The Trunk: ReleaseBuilder-mt.237.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.237.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.237 Author: mt Time: 22 June 2022, 3:33:19.675264 pm UUID: d10fde5b-f367-8b46-aab5-f83a3143fff5 Ancestors: ReleaseBuilder-mt.236 Declare first release candidate of Squeak 6.0. See bundles in http://files.squeak.org/6.0rc1/. =============== Diff against ReleaseBuilder-mt.236 =============== Item was changed: ----- Method: ReleaseBuilder class>>initialize (in category 'class initialization') ----- initialize QAndA ifNil: [self clearQAndA]. "We have to be after AutoStart so that Morphic is up and running." Smalltalk addToStartUpList: ReleaseBuilder after: AutoStart. + SystemVersion newVersion: 'Squeak6.0rc1'! - SystemVersion newVersion: 'Squeak6.0beta'!

1 0

The Trunk: Tools-ct.1147.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1147.mcz ==================== Summary ==================== Name: Tools-ct.1147 Author: ct Time: 26 April 2022, 12:12:36.942702 pm UUID: 11944f29-f575-7b41-824d-71e945afa0d2 Ancestors: Tools-tpr.1146 Updates workspace styles after toggling #shouldStyle preference. This also improves the liveness in the preference wizard. =============== Diff against Tools-tpr.1146 =============== Item was changed: ----- Method: Workspace class>>shouldStyle: (in category 'preferences') ----- shouldStyle: aBoolean + ShouldStyle := aBoolean. + + self allSubInstancesDo: [:workspace | workspace changed: #style].! - ShouldStyle := aBoolean!

1 0

The Trunk: Tools-kfr.1161.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-kfr.1161.mcz ==================== Summary ==================== Name: Tools-kfr.1161 Author: kfr Time: 4 June 2022, 8:13:54.520458 pm UUID: 8880e2ae-b1d5-ad46-8d3b-27d99549220a Ancestors: Tools-ct.1160 Open a HelpBrowser with TextLink. Example: TerseGuideHelp Help Select text, press Alt+5 (CMD on Mac) and select 'Link to help on class' (A link of this format: 'My Link<TerseGuideHelp Help>' will hide the part between < & > ) Dependent on Collections-kfr.1011 =============== Diff against Tools-ct.1160 =============== Item was changed: ----- Method: Model>>addItem: (in category '*Tools') ----- addItem: classAndMethod "Open a browser directly on the given class and method Model new addItem: 'Model addItem:' Model new addItem: 'Model>>addItem:' " self flag: #mref. "classAndMethod is a String" MessageSet parse: classAndMethod toClassAndSelector: [ :class :sel | class ifNil: [^self]. sel = #Comment ifTrue: [^ Browser fullOnClassComment: class]. sel = #Definition ifTrue: [^ Browser newOnClass: class]. sel = #Hierarchy ifTrue: [^ HierarchyBrowser fullOnClass: class]. + sel = #Help ifTrue: [^HelpBrowser openOn: class]. Browser newOnClass: class selector: sel ] !

1 0

The Trunk: System-kfr.1161.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-kfr.1161.mcz ==================== Summary ==================== Name: System-kfr.1161 Author: kfr Time: 4 June 2020, 11:05:51.49313 pm UUID: 38776d4a-508a-7044-ab72-4cb34ceaceea Ancestors: System-mt.1160 Return nil instead of opening pre debugger =============== Diff against System-mt.1160 =============== Item was changed: ----- Method: StandardFileStream class>>fileExistsUserHandling:ifDebug: (in category '*System-Files-error handling') ----- fileExistsUserHandling: fullFileName ifDebug: debugBlock | dir localName choice newName newFullFileName | dir := FileDirectory forFileName: fullFileName. localName := FileDirectory localNameFor: fullFileName. choice := (UIManager default chooseFrom: #('overwrite that file' 'append (risky!!!!)' 'choose another name' 'debug' 'cancel') title: localName, ' already exists.'). choice = 1 ifTrue: [ dir deleteFileNamed: localName ifAbsent: [self error: 'Could not delete the old version of that file']. ^ self new open: fullFileName forWrite: true]. choice = 2 ifTrue: [ ^ (self new open: fullFileName forWrite: true) setToEnd]. choice = 3 ifTrue: [ newName := UIManager default request: 'Enter a new file name' initialAnswer: fullFileName. newFullFileName := self fullName: newName. ^ self newFileNamed: newFullFileName]. choice = 4 ifTrue: [^ debugBlock value]. + choice = 5 ifTrue: [^ nil].! - self error: 'Please close this to abort file opening'!

2 1

The Inbox: System-kfr.1161.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of System to project The Inbox: http://source.squeak.org/inbox/System-kfr.1161.mcz ==================== Summary ==================== Name: System-kfr.1161 Author: kfr Time: 4 June 2020, 11:05:51.49313 pm UUID: 38776d4a-508a-7044-ab72-4cb34ceaceea Ancestors: System-mt.1160 Return nil instead of opening pre debugger =============== Diff against System-mt.1160 =============== Item was changed: ----- Method: StandardFileStream class>>fileExistsUserHandling:ifDebug: (in category '*System-Files-error handling') ----- fileExistsUserHandling: fullFileName ifDebug: debugBlock | dir localName choice newName newFullFileName | dir := FileDirectory forFileName: fullFileName. localName := FileDirectory localNameFor: fullFileName. choice := (UIManager default chooseFrom: #('overwrite that file' 'append (risky!!!!)' 'choose another name' 'debug' 'cancel') title: localName, ' already exists.'). choice = 1 ifTrue: [ dir deleteFileNamed: localName ifAbsent: [self error: 'Could not delete the old version of that file']. ^ self new open: fullFileName forWrite: true]. choice = 2 ifTrue: [ ^ (self new open: fullFileName forWrite: true) setToEnd]. choice = 3 ifTrue: [ newName := UIManager default request: 'Enter a new file name' initialAnswer: fullFileName. newFullFileName := self fullName: newName. ^ self newFileNamed: newFullFileName]. choice = 4 ifTrue: [^ debugBlock value]. + choice = 5 ifTrue: [^ nil].! - self error: 'Please close this to abort file opening'!

1 0

The Trunk: Tools-mt.1166.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1166.mcz ==================== Summary ==================== Name: Tools-mt.1166 Author: mt Time: 22 June 2022, 3:14:20.916264 pm UUID: 44b8ab83-2847-7b42-86ae-a774a407c7f2 Ancestors: Tools-mt.1165, Tools-kfr.1161, Tools-ct.1147 Merges Tools-kfr.1161, Tools-ct.1147. Tools-kfr.1161: Open a HelpBrowser with TextLink. [...] Tools-ct.1147: Updates workspace styles after toggling #shouldStyle preference. This also improves the liveness in the preference wizard. =============== Diff against Tools-mt.1165 =============== Item was changed: ----- Method: Model>>addItem: (in category '*Tools') ----- addItem: classAndMethod "Open a browser directly on the given class and method Model new addItem: 'Model addItem:' Model new addItem: 'Model>>addItem:' " self flag: #mref. "classAndMethod is a String" MessageSet parse: classAndMethod toClassAndSelector: [ :class :sel | class ifNil: [^self]. sel = #Comment ifTrue: [^ Browser fullOnClassComment: class]. sel = #Definition ifTrue: [^ Browser newOnClass: class]. sel = #Hierarchy ifTrue: [^ HierarchyBrowser fullOnClass: class]. + sel = #Help ifTrue: [^HelpBrowser openOn: class]. Browser newOnClass: class selector: sel ] ! Item was changed: ----- Method: Workspace class>>shouldStyle: (in category 'preferences') ----- shouldStyle: aBoolean + ShouldStyle := aBoolean. + + self allSubInstancesDo: [:workspace | workspace changed: #style].! - ShouldStyle := aBoolean!

1 0

The Trunk: MorphicExtras-lrnp.317.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-lrnp.317.mcz ==================== Summary ==================== Name: MorphicExtras-lrnp.317 Author: lrnp Time: 15 June 2022, 11:14:04.676571 pm UUID: 27d99231-56bb-48d4-b840-b5a5f28e0d3b Ancestors: MorphicExtras-mt.316 improve visibility of dark flap's text =============== Diff against MorphicExtras-mt.316 =============== Item was changed: ----- Method: FlapTab>>assumeString:font:orientation:color: (in category 'textual tabs') ----- assumeString: aString font: aFont orientation: orientationSymbol color: aColor | aTextMorph workString tabStyle | labelString := aString asString. workString := orientationSymbol == #vertical ifTrue: [String streamContents: [:s | labelString do: [:c | s nextPut: c] separatedBy: [s nextPut: Character cr]]] ifFalse: [labelString]. tabStyle := TextStyle new newFontArray: (Array with: aFont). aTextMorph := (TextMorph new setTextStyle: tabStyle) contents: (workString asText addAttribute: (TextKern kern: 3)). aTextMorph wrapFlag: true. self removeAllMorphs. self borderStyle: (BorderStyle raised width: 2). + aColor ifNotNil: [self color: aColor. aTextMorph color: aColor makeForegroundColor]. - aColor ifNotNil: [self color: aColor]. self addMorph: aTextMorph centered. aTextMorph lock " FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab] "!

1 0

The Trunk: MorphicExtras-mt.318.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.318.mcz ==================== Summary ==================== Name: MorphicExtras-mt.318 Author: mt Time: 22 June 2022, 3:13:03.918264 pm UUID: 92fcf806-09d2-2c45-95c3-f3fd5ae6d85f Ancestors: MorphicExtras-ct.317, MorphicExtras-lrnp.317 Merges MorphicExtras-lrnp.317: improve visibility of dark flap's text =============== Diff against MorphicExtras-ct.317 =============== Item was changed: ----- Method: FlapTab>>assumeString:font:orientation:color: (in category 'textual tabs') ----- assumeString: aString font: aFont orientation: orientationSymbol color: aColor | aTextMorph workString tabStyle | labelString := aString asString. workString := orientationSymbol == #vertical ifTrue: [String streamContents: [:s | labelString do: [:c | s nextPut: c] separatedBy: [s nextPut: Character cr]]] ifFalse: [labelString]. tabStyle := TextStyle new newFontArray: (Array with: aFont). aTextMorph := (TextMorph new setTextStyle: tabStyle) contents: (workString asText addAttribute: (TextKern kern: 3)). aTextMorph wrapFlag: true. self removeAllMorphs. self borderStyle: (BorderStyle raised width: 2). + aColor ifNotNil: [self color: aColor. aTextMorph color: aColor makeForegroundColor]. - aColor ifNotNil: [self color: aColor]. self addMorph: aTextMorph centered. aTextMorph lock " FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab] "!

1 0

The Trunk: Morphic-ct.1994.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1994.mcz ==================== Summary ==================== Name: Morphic-ct.1994 Author: ct Time: 19 May 2022, 1:23:51.16178 pm UUID: 114c8aca-e31d-444d-8cc2-d19bebd28cdc Ancestors: Morphic-ct.1993 Minor UI improvement to FontImporter: Use menu style for the previewText button and make the buttons in the preview slightly larger to avoid overlapping texts. =============== Diff against Morphic-ct.1993 =============== Item was changed: ----- Method: FontImporterTool>>buildPreviewPaneWith: (in category 'ui - building') ----- buildPreviewPaneWith: builder "Build the preview panel. Offer the user the change preview text through the default font, point size, extra (glyph) scale and extra (line) gap." ^ builder pluggablePanelSpec new " wantsResizeHandles: true;" children: { builder pluggablePanelSpec new children: { builder pluggableButtonSpec new model: self; help: #previewTextButtonHelp; label: #previewTextButtonLabel; action: #offerPreviewTextMenu; + style: #menuButton; + frame: (LayoutFrame fractions: (0@0 corner: 0.2@1)); - frame: (LayoutFrame fractions: (0@0 corner: 0.15@1)); yourself. builder pluggableInputFieldSpec new model: self; help: 'Type custom preview text here...' translated; getText: #customPreviewText; setText: #acceptCustomPreviewText:; editText: #editCustomPreviewText:; plainTextOnly: true; + frame: (LayoutFrame fractions: (0.2@0 corner: 0.8@1)); - frame: (LayoutFrame fractions: (0.15@0 corner: 0.85@1)); yourself. builder pluggableButtonSpec new model: self; help: 'Click to see current preview text using the system''s current fonts for comparison' translated; label: 'Compare' translated; action: #browseSystemFonts; + frame: (LayoutFrame fractions: (0.8@0 corner: 1@1)); - frame: (LayoutFrame fractions: (0.85@0 corner: 1@1)); yourself }; frame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ self customPreviewTextHeight)); yourself. builder pluggableTextSpec new model: self; getText: #previewText; textStyle: #selectedFontTextStyle; askBeforeDiscardingEdits: false; indicateUnacceptedChanges: false; softLineWrap: false; padding: self previewTextPadding; stylerClass: (TextStyler for: #Smalltalk); menu: #previewTextMenu:shifted:; frame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0 @ self customPreviewTextHeight corner: 0@ self configurationPanelHeight negated)); yourself. builder pluggablePanelSpec new name: #configPanel; children: (Array streamContents: [:s | | n | n := 0. self fontConfigurationSpecs groupsDo: [:kind :get :help :label :group | | w | kind caseOf: { [#spacer] -> [ w := builder pluggableSpacerSpec new fillSpaceHorizontally]. [#button] -> [ w := builder pluggableButtonSpec new model: self; label: label; action: get; help: help; yourself]. [#text] -> [ w := builder pluggableInputFieldSpec new model: self; getText: get; setText: get asSimpleSetter; help: help; plainTextOnly: true; yourself]. } otherwise: [ "Ignore" ]. w ifNotNil: [ "Remember the group. See #toggleEditMode" w name: (group, (n := n + 1)) asSymbol. s nextPut: w] ]]); layout: #horizontal; frame: self configurationPanelFrame; yourself. }; yourself!

1 0

The Trunk: Morphic-ct.2010.mcz
by commits＠source.squeak.org 22 Jun '22

22 Jun '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2010.mcz ==================== Summary ==================== Name: Morphic-ct.2010 Author: ct Time: 16 June 2022, 6:46:17.941852 pm UUID: 7427f838-4f8f-7b49-99f5-d08cd9eeac53 Ancestors: Morphic-mt.2007 Proposal to fix z-order of docking bar menus when etoys mode is activated. =============== Diff against Morphic-mt.2007 =============== Item was added: + ----- Method: DockingBarMenuMorph>>popUpAdjacentTo:forHand:from: (in category 'as yet unclassified') ----- + popUpAdjacentTo: rightOrLeftPoint forHand: hand from: sourceItem + + | ownerInWorld world | + super popUpAdjacentTo: rightOrLeftPoint forHand: hand from: sourceItem. + + "Docking bar and protruding menu should appear visually merged. Move the source item behind the receiver. If we did it the other way around, other navigators and docking bars in front of the sourceItem would cover the receiver. For the same reason, we can't use a higher different morphic layer numbers for docking bar menus because this would hide them after all other navigators." + world := owner world. + ownerInWorld := sourceItem firstOwnerSuchThat: [:owner | owner owner == world]. + world addMorph: ownerInWorld inFrontOf: self.! Item was changed: ----- Method: DockingBarMorph>>add:icon:help:subMenu: (in category 'construction') ----- add: wordingString icon: aForm help: helpString subMenu: aMenuMorph "Append the given submenu with the given label." | item | item := DockingBarItemMorph new. item contents: wordingString. item subMenu: aMenuMorph. item icon: aForm. helpString isNil ifFalse: [item setBalloonText: helpString]. aMenuMorph ifNotNil: [ + "Docking bar and protruding menu should appear visually merged." + aMenuMorph morphicLayerNumber: self morphicLayerNumber]. - aMenuMorph morphicLayerNumber: self morphicLayerNumber + 1]. self addMorphBack: item! Item was changed: ----- Method: DockingBarMorph>>add:icon:selectedIcon:help:subMenu: (in category 'construction') ----- add: wordingString icon: aForm selectedIcon: anotherForm help: helpString subMenu: aMenuMorph "Append the given submenu with the given label." | item | item := DockingBarItemMorph new contents: wordingString; subMenu: aMenuMorph; icon: aForm; selectedIcon: anotherForm. helpString ifNotNil: [ item setBalloonText: helpString ]. aMenuMorph ifNotNil: [ + "Docking bar and protruding menu should appear visually merged." + aMenuMorph morphicLayerNumber: self morphicLayerNumber]. - aMenuMorph morphicLayerNumber: self morphicLayerNumber + 1 ]. self addMorphBack: item! Item was changed: ----- Method: DockingBarMorph>>addItem: (in category 'construction') ----- addItem: aBlock | item | item := DockingBarItemMorph new. aBlock value: item. item subMenu ifNotNil: [:menu | "Docking bar and protruding menu should appear visually merged." + menu morphicLayerNumber: self morphicLayerNumber]. - menu morphicLayerNumber: self morphicLayerNumber + 1]. self addMorphBack: item! Item was changed: ----- Method: DockingBarMorph>>addUpdatingItem: (in category 'construction') ----- addUpdatingItem: aBlock | item | item := DockingBarUpdatingItemMorph new. aBlock value: item. item subMenu ifNotNil: [:menu | "Docking bar and protruding menu should appear visually merged." + menu morphicLayerNumber: self morphicLayerNumber]. - menu morphicLayerNumber: self morphicLayerNumber + 1]. self addMorphBack: item!

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
31
Older →

Jump to page: