Squeak-dev December 2016

squeak-dev@lists.squeakfoundation.org

39 participants
137 discussions

Errored: squeak-smalltalk/squeak-app#293 (master - 072d3eb)
by Travis CI 09 Dec '16

09 Dec '16

Build Update for squeak-smalltalk/squeak-app ------------------------------------- Build: #293 Status: Errored Duration: 27 minutes and 59 seconds Commit: 072d3eb (master) Author: Fabio Niephaus Message: Enable notifications to be sent to squeak-dev View the changeset: https://github.com/squeak-smalltalk/squeak-app/compare/ff4e314f64d74fbf0e65… View the full build log and details: https://travis-ci.org/squeak-smalltalk/squeak-app/builds/182612887 -- You can configure recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications

1 0

Errored: squeak-smalltalk/squeak-app#289 (master - 072d3eb)
by Travis CI 09 Dec '16

09 Dec '16

Build Update for squeak-smalltalk/squeak-app ------------------------------------- Build: #289 Status: Errored Duration: 25 minutes and 13 seconds Commit: 072d3eb (master) Author: Fabio Niephaus Message: Enable notifications to be sent to squeak-dev View the changeset: https://github.com/squeak-smalltalk/squeak-app/compare/d26fffd5c928...072d3… View the full build log and details: https://travis-ci.org/squeak-smalltalk/squeak-app/builds/182576131 -- You can configure recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications

2 1

Errored: squeak-smalltalk/squeak-app#289 (master - 072d3eb)
by Travis CI 09 Dec '16

09 Dec '16

1 0

Errored: squeak-smalltalk/squeak-app#289 (master - 072d3eb)
by Travis CI 09 Dec '16

09 Dec '16

1 0

Dragging morphs outside the world moves them back to where the dragging began
by Bernhard Pieber 08 Dec '16

08 Dec '16

Dear Squeakers, When a morph is dragged outside the world on the top, right, or bottom, it snaps back to where the dragging began. (Interestingly, this is not the case for dragging it to the left. On the left side the hand morph seems to be constrained in a way different from the other sides.) This also happens for SystemWindows. I searched for the place where this is implemented. However, I cannot find it. Can someone point me in the right direction, where to look? Cheers, Bernhard

2 1

The Inbox: Morphic-bp.1317.mcz
by commits＠source.squeak.org 08 Dec '16

08 Dec '16

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-bp.1317.mcz ==================== Summary ==================== Name: Morphic-bp.1317 Author: bp Time: 8 December 2016, 9:07:14.528425 pm UUID: 6ed0a859-f5e2-423a-b600-fd5a45aa0736 Ancestors: Morphic-bp.1316 Make Drag To Edges also work if fastDragWindowForMorphic is turned off =============== Diff against Morphic-bp.1316 =============== Item was changed: MorphicModel subclass: #SystemWindow + instanceVariableNames: 'labelString stripes label closeBox collapseBox paneMorphs paneRects collapsedFrame fullFrame isCollapsed isActive isLookingFocused menuBox mustNotClose labelWidgetAllowance updatablePanes allowReframeHandles labelArea expandBox savedBounds' - instanceVariableNames: 'labelString stripes label closeBox collapseBox paneMorphs paneRects collapsedFrame fullFrame isCollapsed isActive isLookingFocused menuBox mustNotClose labelWidgetAllowance updatablePanes allowReframeHandles labelArea expandBox' classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImageFlat CloseBoxImageGradient CollapseBoxImageFlat CollapseBoxImageGradient DoubleClickOnLabelToExpand DragToEdges ExpandBoxFrame ExpandBoxImageFlat ExpandBoxImageGradient FocusFollowsMouse GradientWindow HideExpandButton MenuBoxFrame MenuBoxImageFlat MenuBoxImageGradient ResizeAlongEdges ReuseWindows RoundedWindowCorners TopWindow WindowTitleActiveOnFirstClick WindowsRaiseOnClick' poolDictionaries: '' category: 'Morphic-Windows'! !SystemWindow commentStamp: '<historical>' prior: 0! SystemWindow is the Morphic equivalent of StandardSystemView -- a labelled container for rectangular views, with iconic facilities for close, collapse/expand, and resizing. The attribute onlyActiveOnTop, if set to true (and any call to activate will set this), determines that only the top member of a collection of such windows on the screen shall be active. To be not active means that a mouse click in any region will only result in bringing the window to the top and then making it active.! Item was changed: ----- Method: SystemWindow>>handleListenEvent: (in category 'events') ----- handleListenEvent: aUserInputEvent "See #mouseEnterDragging:. Watch for finished drag-and-drop action and lock contents accordingly." - (aUserInputEvent isMouse and: [ aUserInputEvent hand hasSubmorphs not ]) ifTrue: [ self isKeyWindow ifFalse: [ self passivateIfNeeded ]. + aUserInputEvent hand removeMouseListener: self ]. + + (aUserInputEvent hand submorphs includes: self) ifTrue: [ + | clearArea selector | + clearArea := ActiveWorld clearArea. + (self class dragToEdges and: [(selector := self dragToEdgesSelectorFor: aUserInputEvent cursorPoint in: clearArea) notNil]) + ifTrue: [ + savedBounds ifNil: [savedBounds := self bounds]. + self newBounds: (clearArea perform: selector)] + ifFalse: [ + savedBounds ifNotNil: [ + self newBounds: savedBounds. + savedBounds := nil]]]! - aUserInputEvent hand removeMouseListener: self ].! Item was changed: ----- Method: SystemWindow>>justDroppedInto:event: (in category 'geometry') ----- justDroppedInto: aMorph event: anEvent + savedBounds := nil. - 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. anEvent hand newMouseFocus: grip]]. ^super justDroppedInto: aMorph event: anEvent! Item was changed: ----- Method: SystemWindow>>startDragFromLabel: (in category 'events') ----- startDragFromLabel: evt "When label events are active, we need to pass dragging to the window explicitely The window only recognizes a drag with an offset of more than 3 pixels" self isSticky ifTrue: [^ self]. self fastFramingOn ifTrue: [self doFastFrameDrag: evt cursorPoint] ifFalse: [ self hasDropShadow: false. + evt hand grabMorph: self topRendererOrSelf. + evt hand addMouseListener: self] - evt hand grabMorph: self topRendererOrSelf] !

2 1

The Inbox: Tools-cmm.733.mcz
by commits＠source.squeak.org 08 Dec '16

08 Dec '16

Chris Muller uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-cmm.733.mcz ==================== Summary ==================== Name: Tools-cmm.733 Author: cmm Time: 6 December 2016, 3:50:06.783172 pm UUID: 46663c9b-de5d-4b65-ae5e-def988146a88 Ancestors: Tools-nice.732 Smalltalk garbageCollect can sometimes take many minutes, and there's no need to do it when opening a ProcessBrowser. =============== Diff against Tools-nice.732 =============== Item was changed: ----- Method: ProcessBrowser class>>open (in category 'instance creation') ----- open - "ProcessBrowser open" - "Create and schedule a ProcessBrowser." - Smalltalk garbageCollect. ^ToolBuilder open: self new!

4 5

Dragging a SystemWindow activates the SystemWindows underneath
by Bernhard Pieber 08 Dec '16

08 Dec '16

If I drag a window around over other windows I realized they were activated. Even lists in those windows get highlighted as they are when the mouse is dragged over the list in the active window. This seems to be a bug, isn’t it? Cheers, Bernhard

1 0

The Trunk: Morphic-bp.1316.mcz
by commits＠source.squeak.org 08 Dec '16

08 Dec '16

Bernhard Pieber uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bp.1316.mcz ==================== Summary ==================== Name: Morphic-bp.1316 Author: bp Time: 8 December 2016, 4:51:49.905664 pm UUID: 0bc98a49-1277-44f5-a127-3c3320c198a9 Ancestors: Morphic-ul.1315, Morphic-bp.1065 merged feature to snap and resize SystemWindows to halves and quadrants of the display when dragged to its edges, only works once the "Drag To Edges" preference is set and fastDragWindowForMorphic is turned off =============== Diff against Morphic-ul.1315 =============== Item was changed: MorphicModel subclass: #SystemWindow instanceVariableNames: 'labelString stripes label closeBox collapseBox paneMorphs paneRects collapsedFrame fullFrame isCollapsed isActive isLookingFocused menuBox mustNotClose labelWidgetAllowance updatablePanes allowReframeHandles labelArea expandBox' + classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImageFlat CloseBoxImageGradient CollapseBoxImageFlat CollapseBoxImageGradient DoubleClickOnLabelToExpand DragToEdges ExpandBoxFrame ExpandBoxImageFlat ExpandBoxImageGradient FocusFollowsMouse GradientWindow HideExpandButton MenuBoxFrame MenuBoxImageFlat MenuBoxImageGradient ResizeAlongEdges ReuseWindows RoundedWindowCorners TopWindow WindowTitleActiveOnFirstClick WindowsRaiseOnClick' - classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImageFlat CloseBoxImageGradient CollapseBoxImageFlat CollapseBoxImageGradient DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImageFlat ExpandBoxImageGradient FocusFollowsMouse GradientWindow HideExpandButton MenuBoxFrame MenuBoxImageFlat MenuBoxImageGradient ResizeAlongEdges ReuseWindows RoundedWindowCorners TopWindow WindowTitleActiveOnFirstClick WindowsRaiseOnClick' poolDictionaries: '' category: 'Morphic-Windows'! !SystemWindow commentStamp: '<historical>' prior: 0! SystemWindow is the Morphic equivalent of StandardSystemView -- a labelled container for rectangular views, with iconic facilities for close, collapse/expand, and resizing. The attribute onlyActiveOnTop, if set to true (and any call to activate will set this), determines that only the top member of a collection of such windows on the screen shall be active. To be not active means that a mouse click in any region will only result in bringing the window to the top and then making it active.! Item was added: + ----- Method: SystemWindow class>>dragToEdges (in category 'preferences') ----- + dragToEdges + <preference: 'Drag To Edges' + category: 'windows' + description: 'When true, windows snap and resize to corners and edges of the Display.' + type: #Boolean> + ^DragToEdges ifNil: [false]! Item was added: + ----- Method: SystemWindow class>>dragToEdges: (in category 'preferences') ----- + dragToEdges: aBoolean + DragToEdges := aBoolean! Item was changed: ----- Method: SystemWindow>>doFastFrameDrag: (in category 'events') ----- doFastFrameDrag: grabPoint "Do fast frame dragging from the given point" + | offset newBounds outerWorldBounds clearArea | - | offset newBounds outerWorldBounds | outerWorldBounds := self boundsIn: nil. offset := outerWorldBounds origin - grabPoint. + clearArea := ActiveWorld clearArea. + newBounds := outerWorldBounds newRectFrom: [:f | + | p selector | + p := Sensor cursorPoint. + (self class dragToEdges and: [(selector := self dragToEdgesSelectorFor: p in: clearArea) notNil]) + ifTrue: [clearArea perform: selector] + ifFalse: [p + offset extent: outerWorldBounds extent]]. + self bounds: newBounds; comeToFront! - newBounds := outerWorldBounds newRectFrom: [:f | - Sensor cursorPoint + offset extent: outerWorldBounds extent]. - self position: (self globalPointToLocal: newBounds topLeft); comeToFront! Item was added: + ----- Method: SystemWindow>>dragToEdgeDistance (in category 'resize/collapse') ----- + dragToEdgeDistance + ^10! Item was added: + ----- Method: SystemWindow>>dragToEdgesSelectorFor:in: (in category 'resize/collapse') ----- + dragToEdgesSelectorFor: p in: a + "answer first matching drag resize selector, if none is found, answer nil" + #(isPoint:nearTopLeftOf: isPoint:nearTopRightOf: isPoint:nearBottomLeftOf: isPoint:nearBottomRightOf: isPoint:nearTopOf: isPoint:nearBottomOf: isPoint:nearLeftOf: isPoint:nearRightOf:) + with: #(topLeftQuadrant topRightQuadrant bottomLeftQuadrant bottomRightQuadrant topHalf bottomHalf leftHalf rightHalf) + do: [:predicate :selector | + (self perform: predicate with: p with: a) ifTrue: [^selector]]. + ^nil! Item was added: + ----- Method: SystemWindow>>isPoint:nearBottomLeftOf: (in category 'resize/collapse') ----- + isPoint: p nearBottomLeftOf: a + ^(self isPoint: p nearBottomOf: a) and: [self isPoint: p nearLeftOf: a]! Item was added: + ----- Method: SystemWindow>>isPoint:nearBottomOf: (in category 'resize/collapse') ----- + isPoint: p nearBottomOf: a + ^p y > (a bottom - self dragToEdgeDistance)! Item was added: + ----- Method: SystemWindow>>isPoint:nearBottomRightOf: (in category 'resize/collapse') ----- + isPoint: p nearBottomRightOf: a + ^(self isPoint: p nearBottomOf: a) and: [self isPoint: p nearRightOf: a]! Item was added: + ----- Method: SystemWindow>>isPoint:nearLeftOf: (in category 'resize/collapse') ----- + isPoint: p nearLeftOf: a + ^p x < (a left + self dragToEdgeDistance)! Item was added: + ----- Method: SystemWindow>>isPoint:nearRightOf: (in category 'resize/collapse') ----- + isPoint: p nearRightOf: a + ^p x > (a right - self dragToEdgeDistance)! Item was added: + ----- Method: SystemWindow>>isPoint:nearTopLeftOf: (in category 'resize/collapse') ----- + isPoint: p nearTopLeftOf: a + ^(self isPoint: p nearTopOf: a) and: [self isPoint: p nearLeftOf: a]! Item was added: + ----- Method: SystemWindow>>isPoint:nearTopOf: (in category 'resize/collapse') ----- + isPoint: p nearTopOf: a + ^p y < (a top + self dragToEdgeDistance)! Item was added: + ----- Method: SystemWindow>>isPoint:nearTopRightOf: (in category 'resize/collapse') ----- + isPoint: p nearTopRightOf: a + ^(self isPoint: p nearTopOf: a) and: [self isPoint: p nearRightOf: a]!

1 0

The Trunk: GraphicsTests-bp.41.mcz
by commits＠source.squeak.org 08 Dec '16

08 Dec '16

Bernhard Pieber uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-bp.41.mcz ==================== Summary ==================== Name: GraphicsTests-bp.41 Author: bp Time: 8 December 2016, 4:45:10.55569 pm UUID: 0312d401-a01f-4fce-bd06-b5bc121f5f73 Ancestors: GraphicsTests-nice.40, GraphicsTests-bp.39 merged in tests for gettin a rectangle's halves and quadrants =============== Diff against GraphicsTests-nice.40 =============== Item was added: + ----- Method: RectangleTest>>testBottomHalf (in category 'testing') ----- + testBottomHalf + | r | + r := 10@20 corner: 30@50. + self assert: (10@35 corner: 30@50) equals: r bottomHalf. + self assert: (10@42 corner: 30@50) equals: r bottomHalf bottomHalf! Item was added: + ----- Method: RectangleTest>>testBottomLeftQuadrant (in category 'testing') ----- + testBottomLeftQuadrant + | r | + r := 10@20 corner: 30@50. + self assert: (10@35 corner: 20@50) equals: r bottomLeftQuadrant. + self assert: (10@42 corner: 15@50) equals: r bottomLeftQuadrant bottomLeftQuadrant! Item was added: + ----- Method: RectangleTest>>testBottomRightQuadrant (in category 'testing') ----- + testBottomRightQuadrant + | r | + r := 10@20 corner: 30@50. + self assert: (20@35 corner: 30@50) equals: r bottomRightQuadrant. + self assert: (25@42 corner: 30@50) equals: r bottomRightQuadrant bottomRightQuadrant! Item was added: + ----- Method: RectangleTest>>testLeftHalf (in category 'testing') ----- + testLeftHalf + | r | + r := 10@20 corner: 30@50. + self assert: (10@20 corner: 20@50) equals: r leftHalf. + self assert: (10@20 corner: 15@50) equals: r leftHalf leftHalf! Item was added: + ----- Method: RectangleTest>>testRightHalf (in category 'testing') ----- + testRightHalf + | r | + r := 10@20 corner: 30@50. + self assert: (20@20 corner: 30@50) equals: r rightHalf. + self assert: (25@20 corner: 30@50) equals: r rightHalf rightHalf! Item was added: + ----- Method: RectangleTest>>testTopHalf (in category 'testing') ----- + testTopHalf + | r | + r := 10@20 corner: 30@50. + self assert: (10@20 corner: 30@35) equals: r topHalf. + self assert: (10@20 corner: 30@27) equals: r topHalf topHalf! Item was added: + ----- Method: RectangleTest>>testTopLeftQuadrant (in category 'testing') ----- + testTopLeftQuadrant + | r | + r := 10@20 corner: 30@50. + self assert: (10@20 corner: 20@35) equals: r topLeftQuadrant. + self assert: (10@20 corner: 15@27) equals: r topLeftQuadrant topLeftQuadrant! Item was added: + ----- Method: RectangleTest>>testTopRightQuadrant (in category 'testing') ----- + testTopRightQuadrant + | r | + r := 10@20 corner: 30@50. + self assert: (20@20 corner: 30@35) equals: r topRightQuadrant. + self assert: (25@20 corner: 30@27) equals: r topRightQuadrant topRightQuadrant!

1 0

← Newer
1
...
8
9
10
11
12
13
14
Older →

Jump to page: