Packages August 2023

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Files-mt.205.mcz
by commits＠source.squeak.org 31 Aug '23

31 Aug '23

Marcel Taeumel uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-mt.205.mcz ==================== Summary ==================== Name: Files-mt.205 Author: mt Time: 31 August 2023, 2:45:15.602117 pm UUID: f266e8ba-65e3-6c43-9f32-cb92acce32ab Ancestors: Files-mt.204 Adds commentary for path-lookup edge case on Windows platform. For the changed win32 platform code, see OSVM commit 330d6779ad2ecbce1f07131f53d75cd168165f0b Complements VMMaker.oscog-mt.3336 (only commentary) =============== Diff against Files-mt.204 =============== Item was changed: FileDirectory subclass: #DosFileDirectory instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Files-Directories'! + !DosFileDirectory commentStamp: 'ct 8/17/2023 13:25' prior: 0! + I represent a DOS or Windows FileDirectory. Paths follow the usual syntax for Microsoft Windows, including a length limit to 260 characters. Above these limit, the VM falls back to UNC paths, which however do not support syntactic sugar in paths such as '.', '..', or forward slashes instead of backward slashes. See examples in my primitive methods. Thus, any primitive call for a possibly long path should not contain such syntactic sugar. Perspectively, this class should wipe out all this sugar during construction (normalization).! - !DosFileDirectory commentStamp: '<historical>' prior: 0! - I represent a DOS or Windows FileDirectory. - ! Item was changed: ----- Method: FileDirectory>>primLookupEntryIn:index: (in category 'private') ----- primLookupEntryIn: fullPath index: index "Look up the index-th entry of the directory with the given fully-qualified path (i.e., starting from the root of the file hierarchy) and return an array containing: <name> <creationTime> <modificationTime> <dirFlag> <fileSize> The empty string enumerates the top-level files or drives. (For example, on Unix, the empty path enumerates the contents of '/'. On Macs and PCs, it enumerates the mounted volumes/drives.) + Note that in general, fullPath must not contain syntactic sugar for the current platform (e.g., '.' or '..', or on Windows, forward slashes instead of backslashes). These conventions are only fully supported on Unix platforms; on Windows, they are only supported for short non-UNC file paths containing max 260 characters: + DON'T: self primLookupEntryIn: '<very long path>\foo\.' index: ... + DON'T: self primLookupEntryIn: '<very long path>\foo\..' index: ... + DON'T (on Windows): self primLookupEntryIn: '<very long path>\foo/bar' index: ... + See the comment in the primitive implementation for more details. The creation and modification times are in seconds since the start of the Smalltalk time epoch. DirFlag is true if the entry is a directory. FileSize the file size in bytes or zero for directories. The primitive returns nil when index is past the end of the directory. It fails if the given path is bad." <primitive: 'primitiveDirectoryLookup' module: 'FilePlugin'> ^ #badDirectoryPath ! Item was changed: ----- Method: FileDirectory>>primLookupEntryIn:name: (in category 'private') ----- primLookupEntryIn: fullPath name: fName - "Look up <fName> (a simple file name) in the directory identified by <fullPath> and return an array containing: <fName> <creationTime> <modificationTime> <dirFlag> <fileSize> On Unix, the empty path denotes '/'. On Macs and PCs, it is the container of the system volumes.) + Note that in general, neither fullPath nor fName must contain syntactic sugar for the current platform (e.g., '.' or '..', or on Windows, forward slashes instead of backslashes). These conventions are only fully supported on Unix platforms; on Windows, they are only supported for short non-UNC file paths containing max 260 characters (for the full path concatenated from the directory path, a backslash, and the file name). As a single (!!) exception, the file name may always be a single dot ('.'), which is supported for an efficient existence test of the directory path (e.g., FileDirectory>>#exists): + DON'T: self primLookupEntryIn: '<very long path>' name: 'plonk\.'. + DON'T: self primLookupEntryIn: '<very long path>' name: 'plonk\..'. + DON'T (on Windows): self primLookupEntryIn: '<very long path>' name: 'foo/bar'. + DO: self primLookupEntryIn: '<very long path>' name: '.'. + See the comment in the primitive implementation for more details. The creation and modification times are in seconds since the start of the Smalltalk time epoch. DirFlag is true if the entry is a directory. FileSize the file size in bytes or zero for directories. The primitive returns nil when index is past the end of the directory. It fails if the given path is bad." <primitive: 'primitiveDirectoryEntry' module: 'FilePlugin'> ^ #primFailed "to distinguish from nil" !

1 0

The Trunk: Tools-mt.1232.mcz
by commits＠source.squeak.org 31 Aug '23

31 Aug '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1232.mcz ==================== Summary ==================== Name: Tools-mt.1232 Author: mt Time: 31 August 2023, 10:57:48.647282 am UUID: a15547f2-e8b3-8b49-baa9-209cd1837d93 Ancestors: Tools-eem.1231 Use #px for magic (pixel-based) numbers. Complements Graphics-mt.544 =============== Diff against Tools-eem.1231 =============== Item was changed: ----- Method: Browser>>buildSwitchesWith: (in category 'toolbuilder') ----- buildSwitchesWith: builder "Build the instance/comment/class switch" | panelSpec i q c | panelSpec := builder pluggablePanelSpec new name: #switches; layout: #horizontal; + spacing: -1 px; - spacing: (-1 * RealEstateAgent scaleFactor) truncated; children: OrderedCollection new; yourself. i := builder pluggableButtonSpec new. i model: self; label: 'instance'; help: 'Show instance-side methods' translated; state: #instanceMessagesIndicated; action: #indicateInstanceMessages. q := builder pluggableButtonSpec new. q model: self; horizontalResizing: #shrinkWrap; label: '?'; help: 'Cycle between definition, comment, and hierarchy view' translated; state: #classCommentIndicated; action: #plusButtonHit. c := builder pluggableButtonSpec new. c model: self; label: 'class'; help: 'Show class-side methods' translated; state: #classMessagesIndicated; action: #indicateClassMessages. panelSpec children addAll: { i. c. builder pluggableSpacerSpec new. q }. ^panelSpec!

1 0

The Trunk: ToolBuilder-Morphic-mt.347.mcz
by commits＠source.squeak.org 31 Aug '23

31 Aug '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.347.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.347 Author: mt Time: 31 August 2023, 10:57:02.932282 am UUID: d3fcbb4b-d3e0-2740-bdc9-f8b1b81b08a1 Ancestors: ToolBuilder-Morphic-mt.346 Use #px for magic (pixel-based) numbers. Complements Graphics-mt.544 =============== Diff against ToolBuilder-Morphic-mt.346 =============== Item was changed: ----- Method: MorphicToolBuilder>>buttonRowHeight (in category 'layout hints') ----- buttonRowHeight | multiplier | ButtonMargins ifNil: [ ButtonMargins := (PluggableButtonMorph labelMargins ifNil: [0] ifNotNil: [:margins | margins isRectangle ifTrue: [margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [margins y + margins y] ifFalse: [margins + margins]]]) ]. multiplier := MorphicProject useCompactButtons ifTrue: [1.0] ifFalse: [1.6]. + ButtonBorderWidth ifNil: [ButtonBorderWidth := ((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) px * 2]. - ButtonBorderWidth ifNil: [ButtonBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2]. ^ (Preferences standardButtonFont lineGrid asFloat * multiplier) truncated "already includes the system's current #scaleFactor" + ButtonMargins "already includes the system's current #scaleFactor" + ButtonBorderWidth! Item was changed: ----- Method: MorphicToolBuilder>>listHeightFor: (in category 'layout hints') ----- listHeightFor: numLines ListMargins ifNil: [ ListMargins := PluggableListMorph listMargins ifNil: [0] ifNotNil: [:margins | margins isRectangle ifTrue: [margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [margins y + margins y] ifFalse: [margins + margins]]] ]. + ListBorderWidth ifNil: [ListBorderWidth := ((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) px * 2]. - ListBorderWidth ifNil: [ListBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2]. ^ (Preferences standardListFont lineGridForMorphs * numLines) "already includes the system's current #scaleFactor" + ListMargins "already includes the system's current #scaleFactor" + ListBorderWidth! Item was changed: ----- Method: MorphicToolBuilder>>textFieldHeightFor:font: (in category 'layout hints') ----- textFieldHeightFor: numLines font: font TextMargins ifNil: [ TextMargins := PluggableTextMorph textMargins ifNil: [0] ifNotNil: [:margins | margins isRectangle ifTrue: [margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [margins y + margins y] ifFalse: [margins + margins]]] ]. + TextBorderWidth ifNil: [TextBorderWidth := ((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) px * 2]. - TextBorderWidth ifNil: [TextBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2]. ^ (font lineGrid * numLines) "already includes the system's current #scaleFactor" + TextMargins "already includes the system's current #scaleFactor" + TextBorderWidth!

1 0

The Trunk: ToolBuilder-Kernel-mt.167.mcz
by commits＠source.squeak.org 31 Aug '23

31 Aug '23

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.167.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.167 Author: mt Time: 31 August 2023, 10:56:31.795282 am UUID: b25d6c6f-f3bc-304b-ac54-154104953d02 Ancestors: ToolBuilder-Kernel-ct.166 Use #px for magic (pixel-based) numbers. Complements Graphics-mt.544 =============== Diff against ToolBuilder-Kernel-ct.166 =============== Item was changed: ----- Method: ToolBuilder>>dialogPadding (in category 'layout hints') ----- dialogPadding + ^ 4px! - ^ (4 "px" * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: ToolBuilder>>dialogSpacing (in category 'layout hints') ----- dialogSpacing + ^ 4px! - ^ (4 "px" * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: ToolBuilder>>panelSpacing (in category 'layout hints') ----- panelSpacing + ^ 2px! - ^ (2 "px" * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: ToolBuilder>>windowPadding (in category 'layout hints') ----- windowPadding + ^ 4px! - ^ (4 "px" * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: ToolBuilder>>windowSpacing (in category 'layout hints') ----- windowSpacing + ^ 4px! - ^ (4 "px" * RealEstateAgent scaleFactor) truncated!

1 0

The Trunk: PreferenceBrowser-mt.157.mcz
by commits＠source.squeak.org 31 Aug '23

31 Aug '23

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.157.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.157 Author: mt Time: 31 August 2023, 10:56:04.456282 am UUID: 00d3c3db-cc9a-c14f-93ae-c97a4d555614 Ancestors: PreferenceBrowser-mt.156 Use #px for magic (pixel-based) numbers. Complements Graphics-mt.544 =============== Diff against PreferenceBrowser-mt.156 =============== Item was changed: ----- Method: PreferenceBrowser>>initialExtent (in category 'user interface') ----- initialExtent "Scale here because the receiver is not built through a tool builder. See #buildPluggableWindow:." self flag: #workaround. "Avoid overflowing items for the current set of preferences (ct 6/16/2022 14:33). In the future, we want to improve the layouting of the PreferenceBrowser instead. See: https://lists.squeakfoundation.org/pipermail/squeak-dev/2022-June/221107.ht…" + ^ 705px @ 440px! - ^ (705 @ 440 * RealEstateAgent scaleFactor) rounded! Item was changed: ----- Method: PreferenceBrowserMorph>>newSeparator (in category 'submorphs - buttons') ----- newSeparator ^ Morph new color: Color transparent; + width: 5px; - width: (5 * RealEstateAgent scaleFactor) truncated; vResizing: #spaceFill; yourself! Item was changed: ----- Method: PreferenceWizardMorph>>createButton (in category 'initialization - building') ----- createButton ^ PluggableButtonMorphPlus new setProperty: #noUserInterfaceTheme toValue: true; offColor: (self defaultColor adjustBrightness: 0.2); feedbackColor: (self defaultColor adjustBrightness: 0.4); model: self; font: (UserInterfaceTheme current get: #wizardButtonFont); textColor: self defaultTextColor; borderColor: self defaultTextColor; instVarNamed: #borderColor put: self defaultTextColor; "HACK!!" + borderWidth: 2px; - borderWidth: (2 * RealEstateAgent scaleFactor) truncated; cornerStyle: (self hasLowPerformance ifTrue: [#square] ifFalse: [#rounded]); vResizing: #shrinkWrap; hResizing: #shrinkWrap; layoutInset: self defaultButtonMargins; yourself! Item was changed: ----- Method: PreferenceWizardMorph>>createScrollPane (in category 'initialization - building') ----- createScrollPane | pane | pane := ScrollPane new setProperty: #noUserInterfaceTheme toValue: true; hScrollBarPolicy: #never; vScrollBarPolicy: #whenNeeded; borderWidth: 0; color: Color transparent; scrollBarThickness: self layoutInset; yourself. pane hResizing: #spaceFill; vResizing: #spaceFill. pane scroller changeTableLayout. pane scroller addMorph: (Morph new changeTableLayout; color: Color transparent; hResizing: #spaceFill; vResizing: #shrinkWrap; cellGap: self cellGap; layoutInset: (0@0 corner: self cellGap@0); yourself). pane vScrollBar setProperty: #noUserInterfaceTheme toValue: true; sliderColor: Color white. (pane vScrollBar instVarNamed: #slider) cornerStyle: (self hasLowPerformance ifTrue: [#square] ifFalse: [#rounded]); + borderWidth: 2px. - borderWidth: (2 * RealEstateAgent scaleFactor) truncated. (pane vScrollBar instVarNamed: #pagingArea) cornerStyle: (self hasLowPerformance ifTrue: [#square] ifFalse: [#rounded]). ^ pane! Item was changed: ----- Method: PreferenceWizardMorph>>displayScaleChangedBy: (in category 'display scale') ----- displayScaleChangedBy: factor isFullScreen == true ifTrue: [ self changedRadio. previewWorld submorphsDo: [:ea | ea isSystemWindow ifTrue: [ea displayScaleChangedBy: factor]]. self updateFromChangedScaleFactor. ^ self]. self layoutInset: (self defaultFont widthOf: $x) * 2; cellGap: (self defaultFont widthOf: $x). titleMorph font: (UserInterfaceTheme current get: #wizardTitleFont); margins: (self cellGap @ 0 corner: self cellGap @ self cellGap). self height: titleMorph height * 4. self updateLowPerformanceLabel: lowPerformanceMorph contents. { startButton . skipButton } do: [:button | button layoutInset: self defaultButtonMargins; + borderWidth: 2px; - borderWidth: (2 * RealEstateAgent scaleFactor) truncated; font: (UserInterfaceTheme current get: #wizardButtonFont); updateMinimumExtent "Font might not change but PPI did."]. (startButton minimumWidth max: skipButton minimumWidth) in: [:w | startButton hResizing: #rigid; width: w. skipButton hResizing: #rigid; width: w. startButton layoutFrame leftOffset: 2*w negated. skipButton layoutFrame rightOffset: 2*w]. self width: self world width. self center: self world center.! Item was changed: ----- Method: PreferenceWizardMorph>>initializePreviewWorld (in category 'initialization - playfield') ----- initializePreviewWorld Preferences enable: #systemWindowEmbedOK. previewWorld := PasteUpMorph new hResizing: #spaceFill; vResizing: #spaceFill; viewBox: (0@0 corner: 500@500); layoutFrame: (LayoutFrame fractions: (0.35 @ 0 corner: 1.0 @ 1.0) offsets: (0@ titleMorph height corner: 0 @ buttonRowMorph height negated)); fillStyle: Project current world fillStyle; + borderWidth: 2px; - borderWidth: (2 * RealEstateAgent scaleFactor) truncated; borderColor: Color white; cornerStyle: (self hasLowPerformance ifTrue: [#square] ifFalse: [#rounded]); yourself. self addOrReplaceBrowser; addOrReplaceSenders; addOrReplaceWorkspace; updateWindowBounds.! Item was changed: ----- Method: PreferenceWizardMorph>>updateFromChangedScaleFactor (in category 'display scale') ----- updateFromChangedScaleFactor checkmark := nil. radiomark := nil. self layoutInset: (self defaultFont widthOf: $x) * 2; cellGap: (self defaultFont widthOf: $x). titleMorph font: (UserInterfaceTheme current get: #wizardTitleFont); margins: (self cellGap @ 0 corner: self cellGap @ self cellGap). titleMorph layoutFrame bottomOffset: titleMorph height. self updateLowPerformanceLabel: lowPerformanceMorph contents. "buttons" {startButton. skipButton. previousButton. nextButton. doneButton}, (pages gather: [:page | page allMorphs select: [:ea | ea isButton]]) do: [:button | ((button owner hasProperty: #isRadioButton) or: [button owner hasProperty: #isCheckbox]) ifTrue: [ button "layoutInset: 0;" extent: (TextStyle defaultFont height * 1.75) asPoint; update: button getLabelSelector. button owner cellGap: (TextStyle defaultFont widthOf: $x). button owner balloonText ifNotNil: [:text | text addAttribute: (TextFontReference toFont: (UserInterfaceTheme current get: #wizardHelpFont))]] ifFalse: [ button layoutInset: self defaultButtonMargins]. button + borderWidth: 2px; - borderWidth: (2 * RealEstateAgent scaleFactor) truncated; font: (UserInterfaceTheme current get: #wizardButtonFont); updateMinimumExtent "Font might not change but PPI did."]. self fullBounds. (startButton minimumWidth max: skipButton minimumWidth) in: [:w | startButton hResizing: #rigid; width: w. skipButton hResizing: #rigid; width: w. startButton layoutFrame leftOffset: 2*w negated. skipButton layoutFrame rightOffset: 2*w]. (previousButton minimumWidth max: nextButton minimumWidth) in: [:w | previousButton hResizing: #rigid; width: w. nextButton hResizing: #rigid; width: w]. pagesLabel margins: (self layoutInset@0 corner: self layoutInset@0); font: (UserInterfaceTheme current get: #wizardStandardFont). buttonRowMorph cellGap: self cellGap; layoutInset: (0@self layoutInset corner: 0@0). buttonRowMorph layoutFrame topOffset: buttonRowMorph fullBounds height negated. "labels" {controlMorph firstSubmorph}, (pages gather: [:page | page allMorphs select: [:ea | ea isTextMorph]]) do: [:label | label font: (UserInterfaceTheme current get: #wizardStandardFont); margins: self defaultTextMargins "No need for #releaseParagraph because window resizing will happen anyway."]. "controlMorph" controlMorph layoutInset: (0@0 corner: self cellGap@0). controlMorph layoutFrame topOffset: titleMorph height; bottomOffset: buttonRowMorph height negated. "scroll panes in pages" pages do: [:page | | scrollPane | page layoutInset: (self layoutInset asPoint corner: self cellGap@0); cellGap: self cellGap. scrollPane := page submorphs second. scrollPane scrollBarThickness: self layoutInset. scrollPane scroller firstSubmorph cellGap: self cellGap; layoutInset: (0@0 corner: self cellGap@0). (scrollPane vScrollBar instVarNamed: #slider) + borderWidth: 2px]. - borderWidth: (2 * RealEstateAgent scaleFactor) truncated]. "previewWorld" previewWorld layoutFrame topOffset: titleMorph height; bottomOffset: buttonRowMorph height negated. + previewWorld borderWidth: 2px. - previewWorld borderWidth: (2 * RealEstateAgent scaleFactor) truncated. self bounds: self world bounds. self updateWindowBounds. self updatePageVisibility.! Item was changed: ----- Method: PreferenceWizardProgressMorph>>createProgressBar (in category 'as yet unclassified') ----- createProgressBar ^ SystemProgressBarMorph new extent: ((self defaultFont widthOf: $x) * 35) @ ((self defaultFont widthOf: $x) * 2); color: Color transparent; barColor: Color white; borderColor: Color white; + borderWidth: 2px; - borderWidth: (2 * RealEstateAgent scaleFactor) truncated; yourself !

1 0

The Trunk: MorphicExtras-mt.349.mcz
by commits＠source.squeak.org 31 Aug '23

31 Aug '23

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.349.mcz ==================== Summary ==================== Name: MorphicExtras-mt.349 Author: mt Time: 31 August 2023, 10:55:38.561282 am UUID: d980124a-bda9-ce47-9023-88f3a382f476 Ancestors: MorphicExtras-mt.348 Use #px for magic (pixel-based) numbers. Complements Graphics-mt.544 =============== Diff against MorphicExtras-mt.348 =============== Item was changed: ----- Method: RotaryDialMorph>>initialExtent (in category 'initialize-release') ----- initialExtent + ^ 200px @ 200px! - ^ ((200@200) * RealEstateAgent scaleFactor) rounded! Item was changed: ----- Method: ThumbnailMorph>>initialize (in category 'initialization') ----- initialize "Initialize the receiver, obeying a #nominalExtent property if I have one" | anExtent | super initialize. "" anExtent := self valueOfProperty: #nominalExtent + ifAbsent: [32px @ 32px]. - ifAbsent: [((32 @ 32) * RealEstateAgent scaleFactor) truncated]. self extent: (anExtent )!

1 0

The Trunk: Morphic-mt.2128.mcz
by commits＠source.squeak.org 31 Aug '23

31 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2128.mcz ==================== Summary ==================== Name: Morphic-mt.2128 Author: mt Time: 31 August 2023, 10:55:15.526282 am UUID: 632a0b5d-f018-164c-8764-1b7411620dc3 Ancestors: Morphic-mt.2127 Use #px for magic (pixel-based) numbers. Complements Graphics-mt.544 =============== Diff against Morphic-mt.2127 =============== Item was changed: ----- Method: DialogWindow>>createBody (in category 'initialization') ----- createBody | body | body := Morph new name: 'Body'; changeTableLayout; hResizing: #shrinkWrap; vResizing: #shrinkWrap; rubberBandCells: true; listDirection: #topToBottom; + layoutInset: (10px @ 5px corner: 10px @ 10px); + cellGap: 5px; - layoutInset: ((10@5 * RealEstateAgent scaleFactor) rounded corner: (10@10 * RealEstateAgent scaleFactor) rounded); - cellGap: (5 * RealEstateAgent scaleFactor) rounded; color: Color transparent; yourself. body addAllMorphs: {self createMessage: ''. self createPane. self createButtonRow. self createFilter}. self addMorphBack: body.! Item was changed: ----- Method: DialogWindow>>createButtonRow (in category 'initialization') ----- createButtonRow ^ buttonRow := Morph new name: 'Buttons'; color: Color transparent; changeTableLayout; vResizing: #shrinkWrap; hResizing: #shrinkWrap; listDirection: #leftToRight; listCentering: #center; + cellGap: 5px; - cellGap: (5 * RealEstateAgent scaleFactor) rounded; yourself! Item was changed: ----- Method: DialogWindow>>initialExtent (in category 'initialization') ----- initialExtent "Scale here because dialogs -- unlike SystemWindow -- will not use the RealEstateAgent to open (i.e., #openInWorld:)." + ^ 200px @ 150px! - ^ ((200@150) * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: DialogWindow>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color white]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); + borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]) px; - borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated; layoutInset: ((self class roundedDialogCorners and: [self class gradientDialog]) "This check compensates a bug in balloon." ifTrue: [0] ifFalse: [self borderWidth negated asPoint]). Preferences menuAppearance3d ifTrue: [self addDropShadow].! Item was changed: ----- Method: DialogWindow>>setTitleParameters (in category 'initialization') ----- setTitleParameters + - | scaleFactor | - scaleFactor := RealEstateAgent scaleFactor. (self submorphNamed: #title) ifNotNil: [:title | title fillStyle: (self class gradientDialog ifFalse: [SolidFillStyle color: (self userInterfaceTheme titleColor ifNil: [Color r: 0.658 g: 0.678 b: 0.78])] ifTrue: [self titleGradientFor: title from: (self userInterfaceTheme titleColor ifNil: [Color r: 0.658 g: 0.678 b: 0.78])]); borderStyle: (self userInterfaceTheme titleBorderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme titleBorderColor ifNil: [Color r: 0.6 g: 0.7 b: 1]); borderWidth: (self userInterfaceTheme titleBorderWidth ifNil: [0]); cornerStyle: (self wantsRoundedCorners ifTrue: [#rounded] ifFalse: [#square]); vResizing: #shrinkWrap; hResizing: #spaceFill; + cellGap: 5px; + layoutInset: (5px @ 3px + corner: (5px @ 2px) - cellGap: (5 * scaleFactor) rounded; - layoutInset: ((5@3 * scaleFactor) rounded - corner: (5@2 * scaleFactor) rounded + (self wantsRoundedCorners ifFalse: [0@0] ifTrue: [0@self cornerRadius]) )]. titleMorph ifNotNil: [ | fontToUse colorToUse | fontToUse := self userInterfaceTheme titleFont ifNil: [TextStyle defaultFont]. colorToUse := self userInterfaceTheme titleTextColor ifNil: [Color black]. "Temporary HACK for 64-bit CI build. Can be removed in the future." titleMorph contents isText ifFalse: [^ self]. titleMorph hResizing: #spaceFill; vResizing: #shrinkWrap. titleMorph contents addAttribute: (TextFontReference toFont: fontToUse); addAttribute: (TextColor color: colorToUse); addAttribute: TextAlignment centered].! Item was changed: ----- Method: DialogWindow>>updateButtonExtent (in category 'updating') ----- updateButtonExtent + self updateButtonExtent: 20px @ 0.! - self updateButtonExtent: (20@0 * RealEstateAgent scaleFactor) rounded.! Item was changed: ----- Method: DockingBarMorph>>addDefaultSpace (in category 'construction') ----- addDefaultSpace "Add a new space of the given size to the receiver." + ^ self addSpace: (Preferences tinyDisplay ifFalse: [10px] ifTrue: [3px])! - ^ self addSpace: ((Preferences tinyDisplay ifFalse:[10] ifTrue:[3]) * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: FontChooserTool>>pointSizePadding (in category 'toolbuilder') ----- pointSizePadding + ^ 0@0 corner: 10px@0! - ^ 0@0 corner: (10 * RealEstateAgent scaleFactor) truncated @0! Item was changed: ----- Method: HaloMorph>>basicBox (in category 'private') ----- basicBox | minSide outset anExtent aBox w | minSide := 4 * self handleSize. + outset := 8px. - outset := (8 * RealEstateAgent scaleFactor) truncated. anExtent := (self extent + self handleSize + outset) max: minSide asPoint. aBox := Rectangle center: self center extent: anExtent. w := self world ifNil:[target outermostWorldMorph]. ^ w ifNil: [aBox] ifNotNil: [aBox intersect: (w viewBox insetBy: self handleSize // 2)] ! Item was changed: ----- Method: HaloMorph>>handleSize (in category 'private') ----- handleSize + ^ Preferences biggerHandles + ifTrue: [30px] + ifFalse: [16px]! - ^ ((Preferences biggerHandles - ifTrue: [30] - ifFalse: [16]) * RealEstateAgent scaleFactor) rounded! Item was changed: ----- Method: KeyboardExerciser>>initialize (in category 'initialization') ----- initialize super initialize. self color: ((self userInterfaceTheme get: #color for: #ScrollPane) ifNil: [Color white]); borderStyle: ((self userInterfaceTheme get: #borderStyle for: #ScrollPane) ifNil: [BorderStyle simple]) copy; borderColor: ((self userInterfaceTheme get: #borderColor for: #ScrollPane) ifNil: [Color gray: 0.6]); + borderWidth: ((self userInterfaceTheme get: #borderWidth for: #ScrollPane) ifNil: [1]) px; - borderWidth: (((self userInterfaceTheme get: #borderWidth for: #ScrollPane) ifNil: [1]) * RealEstateAgent scaleFactor) truncated; extent: 350 px @ 50 px; layoutPolicy: TableLayout new; listDirection: #topToBottom; hResizing: #rigid; vResizing: #shrinkWrap; cellGap: 10 px; layoutInset: 13 px @ 10 px; yourself. self addTitle. self addCheckButtons. self addEventPane. self processKeyStroke.! Item was changed: ----- Method: LazyListMorph>>displayFilterOn:for:in:font: (in category 'drawing') ----- displayFilterOn: canvas for: row in: drawBounds font: font "Draw filter matches if any." | fillStyle fillHeight leading | self showFilter ifFalse: [^ self]. fillHeight := font lineGridForMorphs. fillStyle := self filterColor isColor ifTrue: [SolidFillStyle color: self filterColor] ifFalse: [self filterColor]. fillStyle isGradientFill ifTrue: [ fillStyle origin: drawBounds topLeft. fillStyle direction: 0@ fillHeight]. leading := font lineGapSliceForMorphs. (self filterOffsets: row) do: [:offset | | highlightRectangle | highlightRectangle := ((drawBounds left + offset first first) @ drawBounds top corner: (drawBounds left + offset first last) @ (drawBounds top + fillHeight)). canvas frameAndFillRoundRect: (highlightRectangle outsetBy: 1@0) + radius: 3px - radius: (3 * RealEstateAgent scaleFactor) truncated fillStyle: fillStyle + borderWidth: 1px - borderWidth: (1 * RealEstateAgent scaleFactor) truncated borderColor: fillStyle asColor twiceDarker. canvas drawString: offset second in: (highlightRectangle origin + (0 @ leading) corner: highlightRectangle corner) font: font color: self filterTextColor].! Item was changed: ----- Method: LazyListMorph>>iconExtent (in category 'layout') ----- iconExtent "Answers the uniform icon extent for this lazy list based on sample icons from the list source." | listSize | iconExtent ifNil: [ self listSource canHaveIcons ifFalse: [^ iconExtent := 0@0]. (listSize := self getListSize) = 0 + ifTrue: [^ iconExtent := 14px @ 14px]. - ifTrue: [^ iconExtent := ((14@14) * RealEstateAgent scaleFactor) truncated]. (self icon: (2 min: listSize)) "mt: Use second item bc. first one might be visual separator w/o icon." ifNil: [^ iconExtent := 0@0] ifNotNil: [:form | ^ iconExtent := form extent]]. ^ iconExtent! Item was changed: ----- Method: MenuMorph>>addLine (in category 'construction') ----- addLine "Append a divider line to this menu. Suppress duplicate lines." | colorToUse | self hasItems ifFalse: [^ self]. self lastSubmorph knownName = #line ifTrue: [^ self]. colorToUse := self userInterfaceTheme lineColor ifNil: [Color gray: 0.9]. self addMorphBack: (Morph new color: colorToUse; hResizing: #spaceFill; + height: (self userInterfaceTheme lineWidth ifNil: [2]) px; - height: ((self userInterfaceTheme lineWidth ifNil: [2]) * RealEstateAgent scaleFactor) truncated; borderStyle: (self userInterfaceTheme lineStyle ifNil: [BorderStyle inset]); borderColor: colorToUse; + borderWidth: 1px; - borderWidth: "1 *" RealEstateAgent scaleFactor truncated; name: #line; "see above" yourself).! Item was changed: ----- Method: MenuMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color r: 0.9 g: 0.9 b: 0.9]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); + borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]) px. - borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. Preferences menuAppearance3d ifTrue: [self addDropShadow]. + self layoutInset: 3px. - self layoutInset: (3 * RealEstateAgent scaleFactor) truncated. ! Item was changed: ----- Method: Morph>>keyboardFocusWidth (in category 'drawing') ----- keyboardFocusWidth ^ self valueOfProperty: #keyboardFocusWidth + ifAbsentPut: [(self userInterfaceTheme keyboardFocusWidth ifNil: [2]) px]! - ifAbsentPut: [((self userInterfaceTheme keyboardFocusWidth ifNil: [2]) - * RealEstateAgent scaleFactor) truncated]! Item was changed: ----- Method: NewBalloonMorph>>bubbleInset (in category 'geometry') ----- bubbleInset + ^ 5px @ 3px! - ^ (5@3 * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: NewBalloonMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters self + borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]) px; - borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated; borderColor: (self userInterfaceTheme borderColor ifNil: [Color r: 0.46 g: 0.46 b: 0.353]); color: (self userInterfaceTheme color ifNil: [Color r: 0.92 g: 0.92 b: 0.706]); hasDropShadow: (Preferences menuAppearance3d and: [self color isTranslucent not]); + shadowOffset: 1px @ 1px; - shadowOffset: 1@1; shadowColor: (self color muchDarker muchDarker alpha: 0.333); orientation: #bottomLeft; cornerStyle: (MenuMorph roundedMenuCorners ifTrue: [#rounded] ifFalse: [#square]).! Item was changed: ----- Method: NewBalloonMorph>>tailHeight (in category 'geometry') ----- tailHeight + ^ 8px! - ^ (8 * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: NewBalloonMorph>>tailWidth (in category 'geometry') ----- tailWidth + ^ 15px! - ^ (15 * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: NewBalloonMorph>>verticesForTail (in category 'drawing') ----- verticesForTail | offset factorX factorY tpos bpos | + offset := 5px + (self wantsRoundedCorners - offset := (5 * RealEstateAgent scaleFactor) rounded + (self wantsRoundedCorners ifTrue: [self cornerRadius] ifFalse: [0]). tpos := self tailPosition. factorX := tpos x < self center x ifTrue: [1] ifFalse: [-1]. factorY := tpos y > self center y ifTrue: [1] ifFalse: [-1]. bpos := self bubbleBounds perform: self orientation. ^ { tpos. bpos + (((offset + self tailWidth) * factorX) @ (self borderStyle width negated * factorY)). bpos + ((offset * factorX) @ (self borderStyle width negated * factorY)).}! Item was changed: ----- Method: NewParagraph>>caretWidth (in category 'access') ----- caretWidth ^ Editor dumbbellCursor ifTrue: [ | w | + w := 3px. - w := (3 * RealEstateAgent scaleFactor) truncated. w even ifTrue: [w := w + 1] ifFalse: [w] ] + ifFalse: [ 2px ]! - ifFalse: [ (2 * RealEstateAgent scaleFactor) truncated ]! Item was changed: ----- Method: PluggableButtonMorph class>>labelMargins (in category 'defaults') ----- labelMargins | inset | + inset := 4px. - inset := (4 * RealEstateAgent scaleFactor) truncated. ^ inset @ 0 corner: inset @ 0! Item was changed: ----- Method: PluggableButtonMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color gray: 0.91]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle default]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); + borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]) px; - borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated; font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]); textColor: (self userInterfaceTheme textColor ifNil: [Color black]). borderColor := self borderColor. self offColor: self color.! Item was changed: ----- Method: PluggableListMorph class>>listMargins (in category 'defaults') ----- listMargins + ^3px @ 0 corner: 0 @ 0! - ^(3 * RealEstateAgent scaleFactor) truncated @0 corner: 0@0! Item was changed: ----- Method: PluggableTextMorph class>>adornmentWithColor: (in category 'frame adornments') ----- adornmentWithColor: aColor "Create and return a frame adornment with the given color" | size box form fillStyle | ^self adornmentCache at: aColor ifAbsentPut:[ + size := 16px. - size := (16 * RealEstateAgent scaleFactor) rounded. box := 0@0 extent: size asPoint. form := Form extent: size@size depth: 32. fillStyle := MenuMorph gradientMenu ifFalse: [SolidFillStyle color: aColor] ifTrue: [ (GradientFillStyle ramp: { 0.0->(aColor alpha: 0.01). 0.8->aColor. 1.0->aColor}) origin: box topRight - (size@0); direction: (size @ size negated) // 4; radial: false]. form getCanvas drawPolygon: { box topRight. box topRight + (0@size). box topRight - (size@0) } fillStyle: fillStyle. form]. ! Item was changed: ----- Method: PluggableTextMorph class>>textMargins (in category 'defaults') ----- textMargins | horizontal vertical | MorphicProject useCompactTextFields ifTrue: [ + horizontal := 3px. - horizontal := (3 * RealEstateAgent scaleFactor) truncated. vertical := 0] ifFalse: [ horizontal := vertical := (UserInterfaceTheme current get: #keyboardFocusWidth for: Morph) ifNil: [2]. + vertical := vertical px. - vertical := (vertical * RealEstateAgent scaleFactor) truncated. horizontal >= 3 ifTrue: [horizontal := vertical * 2] + ifFalse: [horizontal := 3px] ]. + ^ horizontal @ vertical corner: horizontal @ vertical! - ifFalse: [horizontal := (3 * RealEstateAgent scaleFactor) truncated] ]. - ^ horizontal @ vertical corner: horizontal@ vertical! Item was changed: ----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') ----- drawFrameAdornment: aColor on: aCanvas "Indicate edit status for the text editor" self class simpleFrameAdornments ifTrue: [ | adornmentWidth | + adornmentWidth := (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1]) px. - adornmentWidth := ((self valueOfProperty: #frameAdornmentWidth ifAbsent: [1]) - * RealEstateAgent scaleFactor) truncated. aCanvas frameRectangle: self innerBounds width: adornmentWidth color: aColor. aCanvas frameRectangle: (self innerBounds insetBy: adornmentWidth) width: adornmentWidth color: (aColor alpha: aColor alpha / 3.0) ] ifFalse: [ | form | "Class-side adornment cache is currently using pre-multiplied alpha, so we need to use rule 34 which works for < 32bpp, too." form := self class adornmentWithColor: aColor. aCanvas image: form at: self innerBounds topRight - (form width @ 0) sourceRect: form boundingBox rule: 34 ]! Item was changed: ----- Method: ScrollBar>>setDefaultParameters (in category 'initialize') ----- setDefaultParameters "Compared to generic sliders, I am not my own paging area. Thus, make me transparent." self color: Color transparent; borderWidth: 0. pagingArea color: (self userInterfaceTheme color ifNil: [Color veryVeryLightGray darker alpha: 0.35]); borderWidth: 0. "no border for the paging area" slider color: (self userInterfaceTheme thumbColor ifNil: [Color veryVeryLightGray]); borderColor: (self userInterfaceTheme thumbBorderColor ifNil: [Color gray: 0.6]); + borderWidth: (self userInterfaceTheme thumbBorderWidth ifNil: [1]) px. - borderWidth: ((self userInterfaceTheme thumbBorderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. self updateSliderCornerStyle. sliderShadow cornerStyle: slider cornerStyle; borderWidth: slider borderWidth; borderColor: Color transparent. sliderColor := slider color. self updateSliderColor: slider color.! Item was changed: ----- Method: ScrollPane class>>scrollBarThickness (in category 'defaults') ----- scrollBarThickness + ^ Preferences scrollBarsNarrow ifTrue: [10px] ifFalse: [14px]! - ^ ((Preferences scrollBarsNarrow ifTrue: [10] ifFalse: [14]) - * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: ScrollPane>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color white]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray: 0.6]); + borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]) px. - borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. self removeProperty: #keyboardFocusWidth. self removeProperty: #keyboardFocusColor.! Item was changed: ----- Method: Slider>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color lightGray]); borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); + borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]) px. - borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. slider color: (self userInterfaceTheme thumbColor ifNil: [Color veryVeryLightGray]); borderColor: (self userInterfaceTheme thumbBorderColor ifNil: [Color gray: 0.6]); borderWidth: (self userInterfaceTheme thumbBorderWidth ifNil: [0]). sliderShadow borderWidth: slider borderWidth; borderColor: Color transparent. sliderColor := slider color. self updateSliderColor: slider color.! Item was changed: ----- Method: StringMorphEditor>>setDefaultParameters (in category 'display') ----- setDefaultParameters "Based on PluggableTextMorph >> #setDefaultParameters." self backgroundColor: ((UserInterfaceTheme current get: #color for: #ScrollPane) ifNil: [Color white]); borderStyle: ((UserInterfaceTheme current get: #borderStyle for: #ScrollPane) ifNil: [BorderStyle simple]) copy; borderColor: ((UserInterfaceTheme current get: #borderColor for: #ScrollPane) ifNil: [Color gray: 0.6]); + borderWidth: ((UserInterfaceTheme current get: #borderWidth for: #ScrollPane) ifNil: [1]) px. - borderWidth: (((UserInterfaceTheme current get: #borderWidth for: #ScrollPane) ifNil: [1]) * RealEstateAgent scaleFactor) truncated. self caretColor: ((UserInterfaceTheme current get: #caretColor for: #PluggableTextMorph) ifNil: [Color red]); selectionColor: ((UserInterfaceTheme current get: #selectionColor for: #PluggableTextMorph) ifNil: [TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2]). self setProperty: #indicateKeyboardFocus toValue: #never.! Item was changed: ----- Method: SystemProgressMorph class>>initialize (in category 'class initialization') ----- initialize "SystemProgressMorph initialize; reset" + BarHeight := 8px. + BarWidth := 300px. + Inset := 30px @ 30px.! - BarHeight := (8 * RealEstateAgent scaleFactor) rounded. - BarWidth := (300 * RealEstateAgent scaleFactor) rounded. - Inset := ((30@30) * RealEstateAgent scaleFactor) rounded.! Item was changed: ----- Method: SystemProgressMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self cellGap: 5 px; layoutInset: Inset; minWidth: 150 px. self color: (self userInterfaceTheme color ifNil: [Color r: 0.9 g: 0.9 b: 0.9]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); + borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]) px. - borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. Preferences menuAppearance3d ifTrue: [self addDropShadow]. self font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]); textColor: (self userInterfaceTheme textColor ifNil: [Color black]). self updateColor: self color: self color intensity: 1.! Item was changed: ----- Method: SystemWindow class>>boxExtent (in category 'preferences') ----- boxExtent "answer the extent to use in all the buttons" + ^ Preferences alternativeWindowBoxesLook + ifTrue: [18px @ 18px] + ifFalse: [16px @ 16px]! - ^ ((Preferences alternativeWindowBoxesLook - ifTrue: [18 @ 18] - ifFalse: [16 @ 16]) * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: SystemWindow>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters Preferences menuAppearance3d ifFalse: [self hasDropShadow: false] ifTrue: [ self addDropShadow. self hasDropShadow: self isKeyWindow. "maybe turn off again"]. + self borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]) px. - self borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. label font: (self userInterfaceTheme titleFont ifNil: [TextStyle defaultFont]).! Item was changed: ----- Method: TheWorldMainDockingBar>>colorIcon: (in category 'private') ----- colorIcon: aColor "Guess if 'uniform window colors' are used and avoid all icons to be just gray" (aColor = (UserInterfaceTheme current get: #uniformWindowColor for: Model) or: [Preferences tinyDisplay]) ifTrue: [ ^nil ]. + ^(aColor iconOrThumbnailOfSize: 14px) + borderWidth: 3px color: ((UserInterfaceTheme current get: #color for: #MenuMorph) ifNil: [(Color r: 0.9 g: 0.9 b: 0.9)]) muchDarker; + borderWidth: 2px color: Color transparent! - ^(aColor iconOrThumbnailOfSize: (14 * RealEstateAgent scaleFactor) truncated) - borderWidth: 3 color: ((UserInterfaceTheme current get: #color for: #MenuMorph) ifNil: [(Color r: 0.9 g: 0.9 b: 0.9)]) muchDarker; - borderWidth: 2 color: Color transparent! Item was changed: ----- Method: TransferMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters self + borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]) px; - borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated; borderColor: (self userInterfaceTheme borderColor ifNil: [Color r: 0.46 g: 0.46 b: 0.353]); color: (self userInterfaceTheme color ifNil: [Color r: 0.92 g: 0.92 b: 0.706]); cornerStyle: (MenuMorph roundedMenuCorners ifTrue: [#rounded] ifFalse: [#square]). self updateGradient.!

1 0

The Trunk: Monticello-mt.797.mcz
by commits＠source.squeak.org 31 Aug '23

31 Aug '23

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.797.mcz ==================== Summary ==================== Name: Monticello-mt.797 Author: mt Time: 31 August 2023, 10:54:27.756282 am UUID: de7b05b8-0ddc-d34f-bcfe-f87603cfd331 Ancestors: Monticello-ct.796 Use #px for magic (pixel-based) numbers. Complements Graphics-mt.544 =============== Diff against Monticello-ct.796 =============== Item was changed: ----- Method: MCSnapshotBrowser>>defaultButtonRowSpacing (in category 'morphic ui') ----- defaultButtonRowSpacing "Overwritten to make our class switches buttons look like the ones in the regular system browser." + ^ -1 px! - ^ (-1 "px" * RealEstateAgent scaleFactor) truncated!

1 0

The Trunk: Graphics-mt.544.mcz
by commits＠source.squeak.org 31 Aug '23

31 Aug '23

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.544.mcz ==================== Summary ==================== Name: Graphics-mt.544 Author: mt Time: 31 August 2023, 10:52:58.559282 am UUID: b70909d7-fda1-c44f-9ef1-97c666c840fc Ancestors: Graphics-mt.543 Speed up and extend #px to be conveniently used for #scaleFactor support of magic (pixel-based) numbers. =============== Diff against Graphics-mt.543 =============== Item was changed: ----- Method: Number>>px (in category '*Graphics-scale factor') ----- px "Convert the receiver representing raw pixels at 100% (96ppi) to the current scale factor. Note that you currently have to do this manually for all graphics-related properties and layout-specific measures such as #borderWidth: and #layoutInset:. Only for model windows (see #initialExtent) that are no dialogs, that scaling will happen automatically in ToolBuilder." + | scaleFactor | + self = 0 ifTrue: [^ self]. + (scaleFactor := RealEstateAgent scaleFactor) = 1 ifTrue: [^ self]. + ^ self > 4 + ifTrue: [(scaleFactor * self) rounded] + ifFalse: [(scaleFactor * self) truncated] + + "For self > 4, we recommend #rounded instead of #truncated. For smaller values, however, rounding makes no sense because we have no sub-pixel access and things would look too big too soon. Also, #scaleFactor might be a float and self is usually an integer. Thus, self should be on the right side of the multiplication to speed up the whole thing."! - self flag: #discuss. "mt: For self > 4, I would recommend #rounded instead of #truncated. For smaller values, however, rounding makes no sense because we have no sub-pixel access and things would look too big too soon." - ^ (self * RealEstateAgent scaleFactor) truncated!

1 0

The Trunk: MorphicExtras-mt.348.mcz
by commits＠source.squeak.org 31 Aug '23

31 Aug '23

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.348.mcz ==================== Summary ==================== Name: MorphicExtras-mt.348 Author: mt Time: 31 August 2023, 9:39:52.504282 am UUID: c218995a-52c2-9540-8072-af212cb61d6f Ancestors: MorphicExtras-pre.347 Fix typo. =============== Diff against MorphicExtras-pre.347 =============== Item was changed: ----- Method: TransformMorph>>quickAddAllMorphs: (in category '*MorphicExtras-accessing') ----- quickAddAllMorphs: aCollection "A fast add of all the morphs for the PluggableListMorph>>list: method to use -- assumes that fullBounds will get called later by the sender, so it avoids doing any updating on the morphs in aCol or updating layout of this scroller. So the sender should handle those tasks as appropriate" | myWorld | + self flag: #deprecated. myWorld := self world. aCollection do: [:m | | itsWorld | m owner ifNotNil: [ itsWorld := m world. itsWorld == myWorld ifFalse: [m outOfWorld: itsWorld]. + m owner privateRemove: m]. - m owner privateRemoveMorph: m]. m privateOwner: self. "inWorld ifTrue: [self addedOrRemovedSubmorph: m]." itsWorld == myWorld ifFalse: [m intoWorld: myWorld]. ]. submorphs := aCollection. "self layoutChanged." !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2023