Squeak-dev August 2023

squeak-dev@lists.squeakfoundation.org

30 participants
163 discussions

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

Re: Squeak-dev Digest, Vol 248, Issue 130
by Ralph Boland 31 Aug '23

31 Aug '23

Apologies if this has been said before; I haven't read all of the comments. Still, this bears repeating. Squeak is a software development system. EToys is an application that uses Squeak. As such when EToys finds that a Squeak method doesn't do what EToys needs then EToys should create a subclass of the class containing the method and create its version of the method in the subclass. I have had to do this many times. I realize this approach can sometimes be complicated because wherever the subclass is to be created is a method that must also be modified. This implyies that a new subclass of the class containing the subclass creating method must also be created. This can be a real nightmare and I expect would be so for EToys. But EToys gains the advantage of not needing a fork of Squeak to proceed and Squeak gains the advantage of not using EToys code Remember that Pharo was created in part because its supporters didn't believe EToys should be part of Squeak. This is how OO software applications should be developed and I don't understand why ETorys was instead developed the way it was. If it is a performance issue then replacing a method directly, as done in EToys, should only be done where the need for the performance gain is demonstrated. On Wed, 30 Aug 2023 at 01:39, <squeak-dev-request(a)lists.squeakfoundation.org> wrote: > > Send Squeak-dev mailing list submissions to > squeak-dev(a)lists.squeakfoundation.org > > To subscribe or unsubscribe via email, send a message with subject or > body 'help' to > squeak-dev-request(a)lists.squeakfoundation.org > > You can reach the person managing the list at > squeak-dev-owner(a)lists.squeakfoundation.org > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of Squeak-dev digest..." > > Today's Topics: > > 1. Re: Let's discuss the future of Etoys in Squeak 6.1 (and beyond) > (David T. Lewis) > 2. Re: Let's discuss the future of Etoys in Squeak 6.1 (and beyond) > (Marcel Taeumel) > 3. Re: Let's discuss the future of Etoys in Squeak 6.1 (and beyond) > (Marcel Taeumel) > 4. Re: Let's discuss the future of Etoys in Squeak 6.1 (and beyond) > (Marcel Taeumel) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Tue, 29 Aug 2023 22:52:34 -0400 > From: "David T. Lewis" <lewis(a)mail.msen.com> > Subject: [squeak-dev] Re: Let's discuss the future of Etoys in Squeak > 6.1 (and beyond) > To: The general-purpose Squeak developers list > <squeak-dev(a)lists.squeakfoundation.org> > Message-ID: <20230830025234.GB41726(a)shell.msen.com> > Content-Type: text/plain; charset=us-ascii > > On Tue, Aug 29, 2023 at 09:18:10PM -0400, Jim Rosenberg wrote: > > > So...should we remove Etoys from Trunk at this point? > > > > ***WHY***????????? > > The rationale is simplicity and comprehension, primarily from the > point of view of readers of the code in the Squeak image. > > I am not advocating anything here WRT Etoys, but I would say that > the Squeak image needs to be as simple, readable, and understandable > as possible. Etoys is a wonderful thing but it can add quite a bit > of cognitive clutter, and that is why the Etoys removal question is > important. > > > > > You ***DON'T CARE*** about preserving eToys content. > > > > I think that Marcel has introduced this discussion thread because > he *does* care. I care about it too, and so do most of the other > people who are going to reply to this thread :-) > > > I don't personally use eToys, but I care very much about Squeak as a > > content-development platform. > > I agree :-) > > > This kind of speculation I find profoundly alarming. > > > > But no I'm not alarmed. Preserving content (not "code" but real content) > is important. It is also a hard problem, so I'm not alarmed to have > that sort of discussion. > > Dave > > > ------------------------------ > > Message: 2 > Date: Wed, 30 Aug 2023 09:25:26 +0200 > From: Marcel Taeumel <marcel.taeumel(a)hpi.de> > Subject: [squeak-dev] Re: Let's discuss the future of Etoys in Squeak > 6.1 (and beyond) > To: gettimothy via Squeak-dev <squeak-dev(a)lists.squeakfoundation.org> > Message-ID: <Mailbird-1b7d3755-0e8f-4f41-a6cf-5d400460a168(a)hpi.de> > Content-Type: multipart/alternative; > boundary="----=_NextPart_59183877.409056177443" > > Hi Jim -- > > > I don't personally use eToys, but I care very much about Squeak as a > > content-development platform. > > Same here. As you can see through the change-set I provided, Etoys in its > current form implies high maintenance effort. It's modularity is poor, having > Etoys-specific statements all over the place. > > > This kind of speculation I find profoundly alarming. > > Not sure what you mean by that. We care very much about robustness and > backwards compatibility. Etoys in its current form makes it very hard to maintain > relevant modules such as ImageSegment and DataStream. > > Best, > Marcel > Am 30.08.2023 03:18:32 schrieb Jim Rosenberg <jr(a)amanue.com>: > > So...should we remove Etoys from Trunk at this point? > > ***WHY***????????? > > You ***DON'T CARE*** about preserving eToys content. > > I don't personally use eToys, but I care very much about Squeak as a > content-development platform. This kind of speculation I find profoundly > alarming. > > On Tue, 29 Aug 2023 15:47:19 +0200 > Marcel Taeumel via Squeak-dev > wrote: > > > Hi all -- > > > > Please find attached a change-set that unloads Etoys from Squeak > > 6.1alpha #22748 (and later). > > > > Let us use this artifact to discuss the future of Etoys in Squeak 6.1 > > and beyond. You can use Monticello or the ChangeSorter to take a look at > > what's needed besides unloading the Etoys package itself. Also check > > preamble and postscript of the attached change-set. > > > > !!! Yes, simply re-loading the Etoys package is not enough to restore > > basic Etoys functionality. There are several sub-method changes needed > > for the Etoys integration into the base system. > > > > > > Here is what would still work through the package MorphicExtras: > > - Games > > - Sketches and PaintBox > > - Flaps > > - CalendarMorph > > - SpectrumAnalyzerMorph > > > > Here is what would still "work" through the package System: > > - Object storage (ImageSegment etc.) > > - ProjectLoading > > > > Here is what would still work through the package Protocols: > > - Lexicon tool > > - Vocabulary framework > > > > Here is what would be gone: > > - Tiles, viewers, and scripts > > - Players and costumes > > - Pen trails, Turtles, ... > > - References, CustomEventsRegistry, ScriptingSystem > > - Siblings for (Player-only) uni-classes > > - DeepCopier support for (Player-only) uni-classes > > - Preferences #noviceMode, #eToyFriendly, and more > > > > Note that we still have several Etoys-compatible releases such as Etoys > > 4/5/6 and Squeak 5.1/5.2/5.3/6.0. Best compatibility is probably with > > Etoys 5. Most updated base system is probably Squeak 6.0. :-) > > > > So...should we remove Etoys from Trunk at this point? > > > > > > Please share your thoughts. And feel free to also report issues with > > loading/using the attached change-set itself. > > > > Best, > > Marcel > >

4 3

RossettaCode ABC problem
by gettimothy 30 Aug '23

30 Aug '23

https://rosettacode.org/wiki/ABC_problem I haven't made it case-insensitive yet, but here's my first stab. |blocks recurse words| Transcript clear. blocks := OrderedCollection newFrom: { $B->$O . $X->$K . $D->$Q . $C->$P . $N->$A . $G->$T . $R->$E . $T->$G . $Q->$D . $F->$S . $J->$W . $H->$U . $V->$I . $A->$N . $O->$B . $E->$R . $F->$S . $L->$Y . $P->$C . $Z ->$M}. words := Dictionary newFromPairs: {'A'. nil. 'BARK' . nil . 'BOOK' . nil . 'TREAT' . nil . 'COMMON' . nil . 'SQUAD' . nil . 'CONFUSE' . nil}. recurse:= [:rls :rbs | | nls nbs i | nls := String withAll: rls. nbs := OrderedCollection newFrom: rbs. nls isEmpty ifTrue:[true] ifFalse:[ i := nbs findFirst:[:each | (each key=(nls first)) | (each value=(nls first))]. "find index of block containing first letter" (i > 0) ifTrue:[ nbs remove:(nbs at:i). recurse value: (nls allButFirst) value: nbs] ifFalse:[false]]]. words keys do:[:k | |b| Transcript show: k; cr. b := recurse value: k value: blocks. words at:k put: b. ]. words keysAndValuesDo:[:k :v | Transcript show: '>>> can_make_a_word("', k , ') ', v; cr]

2 1

Next RosettaCode task is https://rosettacode.org/wiki/A%2BB#Smalltalk
by gettimothy 30 Aug '23

30 Aug '23

Morning, My first two inclinations are 1 to use a morphic prompt 2. OSProcess (where I think I saw an example of text input) other approaches? The existing smalltalk code looks bulky to me. https://rosettacode.org/wiki/A%2BB#Smalltalk A+B ─── a classic problem in programming contests, it's given so contestants can gain familiarity with the online judging system being used. Task Given two integers, A and B. Their sum needs to be calculated. Input data Two integers are written in the input stream, separated by space(s): Output data The required output is one integer: the sum of A and B. Example input output 2 2 4 3 2 5

5 17

The Inbox: Morphic-ct.2128.mcz
by commits＠source.squeak.org 30 Aug '23

30 Aug '23

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

2 1

The Inbox: Morphic-ct.2129.mcz
by commits＠source.squeak.org 30 Aug '23

30 Aug '23

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

2 1

← Newer
1
2
3
4
5
6
7
8
...
17
Older →

Jump to page: