Squeak-dev April 2015

squeak-dev@lists.squeakfoundation.org

38 participants
642 discussions

The Trunk: System-ul.714.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.714.mcz ==================== Summary ==================== Name: System-ul.714 Author: ul Time: 1 April 2015, 11:19:18.334 pm UUID: 85f78b85-369c-4bd7-8e6d-52c9e63f27c1 Ancestors: System-ul.713 Avoid LargeInteger arithmetic in ThirtyTwoBitRegister>>leftRotateBy:. =============== Diff against System-ul.713 =============== Item was changed: ----- Method: ThirtyTwoBitRegister>>leftRotateBy: (in category 'accumulator ops') ----- leftRotateBy: bits "Rotate my contents left by the given number of bits, retaining exactly 32 bits." + "Details: Perform this operation with no LargeInteger arithmetic." - "Details: Perform this operation with as little LargeInteger arithmetic as possible." + | bitCount newHi | + bitCount := bits. + bitCount >= 32 ifTrue: [ bitCount := bitCount \\ 32 ]. + bitCount >= 16 ifTrue: [ + newHi := low. + low := hi. + hi := newHi. + bitCount := bitCount - 16 ]. + bitCount >= 15 ifTrue: [ + newHi := ((hi bitAnd: 16r1) bitShift: 15) bitOr: (low bitShift: -1). + low := ((low bitAnd: 16r1) bitShift: 15) bitOr: (hi bitShift: -1). + hi := newHi. + ^self ]. + bitCount >= 1 ifTrue: [ + | shift | + shift := bitCount - 16. + newHi := ((hi bitShift: bitCount) bitAnd: 16rFFFF) bitOr: (low bitShift: shift). + low := ((low bitShift: bitCount) bitAnd: 16rFFFF) bitOr: (hi bitShift: shift). + hi := newHi ]! - | bitCount s1 s2 newHi | - "ensure bitCount is in range [0..31]" - bitCount := bits \\ 32. - bitCount > 16 - ifTrue: [ - s1 := bitCount - 16. - s2 := s1 - 16. - newHi := ((low bitShift: s1) bitAnd: 16rFFFF) bitOr: (hi bitShift: s2). - low := ((hi bitShift: s1) bitAnd: 16rFFFF) bitOr: (low bitShift: s2). - hi := newHi] - ifFalse: [ - s1 := bitCount. - s2 := s1 - 16. - newHi := ((hi bitShift: s1) bitAnd: 16rFFFF) bitOr: (low bitShift: s2). - low := ((low bitShift: s1) bitAnd: 16rFFFF) bitOr: (hi bitShift: s2). - hi := newHi] - !

1 0

The Trunk: System-ul.713.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.713.mcz ==================== Summary ==================== Name: System-ul.713 Author: ul Time: 1 April 2015, 11:14:28.116 pm UUID: 226e90db-d97f-4958-9fa6-97a0b23cfff3 Ancestors: System-eem.712 Use a custom CharacterSet for separators instead of modifying the one in CharacterSet - which may be shared. Cache it for better performance, and get rid of it during cleanUp. =============== Diff against System-eem.712 =============== Item was changed: TextDiffBuilder subclass: #ClassDiffBuilder instanceVariableNames: '' + classVariableNames: 'SeparatorSet' - classVariableNames: '' poolDictionaries: '' category: 'System-FilePackage'! + !ClassDiffBuilder commentStamp: 'ul 4/1/2015 23:10' prior: 0! + I'm like TextDiffBuilder, but I split the input text by my own set of separator characters (see #separatorSet), instead of new lines. I'm meant to create diffs of class definitions.! - !ClassDiffBuilder commentStamp: 'fbs 9/23/2013 08:58' prior: 0! - I'm like TextDiffBuilder, but I split the input text by Character >> #separators, instead of new lines. I'm probably meant to create diffs of class definitions.! Item was added: + ----- Method: ClassDiffBuilder class>>cleanUp: (in category 'as yet unclassified') ----- + cleanUp: aggressive + + SeparatorSet := nil! Item was added: + ----- Method: ClassDiffBuilder class>>separatorSet (in category 'as yet unclassified') ----- + separatorSet + + ^SeparatorSet ifNil: [ + SeparatorSet := CharacterSet separators copy + add: $'; "for variables" + add: $"; "for comments in mc" + yourself ]! Item was changed: ----- Method: ClassDiffBuilder>>split: (in category 'private') ----- split: aString "I return an Array or DiffElements containing aString splitted by whitespace ' and ""." ^Array streamContents: [ :stream | | input separators | input := aString readStream. + separators := self class separatorSet. - separators := CharacterSet separators - add: $'; "for variables" - add: $"; "for comments in mc" - yourself. [ input atEnd ] whileFalse: [ | word separator | word := input upToAnyOf: separators + do: [ :matchingSeparator | separator := matchingSeparator ]. - do: [ :matchingSeparator | - separator := matchingSeparator ]. stream nextPut: (DiffElement string: word). separator ifNotNil: [ stream nextPut: (DiffElement string: separator asString) ] ] ]!

1 0

The Trunk: ToolBuilder-Morphic-cmm.114.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.114.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-cmm.114 Author: cmm Time: 1 April 2015, 3:05:39.686 pm UUID: 734dc0ce-3ffa-429c-a740-12d57659e296 Ancestors: ToolBuilder-Morphic-cmm.113 No, you cannot send copyFrom: 0 to: 0 to an empty Array. Must check for emptiness. =============== Diff against ToolBuilder-Morphic-cmm.113 =============== Item was changed: ----- Method: PluggableTreeMorph>>visibleItems (in category 'geometry') ----- visibleItems + ^ self items ifNotEmpty: + [ : items | items + copyFrom: self topVisibleRowIndex + to: self bottomVisibleRowIndex ]! - ^ self items - copyFrom: self topVisibleRowIndex - to: self bottomVisibleRowIndex!

1 0

The Trunk: SMLoader-cmm.81.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Chris Muller uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-cmm.81.mcz ==================== Summary ==================== Name: SMLoader-cmm.81 Author: cmm Time: 1 April 2015, 3:04:04.314 pm UUID: 5b84720e-18e5-4254-88b5-b58ad5abaa46 Ancestors: SMLoader-bf.80 - Fix selection rendering in SqueakMap. =============== Diff against SMLoader-bf.80 =============== Item was removed: - ----- Method: FileList2 class>>morphicView (in category '*smloader-override') ----- - morphicView - ^ self morphicViewOnDirectory: FileDirectory default! Item was changed: ----- Method: SMLoaderPlus>>selectedCategory: (in category 'accessing') ----- selectedCategory: anSMCategory "Change the selected category." selectedCategory := anSMCategory. + selectedCategory ifNotNil: + [ (selectedCategory objects includes: self selectedItem) ifFalse: [ self selectedItem: nil ] ]. + self + changed: #selectedCategoryPath ; + changed: #packageList! - selectedCategory - ifNotNil: [(selectedCategory objects includes: self selectedItem) - ifFalse: [self selectedItem: nil]]. - self changed: #selectedCategory. - self changed: #packageList! Item was changed: ----- Method: SMLoaderPlus>>selectedCategoryPath (in category 'accessing') ----- selectedCategoryPath "Return selected category's path." | path | path := #(). selectedCategory ifNotNil: [selectedCategory parent ifNotNilDo: [:p | path := path copyWith: p]. path := path copyWith: selectedCategory]. + ^ path! - ^ path - collect: [:cat | self categoryLabel: cat]!

1 0

The Trunk: Tools-cmm.572.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.572.mcz ==================== Summary ==================== Name: Tools-cmm.572 Author: cmm Time: 1 April 2015, 2:43:55.003 pm UUID: cc792d4a-a258-496c-bffe-ad6db90b52b6 Ancestors: Tools-cmm.571 - Fix test for scrollbar presence for Vertical Smart Splitter support. - Fix "Reuse Windows" preference for ObjectExplorers. =============== Diff against Tools-cmm.571 =============== Item was changed: ----- Method: IndentingListItemMorph>>charactersOccluded (in category 'private') ----- charactersOccluded "Answer the number of characters occluded in my #visibleList by my right edge." | listIndex leftEdgeOfRightmostColumn eachString indexOfLastVisible iconWidth totalWidth | listIndex := 0. leftEdgeOfRightmostColumn := container columns ifNil: [ 0 ] ifNotNil: [ : cols | (1 to: cols size - 1) inject: 0 into: [ : sum : each | sum + (self widthOfColumn: each) ] ]. eachString := container columns ifNil: [ self complexContents asString ] ifNotNil: [ : cols | self contentsAtColumn: container columns size ]. iconWidth := self icon ifNil: [ 0 ] ifNotNil: [ : icon | icon width + 2 ]. totalWidth := self toggleBounds right. indexOfLastVisible := ((1 to: eachString size) detect: [ : stringIndex | (totalWidth:=totalWidth+(self fontToUse widthOf: (eachString at: stringIndex))) > (container width - + (container vIsScrollbarShowing + ifTrue: [ container scrollBar width ] + ifFalse: [ 0 ]) - iconWidth - leftEdgeOfRightmostColumn) ] - (container scrollBar - ifNil: [ 0 ] - ifNotNil: [ container scrollBar width ]) - iconWidth - leftEdgeOfRightmostColumn) ] ifNone: [ eachString size + 1 ]) - 1. ^ eachString size - indexOfLastVisible! Item was changed: ----- Method: ObjectExplorer>>openExplorerFor:withLabel: (in category 'user interface') ----- openExplorerFor: anObject withLabel: label + "ObjectExplorer new openExplorerFor: Smalltalk withLabel: 'Smalltalk'" + "Model must be set to support Reuse Windows preference." + self rootObject: anObject. + ToolBuilder + open: self + label: label. + "Set model again to ensure window title updated (hmm, why not the first time?)." + self rootObject: anObject! - "ObjectExplorer new openExplorerFor: Smalltalk withLabel: 'Smalltalk'" - - ToolBuilder open: self label: label. - self rootObject: anObject.!

1 0

The Trunk: ToolBuilder-Morphic-cmm.113.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.113.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-cmm.113 Author: cmm Time: 1 April 2015, 2:39:58.323 pm UUID: 85dfc77a-e0ca-47b4-b633-ac05b10332a8 Ancestors: ToolBuilder-Morphic-cmm.112 - Filter-navigation DNU when there is no selection. Filtering still needs to be figured out for the roots of a tree... - Restore Marcel's latest selectPath:in: from today. - Don't rely on #selection: from setSelectedMorph: to fix selection-rendering in UI's, instead we should be sending proper changed notifications from each model. =============== Diff against ToolBuilder-Morphic-cmm.112 =============== Item was changed: ----- Method: PluggableTreeMorph>>filterTree (in category 'filtering') ----- filterTree self hasFilter ifFalse: [ self removeFilter. ^ self ]. self indicateFiltered. "Clean up the tree." (self selectedMorph ifNil: [ self roots ] ifNotNil: [ : m | {m} ]) do: [ : item | | filteredItems | item applyFilter: lastKeystrokes. item visible ifFalse: [ "Do not hide the item where the filter is based on." item show. item isExpanded ifFalse: [ item toggleExpandedState ] ]. filteredItems := self filteredItems. "If configured as a navigation tool, advance the selection." (PluggableTreeMorph maximumSearchDepth = 1 and: [ PluggableTreeMorph filterByLabelsOnly not ]) ifTrue: + [ |toBeExpanded| + (filteredItems notEmpty and: [ selectedMorph ~= filteredItems last ]) ifTrue: + [ self setSelectedMorph: + (toBeExpanded := selectedMorph + ifNil: [ filteredItems first ] + ifNotNil: [ filteredItems after: selectedMorph ]). + toBeExpanded isExpanded ifFalse: [ toBeExpanded toggleExpandedState ] ] ] ]. - [ (filteredItems notEmpty and: [ selectedMorph ~= filteredItems last ]) ifTrue: - [ self setSelectedMorph: (filteredItems after: selectedMorph). - selectedMorph isExpanded ifFalse: [ selectedMorph toggleExpandedState ] ] ] ]. self adjustSubmorphPositions! Item was changed: ----- Method: PluggableTreeMorph>>selectPath:in: (in category 'selection') ----- selectPath: path in: listItem + path isEmpty ifTrue: [^self selection: nil]. + - path isEmpty ifTrue: [^self setSelectedMorph: nil]. listItem withSiblingsDo: [:each | (each complexContents item = path first) ifTrue: [ each isExpanded ifFalse: [ each toggleExpandedState. self adjustSubmorphPositions. ]. each changed. path size = 1 ifTrue: [ + ^self selection: each complexContents - ^self setSelectedMorph: each ]. + each firstChild ifNil: [^self selection: nil]. - each firstChild ifNil: [^self setSelectedMorph: nil]. ^self selectPath: path allButFirst in: each firstChild ]. ]. + ^self selection: nil - ^self setSelectedMorph: nil ! Item was changed: ----- Method: PluggableTreeMorph>>setSelectedMorph: (in category 'selection') ----- setSelectedMorph: aMorph selectedWrapper := aMorph complexContents. - self selection: selectedWrapper. "Let the model now about the selected object, not wrapper." setSelectionSelector ifNotNil: [:symbol | model perform: symbol with: (selectedWrapper ifNotNil: [ selectedWrapper item ])]. - "The model may not have access to the parent object in terms of this tree structure." setSelectedParentSelector ifNotNil: [:symbol | model perform: symbol with: (selectedWrapper ifNotNil: [selectedWrapper parent ifNotNil: [: parentWrapper | parentWrapper item]])].!

1 0

The Trunk: ToolBuilder-Morphic-cmm.112.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.112.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-cmm.112 Author: cmm Time: 1 April 2015, 12:14:39.892 pm UUID: a11fe5c1-5cbc-4be6-ade1-6f4adb5ff192 Ancestors: ToolBuilder-Morphic-cmm.109 Resaving package with highest version # to support proper trunk update. =============== Diff against ToolBuilder-Morphic-cmm.109 ===============

1 0

The Trunk: Tools-cmm.571.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.571.mcz ==================== Summary ==================== Name: Tools-cmm.571 Author: cmm Time: 1 April 2015, 12:10:04.556 pm UUID: 6d41ac47-656c-4e3c-adab-5df3d7291e5a Ancestors: Tools-cmm.569 Resaving package as highest version number to support proper trunk updating. =============== Diff against Tools-cmm.569 ===============

1 0

Re: [squeak-dev] The Trunk: Morphic-mt.794.mcz
by Eliot Miranda 01 Apr '15

01 Apr '15

I'm getting a failed update: This package depends on the following classes: NewBalloonMorph You must resolve these dependencies before you will be able to load these definitions: NewBalloonMorph>>isBalloonHelp latest update: #14275 On Tue, Mar 31, 2015 at 2:38 AM, <commits(a)source.squeak.org> wrote: > 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)).}! > > > -- best, Eliot

3 5

Re: The Trunk: Morphic-cmm.798.mcz
by Marcel Taeumel 01 Apr '15

01 Apr '15

This interface already exists in a more complete way in ScrollPane: #vIsScrollbarShowing #hIsScrollbarShowing Do we need another one? ;-) Best, Marcel -- View this message in context: http://forum.world.st/The-Trunk-Morphic-cmm-798-mcz-tp4816696p4816715.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

Jump to page: