Packages March 2011

packages@lists.squeakfoundation.org

1 participants
447 discussions

The Trunk: Morphic-nice.526.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.526.mcz ==================== Summary ==================== Name: Morphic-nice.526 Author: nice Time: 30 March 2011, 9:29:10.003 pm UUID: 27e938fd-2a8b-4cb5-a6a0-75c76e62cdbb Ancestors: Morphic-dtl.525 Use #newCompiler #newParser =============== Diff against Morphic-dtl.525 =============== Item was changed: ----- Method: TextEditor>>explainTemp: (in category 'explain') ----- explainTemp: string "Is string the name of a temporary variable (method or block argument or temporary)?" | selectedClass methodNode tempNode | (model respondsTo: #selectedMessageName) ifFalse: [^ nil]. model selectedMessageName ifNil: [^nil]. "not in a method" selectedClass := model selectedClassOrMetaClass. + methodNode := selectedClass newParser parse: model selectedMessage class: selectedClass. - methodNode := selectedClass parserClass new parse: model selectedMessage class: selectedClass. tempNode := methodNode encoder tempNodes detect: [:n| n name = string] ifNone: [^nil]. ^(tempNode isArg ifTrue: ['"is an argument to this '] ifFalse: ['"is a temporary variable in this ']), (tempNode isDeclaredAtMethodLevel ifTrue: ['method"'] ifFalse: ['block"'])! Item was changed: ----- Method: TextEditor>>prettyPrint: (in category 'menu messages') ----- prettyPrint: decorated "Reformat the contents of the receiver's view (a Browser)." | selectedClass newText | selectedClass := model selectedClassOrMetaClass. selectedClass ifNil: [ ^ morph flash ]. + newText := selectedClass newCompiler - newText := selectedClass compilerClass new format: self text in: selectedClass notifying: self decorated: decorated. newText ifNotNil: [ self deselect ; selectInvisiblyFrom: 1 to: paragraph text size. self replaceSelectionWith: (newText asText makeSelectorBoldIn: selectedClass). self selectAt: self text size + 1 ]!

1 0

The Trunk: Morphic-nice.526.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

1 0

The Trunk: Kernel-nice.563.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.563.mcz ==================== Summary ==================== Name: Kernel-nice.563 Author: nice Time: 30 March 2011, 9:20:36.797 pm UUID: 8550c4d6-b22a-409a-91d7-68a3c9ad6a7b Ancestors: Kernel-nice.562 As previously discussed in squeak-dev, implement two utilities: #newCompiler #newParser (self newCompiler) is a replacement for (self compilerClass new), except it arranges to have the compiler initialized with proper Parser. Advantage 1: This way, you can define only parserClass rather than a pair compilerClass/parserClass for experimenting alternate syntax. Also, this may later simplify Compiler initialization of parser inst. var. Advantage 2: If any special initialization is required for YourOwnCompiler/parser instance, then just refine #newCompiler/Parser rather than hacking each and every #compilerClass/parserClass sender. Disadvantage 1: Encouraging experimentations of alternate Parser might show the limits of some tools (MC RB etc...). Bet we wouldn't put such experimentations in trunk, would we ? Disadvantage 2: none foreseen, but you tell me. =============== Diff against Kernel-nice.562 =============== Item was changed: ----- Method: Behavior>>compile:classified:notifying:trailer:ifFail: (in category 'compiling') ----- compile: code classified: category notifying: requestor trailer: bytes ifFail: failBlock "Compile code without logging the source in the changes file" | methodNode | + methodNode := self newCompiler - methodNode := self compilerClass new compile: code in: self classified: category notifying: requestor ifFail: failBlock. ^ CompiledMethodWithNode generateMethodFromNode: methodNode trailer: bytes.! Item was changed: ----- Method: Behavior>>compressedSourceCodeAt: (in category 'accessing method dictionary') ----- compressedSourceCodeAt: selector "(Paragraph compressedSourceCodeAt: #displayLines:affectedRectangle:) size 721 1921 Paragraph selectors inject: 0 into: [:tot :sel | tot + (Paragraph compressedSourceCodeAt: sel) size] 13606 31450" | rawText parse | rawText := (self sourceCodeAt: selector) asString. + parse := self newCompiler parse: rawText in: self notifying: nil. - parse := self compilerClass new parse: rawText in: self notifying: nil. ^ rawText compressWithTable: ((selector keywords , parse tempNames , self instVarNames , #(self super ifTrue: ifFalse:) , ((0 to: 7) collect: [:i | String streamContents: [:s | s cr. i timesRepeat: [s tab]]]) , (self compiledMethodAt: selector) literalStrings) asSortedCollection: [:a :b | a size > b size])! Item was changed: ----- Method: Behavior>>firstPrecodeCommentFor: (in category 'accessing method dictionary') ----- firstPrecodeCommentFor: selector "If there is a comment in the source code at the given selector that preceeds the body of the method, return it here, else return nil" | parser source tree | "Behavior firstPrecodeCommentFor: #firstPrecodeCommentFor:" (#(Comment Definition Hierarchy) includes: selector) ifTrue: ["Not really a selector" ^ nil]. source := self sourceCodeAt: selector asSymbol ifAbsent: [^ nil]. + parser := self newParser. - parser := self parserClass new. tree := parser parse: (ReadStream on: source) class: self noPattern: false context: nil notifying: nil ifFail: [^ nil]. ^ (tree comment ifNil: [^ nil]) first! Item was changed: ----- Method: Behavior>>formalParametersAt: (in category 'accessing method dictionary') ----- formalParametersAt: aSelector "Return the names of the arguments used in this method." | source | source := self sourceCodeAt: aSelector ifAbsent: [^ #()]. "for now" + ^self newParser parseParameterNames: source! - ^(self parserClass new) parseParameterNames: source! Item was changed: ----- Method: Behavior>>methodHeaderFor: (in category 'accessing method dictionary') ----- methodHeaderFor: selector "Answer the string corresponding to the method header for the given selector" | sourceString parser | sourceString := self ultimateSourceCodeAt: selector ifAbsent: [self standardMethodHeaderFor: selector]. + (parser := self newParser) parseSelector: sourceString. - (parser := self parserClass new) parseSelector: sourceString. ^ sourceString asString copyFrom: 1 to: (parser endOfLastToken min: sourceString size) "Behavior methodHeaderFor: #methodHeaderFor: " ! Item was added: + ----- Method: Behavior>>newCompiler (in category 'compiling') ----- + newCompiler + "Answer a Compiler suitable for compiling this Behavior" + ^self compilerClass new parser: self newParser! Item was added: + ----- Method: Behavior>>newParser (in category 'compiling') ----- + newParser + "Answer a Parser suitable for parsing source code in this Behavior" + ^self parserClass new! Item was changed: ----- Method: Behavior>>recompile:from: (in category 'compiling') ----- recompile: selector from: oldClass "Compile the method associated with selector in the receiver's method dictionary." "ar 7/10/1999: Use oldClass compiledMethodAt: not self compiledMethodAt:" | method trailer methodNode | method := oldClass compiledMethodAt: selector. trailer := method trailer. + methodNode := self newCompiler - methodNode := self compilerClass new compile: (oldClass sourceCodeAt: selector) in: self notifying: nil ifFail: [^ self]. "Assume OK after proceed from SyntaxError" selector == methodNode selector ifFalse: [self error: 'selector changed!!']. self basicAddSelector: selector withMethod: (methodNode generate: trailer). ! Item was changed: ----- Method: Behavior>>recompileNonResidentMethod:atSelector:from: (in category 'compiling') ----- recompileNonResidentMethod: method atSelector: selector from: oldClass "Recompile the method supplied in the context of this class." | trailer methodNode | trailer := method trailer. + methodNode := self newCompiler - methodNode := self compilerClass new compile: (method getSourceFor: selector in: oldClass) in: self notifying: nil ifFail: ["We're in deep doo-doo if this fails (syntax error). Presumably the user will correct something and proceed, thus installing the result in this methodDict. We must retrieve that new method, and restore the original (or remove) and then return the method we retrieved." ^ self error: 'see comment']. selector == methodNode selector ifFalse: [self error: 'selector changed!!']. ^ methodNode generate: trailer ! Item was changed: ----- Method: Behavior>>sourceMatchesBytecodeAt: (in category 'testing') ----- sourceMatchesBytecodeAt: selector "Answers true if the source code at the selector compiles to the bytecode at the selector, and false otherwise. Implemented to detect an error where Monticello did not recompile sources when the class shape changed" "This code was copied from #recompile:from:, with few changes. Several methods would benefit from a method which turned a selector and class into a CompiledMethod, without installing it into the methodDictionary" | method trailer methodNode | method := self compiledMethodAt: selector. trailer := method trailer. + methodNode := self newCompiler - methodNode := self compilerClass new compile: (self sourceCodeAt: selector) in: self notifying: nil ifFail: [^ false]. "Assume OK after proceed from SyntaxError" selector == methodNode selector ifFalse: [self error: 'selector changed!!']. ^ (methodNode generate: trailer) = method! Item was changed: ----- Method: ClassCategoryReader>>scanFromNoCompile: (in category 'fileIn/Out') ----- scanFromNoCompile: aStream "Just move the source code for the methods from aStream." | methodText selector | [methodText := aStream nextChunkText. methodText size > 0] whileTrue: [(SourceFiles at: 2) ifNotNil: [ + selector := class newParser parseSelector: methodText. - selector := class parserClass new parseSelector: methodText. (class compiledMethodAt: selector) putSource: methodText fromParseNode: nil class: class category: category withStamp: changeStamp inFile: 2 priorMethod: nil]]! Item was changed: ----- Method: ClassDescription>>replaceSilently:to: (in category 'instance variables') ----- replaceSilently: old to: new "text-replace any part of a method. Used for class and pool variables. Don't touch the header. Not guaranteed to work if name appears in odd circumstances" | oldName newName | oldName := old asString. newName := new asString. self withAllSubclasses do: [:cls | | sels | sels := cls selectors copyWithoutAll: #(DoIt DoItIn:). sels do: [:sel | | oldCode newCode parser header body | oldCode := cls sourceCodeAt: sel. "Don't make changes in the method header" + (parser := cls newParser) parseSelector: oldCode. - (parser := cls parserClass new) parseSelector: oldCode. header := oldCode copyFrom: 1 to: (parser endOfLastToken min: oldCode size). body := header size > oldCode size ifTrue: [''] ifFalse: [oldCode copyFrom: header size+1 to: oldCode size]. newCode := header , (body copyReplaceTokens: oldName with: newName). newCode ~= oldCode ifTrue: [cls compile: newCode classified: (cls organization categoryOfElement: sel) notifying: nil]]. cls isMeta ifFalse: [| oldCode newCode | oldCode := cls comment. newCode := oldCode copyReplaceTokens: oldName with: newName. newCode ~= oldCode ifTrue: [cls comment: newCode]]]! Item was changed: ----- Method: CompiledMethod>>methodNode (in category 'decompiling') ----- methodNode "Return the parse tree that represents self. If parsing fails, decompile the method." | aClass source | aClass := self methodClass. source := self getSourceFor: (self selector ifNil: [self defaultSelector]) in: aClass. + ^[(aClass newParser - ^[(aClass parserClass new encoderClass: (self isBlueBookCompiled ifTrue: [EncoderForV3] ifFalse: [EncoderForV3PlusClosures]); parse: source class: aClass) sourceText: source; yourself] on: SyntaxErrorNotification do: [:ex | ex return: self decompile].! Item was changed: ----- Method: CompiledMethod>>methodNodeFormattedAndDecorated: (in category 'decompiling') ----- methodNodeFormattedAndDecorated: decorate "Answer a method node made from pretty-printed (and colorized, if decorate is true) source text." | class source node | source := self getSourceFromFile. class := self methodClass ifNil: [self sourceClass]. source ifNil: [^self decompile]. source := class prettyPrinterClass format: source in: class notifying: nil decorated: decorate. + node := class newParser parse: source class: class. - node := class parserClass new parse: source class: class. node sourceText: source. ^node! Item was changed: ----- Method: CompiledMethod>>replace:with:in: (in category 'private') ----- replace: oldSelector with: newSelector in: aText | oldKeywords newKeywords args newSelectorWithArgs startOfSource lastSelectorToken | oldKeywords := oldSelector keywords. newKeywords := (newSelector ifNil: [self defaultSelector]) keywords. self assert: oldKeywords size = newKeywords size. + args := (self methodClass newParser - args := (self methodClass parserClass new parseArgsAndTemps: aText string notifying: nil) copyFrom: 1 to: self numArgs. newSelectorWithArgs := String streamContents: [:stream | newKeywords withIndexDo: [:keyword :index | stream nextPutAll: keyword. stream space. args size >= index ifTrue: [ stream nextPutAll: (args at: index); space]]]. lastSelectorToken := args isEmpty ifFalse: [args last] ifTrue: [oldKeywords last]. startOfSource := (aText string indexOfSubCollection: lastSelectorToken startingAt: 1) + lastSelectorToken size. ^newSelectorWithArgs withBlanksTrimmed asText , (aText copyFrom: startOfSource to: aText size)! Item was changed: ----- Method: CompiledMethod>>sourceSelector (in category 'source code management') ----- sourceSelector "Answer my selector extracted from my source. If no source answer nil" | sourceString | sourceString := self getSourceFromFile ifNil: [^ nil]. + ^self methodClass newParser parseSelector: sourceString! - ^self methodClass parserClass new parseSelector: sourceString!

1 0

The Trunk: Kernel-nice.563.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

1 0

The Trunk: Kernel-nice.563.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

1 0

The Trunk: Graphics-ul.180.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ul.180.mcz ==================== Summary ==================== Name: Graphics-ul.180 Author: ul Time: 30 March 2011, 1:11:47.304 am UUID: 5228a77f-0a3e-f049-8d4a-f51390b56dc6 Ancestors: Graphics-nice.179 - convert #subPixelRenderFonts and #subPixelRenderColorFonts to pragma preferences =============== Diff against Graphics-nice.179 =============== Item was added: + (PackageInfo named: 'Graphics') postscriptOfRemoval: 'nil'! Item was changed: Object subclass: #BitBlt instanceVariableNames: 'destForm sourceForm halftoneForm combinationRule destX destY width height sourceX sourceY clipX clipY clipWidth clipHeight colorMap' + classVariableNames: 'CachedFontColorMaps ColorConvertingMaps SubPixelRenderColorFonts SubPixelRenderFonts' - classVariableNames: 'CachedFontColorMaps ColorConvertingMaps' poolDictionaries: '' category: 'Graphics-Primitives'! !BitBlt commentStamp: 'ar 8/4/2009 20:19' prior: 0! WARNING: BitBlt's shape cannot be modified since WarpBlt relies on the exact layout. I represent a block transfer (BLT) of pixels into a rectangle (destX, destY, width, height) of the destinationForm. The source of pixels may be a similar rectangle (at sourceX, sourceY) in the sourceForm, or a constant color, currently called halftoneForm. If both are specified, their pixel values are combined with a logical AND function prior to transfer. In any case, the pixels from the source are combined with those of the destination by as specified by the combinationRule. The combination rule whose value is 0 through 15 programs the transfer to produce 1 or 0 according to its 4-bit representation as follows: 8: if source is 0 and destination is 0 4: if source is 0 and destination is 1 2: if source is 1 and destination is 0 1: if source is 1 and destination is 1. At each pixel the corresponding bits of the source and destination pixel values determine one of these conditions; if the combination rule has a 1 in the corresponding bit position, then the new destination value will be 1, otherwise it will be zero. Forms may be of different depths, see the comment in class Form. In addition to the original 16 combination rules, this BitBlt supports 16 fails (to simulate paint bits) 17 fails (to simulate erase bits) 18 sourceWord + destinationWord 19 sourceWord - destinationWord 20 rgbAdd: sourceWord with: destinationWord. Sum of color components 21 rgbSub: sourceWord with: destinationWord. Difference of color components 22 OLDrgbDiff: sourceWord with: destinationWord. Sum of abs of differences in components 23 OLDtallyIntoMap: destinationWord. Tallies pixValues into a colorMap these old versions don't do bitwise dest clipping. Use 32 and 33 now. 24 alphaBlend: sourceWord with: destinationWord. 32-bit source and dest only 25 pixPaint: sourceWord with: destinationWord. Wherever the sourceForm is non-zero, it replaces the destination. Can be used with a 1-bit source color mapped to (0, FFFFFFFF), and a fillColor to fill the dest with that color wherever the source is 1. 26 pixMask: sourceWord with: destinationWord. Like pixPaint, but fills with 0. 27 rgbMax: sourceWord with: destinationWord. Max of each color component. 28 rgbMin: sourceWord with: destinationWord. Min of each color component. 29 rgbMin: sourceWord bitInvert32 with: destinationWord. Min with (max-source) 30 alphaBlendConst: sourceWord with: destinationWord. alpha is an arg. works in 16 bits. 31 alphaPaintConst: sourceWord with: destinationWord. alpha is an arg. works in 16 bits. 32 rgbDiff: sourceWord with: destinationWord. Sum of abs of differences in components 33 tallyIntoMap: destinationWord. Tallies pixValues into a colorMap 34 alphaBlendScaled: srcWord with: dstWord. Alpha blend of scaled srcWord and destWord. The color specified by halftoneForm may be either a Color or a Pattern. A Color is converted to a pixelValue for the depth of the destinationForm. If a Pattern, BitBlt will simply interpret its bitmap as an array of Color pixelValues. BitBlt aligns the first element of this array with the top scanline of the destinationForm, the second with the second, and so on, cycling through the color array as necessary. Within each scan line the 32-bit value is repeated from left to right across the form. If the value repeats on pixels boudaries, the effect will be a constant color; if not, it will produce a halftone that repeats on 32-bit boundaries. Any transfer specified is further clipped by the specified rectangle (clipX, clipY, clipWidth, clipHeight), and also by the bounds of the source and destination forms. To make a small Form repeat and fill a big form, use an InfiniteForm as the source. To write on a form and leave with both transparent and opapue areas, use a MaskedForm as the source. Pixels from a source to a destination whose pixels have a different depth are converted based on the optional colorMap. If colorMap is nil, then conversion to more bits is done by filling the new high-order bits with zero, and conversion to fewer bits is done by truncating the lost high-order bits. The colorMap, if specified, must be a either word array (ie Bitmap) with 2^n elements, where n is the pixel depth of the source, or a fully specified ColorMap which may contain a lookup table (ie Bitmap) and/or four separate masks and shifts which are applied to the pixels. For every source pixel, BitBlt will first perform masking and shifting and then index the lookup table, and select the corresponding pixelValue and mask it to the destination pixel size before storing. When blitting from a 32 or 16 bit deep Form to one 8 bits or less, the default is truncation. This will produce very strange colors, since truncation of the high bits does not produce the nearest encoded color. Supply a 512 long colorMap, and red, green, and blue will be shifted down to 3 bits each, and mapped. The message copybits...stdColors will use the best map to the standard colors for destinations of depths 8, 4, 2 and 1. Two other sized of colorMaps are allowed, 4096 (4 bits per color) and 32786 (five bits per color). Normal blits between 16 and 32 bit forms truncates or pads the colors automatically to provide the best preservation of colors. Colors can be remapped at the same depth. Sometimes a Form is in terms of colors that are not the standard colors for this depth, for example in a GIF file. Convert the Form to a MaskedForm and send colorMap: the list of colors that the picture is in terms of. MaskedForm will use the colorMap when copying to the display or another Form. (Note also that a Form can be copied to itself, and transformed in the process, if a non-nil colorMap is supplied.)! Item was added: + ----- Method: BitBlt class>>subPixelRenderColorFonts (in category 'preferences') ----- + subPixelRenderColorFonts + + <preference: 'Subpixel font rendering for color fonts' + category: 'Graphics' + description: 'If true, non-black opaque fonts are rendered using subpixel combination rules by BitBlt. Subpixel font rendering has to be enabled to take effect.' + type: #Boolean> + ^SubPixelRenderColorFonts ifNil: [ true ] + + ! Item was added: + ----- Method: BitBlt class>>subPixelRenderColorFonts: (in category 'preferences') ----- + subPixelRenderColorFonts: aBoolean + + SubPixelRenderColorFonts := aBoolean + + ! Item was added: + ----- Method: BitBlt class>>subPixelRenderFonts (in category 'preferences') ----- + subPixelRenderFonts + + <preference: 'Subpixel font rendering' + category: 'Graphics' + description: 'If true, black fonts are rendered using subpixel combination rules by BitBlt.' + type: #Boolean> + ^SubPixelRenderFonts ifNil: [ true ] + + ! Item was added: + ----- Method: BitBlt class>>subPixelRenderFonts: (in category 'preferences') ----- + subPixelRenderFonts: aBoolean + + SubPixelRenderFonts := aBoolean + + ! Item was changed: ----- Method: BitBlt>>installStrikeFont:foregroundColor:backgroundColor: (in category 'private') ----- installStrikeFont: aStrikeFont foregroundColor: foregroundColor backgroundColor: backgroundColor | lastSourceDepth targetColor | sourceForm ifNotNil:[lastSourceDepth := sourceForm depth]. sourceForm := aStrikeFont glyphs. "Ignore any halftone pattern since we use a color map approach here" halftoneForm := nil. sourceY := 0. height := aStrikeFont height. sourceForm depth = 1 ifTrue: [ self combinationRule: Form paint. (colorMap notNil and:[lastSourceDepth = sourceForm depth]) ifFalse: [ "Set up color map for a different source depth (color font)" "Uses caching for reasonable efficiency" colorMap := self cachedFontColormapFrom: sourceForm depth to: destForm depth. colorMap at: 1 put: (destForm pixelValueFor: backgroundColor)]. colorMap at: 2 put: (destForm pixelValueFor: foregroundColor). ] ifFalse: [ + (self class subPixelRenderFonts and: [ foregroundColor = Color black - (Preferences subPixelRenderFonts and: [ foregroundColor = Color black "Only use rgbMul with opaque colors as alpha values get lost for translucent colors." + or: [ self class subPixelRenderColorFonts and: [foregroundColor isOpaque] ]]) ifTrue: [ - or: [ Preferences subPixelRenderColorFonts and: [foregroundColor isOpaque] ]]) ifTrue: [ destForm depth > 8 ifTrue: [ "rgbMul is equivalent to component alpha blend if text is black (only faster, hehe)" self combinationRule: Form rgbMul. colorMap := (destForm depth = 32 or: [ (foregroundColor = Color black) not ]) ifTrue: [ "rgbMul / rgbAdd IS component alpha blend for any color of text (neat trick, eh!!)" "This colorMap is to be used on the second pass with rule 20 (rgbAdd) See #displayString:from:to:at:strikeFont:kern:" "Note: In 32bpp we always need the second pass, as the source could have transparent pixels, and we need to add to the alpha channel" self colorConvertingMap: foregroundColor from: sourceForm depth to: destForm depth keepSubPixelAA: true]] ifFalse: [ self combinationRule: Form paint. targetColor := foregroundColor = Color black ifFalse: [ foregroundColor ]. colorMap := self colorConvertingMap: targetColor from: sourceForm depth to: destForm depth keepSubPixelAA: true] ] ifFalse: [ "Do not use rule 34 for 16bpp display. TTCFont uses it, but it builds a glyphs cache for each color used!!" self combinationRule: (destForm depth = 32 ifTrue: [Form blendAlphaScaled] ifFalse: [Form paint]). colorMap := self colorConvertingMap: foregroundColor from: sourceForm depth to: destForm depth keepSubPixelAA: false ] ].! Item was changed: (PackageInfo named: 'Graphics') postscript: '"below, add code to be run after the loading of this package" + "Migrate the actual preference values to the new pragma preferences." + BitBlt classPool + at: #SubPixelRenderFonts put: Preferences subPixelRenderFonts; + at: #SubPixelRenderColorFonts put: Preferences subPixelRenderColorFonts'! - Color initializeNames'!

1 0

The Trunk: Graphics-ul.180.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

1 0

The Trunk: Graphics-ul.180.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

1 0

The Trunk: Kernel-nice.562.mcz
by commits＠source.squeak.org 29 Mar '11

29 Mar '11

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.562.mcz ==================== Summary ==================== Name: Kernel-nice.562 Author: nice Time: 29 March 2011, 11:04:41.473 pm UUID: 3fe28801-7a81-7848-b0af-3d246cf09488 Ancestors: Kernel-nice.561 Restore old behaviour: -0.001 printShowingDecimalPlaces: 2 gives: '0.00' rather than '-0.00' What do you prefer ? =============== Diff against Kernel-nice.561 =============== Item was changed: ----- Method: Fraction>>printOn:showingDecimalPlaces: (in category 'printing') ----- printOn: aStream showingDecimalPlaces: placesDesired "Same as super, but provides a faster implementation by inlining some Fraction protocol thus avoiding intermediate Fraction creation." | roundedFractionPart integerPart scaling | placesDesired <= 0 ifTrue: [self rounded printOn: aStream] ifFalse: [scaling := 10 raisedToInteger: placesDesired. integerPart := numerator abs quo: denominator. roundedFractionPart := (numerator abs - (integerPart * denominator)) * scaling * 2 + denominator quo: denominator * 2. roundedFractionPart = scaling ifTrue: [integerPart := integerPart + 1. roundedFractionPart := 0]. + "Don't print minus sign if result is rouded to zero" + (numerator negative and: [integerPart > 0 or: [roundedFractionPart > 0]]) ifTrue: [aStream nextPut: $-]. - numerator negative ifTrue: [aStream nextPut: $-]. integerPart printOn: aStream. aStream nextPut: $.. roundedFractionPart printOn: aStream base: 10 length: placesDesired padded: true].!

1 0

The Trunk: Kernel-nice.562.mcz
by commits＠source.squeak.org 29 Mar '11

29 Mar '11

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2011