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.!