[prev in list] [next in list] [prev in thread] [next in thread]
List: squeak-dev
Subject: [squeak-dev] The Trunk: Morphic-mt.2128.mcz
From: commits () source ! squeak ! org
Date: 2023-08-31 8:55:17
Message-ID: 20230831085525.3F913583C69 () mail ! squeak ! org
[Download RAW message or body]
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.!
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic