Squeak-dev March 2015

squeak-dev@lists.squeakfoundation.org

40 participants
315 discussions

The Trunk: Morphic-mt.796.mcz
by commits＠source.squeak.org 31 Mar '15

31 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.796.mcz ==================== Summary ==================== Name: Morphic-mt.796 Author: mt Time: 31 March 2015, 5:30:16.582 pm UUID: 4b95c232-4447-6f41-a251-e2a3f4196f23 Ancestors: Morphic-mt.795 Indicate hovered item in lists. Can be turned off via preference. Redraw of the highlight is fast because we only invalidate the rectangles from the affected rows. Extended #handleMouseMove: and not #mouseMove: because there is a mouse-button guard in #handleMouseMove:, which is exploited in the multi-selection list morphs. =============== Diff against Morphic-mt.795 =============== Item was changed: ----- Method: LazyListMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | | listItems size = 0 ifTrue: [ ^self ]. + - self drawPreSelectionOn: aCanvas; drawSelectionOn: aCanvas. (self topVisibleRowForCanvas: aCanvas) to: (self bottomVisibleRowForCanvas: aCanvas) do: [ :row | (listSource itemSelectedAmongMultiple: row) ifTrue: [ + self drawBackgroundForMulti: row on: aCanvas. ]]. + + PluggableListMorph highlightHoveredRow ifTrue: [ + listSource hoverRow > 0 ifTrue: [ + self highlightHoverRow: listSource hoverRow on: aCanvas ] ]. + + (self topVisibleRowForCanvas: aCanvas) to: (self bottomVisibleRowForCanvas: aCanvas) do: [ :row | - self drawBackgroundForMulti: row on: aCanvas. ]. self display: (self item: row) atRow: row on: aCanvas. ]. listSource potentialDropRow > 0 ifTrue: [ self highlightPotentialDropRow: listSource potentialDropRow on: aCanvas ].! Item was added: + ----- Method: LazyListMorph>>highlightHoverRow:on: (in category 'drawing') ----- + highlightHoverRow: row on: aCanvas + | drawBounds | + drawBounds := self drawBoundsForRow: row. + drawBounds := drawBounds intersect: self bounds. + aCanvas fillRectangle: drawBounds color: (self class listSelectionColor darker alpha: 0.3).! Item was added: + ----- Method: LazyListMorph>>rowChanged: (in category 'updating') ----- + rowChanged: anInteger + + self invalidRect: (self drawBoundsForRow: anInteger).! Item was changed: ScrollPane subclass: #PluggableListMorph + instanceVariableNames: 'list getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes lastClickTime doubleClickSelector handlesBasicKeys potentialDropRow hoverRow listMorph hScrollRangeCache keystrokePreviewSelector priorSelection getIconSelector' + classVariableNames: 'ClearFilterAutomatically FilterableLists HighlightHoveredRow' - instanceVariableNames: 'list getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes lastClickTime doubleClickSelector handlesBasicKeys potentialDropRow listMorph hScrollRangeCache keystrokePreviewSelector priorSelection getIconSelector' - classVariableNames: 'ClearFilterAutomatically FilterableLists' poolDictionaries: '' category: 'Morphic-Pluggable Widgets'! !PluggableListMorph commentStamp: 'cmm 8/21/2011 23:37' prior: 0! When a PluggableListMorph is in focus, type in a letter (or several letters quickly) to go to the next item that begins with that letter (if FilterableLists is false). Special keys (up, down, home, etc.) are also supported.! Item was added: + ----- Method: PluggableListMorph class>>highlightHoveredRow (in category 'preferences') ----- + highlightHoveredRow + + <preference: 'Highlight Hovered Row in Lists' + category: #Morphic + description: 'Indicate, which row will be affected before any further iteraction takes place.' + type: #Boolean> + ^ HighlightHoveredRow ifNil: [true]! Item was added: + ----- Method: PluggableListMorph class>>highlightHoveredRow: (in category 'preferences') ----- + highlightHoveredRow: aBoolean + + HighlightHoveredRow := aBoolean.! Item was changed: ----- Method: PluggableListMorph>>handleMouseMove: (in category 'events-processing') ----- handleMouseMove: anEvent "Reimplemented because we really want #mouseMove when a morph is dragged around" anEvent wasHandled ifTrue:[^self]. "not interested" + self hoverRow: (self rowAtLocation: anEvent position). (anEvent anyButtonPressed and:[anEvent hand mouseFocus == self]) ifFalse:[^self]. anEvent wasHandled: true. self mouseMove: anEvent. (self handlesMouseStillDown: anEvent) ifTrue:[ "Step at the new location" self startStepping: #handleMouseStillDown: at: Time millisecondClockValue arguments: {anEvent copy resetHandlerFields} stepTime: 1]. ! Item was added: + ----- Method: PluggableListMorph>>hoverItem (in category 'accessing') ----- + hoverItem + + ^ self hoverRow = 0 + ifTrue: [nil] + ifFalse: [self getListItem: self hoverRow]! Item was added: + ----- Method: PluggableListMorph>>hoverRow (in category 'accessing') ----- + hoverRow + + ^ hoverRow ifNil: [0]! Item was added: + ----- Method: PluggableListMorph>>hoverRow: (in category 'accessing') ----- + hoverRow: anInteger + + hoverRow = anInteger ifTrue: [^ self]. + + hoverRow ifNotNil: [self listMorph rowChanged: hoverRow]. + hoverRow := anInteger. + hoverRow ifNotNil: [self listMorph rowChanged: hoverRow].! Item was changed: ----- Method: PluggableListMorph>>mouseLeave: (in category 'events') ----- mouseLeave: event "The mouse has left the area of the receiver" super mouseLeave: event. + + self hoverRow: nil. + Preferences mouseOverForKeyboardFocus ifTrue:[ + event hand releaseKeyboardFocus: self].! - event hand releaseKeyboardFocus: self]! Item was changed: ----- Method: PluggableListMorph>>mouseLeaveDragging: (in category 'events') ----- mouseLeaveDragging: anEvent + + self hoverRow: nil. (self dropEnabled and:[anEvent hand hasSubmorphs]) ifFalse: ["no d&d" ^ super mouseLeaveDragging: anEvent]. self resetPotentialDropRow. anEvent hand releaseMouseFocus: self. "above is ugly but necessary for now" !

1 0

The Trunk: Tools-mt.568.mcz
by commits＠source.squeak.org 31 Mar '15

31 Mar '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.568.mcz ==================== Summary ==================== Name: Tools-mt.568 Author: mt Time: 31 March 2015, 11:57:54.177 am UUID: 852a3dac-ba3b-9e42-9bf1-937c81eea6e0 Ancestors: Tools-mt.567 Help message added to object explorer code pane. =============== Diff against Tools-mt.567 =============== Item was changed: ----- Method: ObjectExplorer>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowSpec treeSpec textSpec | windowSpec := builder pluggableWindowSpec new. windowSpec model: self; children: OrderedCollection new; label: #label. treeSpec := builder pluggableTreeSpec new. treeSpec model: self; nodeClass: self class nodeClass; roots: #getList; keyPress: #explorerKey:from:event:; getSelected: #currentSelection; setSelected: #currentSelection:; setSelectedParent: #currentParent:; menu: #genericMenu:; autoDeselect: false; columns: (ObjectExplorerWrapper showContentsInColumns ifTrue: [{ [:listMorph | (listMorph scroller submorphs collect: [:item | item preferredWidthOfColumn: 1]) max]. nil "take all the space"}] ifFalse: []); frame: (0@0 corner: 1(a)0.85). windowSpec children add: treeSpec. textSpec := builder pluggableTextSpec new. textSpec model: self; menu: #codePaneMenu:shifted:; + help: 'Evaluate expressions for the current tree selection...' translated; frame: (0(a)0.85 corner: 1@1). windowSpec children add: textSpec. ^ builder build: windowSpec!

1 0

The Trunk: MorphicExtras-mt.158.mcz
by commits＠source.squeak.org 31 Mar '15

31 Mar '15

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.158.mcz ==================== Summary ==================== Name: MorphicExtras-mt.158 Author: mt Time: 31 March 2015, 11:50:53.299 am UUID: fc9c79dc-8f8a-f247-8cff-60a50ca2d16f Ancestors: MorphicExtras-mt.157 Classify new-style balloon morphs as valid balloon help. =============== Diff against MorphicExtras-mt.157 =============== Item was added: + ----- Method: NewBalloonMorph>>isBalloonHelp (in category '*MorphicExtras-classification') ----- + isBalloonHelp + ^ true!

1 0

The Trunk: Morphic-mt.795.mcz
by commits＠source.squeak.org 31 Mar '15

31 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.795.mcz ==================== Summary ==================== Name: Morphic-mt.795 Author: mt Time: 31 March 2015, 11:47:43.755 am UUID: 63a8f18d-ec06-d646-8a81-0fd3a455cc47 Ancestors: Morphic-mt.794 Backwards-compatibility in old-style balloon morphs for being opened at a specific position. =============== Diff against Morphic-mt.794 =============== Item was added: + ----- Method: BalloonMorph>>popUpAt:forHand: (in category 'initialization') ----- + popUpAt: aPoint forHand: aHand + + self popUpForHand: aHand.!

1 0

The Trunk: Morphic-mt.794.mcz
by commits＠source.squeak.org 31 Mar '15

31 Mar '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.794.mcz ==================== Summary ==================== Name: Morphic-mt.794 Author: mt Time: 31 March 2015, 11:38:42.253 am UUID: 765a2201-af4c-0948-b90d-72414d335160 Ancestors: Morphic-mt.793 New-style balloon morph added and used. Can be switched back to old-style balloon morphs via preferences. New-style balloon morphs support: - text (not only strings) - layouting via text paragraph (not hard-cutted via: #noLineLongerThan:) - positioning at current hand position (if not supplied with other reference point) In general, new-style balloon morphs have an improved readability. =============== Diff against Morphic-mt.793 =============== Item was changed: ----- Method: BalloonMorph class>>string:for:corner: (in category 'instance creation') ----- string: str for: morph corner: cornerName "Make up and return a balloon for morph. Find the quadrant that clips the text the least, using cornerName as a tie-breaker. tk 9/12/97" | tm vertices | + tm := self + getTextMorph: (str asString withNoLineLongerThan: Preferences maxBalloonHelpLineLength) + for: morph. - tm := self getTextMorph: str for: morph. vertices := self getVertices: tm bounds. vertices := self getBestLocation: vertices for: morph corner: cornerName. ^ self new color: morph balloonColor; setVertices: vertices; addMorph: tm; setTarget: morph! Item was changed: ----- Method: MenuMorph>>showKeyboardHelp (in category 'keystroke helpers') ----- showKeyboardHelp | help | + help := self balloonMorphClass + string: 'Enter text to narrow selection\down to matching items ' withCRs - help := BalloonMorph - string: 'Enter text to\narrow selection down\to matching items ' withCRs for: self corner: #topLeft. + help popUpAt: self topCenter forHand: self activeHand! - help popUpForHand: self activeHand! Item was added: + ----- Method: Morph>>balloonMorphClass (in category 'halos and balloon help') ----- + balloonMorphClass + + ^ NewBalloonMorph useNewBalloonMorph + ifTrue: [NewBalloonMorph] + ifFalse: [BalloonMorph]! Item was changed: ----- Method: Morph>>showBalloon:hand: (in category 'halos and balloon help') ----- showBalloon: msgString hand: aHand "Pop up a balloon containing the given string, first removing any existing BalloonMorphs in the world." | w balloon h | (w := self world) ifNil: [^ self]. h := aHand. h ifNil:[ h := w activeHand]. + balloon := self balloonMorphClass + string: msgString - balloon := BalloonMorph - string: (msgString asString withNoLineLongerThan: Preferences maxBalloonHelpLineLength) for: self balloonHelpAligner. balloon popUpFor: self hand: h.! Item was added: + Morph subclass: #NewBalloonMorph + instanceVariableNames: 'balloonOwner textMorph maximumWidth orientation hasTail' + classVariableNames: 'UseNewBalloonMorph' + poolDictionaries: '' + category: 'Morphic-Widgets'! + + !NewBalloonMorph commentStamp: 'mt 3/31/2015 10:15' prior: 0! + A balloon is a bubble with an optional tail. It contains rich text, which describes something about its balloon-owner.! Item was added: + ----- Method: NewBalloonMorph class>>string:for: (in category 'instance creation') ----- + string: str for: morph + + ^ self string: str for: morph corner: #bottomLeft! Item was added: + ----- Method: NewBalloonMorph class>>string:for:corner: (in category 'instance creation') ----- + string: message for: morph corner: symbol + + ^ self new + balloonOwner: morph; + setText: message; + orientation: symbol; + yourself! Item was added: + ----- Method: NewBalloonMorph class>>useNewBalloonMorph (in category 'preferences') ----- + useNewBalloonMorph + + <preference: 'Use new-style balloon morphs' + category: #Morphic + description: 'The new-style balloon morphs are improved for better reading quality and support rich text.' + type: #Boolean> + ^ UseNewBalloonMorph ifNil: [true]! Item was added: + ----- Method: NewBalloonMorph class>>useNewBalloonMorph: (in category 'preferences') ----- + useNewBalloonMorph: aBoolean + + UseNewBalloonMorph := aBoolean.! Item was added: + ----- Method: NewBalloonMorph>>balloonOwner (in category 'accessing') ----- + balloonOwner + + ^ balloonOwner! Item was added: + ----- Method: NewBalloonMorph>>balloonOwner: (in category 'accessing') ----- + balloonOwner: aMorph + + balloonOwner := aMorph.! Item was added: + ----- Method: NewBalloonMorph>>bubbleBounds (in category 'geometry') ----- + bubbleBounds + + ^ self bounds insetBy: (0 @ self tailHeight corner: 0 @ self tailHeight)! Item was added: + ----- Method: NewBalloonMorph>>bubbleInset (in category 'geometry') ----- + bubbleInset + + ^ 5@2! Item was added: + ----- Method: NewBalloonMorph>>defaultBorderColor (in category 'initialization') ----- + defaultBorderColor + + ^ self defaultColor muchDarker"Color black"! Item was added: + ----- Method: NewBalloonMorph>>defaultBorderWidth (in category 'initialization') ----- + defaultBorderWidth + + ^ 1! Item was added: + ----- Method: NewBalloonMorph>>defaultColor (in category 'initialization') ----- + defaultColor + + ^ BalloonMorph balloonColor! Item was added: + ----- Method: NewBalloonMorph>>drawDropShadowOn: (in category 'drawing') ----- + drawDropShadowOn: aCanvas + + aCanvas + translateBy: self shadowOffset + during: [ :shadowCanvas | + (shadowCanvas isVisible: self bubbleBounds) ifTrue: [ + self wantsRoundedCorners + ifTrue: [shadowCanvas fillRoundRect: self bubbleBounds radius: self class preferredCornerRadius fillStyle: self shadowColor] + ifFalse: [shadowCanvas fillRectangle: self bubbleBounds fillStyle: self shadowColor]]. + + self hasTail ifTrue: [ + shadowCanvas + drawPolygon: self verticesForTail + fillStyle: self shadowColor]]. + + ! Item was added: + ----- Method: NewBalloonMorph>>drawOn: (in category 'drawing') ----- + drawOn: aCanvas + + "Bubble." + self wantsRoundedCorners + ifTrue: [aCanvas + frameAndFillRoundRect: self bubbleBounds + radius: self class preferredCornerRadius fillStyle: self fillStyle borderWidth: self borderStyle width borderColor: self borderStyle color] + ifFalse: [aCanvas + fillRectangle: self bubbleBounds + fillStyle: self fillStyle borderStyle: self borderStyle]. + + "Tail." + self hasTail ifTrue: [ + self verticesForTail in: [:points | + | pixelOffset | + pixelOffset := points first y < points second y + ifFalse: [points first x < points second x + ifTrue: [self borderStyle width negated @ self borderStyle width] "bottomLeft" + ifFalse: [self borderStyle width @ self borderStyle width]] "bottomRight" + ifTrue: [points first x < points second x + ifTrue: [self borderStyle width negated @ self borderStyle width negated] "topLeft" + ifFalse: [self borderStyle width @ self borderStyle width negated]]. "topRight" + + aCanvas + drawPolygon: points + fillStyle: self fillStyle. + aCanvas + line: points first + to: points second + pixelOffset + width: self borderStyle width + color: self borderStyle color. + aCanvas + line: points first + to: points third + pixelOffset + width: self borderStyle width + color: self borderStyle color]]! Item was added: + ----- Method: NewBalloonMorph>>hasTail (in category 'accessing') ----- + hasTail + + ^ hasTail ifNil: [true]! Item was added: + ----- Method: NewBalloonMorph>>hasTail: (in category 'accessing') ----- + hasTail: aBoolean + + hasTail := aBoolean.! Item was added: + ----- Method: NewBalloonMorph>>initialize (in category 'initialization') ----- + initialize + + super initialize. + + self + borderWidth: self defaultBorderWidth; + borderColor: self defaultBorderColor; + color: (self defaultColor alpha: 1.0); "no alpha due to drop shadow" + hasDropShadow: true; + shadowOffset: 1@1; + shadowColor: (self color muchDarker muchDarker alpha: 0.333); + orientation: #bottomLeft. + + MenuMorph roundedMenuCorners + ifTrue: [self cornerStyle: #rounded]. + + textMorph := TextMorph new + wrapFlag: false; + lock; + yourself. + + self addMorph: textMorph.! Item was added: + ----- Method: NewBalloonMorph>>maximumWidth (in category 'accessing') ----- + maximumWidth + + ^ maximumWidth ifNil: [ + maximumWidth := (self balloonOwner balloonFont widthOf: $m) * Preferences maxBalloonHelpLineLength]! Item was added: + ----- Method: NewBalloonMorph>>maximumWidth: (in category 'accessing') ----- + maximumWidth: anInteger + + maximumWidth := anInteger.! Item was added: + ----- Method: NewBalloonMorph>>morphicLayerNumber (in category 'WiW support') ----- + morphicLayerNumber + + "helpful for insuring some morphs always appear in front of or behind others. + smaller numbers are in front" + + ^5 "Balloons are very front-like things"! Item was added: + ----- Method: NewBalloonMorph>>move: (in category 'geometry') ----- + move: targetPoint + + self perform: (self orientation, #:) asSymbol with: targetPoint.! Item was added: + ----- Method: NewBalloonMorph>>orientation (in category 'accessing') ----- + orientation + "Encodes the position of the tail. #topLeft, #topRight, #bottomLeft, #bottomRight" + + ^ orientation! Item was added: + ----- Method: NewBalloonMorph>>orientation: (in category 'accessing') ----- + orientation: aSymbol + + orientation := aSymbol. + self changed.! Item was added: + ----- Method: NewBalloonMorph>>popUpAt:forHand: (in category 'initialization') ----- + popUpAt: point forHand: aHand + "Pop up the receiver as balloon help for the given hand" + + #(bottomLeft bottomRight topLeft topRight) detect: [:nextOrientation | + self orientation: nextOrientation. + self move: point. + self bounds: (self bounds translatedToBeWithin: aHand world bounds). + (self bounds perform: self orientation) = point] ifNone: ["Keep last try."]. + + aHand world addMorphFront: self. + aHand balloonHelp: self.! Item was added: + ----- Method: NewBalloonMorph>>popUpFor:hand: (in category 'initialization') ----- + popUpFor: aMorph hand: aHand + "Pop up the receiver as balloon help for the given hand" + + self balloonOwner: aMorph. + self popUpForHand: aHand.! Item was added: + ----- Method: NewBalloonMorph>>popUpForHand: (in category 'initialization') ----- + popUpForHand: aHand + + self popUpAt: aHand position forHand: aHand.! Item was added: + ----- Method: NewBalloonMorph>>setText: (in category 'initialization') ----- + setText: stringOrText + + | text | + text := stringOrText asText. + text addAttribute: (TextFontReference toFont: (self balloonOwner ifNil: [BalloonMorph]) balloonFont). + + self textMorph wrapFlag: false. + self textMorph newContents: text. + self textMorph fullBounds. + + (self maximumWidth > 0 and: [self textMorph width > self maximumWidth]) + ifTrue: [ + self textMorph + wrapFlag: true; + width: self maximumWidth]. + + self updateLayout.! Item was added: + ----- Method: NewBalloonMorph>>tailHeight (in category 'geometry') ----- + tailHeight + + ^ 8! Item was added: + ----- Method: NewBalloonMorph>>tailPosition (in category 'geometry') ----- + tailPosition + + ^ self innerBounds perform: self orientation! Item was added: + ----- Method: NewBalloonMorph>>tailWidth (in category 'geometry') ----- + tailWidth + + ^ 15! Item was added: + ----- Method: NewBalloonMorph>>textMorph (in category 'accessing - ui') ----- + textMorph + + ^ textMorph! Item was added: + ----- Method: NewBalloonMorph>>updateLayout (in category 'layout') ----- + updateLayout + + self textMorph fullBounds. + self extent: self textMorph extent + (2* self bubbleInset) + (0 @ (2*self tailHeight)). + self textMorph center: self center.! Item was added: + ----- Method: NewBalloonMorph>>verticesForTail (in category 'drawing') ----- + verticesForTail + + | offset factorX factorY tpos bpos | + offset := 5 + (self wantsRoundedCorners + ifTrue: [self class preferredCornerRadius] + 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)).}!

1 0

Re: The Trunk: Morphic-mt.794.mcz
by Marcel Taeumel 31 Mar '15

31 Mar '15

<http://forum.world.st/file/n4816305/new-balloon-morph.png> -- View this message in context: http://forum.world.st/The-Trunk-Morphic-mt-794-mcz-tp4816304p4816305.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 1

Re: [squeak-dev] The Trunk: Collections-mt.605.mcz
by Levente Uzonyi 31 Mar '15

31 Mar '15

On Mon, 30 Mar 2015, commits(a)source.squeak.org wrote: > Marcel Taeumel uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-mt.605.mcz > > ==================== Summary ==================== > > Name: Collections-mt.605 > Author: mt > Time: 30 March 2015, 8:46:49.164 am > UUID: b661cec7-af10-7a42-9c4c-a09449425548 > Ancestors: Collections-ul.604 > > Support #withBlanksTrimmed in texts. > > =============== Diff against Collections-ul.604 =============== > > Item was added: > + ----- Method: String class>>noSeparators (in category 'accessing') ----- > + noSeparators > + ^ CSNonSeparators! I like the idea of a shared CharacterSet with the non-separator characters, but IMHO it should be on the class side of CharacterSet and I prefer the name #nonSeparators. Any objections? Levente > > Item was added: > + ----- Method: Text>>withBlanksTrimmed (in category 'converting') ----- > + withBlanksTrimmed > + "Return a copy of the receiver from which leading and trailing blanks have been trimmed." > + > + | first last | > + first := string indexOfAnyOf: String noSeparators startingAt: 1 ifAbsent: [0]. > + first = 0 ifTrue: [ ^'' ]. "no non-separator character" > + last := string lastIndexOfAnyOf: String noSeparators startingAt: self size ifAbsent: [self size]. > + (first = 1 and: [ last = self size ]) ifTrue: [ ^self copy ]. > + ^self > + copyFrom: first > + to: last > + ! > > >

2 1

Daily Commit Log
by commits＠source.squeak.org 30 Mar '15

30 Mar '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-March/007710.html Name: Collections-mt.605 Ancestors: Collections-ul.604 Support #withBlanksTrimmed in texts. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007711.html Name: Morphic-mt.788 Ancestors: Morphic-mt.787, Morphic-dtl.787 Text morphs and pluggable text morphs behave more selection-preserving on setting new contents now. Avoids jerky scrolling behavior when updating contents while scrolling them. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007712.html Name: Morphic-mt.789 Ancestors: Morphic-mt.788 Refactored interface for getting and setting balloonTexts. Do not modify the given text on setting anymore but only on getting because we do not yet now how balloonTexts will be rendered. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007713.html Name: ST80-mt.177 Ancestors: ST80-cmm.176 Marked method as deprecated. May be removed anyway? ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007714.html Name: ToolBuilder-Kernel-mt.72 Ancestors: ToolBuilder-Kernel-dtl.71 Revert #helpText because #help was already there. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007715.html Name: ToolBuilder-Morphic-mt.105 Ancestors: ToolBuilder-Morphic-dtl.104 Custom #balloonText in pluggable text morphs to use model data. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007716.html Name: ToolBuilder-Morphic-mt.106 Ancestors: ToolBuilder-Morphic-mt.105 Draw the balloon text in a pluggable text morph if no content is present. Revert the #helpText thing. See ToolBuilder-Kernel-mt.72. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007717.html Name: Morphic-mt.790 Ancestors: Morphic-mt.789 Fixed object explorer wrapper to set #parent for external #explorerContents. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007718.html Name: Tools-mt.567 Ancestors: Tools-mt.566 Fix the use of inspector in object explorer (i.e., keyboard shortcuts and menus). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007719.html Name: ToolBuilder-Morphic-mt.107 Ancestors: ToolBuilder-Morphic-mt.106 Fix drawing of balloonText in text fields to consider the actual bounds. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007720.html Name: Morphic-mt.791 Ancestors: Morphic-mt.790 Defer line-breaking in balloon-texts until actual display time. Having this, even text objects can be stored as balloon-texts and an appropriate renderer may display that. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007721.html Name: Morphic-mt.792 Ancestors: Morphic-mt.791 Fix typos. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007722.html Name: SUnitTools-topa.2 Ancestors: SUnitTools-topa.1 Push up #hasClassWithTestsSelected to not upset, eg, ChangeSorter. Reported by Karl Ramberg. Thanks. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007723.html Name: Morphic-mt.793 Ancestors: Morphic-mt.792 Attempt to fix the proceed-bug, which, under certain conditions, caused flickering and slow display update after proceeding a UI process. =============================================

1 0

Re: The Trunk: Morphic-dtl.787.mcz
by Marcel Taeumel 30 Mar '15

30 Mar '15

Please update your image before commit. ;-) You should have got a warning anyway? I will merge it. Best, Marcel -- View this message in context: http://forum.world.st/The-Trunk-Morphic-dtl-787-mcz-tp4815964p4815997.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

3 2

The Squeak Trunk image on the ci was last saved on 2014-12-08 *sadface* [EOM]
by Tobias Pape 30 Mar '15

30 Mar '15

n/t

3 5

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

Jump to page: