Squeak-dev September 2019

squeak-dev@lists.squeakfoundation.org

38 participants
356 discussions

The Trunk: Morphic-ct.1514.mcz
by commits＠source.squeak.org 29 Sep '19

29 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1514.mcz ==================== Summary ==================== Name: Morphic-ct.1514 Author: ct Time: 4 September 2019, 9:41:42.959698 pm UUID: 275cb484-90ce-9549-8c1c-52ef3fe319b2 Ancestors: Morphic-mt.1513 Simplify DialogWindow>>#exploreInvocation Thanks to Eliot for the hint! =============== Diff against Morphic-mt.1513 =============== Item was changed: ----- Method: DialogWindow>>exploreInvocation (in category 'running') ----- exploreInvocation + self exclusive: false. + (self findInvocationContext stack collect: #method) + explore! - | result context | - self exclusive: false. "We want to explore." - - result := OrderedCollection new. - context := self findInvocationContext. - - [context sender] whileNotNil: [ - result add: context method. - context := context sender]. - result add: context method. - - result explore.!

1 0

The Trunk: Morphic-ct.1507.mcz
by commits＠source.squeak.org 29 Sep '19

29 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1507.mcz ==================== Summary ==================== Name: Morphic-ct.1507 Author: ct Time: 16 August 2019, 2:42:07.550735 am UUID: 6eb68035-5fcb-ef48-93fd-323179bef5da Ancestors: Morphic-mt.1505 Fix a minor bug in #openToolsAttachedToMouseCursor implementation: Look focused after dropping By the call to #newMouseFocus:, the upcoming mouseEnter event will be sent to the grip morph instead of ourself, so we need to manually look focused. =============== Diff against Morphic-mt.1505 =============== Item was changed: ----- Method: SystemWindow>>justDroppedInto:event: (in category 'geometry') ----- justDroppedInto: aMorph event: anEvent isCollapsed ifTrue: [self position: ((self position max: 0@0) grid: 8@8). collapsedFrame := self bounds] ifFalse: [fullFrame := self bounds]. self beKeyWindow. self hasDropShadow: Preferences menuAppearance3d. "See #startDragFromLabel:." aMorph == self world ifTrue: [self assureLabelAreaVisible]. (Project uiManager openToolsAttachedToMouseCursor and: (self hasProperty: #initialDrop)) ifTrue: [ self removeProperty: #initialDrop. (self submorphs detect: [:m | m isKindOf: BottomRightGripMorph] ifNone: []) ifNotNil: [:grip | grip referencePoint: anEvent position; setProperty: #targetHadDropShadow toValue: true "See MorphicToolBuilder >> #open:". + self + hasDropShadow: false; + lookFocused. + anEvent hand newMouseFocus: grip.]]. - self hasDropShadow: false. - anEvent hand newMouseFocus: grip]]. ^super justDroppedInto: aMorph event: anEvent!

1 0

The Trunk: Morphic-ct.1506.mcz
by commits＠source.squeak.org 29 Sep '19

29 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1506.mcz ==================== Summary ==================== Name: Morphic-ct.1506 Author: ct Time: 15 August 2019, 1:04:11.175584 am UUID: e6ae0f1d-e19f-a74e-883a-8f916957c77a Ancestors: Morphic-mt.1504 Respect global scaleFactor in SystemWindow boxes Better blury than tiny. But it would be nice if someone could provide icons at higher scale :) =============== Diff against Morphic-mt.1504 =============== Item was changed: ----- Method: SystemWindow>>createBox: (in category 'initialization') ----- createBox: aForm "create a button with a form to be used in the label area" | box | box := SystemWindowButton new. box color: Color transparent; target: self; useSquareCorners; borderWidth: 0; + labelGraphic: (aForm scaledIntoFormOfSize: self boxExtent * 0.75); - labelGraphic: aForm; extent: self boxExtent. ^ box!

1 0

The Trunk: Morphic-ct.1505.mcz
by commits＠source.squeak.org 29 Sep '19

29 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1505.mcz ==================== Summary ==================== Name: Morphic-ct.1505 Author: ct Time: 15 August 2019, 12:19:25.5494 am UUID: f62b8344-5c2e-844a-8472-cebd9bf52cf4 Ancestors: Morphic-mt.1504 Respect global scaleFactor in HaloMorphs And apply some refactoring on #basicBox :) =============== Diff against Morphic-mt.1504 =============== Item was changed: ----- Method: HaloMorph>>addHandlesForWorldHalos (in category 'private') ----- addHandlesForWorldHalos "Add handles for world halos, like the man said" | box w | w := self world ifNil:[target world]. self removeAllMorphs. "remove old handles, if any" self bounds: target bounds. box := w bounds insetBy: self handleSize // 2. target addWorldHandlesTo: self box: box. Preferences uniqueNamesInHalos ifTrue: [innerTarget assureExternalName]. + self + addNameBeneath: ((box insetBy: (0@0 corner: 0@10)) + scaleBy: RealEstateAgent scaleFactor) + string: innerTarget externalName. - self addNameBeneath: (box insetBy: (0@0 corner: 0@10)) string: innerTarget externalName. growingOrRotating := false. self layoutChanged. self changed. ! Item was changed: ----- Method: HaloMorph>>basicBox (in category 'private') ----- basicBox + | minSide outset anExtent aBox w | - | aBox minSide anExtent w | minSide := 4 * self handleSize. + outset := 8 * RealEstateAgent scaleFactor. + anExtent := (self extent + self handleSize + outset) max: minSide asPoint. - anExtent := ((self width + self handleSize + 8) max: minSide) @ - ((self height + self handleSize + 8) max: minSide). 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>>createHandleAt:color:iconName: (in category 'private') ----- createHandleAt: aPoint color: aColor iconName: iconName | bou handle | bou := Rectangle center: aPoint extent: self handleSize asPoint. Preferences alternateHandlesLook ifTrue: [handle := RectangleMorph newBounds: bou color: aColor. handle useRoundedCorners. self setColor: aColor toHandle: handle] ifFalse: [handle := EllipseMorph newBounds: bou color: aColor]. handle borderWidth: 0; wantsYellowButtonMenu: false. "" iconName isNil ifFalse: [| form | form := ScriptingSystem formAtKey: iconName. form isNil ifFalse: [| image | image := ImageMorph new. + image image: (form magnifyBy: RealEstateAgent scaleFactor). - image image: form. image color: aColor makeForegroundColor. image lock. handle addMorphCentered: image]]. "" ^ handle! Item was changed: ----- Method: HaloMorph>>handleSize (in category 'private') ----- handleSize + ^ (Preferences biggerHandles - ^ Preferences biggerHandles ifTrue: [30] + ifFalse: [16]) * RealEstateAgent scaleFactor! - ifFalse: [16]!

1 0

The Trunk: Morphic-mt.1546.mcz
by commits＠source.squeak.org 29 Sep '19

29 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1546.mcz ==================== Summary ==================== Name: Morphic-mt.1546 Author: mt Time: 29 September 2019, 6:14:54.434524 pm UUID: 9c2812f7-c5be-f44d-9903-b36cba3eb18c Ancestors: Morphic-mt.1545 Make use of icon scaling from System-mt.1102. Note that I also added a better fast path for not having icons in lists. Yet, our tools do set the icon selector regardless of the particular preference (e.g., class icons, message icons). We would have to update #buildWith: methods to make use of that fast path *BUT* we would not get nice live updates in existing tool windows anymore when toggling icon preferences. ... which is similar to other tool-builder artifacts we get when changing the font sizes (e.g. height of button rows). =============== Diff against Morphic-mt.1545 =============== Item was changed: ----- Method: LazyListMorph>>icon: (in category 'list access') ----- icon: row | icon | + listSource canHaveIcons ifFalse: [^ nil]. + - "Migrate old instances if necessary." listIcons ifNil: [listIcons := Array new: listItems size]. row <= listIcons size ifFalse: [ ^ self getListIcon: row]. (icon := listIcons at: row) ifNil: [ + icon := (self getListIcon: row) ifNotNil: [:form | form scaleIconToDisplay]. - icon := self getListIcon: row. listIcons at: row put: icon ]. ^ icon! Item was added: + ----- Method: PluggableListMorph>>canHaveIcons (in category 'testing') ----- + canHaveIcons + + ^ getIconSelector notNil!

1 0

The Trunk: System-mt.1102.mcz
by commits＠source.squeak.org 29 Sep '19

29 Sep '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1102.mcz ==================== Summary ==================== Name: System-mt.1102 Author: mt Time: 29 September 2019, 6:09:57.735524 pm UUID: 47e87e3c-e6c2-894e-941e-4d60407bf49b Ancestors: System-mt.1101 Adds a simple, yet convenient, way to scale icons for demo/hi-dpi mode. A no-scale takes about 150 nanoseconds on my machine, which should be okay --- performance-wise --- for existing tools. Maybe we can improve the code a little bit more for the default scale. Note that one could also use icons with s higher resolution, which would then be down-scaled to the reference extent... =============== Diff against System-mt.1101 =============== Item was added: + ----- Method: Form>>scaleIconToDisplay (in category '*System-icon scaling') ----- + scaleIconToDisplay + "Convenient way to scale icons up or down to match the current display scale factor. For performance reasons, does not return a copy if there is no scaling of the receiver necessary." + + | scaleFactor referenceExtent | + scaleFactor := RealEstateAgent scaleFactor. + referenceExtent := RealEstateAgent defaultIconExtent. + + "Scale down bigger icons to match the (scaled) reference extent. So you can use high-resolution icons that do not appear blurry." + self extent > referenceExtent ifTrue: [ + ^ scaleFactor > 1.0 + ifFalse: [self scaledToSize: referenceExtent] + ifTrue: [self scaledToSize: (((referenceExtent * scaleFactor) roundTo: 8) min: self extent)]]. + + "Scale up smaller icons." + ^ scaleFactor = 1.0 + ifTrue: [self "Smaller than the default is okay if no scaling."] + ifFalse: [self scaledToSize: self extent * scaleFactor]! Item was added: + ----- Method: RealEstateAgent class>>defaultIconExtent (in category 'display scale') ----- + defaultIconExtent + "Scaling. Like in #scaleFactor, we need a reference extent for scaling icons." + + ^ 16@16! Item was changed: + ----- Method: RealEstateAgent class>>scaleFactor (in category 'display scale') ----- - ----- Method: RealEstateAgent class>>scaleFactor (in category 'framing') ----- scaleFactor "Use the default font height to calculate some factor. Better than nothing..." ^ (TextStyle defaultFont height / 14 "reference value") * (Preferences bigDisplay ifTrue: [1.75] ifFalse: [1.0])!

1 0

The Trunk: EToys-mt.357.mcz
by commits＠source.squeak.org 29 Sep '19

29 Sep '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.357.mcz ==================== Summary ==================== Name: EToys-mt.357 Author: mt Time: 29 September 2019, 4:48:08.530032 pm UUID: d0b2a533-12f3-0b49-bc14-edbccffebb90 Ancestors: EToys-mt.356 Minor Etoys clean-up. See Morphic-mt.1545. =============== Diff against EToys-mt.356 =============== Item was removed: - ----- Method: SystemProgressMorph>>label:min:max: (in category '*Etoys-Squeakland-private') ----- - label: shortDescription min: minValue max: maxValue - | slot range newBarSize barSize lastRefresh index | - ((range := maxValue - minValue) <= 0 or: [(slot := self nextSlotFor: shortDescription) = 0]) - ifTrue: [^[:barVal| 0 ]]. - self openInWorld. - activeSlots <= 1 - ifTrue: [self align: self fullBounds center with: Display boundingBox center]. - barSize := -1. "Enforces a inital draw of the morph" - lastRefresh := 0. - index := Preferences unifyNestedProgressBars ifFalse: [slot] ifTrue: [1]. - ^[:barVal | - (barVal between: minValue and: maxValue) ifTrue: [ - newBarSize := (barVal - minValue / range * BarWidth) truncated. - newBarSize > barSize ifTrue: [ - barSize := newBarSize. - (bars at: index) barSize: barSize. - Time primMillisecondClock - lastRefresh > 25 ifTrue: [ - self currentWorld displayWorld. - lastRefresh := Time primMillisecondClock]]]. - slot] - ! Item was removed: - ----- Method: SystemProgressMorph>>nextSlotUnifiedFor: (in category '*Etoys-Squeakland-private') ----- - nextSlotUnifiedFor: shortDescription - | bar label index | - lock critical: [ - activeSlots := activeSlots + 1. - index := 1. - bar := (bars at: index). - bar ifNil: [ - bar := bars at: 1 put: (SystemProgressBarMorph new extent: BarWidth@BarHeight). - label := labels at: 1 put: (StringMorph contents: shortDescription font: font). - self - addMorphBack: label; - addMorphBack: bar. - ]. - bar owner ifNil: [ - bar := bars at: index. - label := labels at: index. - self - addMorphBack: (label contents: shortDescription); - addMorphBack: (bar barSize: 0). - ]]. - ^ activeSlots. - !

1 0

The Trunk: Morphic-mt.1545.mcz
by commits＠source.squeak.org 29 Sep '19

29 Sep '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1545.mcz ==================== Summary ==================== Name: Morphic-mt.1545 Author: mt Time: 29 September 2019, 4:47:05.383032 pm UUID: a198c237-2e03-2341-a90f-da63559ca121 Ancestors: Morphic-mt.1544 Minor Etoys clean-up. =============== Diff against Morphic-mt.1544 =============== Item was added: + ----- Method: SystemProgressMorph>>label:min:max: (in category 'private') ----- + label: shortDescription min: minValue max: maxValue + "For convenience. Do not change the current position." + + self + position: self requestedPosition + label: shortDescription + min: minValue + max: maxValue. + !

1 0

The Trunk: EToys-mt.356.mcz
by commits＠source.squeak.org 29 Sep '19

29 Sep '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.356.mcz ==================== Summary ==================== Name: EToys-mt.356 Author: mt Time: 29 September 2019, 4:38:53.143032 pm UUID: bfc8f22c-18f7-9146-8d4a-9829f8a4f36a Ancestors: EToys-mt.355 Some minor fixes in (maybe dead) Etoys code. =============== Diff against EToys-mt.355 =============== Item was changed: ----- Method: CurrentProjectRefactoring class>>currentInterruptName: (in category 'revectoring to current') ----- currentInterruptName: aString " CurrentProjectRefactoring currentInterruptName: " + ^ self xxxCurrent interruptName: aString! - ^Project interruptName: aString! Item was changed: ----- Method: CurrentProjectRefactoring class>>currentInterruptName:preemptedProcess: (in category 'revectoring to current') ----- currentInterruptName: aString preemptedProcess: theInterruptedProcess + ^ self xxxCurrent interruptName: aString preemptedProcess: theInterruptedProcess! - ^ Project interruptName: aString preemptedProcess: theInterruptedProcess! Item was changed: ----- Method: CurrentProjectRefactoring class>>currentSpawnNewProcessAndTerminateOld: (in category 'revectoring to current') ----- currentSpawnNewProcessAndTerminateOld: aBoolean " CurrentProjectRefactoring currentSpawnNewProcessAndTerminateOld: " + ^self xxxCurrent spawnNewProcessAndTerminateOld: aBoolean - ^Project spawnNewProcessAndTerminateOld: aBoolean ! Item was changed: ----- Method: CurrentProjectRefactoring class>>newProcessIfUI: (in category 'miscellaneous') ----- newProcessIfUI: aDeadOrDyingProcess " CurrentProjectRefactoring newProcessIfUI: used ONLY for Morphic " + ^ self xxxCurrent spawnNewProcessIfThisIsUI: aDeadOrDyingProcess! - ^Project spawnNewProcessIfThisIsUI: aDeadOrDyingProcess!

1 0

The Trunk: 60Deprecated-ct.42.mcz
by commits＠source.squeak.org 29 Sep '19

29 Sep '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-ct.42.mcz ==================== Summary ==================== Name: 60Deprecated-ct.42 Author: ct Time: 15 August 2019, 3:05:56.648584 am UUID: 7497b09d-2e4d-c648-9f01-8577689f904b Ancestors: 60Deprecated-mt.41 Mark #setAuthorInitials: with #deprecated: Important: Before committing this to Trunk, please merge https://github.com/Metacello/metacello/pull/508 Let's see if this solves the problem ... =============== Diff against 60Deprecated-mt.41 =============== Item was changed: ----- Method: Utilities class>>setAuthorInitials: (in category '*60Deprecated-identification') ----- setAuthorInitials: aString + self deprecated: 'Use #authorInitials:.'. - "mt: Not now (17/04/2018) for SmalltalkCI. See: https://github.com/hpi-swa/smalltalkCI/issues/368 - self deprecated: 'Use #authorInitials:.'." - self authorInitials: aString.!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
36
Older →

Jump to page: