Squeak-dev October 2013

squeak-dev@lists.squeakfoundation.org

35 participants
262 discussions

Start a nNew thread

Time to unload Universe
by karl ramberg 27 Oct '13

27 Oct '13

Hi Universe browser is not used anymore. It is probably time to unload it from trunk. Karl

2 1

The Trunk: EToys-dtl.110.mcz
by commits＠source.squeak.org 27 Oct '13

27 Oct '13

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-dtl.110.mcz ==================== Summary ==================== Name: EToys-dtl.110 Author: dtl Time: 27 October 2013, 10:47:32.501 am UUID: a11aa3aa-1121-4a32-beb3-c177b036ec7a Ancestors: EToys-cmm.109, EToys-kfr.90 Merge EToys-kfr.90 =============== Diff against EToys-cmm.109 =============== Item was changed: ----- Method: ObjectPropertiesMorph>>rebuild (in category 'connectors-visual properties') ----- rebuild | buttons | self removeAllMorphs. self addARow: { self lockedString: ('Properties for {1}' translated format: {myTarget name}). }. self addARow: { self inAColumn: { self paneForCornerRoundingToggle. self paneForStickinessToggle. self paneForLockedToggle. }. }. self addARow: { self paneForMainColorPicker. self paneFor2ndGradientColorPicker. }. self addARow: { self paneForBorderColorPicker. self paneForShadowColorPicker. }. buttons := OrderedCollection new. buttons addAll: { self buttonNamed: 'Accept' translated action: #doAccept color: color lighter help: 'keep changes made and close panel' translated. self buttonNamed: 'Cancel' translated action: #doCancel color: color lighter help: 'cancel changes made and close panel' translated. }. + - self addOptionalButtonsTo: buttons. self addARow: buttons. thingsToRevert := Dictionary new. "thingsToRevert at: #fillStyle: put: myTarget fillStyle." myTarget isSystemWindow ifTrue: [ thingsToRevert at: #setWindowColor: put: myTarget paneColorToUse ]. thingsToRevert at: #hasDropShadow: put: myTarget hasDropShadow. thingsToRevert at: #shadowColor: put: myTarget shadowColor. (myTarget respondsTo: #borderColor:) ifTrue: [ thingsToRevert at: #borderColor: put: myTarget borderColor. ]. thingsToRevert at: #borderWidth: put: myTarget borderWidth. thingsToRevert at: #cornerStyle: put: myTarget cornerStyle. thingsToRevert at: #sticky: put: myTarget isSticky. thingsToRevert at: #lock: put: myTarget isLocked. ! Item was added: + ----- Method: TextPropertiesMorph>>alignCenter (in category 'as yet unclassified') ----- + alignCenter + self alignText: #centered.! Item was added: + ----- Method: TextPropertiesMorph>>alignJustified (in category 'as yet unclassified') ----- + alignJustified + self alignText: #justified. + ! Item was added: + ----- Method: TextPropertiesMorph>>alignLeft (in category 'as yet unclassified') ----- + alignLeft + self alignText: #leftFlush. + ! Item was added: + ----- Method: TextPropertiesMorph>>alignRight (in category 'as yet unclassified') ----- + alignRight + self alignText: #rightFlush.! Item was added: + ----- Method: TextPropertiesMorph>>alignText: (in category 'as yet unclassified') ----- + alignText: aSymbol + self applyToWholeText ifTrue: [self activeEditor selectAll]. + self activeEditor setAlignment: aSymbol. + self activeEditor paragraph composeAll. + self activeEditor recomputeSelection. + self activeTextMorph updateFromParagraph. + ! Item was changed: ----- Method: TextPropertiesMorph>>rebuild (in category 'as yet unclassified') ----- rebuild | buttonColor c | self removeAllMorphs. self addAColumn: { self lockedString: ('Text Properties for {1}' translated format:{myTarget name}). }. self addAColumn: { self paneForApplyToWholeText. }. c := self addAColumn: { self activeTextMorph. }. c wrapCentering: #topLeft; color: Color white; borderWidth: 2; borderColor: color darker. self addAColumn: { self paneForTextColorPicker. }. self addARow: { self paneForAutoFitToggle. }. self addARow: { self paneForWrappingToggle. }. self addARow: { self paneForMargins. }. buttonColor := color lighter. self addARow: { self inAColumn: { self addARow: { self buttonNamed: 'Size' translated action: #offerFontMenu color: buttonColor help: 'font changing' translated. self buttonNamed: 'Style' translated action: #changeStyle color: buttonColor help: 'font changing' translated. self buttonNamed: 'N' translated action: #changeToNormalText color: buttonColor help: 'normal text' translated. self buttonNamed: 'B' translated action: #toggleBold color: buttonColor help: 'bold text' translated. self buttonNamed: 'I' translated action: #toggleItalic color: buttonColor help: 'italic text' translated. self buttonNamed: 'n' translated action: #toggleNarrow color: buttonColor help: 'narrow text' translated. self buttonNamed: 'U' translated action: #toggleUnderlined color: buttonColor help: 'underlined text' translated. self buttonNamed: 'S' translated action: #toggleStruckOut color: buttonColor help: 'struck out text' translated. self buttonNamed: 'Kern-' translated action: #kernMinus color: buttonColor help: 'decrease kern' translated. self buttonNamed: 'Kern+' translated action: #kernPlus color: buttonColor help: 'increase kern' translated. }. }. }. self addARow: { self inAColumn: { self addARow: { self + buttonNamed: 'Left flush' translated action: #alignLeft color: buttonColor + help: 'align text to left side' translated. + + self + buttonNamed: 'Center' translated action: #alignCenter color: buttonColor + help: 'align text to center' translated. + self + buttonNamed: 'Right Flush' translated action: #alignRight color: buttonColor + help: 'align text to right side' translated. + self + buttonNamed: 'Justified' translated action: #alignJustified color: buttonColor + help: 'justify text alignmet' translated. + }. + }. + }. + self addARow: { + self inAColumn: { + self addARow: { + self buttonNamed: 'Accept' translated action: #doAccept color: buttonColor help: 'keep changes made and close panel' translated. self buttonNamed: 'Cancel' translated action: #doCancel color: buttonColor help: 'cancel changes made and close panel' translated. }. }. }. !

1 0

The Trunk: EToys-kfr.90.mcz
by commits＠source.squeak.org 27 Oct '13

27 Oct '13

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-kfr.90.mcz ==================== Summary ==================== Name: EToys-kfr.90 Author: kfr Time: 27 October 2013, 1:20:20.65 pm UUID: d78224f0-2f95-d24e-9975-69477d89a347 Ancestors: EToys-bf.89 Add text alignments to properties panel Remove call to missing addOptionalButtons from properties panel =============== Diff against EToys-bf.89 =============== Item was changed: ----- Method: ObjectPropertiesMorph>>rebuild (in category 'connectors-visual properties') ----- rebuild | buttons | self removeAllMorphs. self addARow: { self lockedString: ('Properties for {1}' translated format: {myTarget name}). }. self addARow: { self inAColumn: { self paneForCornerRoundingToggle. self paneForStickinessToggle. self paneForLockedToggle. }. }. self addARow: { self paneForMainColorPicker. self paneFor2ndGradientColorPicker. }. self addARow: { self paneForBorderColorPicker. self paneForShadowColorPicker. }. buttons := OrderedCollection new. buttons addAll: { self buttonNamed: 'Accept' translated action: #doAccept color: color lighter help: 'keep changes made and close panel' translated. self buttonNamed: 'Cancel' translated action: #doCancel color: color lighter help: 'cancel changes made and close panel' translated. }. + - self addOptionalButtonsTo: buttons. self addARow: buttons. thingsToRevert := Dictionary new. "thingsToRevert at: #fillStyle: put: myTarget fillStyle." myTarget isSystemWindow ifTrue: [ thingsToRevert at: #setWindowColor: put: myTarget paneColorToUse ]. thingsToRevert at: #hasDropShadow: put: myTarget hasDropShadow. thingsToRevert at: #shadowColor: put: myTarget shadowColor. (myTarget respondsTo: #borderColor:) ifTrue: [ thingsToRevert at: #borderColor: put: myTarget borderColor. ]. thingsToRevert at: #borderWidth: put: myTarget borderWidth. thingsToRevert at: #cornerStyle: put: myTarget cornerStyle. thingsToRevert at: #sticky: put: myTarget isSticky. thingsToRevert at: #lock: put: myTarget isLocked. ! Item was added: + ----- Method: TextPropertiesMorph>>alignCenter (in category 'as yet unclassified') ----- + alignCenter + self alignText: #centered.! Item was added: + ----- Method: TextPropertiesMorph>>alignJustified (in category 'as yet unclassified') ----- + alignJustified + self alignText: #justified. + ! Item was added: + ----- Method: TextPropertiesMorph>>alignLeft (in category 'as yet unclassified') ----- + alignLeft + self alignText: #leftFlush. + ! Item was added: + ----- Method: TextPropertiesMorph>>alignRight (in category 'as yet unclassified') ----- + alignRight + self alignText: #rightFlush.! Item was added: + ----- Method: TextPropertiesMorph>>alignText: (in category 'as yet unclassified') ----- + alignText: aSymbol + self applyToWholeText ifTrue: [self activeEditor selectAll]. + self activeEditor setAlignment: aSymbol. + self activeEditor paragraph composeAll. + self activeEditor recomputeSelection. + self activeTextMorph updateFromParagraph. + ! Item was changed: ----- Method: TextPropertiesMorph>>rebuild (in category 'as yet unclassified') ----- rebuild | buttonColor c | self removeAllMorphs. self addAColumn: { self lockedString: ('Text Properties for {1}' translated format:{myTarget name}). }. self addAColumn: { self paneForApplyToWholeText. }. c := self addAColumn: { self activeTextMorph. }. c wrapCentering: #topLeft; color: Color white; borderWidth: 2; borderColor: color darker. self addAColumn: { self paneForTextColorPicker. }. self addARow: { self paneForAutoFitToggle. }. self addARow: { self paneForWrappingToggle. }. self addARow: { self paneForMargins. }. buttonColor := color lighter. self addARow: { self inAColumn: { self addARow: { self buttonNamed: 'Size' translated action: #offerFontMenu color: buttonColor help: 'font changing' translated. self buttonNamed: 'Style' translated action: #changeStyle color: buttonColor help: 'font changing' translated. self buttonNamed: 'N' translated action: #changeToNormalText color: buttonColor help: 'normal text' translated. self buttonNamed: 'B' translated action: #toggleBold color: buttonColor help: 'bold text' translated. self buttonNamed: 'I' translated action: #toggleItalic color: buttonColor help: 'italic text' translated. self buttonNamed: 'n' translated action: #toggleNarrow color: buttonColor help: 'narrow text' translated. self buttonNamed: 'U' translated action: #toggleUnderlined color: buttonColor help: 'underlined text' translated. self buttonNamed: 'S' translated action: #toggleStruckOut color: buttonColor help: 'struck out text' translated. self buttonNamed: 'Kern-' translated action: #kernMinus color: buttonColor help: 'decrease kern' translated. self buttonNamed: 'Kern+' translated action: #kernPlus color: buttonColor help: 'increase kern' translated. }. }. }. self addARow: { self inAColumn: { self addARow: { self + buttonNamed: 'Left flush' translated action: #alignLeft color: buttonColor + help: 'align text to left side' translated. + + self + buttonNamed: 'Center' translated action: #alignCenter color: buttonColor + help: 'align text to center' translated. + self + buttonNamed: 'Right Flush' translated action: #alignRight color: buttonColor + help: 'align text to right side' translated. + self + buttonNamed: 'Justified' translated action: #alignJustified color: buttonColor + help: 'justify text alignmet' translated. + }. + }. + }. + self addARow: { + self inAColumn: { + self addARow: { + self buttonNamed: 'Accept' translated action: #doAccept color: buttonColor help: 'keep changes made and close panel' translated. self buttonNamed: 'Cancel' translated action: #doCancel color: buttonColor help: 'cancel changes made and close panel' translated. }. }. }. !

1 0

The Inbox: EToys-kfr.90.mcz
by commits＠source.squeak.org 27 Oct '13

27 Oct '13

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-kfr.90.mcz ==================== Summary ==================== Name: EToys-kfr.90 Author: kfr Time: 27 October 2013, 1:20:20.65 pm UUID: d78224f0-2f95-d24e-9975-69477d89a347 Ancestors: EToys-bf.89 Add text alignments to properties panel Remove call to missing addOptionalButtons from properties panel =============== Diff against EToys-bf.89 =============== Item was changed: ----- Method: ObjectPropertiesMorph>>rebuild (in category 'connectors-visual properties') ----- rebuild | buttons | self removeAllMorphs. self addARow: { self lockedString: ('Properties for {1}' translated format: {myTarget name}). }. self addARow: { self inAColumn: { self paneForCornerRoundingToggle. self paneForStickinessToggle. self paneForLockedToggle. }. }. self addARow: { self paneForMainColorPicker. self paneFor2ndGradientColorPicker. }. self addARow: { self paneForBorderColorPicker. self paneForShadowColorPicker. }. buttons := OrderedCollection new. buttons addAll: { self buttonNamed: 'Accept' translated action: #doAccept color: color lighter help: 'keep changes made and close panel' translated. self buttonNamed: 'Cancel' translated action: #doCancel color: color lighter help: 'cancel changes made and close panel' translated. }. + - self addOptionalButtonsTo: buttons. self addARow: buttons. thingsToRevert := Dictionary new. "thingsToRevert at: #fillStyle: put: myTarget fillStyle." myTarget isSystemWindow ifTrue: [ thingsToRevert at: #setWindowColor: put: myTarget paneColorToUse ]. thingsToRevert at: #hasDropShadow: put: myTarget hasDropShadow. thingsToRevert at: #shadowColor: put: myTarget shadowColor. (myTarget respondsTo: #borderColor:) ifTrue: [ thingsToRevert at: #borderColor: put: myTarget borderColor. ]. thingsToRevert at: #borderWidth: put: myTarget borderWidth. thingsToRevert at: #cornerStyle: put: myTarget cornerStyle. thingsToRevert at: #sticky: put: myTarget isSticky. thingsToRevert at: #lock: put: myTarget isLocked. ! Item was added: + ----- Method: TextPropertiesMorph>>alignCenter (in category 'as yet unclassified') ----- + alignCenter + self alignText: #centered.! Item was added: + ----- Method: TextPropertiesMorph>>alignJustified (in category 'as yet unclassified') ----- + alignJustified + self alignText: #justified. + ! Item was added: + ----- Method: TextPropertiesMorph>>alignLeft (in category 'as yet unclassified') ----- + alignLeft + self alignText: #leftFlush. + ! Item was added: + ----- Method: TextPropertiesMorph>>alignRight (in category 'as yet unclassified') ----- + alignRight + self alignText: #rightFlush.! Item was added: + ----- Method: TextPropertiesMorph>>alignText: (in category 'as yet unclassified') ----- + alignText: aSymbol + self applyToWholeText ifTrue: [self activeEditor selectAll]. + self activeEditor setAlignment: aSymbol. + self activeEditor paragraph composeAll. + self activeEditor recomputeSelection. + self activeTextMorph updateFromParagraph. + ! Item was changed: ----- Method: TextPropertiesMorph>>rebuild (in category 'as yet unclassified') ----- rebuild | buttonColor c | self removeAllMorphs. self addAColumn: { self lockedString: ('Text Properties for {1}' translated format:{myTarget name}). }. self addAColumn: { self paneForApplyToWholeText. }. c := self addAColumn: { self activeTextMorph. }. c wrapCentering: #topLeft; color: Color white; borderWidth: 2; borderColor: color darker. self addAColumn: { self paneForTextColorPicker. }. self addARow: { self paneForAutoFitToggle. }. self addARow: { self paneForWrappingToggle. }. self addARow: { self paneForMargins. }. buttonColor := color lighter. self addARow: { self inAColumn: { self addARow: { self buttonNamed: 'Size' translated action: #offerFontMenu color: buttonColor help: 'font changing' translated. self buttonNamed: 'Style' translated action: #changeStyle color: buttonColor help: 'font changing' translated. self buttonNamed: 'N' translated action: #changeToNormalText color: buttonColor help: 'normal text' translated. self buttonNamed: 'B' translated action: #toggleBold color: buttonColor help: 'bold text' translated. self buttonNamed: 'I' translated action: #toggleItalic color: buttonColor help: 'italic text' translated. self buttonNamed: 'n' translated action: #toggleNarrow color: buttonColor help: 'narrow text' translated. self buttonNamed: 'U' translated action: #toggleUnderlined color: buttonColor help: 'underlined text' translated. self buttonNamed: 'S' translated action: #toggleStruckOut color: buttonColor help: 'struck out text' translated. self buttonNamed: 'Kern-' translated action: #kernMinus color: buttonColor help: 'decrease kern' translated. self buttonNamed: 'Kern+' translated action: #kernPlus color: buttonColor help: 'increase kern' translated. }. }. }. self addARow: { self inAColumn: { self addARow: { self + buttonNamed: 'Left flush' translated action: #alignLeft color: buttonColor + help: 'align text to left side' translated. + + self + buttonNamed: 'Center' translated action: #alignCenter color: buttonColor + help: 'align text to center' translated. + self + buttonNamed: 'Right Flush' translated action: #alignRight color: buttonColor + help: 'align text to right side' translated. + self + buttonNamed: 'Justified' translated action: #alignJustified color: buttonColor + help: 'justify text alignmet' translated. + }. + }. + }. + self addARow: { + self inAColumn: { + self addARow: { + self buttonNamed: 'Accept' translated action: #doAccept color: buttonColor help: 'keep changes made and close panel' translated. self buttonNamed: 'Cancel' translated action: #doCancel color: buttonColor help: 'cancel changes made and close panel' translated. }. }. }. !

1 0

notNil, et al, to ProtoObject?
by Chris Muller 27 Oct '13

27 Oct '13

Does it make sense to have 5 of the 9 nil-testing methods on ProtoObject, and the remaining 4 on Object? It seems like the various forms of nil-testing are something any code should feel free to do. I think we should move the remaining 4 to ProtoObject. On Fri, Oct 25, 2013 at 5:38 PM, <commits(a)source.squeak.org> wrote: > Levente Uzonyi uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-ul.542.mcz > > ==================== Summary ==================== > > Name: Collections-ul.542 > Author: ul > Time: 26 October 2013, 12:22:26.493 am > UUID: e52fefbe-fb04-46f4-a956-f7bbcb5c8965 > Ancestors: Collections-cmm.541 > > Make Dictionary >> #includesKey: more lightweight. > > =============== Diff against Collections-cmm.541 =============== > > Item was changed: > ----- Method: Dictionary>>includesKey: (in category 'testing') ----- > includesKey: key > "Answer whether the receiver has a key equal to the argument, key." > > + ^(array at: (self scanFor: key)) ~~ nil "We could use #notNil here, but ProtoObject doesn't understand it."! > - self at: key ifAbsent: [^false]. > - ^true! > >

4 7

Evolution from the primordial stew (was: The Trunk: System-dtl.609.mcz)
by David T. Lewis 27 Oct '13

27 Oct '13

On Fri, Oct 25, 2013 at 10:58:49PM +0000, commits(a)source.squeak.org wrote: > > Item was changed: > Object subclass: #DeepCopier > instanceVariableNames: 'references uniClasses newUniClasses' > + classVariableNames: '' > - classVariableNames: 'NextVariableCheckTime' > poolDictionaries: '' > category: 'System-Object Storage'! One thing that I find rather appealing about Squeak is that its stew of living objects contains things that have existed since before my time. Even if the so-called "code" changes, the objects still can survive. Every once in a while this turns out to have some practical benefit. For example, the class DeepCopier had a class variable that kept track of some sort of time stamp (in the form of NextVariableCheckTime seconds). Some time in an earlier millenium, a primeval user of the class had set this variable, then wandered off into a tar pit. We do not really know who that may have been, but the original object (class DeepCopier) has survived in the image, and the last updated value of its NextVariableCheckTime has remained undisturbed since those early days. Thus when I became curious about whether this class variable was being used, I was able to look at its value and convert it to a DateAndTime to see that it had not been updated in the last dozen years or so. It's a small thing, but just try keeping track of that with a version control system. Dave

6 9

Daily Commit Log
by commits＠source.squeak.org 27 Oct '13

27 Oct '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-October/006566.ht… Name: System-cmm.610 Ancestors: System-dtl.609 Consider valueWithAllPossibleArguments: special enough to inline, for now. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006567.ht… Name: KernelTests-cmm.255 Ancestors: KernelTests-cmm.254 Consider valueWithAllPossibleArguments: special enough to inline, so it and its test are removed. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006568.ht… Name: Kernel-cmm.816 Ancestors: Kernel-ul.815 Remove valueWithAllPossibleArguments: because it has not proven a general necessity.. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006569.ht… Name: 45Deprecated-nice.11 Ancestors: 45Deprecated-nice.10 Deprecate unused methods from BitBlt 'text display' protocol. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-October/006570.ht… Name: Graphics-nice.276 Ancestors: Graphics-ul.275 Deprecate unused methods from BitBlt 'text display' protocol. Collapse windows in preamble, expand them back in postscript. This is in order to avoid text morph display in the middle of the update. =============================================

1 0

TTCFont does not understand #adaptToNumber:andSend:
by Frank Shearar 26 Oct '13

26 Oct '13

I tried to take a clean CI base image and update it, and I got the stack trace below. I haven't had time (and won't at all today) to have a look at the issue, so I'm throwing it out there and running away. 2013-10-25T10:46:45.57+01:00: Updating http://source.squeak.org/trunk 2013-10-25T10:47:18.51+01:00: Updating http://source.squeak.org/trunk 2013-10-25T10:47:20.564+01:00: Downloading Graphics-nice.274(nice.271).mcd 2013-10-25T10:47:21.07+01:00: Downloading Multilingual-cmm.193(nice.192).mcd 2013-10-25T10:47:21.502+01:00: Downloading System-dtl.605(cmm.603).mcd 2013-10-25T10:47:22.284+01:00: Downloading MorphicExtras-nice.126(nice.125).mcd 2013-10-25T10:47:22.75+01:00: Downloading ST80-nice.163(nice.162).mcd 2013-10-25T10:47:23.354+01:00: Downloading Tools-cmm.501(cmm.500).mcd TTCFont>>adaptToNumber:andSend: adaptToInteger: rcvr andSend: selector "If no method has been provided for adapting an object to a Integer, then it may be adequate to simply adapt it to a number." ^ self adaptToNumber: rcvr andSend: selector TTCFont(Object)>>doesNotUnderstand: #adaptToNumber:andSend: TTCFont(Object)>>adaptToInteger:andSend: TTCFont(Object)>>adaptToInteger:andCompare: SmallInteger(Integer)>>> SmallInteger>>> SmallInteger(Magnitude)>>max: BitBltDisplayScanner(CharacterScanner)>>setFont BitBltDisplayScanner(DisplayScanner)>>setFont BitBltDisplayScanner>>setFont BitBltDisplayScanner(CharacterScanner)>>setStopConditions BitBltDisplayScanner(DisplayScanner)>>setStopConditions BitBltDisplayScanner(DisplayScanner)>>displayLine:offset:leftInRun: NewParagraph>>displayOn:using:at: FormCanvas>>paragraph:bounds:color: TextMorphForEditView(TextMorph)>>drawOn: FormCanvas(Canvas)>>draw: FormCanvas(Canvas)>>drawMorph: [] in TextMorphForEditView(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: frank

2 3

The Trunk: Graphics-nice.276.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.276.mcz ==================== Summary ==================== Name: Graphics-nice.276 Author: nice Time: 26 October 2013, 11:25:28.113 pm UUID: b79b81d3-ac64-41ba-8eed-2d1104425af4 Ancestors: Graphics-ul.275 Deprecate unused methods from BitBlt 'text display' protocol. Collapse windows in preamble, expand them back in postscript. This is in order to avoid text morph display in the middle of the update. =============== Diff against Graphics-ul.275 =============== Item was added: + (PackageInfo named: 'Graphics') preamble: '"below, add code to be run before the loading of this package" + + "Remember which windows were not collapsed, and collapse them. + The goal is to freeze text morph display during this update. + This is required because displaying may fail and let the system in unusable state." + (Smalltalk globals + at: #''_windows_which_were_not_collapsed'' + put: (World submorphsSatisfying: [:e | (e isKindOf: SystemWindow) + and: [e isCollapsed not]])) + do: [:e | e collapse]. + '! Item was removed: - ----- Method: BitBlt>>displayString:from:to:at:kern:baselineY:font: (in category 'text display') ----- - displayString: aString from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY font: aFont - "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text." - ^ aFont displayString: aString on: self from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY! Item was removed: - ----- Method: BitBlt>>displayString:from:to:at:kern:font: (in category 'text display') ----- - displayString: aString from: startIndex to: stopIndex at: aPoint kern: kernDelta font: aFont - "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text." - ^ aFont displayString: aString on: self from: startIndex to: stopIndex at: aPoint kern: kernDelta! Item was removed: - ----- Method: BitBlt>>installFont:foregroundColor:backgroundColor: (in category 'text display') ----- - installFont: aFont foregroundColor: foregroundColor backgroundColor: backgroundColor - "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text." - ^aFont installOn: self foregroundColor: foregroundColor backgroundColor: backgroundColor! Item was changed: (PackageInfo named: 'Graphics') postscript: '"below, add code to be run after the loading of this package" + + "Restore the collapsed window that were not" + (Smalltalk globals removeKey: #''_windows_which_were_not_collapsed'') + reverseDo: [:e | e expand].'! - "Migrate the actual preference values to the new pragma preferences." - BitBlt classPool - at: #SubPixelRenderFonts put: Preferences subPixelRenderFonts; - at: #SubPixelRenderColorFonts put: Preferences subPixelRenderColorFonts'!

1 0

The Trunk: 45Deprecated-nice.11.mcz
by commits＠source.squeak.org 26 Oct '13

26 Oct '13

Nicolas Cellier uploaded a new version of 45Deprecated to project The Trunk: http://source.squeak.org/trunk/45Deprecated-nice.11.mcz ==================== Summary ==================== Name: 45Deprecated-nice.11 Author: nice Time: 26 October 2013, 10:45:56.53 pm UUID: e5064650-ce13-4c4e-8a8a-af2df4838ac6 Ancestors: 45Deprecated-nice.10 Deprecate unused methods from BitBlt 'text display' protocol. =============== Diff against 45Deprecated-nice.10 =============== Item was added: + ----- Method: BitBlt>>displayString:from:to:at:kern:baselineY:font: (in category '*45Deprecated') ----- + displayString: aString from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY font: aFont + "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text." + ^ aFont displayString: aString on: self from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY! Item was added: + ----- Method: BitBlt>>displayString:from:to:at:kern:font: (in category '*45Deprecated') ----- + displayString: aString from: startIndex to: stopIndex at: aPoint kern: kernDelta font: aFont + "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text." + ^ aFont displayString: aString on: self from: startIndex to: stopIndex at: aPoint kern: kernDelta! Item was added: + ----- Method: BitBlt>>installFont:foregroundColor:backgroundColor: (in category '*45Deprecated') ----- + installFont: aFont foregroundColor: foregroundColor backgroundColor: backgroundColor + "Double dispatch into the font. This method is present so that other-than-bitblt entities can be used by CharacterScanner and friends to display text." + ^aFont installOn: self foregroundColor: foregroundColor backgroundColor: backgroundColor!

1 0

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

Jump to page: