Packages October 2023

packages@lists.squeakfoundation.org

1 participants
116 discussions

The Trunk: Monticello-tpr.802.mcz
by commits＠source.squeak.org 24 Oct '23

24 Oct '23

tim Rowledge uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-tpr.802.mcz ==================== Summary ==================== Name: Monticello-tpr.802 Author: tpr Time: 23 October 2023, 4:30:19.172223 pm UUID: f14d457c-c2b2-4f37-ab6c-7f3611de11e2 Ancestors: Monticello-ct.801 Drop the deprecated #os send from MCHttpRepository class>>#useSharedWebClientInstance =============== Diff against Monticello-ct.801 =============== Item was changed: ----- Method: MCHttpRepository class>>useSharedWebClientInstance (in category 'preferences') ----- useSharedWebClientInstance <preference: 'Use shared WebClient instance' category: 'Monticello' description: 'When true, use a shared WebClient instance to speed up downloads from MCHttpRepositories. Requires WebClient to be present.' type: #Boolean> ^UseSharedWebClientInstance ifNil: [ "There is some issue on Windows and Macos, so don't use it there by default. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2019-September/threa… for details." + Smalltalk platformName ~= 'Win32' and: [Smalltalk platformName ~= 'Mac OS']]! - Smalltalk os platformName ~= 'Win32' and: [Smalltalk os platformName ~= 'Mac OS']]!

1 0

The Trunk: Morphic-mt.2135.mcz
by commits＠source.squeak.org 17 Oct '23

17 Oct '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2135.mcz ==================== Summary ==================== Name: Morphic-mt.2135 Author: mt Time: 17 October 2023, 1:20:00.950152 pm UUID: 17b9cc30-31ac-704c-b00c-0c397e33490f Ancestors: Morphic-ct.2134 In docking bar's windows menu, reorder recently added "Expand or contract" item to be near existing "Close" item because it replicates regular window button actions. Also add "Collapse" to have all major window buttons present there. =============== Diff against Morphic-ct.2134 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>windowMenuFor:on: (in category 'submenu - windows') ----- windowMenuFor: window on: menu menu addItem: [ :item | item contents: 'Close' translated ; target: window; + selector: #closeBoxHit ]; - selector: #delete ]; addItem: [ :item | + item + contents: 'Expand (or contract)' translated ; + target: window; + selector: #expandBoxHit ]; + addItem: [ :item | + item + contents: 'Collapse (or expand)' translated ; + target: window; + selector: #collapseOrExpand ]; + addLine; + addItem: [ :item | item contents: 'Close all like this' translated ; target: self; selector: #closeAllWindowsLike:; arguments: { window } ]; addItem: [ :item | item contents: 'Close all but this' translated ; target: self; selector: #closeAllWindowsBut:; arguments: { window } ]; addLine; addItem: [ :item | item contents: 'Collapse all like this' translated ; target: self; selector: #collapseAllWindowsLike:; arguments: { window } ]; addItem: [ :item | item contents: 'Collapse all but this' translated ; target: self; selector: #collapseAllWindowsBut:; + arguments: { window } ]! - arguments: { window } ]; - addLine; - addItem: [ :item | - item - contents: 'Expand or Contract' translated ; - target: window; - selector: #expandBoxHit ]!

1 0

The Trunk: ToolBuilder-Morphic-mt.348.mcz
by commits＠source.squeak.org 16 Oct '23

16 Oct '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.348.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.348 Author: mt Time: 16 October 2023, 9:09:41.218917 am UUID: 9ca4109b-56e9-a346-b4ca-6fbcffe46713 Ancestors: ToolBuilder-Morphic-mt.347 Fix position of "new directory" button in file-saver dialog. "Cancel" button should be right-most and also consistent with directory-chooser dialog. =============== Diff against ToolBuilder-Morphic-mt.347 =============== Item was changed: ----- Method: FileSaverDialog>>buildButtonsWith: (in category 'toolbuilder') ----- buildButtonsWith: builder + "add a 'new directory' button to the beginning of the row of buttons" + ^ {builder pluggableButtonSpec new - - ^ (super buildButtonsWith: builder) - copyWith: - (builder pluggableButtonSpec new model: self; label: 'New Directory' translated; color: (self userInterfaceTheme get: #buttonColor for: #DialogWindow); action: #newDirectoryName; + yourself}, (super buildButtonsWith: builder)! - yourself)!

1 0

The Trunk: Monticello-ct.801.mcz
by commits＠source.squeak.org 12 Oct '23

12 Oct '23

Christoph Thiede uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.801.mcz ==================== Summary ==================== Name: Monticello-ct.801 Author: ct Time: 12 October 2023, 9:36:36.082009 pm UUID: bb80b63c-71d6-354a-9993-15c02a2a1477 Ancestors: Monticello-mt.800 Slightly refactors MCWorkingCopyBrowser>>#addWorkingCopy according to Marcel's suggestion. =============== Diff against Monticello-mt.800 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>addWorkingCopy (in category 'actions') ----- addWorkingCopy | name packageInfo | name := Project uiManager request: 'Name of package:' translated. name isEmptyOrNil ifTrue: [^ self]. packageInfo := PackageInfo registerPackageName: name. + workingCopy := MCWorkingCopy forPackage: packageInfo mcPackage. - name := packageInfo name. "PackageInfo might assign a different name, e.g., for sanitization (see PackageInfo class>>#sanitizeName:)" - workingCopy := MCWorkingCopy forPackage: (MCPackage new name: name). workingCopyWrapper := nil. self repositorySelection: 0. self workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList. self changedButtons.!

1 0

The Trunk: Morphic-ct.2126.mcz
by commits＠source.squeak.org 12 Oct '23

12 Oct '23

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2126.mcz ==================== Summary ==================== Name: Morphic-ct.2126 Author: ct Time: 26 August 2023, 10:47:41.051023 pm UUID: fd9b4398-075b-8c40-b1a8-8997341cf46a Ancestors: Morphic-mt.2125 Fixes invalid state in text morphs when selecting text while something (e.g., a transcript) is updating the text. E.g., you could trigger a nil errorNotIndexable from SmalltalkEditor(TextEditor)>>isDisjointFrom:) by doing this: [[1 second wait. Transcript showln: DateAndTime now] repeat] forkAt: Processor userBackgroundPriority. "Drag to select text, wait for the next update, and release the cursor outside the window" Make sure not to have any stepping morphs (such as browsers) in the world to reproduce this. #forceScreen does not need to be enabled. Note that this is not a concurrency issue but also occurs when writing to the transcript from the UI process only. In general, you should not manipulate (or even access?) morphic UI state from other processes. =============== Diff against Morphic-mt.2125 =============== Item was changed: ----- Method: TextEditor>>mouseUp: (in category 'events') ----- mouseUp: evt "An attempt to break up the old processRedButton code into threee phases" "0) Click on text actions." (self mouseUpOnTextAction: evt) ifTrue: [^ self]. "1) A 'double-click' will result in selecting the whole word." (self hasCaret and: [oldInterval = self selectionInterval]) ifTrue: [self selectWord]. "2) For the next type-in, configure emphasis. We don't want to do this on every key-press for performance reasons." self setEmphasisHere. "3) Notice selection changes." + (oldInterval notNil "happens if the editor has been replaced since mouseDown: (e.g., by a programmatic text change such as #appendEntry)" + and: [self isDisjointFrom: oldInterval]) + ifTrue: [otherInterval := oldInterval]. - (self isDisjointFrom: oldInterval) - ifTrue: [otherInterval := oldInterval]. self storeSelectionInParagraph. "4) Reset mouse cursor to account for selection changes." self updateCursorForEvent: evt. morph removeProperty: #waitingForTextDrag.!

1 0

The Trunk: Morphic-ct.2128.mcz
by commits＠source.squeak.org 12 Oct '23

12 Oct '23

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2128.mcz ==================== Summary ==================== Name: Morphic-ct.2128 Author: ct Time: 29 August 2023, 7:45:00.722934 pm UUID: a9707281-add6-094c-a018-2cd2e39be9b8 Ancestors: Morphic-mt.2127 Proposal: Adds "collapse all like this" and "collapse all but this" items to windows's menu in docking bar. =============== Diff against Morphic-mt.2127 =============== Item was added: + ----- Method: TheWorldMainDockingBar>>collapseAllWindowsBut: (in category 'submenu - windows') ----- + collapseAllWindowsBut: window + (self allOtherWindowsLike: window) do: [:each | + each collapse]! Item was added: + ----- Method: TheWorldMainDockingBar>>collapseAllWindowsLike: (in category 'submenu - windows') ----- + collapseAllWindowsLike: window + self collapseAllWindowsBut: window. + window collapse! Item was changed: ----- Method: TheWorldMainDockingBar>>windowMenuFor:on: (in category 'submenu - windows') ----- windowMenuFor: window on: menu menu addItem: [ :item | item contents: 'Close' translated ; target: window; selector: #delete ]; addItem: [ :item | item contents: 'Close all like this' translated ; target: self; selector: #closeAllWindowsLike:; arguments: { window } ]; addItem: [ :item | item contents: 'Close all but this' translated ; target: self; selector: #closeAllWindowsBut:; arguments: { window } ]; + addLine; addItem: [ :item | + item + contents: 'Collapse all like this' translated ; + target: self; + selector: #collapseAllWindowsLike:; + arguments: { window } ]; + addItem: [ :item | + item + contents: 'Collapse all but this' translated ; + target: self; + selector: #collapseAllWindowsBut:; + arguments: { window } ]; + addLine; + addItem: [ :item | item contents: 'Expand or Contract' translated ; target: window; selector: #expandBoxHit ]!

1 0

The Trunk: Morphic-ct.2129.mcz
by commits＠source.squeak.org 12 Oct '23

12 Oct '23

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2129.mcz ==================== Summary ==================== Name: Morphic-ct.2129 Author: ct Time: 29 August 2023, 7:48:39.322934 pm UUID: 85e43810-9270-5b4a-bdd4-0734c01a405d Ancestors: Morphic-mt.2127 Proposal: Expand selected window from "find windows". Just highlighting the collapsed window may not provide enough visibility if there are many windows. =============== Diff against Morphic-mt.2127 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>selectWorkspace:window:inProject:contents: (in category 'submenu - windows') ----- selectWorkspace: aWorkspace window: aSystemWindow inProject: aMorphicProject contents: contents aMorphicProject + addDeferredUIMessage: [aSystemWindow expand; comeToFront]; - addDeferredUIMessage: [aSystemWindow comeToFront]; enter "Does nothing if already the current project..." !

1 0

The Trunk: Morphic-ct.2134.mcz
by commits＠source.squeak.org 12 Oct '23

12 Oct '23

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2134.mcz ==================== Summary ==================== Name: Morphic-ct.2134 Author: ct Time: 12 October 2023, 8:29:39.245009 pm UUID: 49daba16-98e1-a545-bf9a-e0bcb5500ddb Ancestors: Morphic-eem.2133, Morphic-ct.2129, Morphic-ct.2128, Morphic-ct.2126 Merge. Morphic-ct.2129: Expand selected window from "find windows". Morphic-ct.2128: Adds "collapse all like this" and "collapse all but this" items to windows's menu in docking bar. Morphic-ct.2126: Fixes invalid state in text morphs when selecting text while something (e.g., a transcript) is updating the text. =============== Diff against Morphic-eem.2133 =============== Item was changed: ----- Method: TextEditor>>mouseUp: (in category 'events') ----- mouseUp: evt "An attempt to break up the old processRedButton code into threee phases" "0) Click on text actions." (self mouseUpOnTextAction: evt) ifTrue: [^ self]. "1) A 'double-click' will result in selecting the whole word." (self hasCaret and: [oldInterval = self selectionInterval]) ifTrue: [self selectWord]. "2) For the next type-in, configure emphasis. We don't want to do this on every key-press for performance reasons." self setEmphasisHere. "3) Notice selection changes." + (oldInterval notNil "happens if the editor has been replaced since mouseDown: (e.g., by a programmatic text change such as #appendEntry)" + and: [self isDisjointFrom: oldInterval]) + ifTrue: [otherInterval := oldInterval]. - (self isDisjointFrom: oldInterval) - ifTrue: [otherInterval := oldInterval]. self storeSelectionInParagraph. "4) Reset mouse cursor to account for selection changes." self updateCursorForEvent: evt. morph removeProperty: #waitingForTextDrag.! Item was added: + ----- Method: TheWorldMainDockingBar>>collapseAllWindowsBut: (in category 'submenu - windows') ----- + collapseAllWindowsBut: window + (self allOtherWindowsLike: window) do: [:each | + each collapse]! Item was added: + ----- Method: TheWorldMainDockingBar>>collapseAllWindowsLike: (in category 'submenu - windows') ----- + collapseAllWindowsLike: window + self collapseAllWindowsBut: window. + window collapse! Item was changed: ----- Method: TheWorldMainDockingBar>>selectWorkspace:window:inProject:contents: (in category 'submenu - windows') ----- selectWorkspace: aWorkspace window: aSystemWindow inProject: aMorphicProject contents: contents aMorphicProject + addDeferredUIMessage: [aSystemWindow expand; comeToFront]; - addDeferredUIMessage: [aSystemWindow comeToFront]; enter "Does nothing if already the current project..." ! Item was changed: ----- Method: TheWorldMainDockingBar>>windowMenuFor:on: (in category 'submenu - windows') ----- windowMenuFor: window on: menu menu addItem: [ :item | item contents: 'Close' translated ; target: window; selector: #delete ]; addItem: [ :item | item contents: 'Close all like this' translated ; target: self; selector: #closeAllWindowsLike:; arguments: { window } ]; addItem: [ :item | item contents: 'Close all but this' translated ; target: self; selector: #closeAllWindowsBut:; arguments: { window } ]; + addLine; addItem: [ :item | + item + contents: 'Collapse all like this' translated ; + target: self; + selector: #collapseAllWindowsLike:; + arguments: { window } ]; + addItem: [ :item | + item + contents: 'Collapse all but this' translated ; + target: self; + selector: #collapseAllWindowsBut:; + arguments: { window } ]; + addLine; + addItem: [ :item | item contents: 'Expand or Contract' translated ; target: window; selector: #expandBoxHit ]!

1 0

The Trunk: System-ct.1424.mcz
by commits＠source.squeak.org 12 Oct '23

12 Oct '23

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1424.mcz ==================== Summary ==================== Name: System-ct.1424 Author: ct Time: 29 August 2023, 7:41:28.345934 pm UUID: 9af4e7bf-a99d-8a43-9de5-87c8ed70ce94 Ancestors: System-mt.1423 Revises RealEstateAgent logic for placing collapsed windows to deal with more windows than fit in one column by arranging them next to each other. Speeds up the logic for high-DPI displays by honoring the current scaleFactor. =============== Diff against System-mt.1423 =============== Item was changed: ----- Method: RealEstateAgent class>>assignCollapseFrameFor: (in category 'utilities') ----- assignCollapseFrameFor: aSSView "Offer up a location along the left edge of the screen for a collapsed SSView. Make sure it doesn't overlap any other collapsed frames." + | grid verticalBorderDistance horizontalBorderDistance otherFrames viewBox collapsedFrame extent top column countInColumn topLeft newFrame row rowLeft rowFrame | + grid := 8 px. + verticalBorderDistance := 8 px. + horizontalBorderDistance := 8 px. + - | grid otherFrames topLeft viewBox collapsedFrame extent newFrame verticalBorderDistance top | - grid := 8. - verticalBorderDistance := 8. aSSView isMorph ifTrue: [otherFrames := (SystemWindow windowsIn: aSSView world satisfying: [:w | w ~= aSSView]) collect: [:w | w collapsedFrame] thenSelect: [:rect | rect notNil]. viewBox := self maximumUsableAreaInWorld: aSSView world] ifFalse: [otherFrames := ScheduledControllers scheduledWindowControllers collect: [:aController | aController view ~= aSSView ifTrue: [aController view collapsedFrame]] thenSelect: [:rect | rect notNil]. viewBox := Display boundingBox]. + otherFrames sort: [:w | w right] ascending. collapsedFrame := aSSView collapsedFrame. extent := collapsedFrame notNil ifTrue: [collapsedFrame extent] ifFalse: [aSSView isMorph + ifTrue: [aSSView getRawLabel width + aSSView labelWidgetAllowance @ (aSSView labelHeight + 2 px)] + ifFalse: [(aSSView labelText extent x + 70 px) @ aSSView labelHeight - ifTrue: [aSSView getRawLabel width + aSSView labelWidgetAllowance @ (aSSView labelHeight + 2)] - ifFalse: [(aSSView labelText extent x + 70) @ aSSView labelHeight min: aSSView labelDisplayBox extent]]. collapsedFrame notNil ifTrue: [(otherFrames anySatisfy: [:f | collapsedFrame intersects: f]) ifFalse: ["non overlapping" ^ collapsedFrame]]. + + column := 0. + countInColumn := nil. + [countInColumn = 0] + whileFalse: + [top := viewBox top + verticalBorderDistance. + countInColumn := 0. + [topLeft := viewBox left @ top. + newFrame := topLeft extent: extent. + newFrame bottom <= (viewBox height - verticalBorderDistance)] + whileTrue: + [row := otherFrames select: [:w | newFrame intersects: w]. + column > 0 ifFalse: [rowFrame := newFrame] ifTrue: [ + rowLeft := ((otherFrames collect: [:w | w right]) take: column) last + horizontalBorderDistance. + rowFrame := newFrame translateBy: (rowLeft @ 0). + row := otherFrames select: [:w | rowFrame intersects: w]]. + (viewBox containsRect: rowFrame) ifTrue: [ + row ifEmpty: ["no overlap" + ^ rowFrame]. + countInColumn := countInColumn + 1]. + top := top + grid]. + column := column + 1]. + + "If all else fails... (really too many wins here)" - top := viewBox top + verticalBorderDistance. - [topLeft := viewBox left @ top. - newFrame := topLeft extent: extent. - newFrame bottom <= (viewBox height - verticalBorderDistance)] - whileTrue: - [(otherFrames anySatisfy: [:w | newFrame intersects: w]) - ifFalse: ["no overlap" - ^ newFrame]. - top := top + grid]. - "If all else fails... (really to many wins here)" aSSView isMorph ifTrue:[ Project current showWorldMainDockingBar ifTrue:[^ (0 @ Project current world mainDockingBars first height) extent: extent]]. ^ 0 @ 0 extent: extent! Item was changed: ----- Method: RealEstateAgent class>>assignCollapsePointFor: (in category 'utilities') ----- assignCollapsePointFor: aSSView "Offer up a location along the left edge of the screen for a collapsed SSView. Make sure it doesn't overlap any other collapsed frames." + | grid otherFrames viewBox column countInColumn y row topLeft currentRowLeft rowLeft | + grid := 24 px. "should be mult of 8, since manual move is gridded by 8 px" - | grid otherFrames y free topLeft viewBox | - grid := 24. "should be mult of 8, since manual move is gridded by 8" aSSView isMorph ifTrue: [otherFrames := (SystemWindow windowsIn: aSSView world satisfying: [:w | true]) collect: [:w | w collapsedFrame] thenSelect: [:rect | rect notNil]. viewBox := self maximumUsableAreaInWorld: aSSView world] ifFalse: [otherFrames := ScheduledControllers scheduledWindowControllers collect: [:aController | aController view collapsedFrame] thenSelect: [:rect | rect notNil]. viewBox := Display boundingBox]. + otherFrames sort: [:w | w right] ascending. + + column := 0. + countInColumn := nil. + [countInColumn = 0] + whileFalse: + [y := viewBox top. + countInColumn := 0. + [(y := y + grid) <= (viewBox height - grid)] + whileTrue: + [topLeft := viewBox left@y. + row := otherFrames select: [:w | topLeft = w topLeft]. + column > 0 ifFalse: [currentRowLeft := topLeft] ifTrue: [ + rowLeft := ((otherFrames collect: [:w | w right]) take: column) last + grid. + currentRowLeft := topLeft translateBy: (rowLeft @ 0). + row := otherFrames select: [:w | currentRowLeft = w topLeft]]. + (viewBox containsPoint: topLeft) ifTrue: [ + row ifEmpty: ["no overlap" + ^ topLeft]. + countInColumn := countInColumn + 1]]. + column := column + 1]. + - y := viewBox top. - [(y := y + grid) <= (viewBox height - grid)] - whileTrue: - [topLeft := viewBox left@y. - free := true. - otherFrames do: [:w | free := free & (topLeft ~= w topLeft)]. - free ifTrue: [^ topLeft]]. "If all else fails..." ^ 0 @ 0!

1 0

The Trunk: System-ct.1428.mcz
by commits＠source.squeak.org 12 Oct '23

12 Oct '23

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1428.mcz ==================== Summary ==================== Name: System-ct.1428 Author: ct Time: 12 October 2023, 8:21:45.324009 pm UUID: f64b78ad-e590-5244-a502-69ac93d54093 Ancestors: System-ct.1427, System-ct.1424 Merges System-ct.1424: Revises RealEstateAgent logic for placing collapsed windows to deal with more windows than fit in one column by arranging them next to each other. Speeds up the logic for high-DPI displays by honoring the current scaleFactor. =============== Diff against System-ct.1427 =============== Item was changed: ----- Method: RealEstateAgent class>>assignCollapseFrameFor: (in category 'utilities') ----- assignCollapseFrameFor: aSSView "Offer up a location along the left edge of the screen for a collapsed SSView. Make sure it doesn't overlap any other collapsed frames." + | grid verticalBorderDistance horizontalBorderDistance otherFrames viewBox collapsedFrame extent top column countInColumn topLeft newFrame row rowLeft rowFrame | + grid := 8 px. + verticalBorderDistance := 8 px. + horizontalBorderDistance := 8 px. + - | grid otherFrames topLeft viewBox collapsedFrame extent newFrame verticalBorderDistance top | - grid := 8. - verticalBorderDistance := 8. aSSView isMorph ifTrue: [otherFrames := (SystemWindow windowsIn: aSSView world satisfying: [:w | w ~= aSSView]) collect: [:w | w collapsedFrame] thenSelect: [:rect | rect notNil]. viewBox := self maximumUsableAreaInWorld: aSSView world] ifFalse: [otherFrames := ScheduledControllers scheduledWindowControllers collect: [:aController | aController view ~= aSSView ifTrue: [aController view collapsedFrame]] thenSelect: [:rect | rect notNil]. viewBox := Display boundingBox]. + otherFrames sort: [:w | w right] ascending. collapsedFrame := aSSView collapsedFrame. extent := collapsedFrame notNil ifTrue: [collapsedFrame extent] ifFalse: [aSSView isMorph + ifTrue: [aSSView getRawLabel width + aSSView labelWidgetAllowance @ (aSSView labelHeight + 2 px)] + ifFalse: [(aSSView labelText extent x + 70 px) @ aSSView labelHeight - ifTrue: [aSSView getRawLabel width + aSSView labelWidgetAllowance @ (aSSView labelHeight + 2)] - ifFalse: [(aSSView labelText extent x + 70) @ aSSView labelHeight min: aSSView labelDisplayBox extent]]. collapsedFrame notNil ifTrue: [(otherFrames anySatisfy: [:f | collapsedFrame intersects: f]) ifFalse: ["non overlapping" ^ collapsedFrame]]. + + column := 0. + countInColumn := nil. + [countInColumn = 0] + whileFalse: + [top := viewBox top + verticalBorderDistance. + countInColumn := 0. + [topLeft := viewBox left @ top. + newFrame := topLeft extent: extent. + newFrame bottom <= (viewBox height - verticalBorderDistance)] + whileTrue: + [row := otherFrames select: [:w | newFrame intersects: w]. + column > 0 ifFalse: [rowFrame := newFrame] ifTrue: [ + rowLeft := ((otherFrames collect: [:w | w right]) take: column) last + horizontalBorderDistance. + rowFrame := newFrame translateBy: (rowLeft @ 0). + row := otherFrames select: [:w | rowFrame intersects: w]]. + (viewBox containsRect: rowFrame) ifTrue: [ + row ifEmpty: ["no overlap" + ^ rowFrame]. + countInColumn := countInColumn + 1]. + top := top + grid]. + column := column + 1]. + + "If all else fails... (really too many wins here)" - top := viewBox top + verticalBorderDistance. - [topLeft := viewBox left @ top. - newFrame := topLeft extent: extent. - newFrame bottom <= (viewBox height - verticalBorderDistance)] - whileTrue: - [(otherFrames anySatisfy: [:w | newFrame intersects: w]) - ifFalse: ["no overlap" - ^ newFrame]. - top := top + grid]. - "If all else fails... (really to many wins here)" aSSView isMorph ifTrue:[ Project current showWorldMainDockingBar ifTrue:[^ (0 @ Project current world mainDockingBars first height) extent: extent]]. ^ 0 @ 0 extent: extent! Item was changed: ----- Method: RealEstateAgent class>>assignCollapsePointFor: (in category 'utilities') ----- assignCollapsePointFor: aSSView "Offer up a location along the left edge of the screen for a collapsed SSView. Make sure it doesn't overlap any other collapsed frames." + | grid otherFrames viewBox column countInColumn y row topLeft currentRowLeft rowLeft | + grid := 24 px. "should be mult of 8, since manual move is gridded by 8 px" - | grid otherFrames y free topLeft viewBox | - grid := 24. "should be mult of 8, since manual move is gridded by 8" aSSView isMorph ifTrue: [otherFrames := (SystemWindow windowsIn: aSSView world satisfying: [:w | true]) collect: [:w | w collapsedFrame] thenSelect: [:rect | rect notNil]. viewBox := self maximumUsableAreaInWorld: aSSView world] ifFalse: [otherFrames := ScheduledControllers scheduledWindowControllers collect: [:aController | aController view collapsedFrame] thenSelect: [:rect | rect notNil]. viewBox := Display boundingBox]. + otherFrames sort: [:w | w right] ascending. + + column := 0. + countInColumn := nil. + [countInColumn = 0] + whileFalse: + [y := viewBox top. + countInColumn := 0. + [(y := y + grid) <= (viewBox height - grid)] + whileTrue: + [topLeft := viewBox left@y. + row := otherFrames select: [:w | topLeft = w topLeft]. + column > 0 ifFalse: [currentRowLeft := topLeft] ifTrue: [ + rowLeft := ((otherFrames collect: [:w | w right]) take: column) last + grid. + currentRowLeft := topLeft translateBy: (rowLeft @ 0). + row := otherFrames select: [:w | currentRowLeft = w topLeft]]. + (viewBox containsPoint: topLeft) ifTrue: [ + row ifEmpty: ["no overlap" + ^ topLeft]. + countInColumn := countInColumn + 1]]. + column := column + 1]. + - y := viewBox top. - [(y := y + grid) <= (viewBox height - grid)] - whileTrue: - [topLeft := viewBox left@y. - free := true. - otherFrames do: [:w | free := free & (topLeft ~= w topLeft)]. - free ifTrue: [^ topLeft]]. "If all else fails..." ^ 0 @ 0!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2023