Squeak-dev July 2016

squeak-dev@lists.squeakfoundation.org

38 participants
224 discussions

Daily Commit Log
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-July/068271.html Name: Graphics-mt.352 Ancestors: Graphics-mt.351 Show the current ressource imports after adding another one via file service. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068272.html Name: Morphic-mt.1190 Ancestors: Morphic-eem.1189 Propagate the current project background for new projects created from within the current one. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068273.html Name: System-mt.837 Ancestors: System-eem.836 When dropping image files into Squeak, use the file services instead of a single drop handler. Then the user can, for example, directly set the image as project background instead of creating a SketchMorph with it. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068274.html Name: 51Deprecated-mt.32 Ancestors: 51Deprecated-mt.31 Deprecate old drop handler for image streams. There is a new one in #defaultImageHandler. Still unused because we have more flexible file services for that. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068275.html Name: Morphic-mt.1191 Ancestors: Morphic-mt.1190 Clean-up some dependencies between Graphics, Morphic, and TrueType. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068276.html Name: Graphics-mt.353 Ancestors: Graphics-mt.352 Clean-up some dependencies between Graphics, Morphic, and TrueType. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068277.html Name: TrueType-mt.43 Ancestors: TrueType-topa.42 Clean-up some dependencies between Graphics, Morphic, and TrueType. =============================================

1 0

Re: [squeak-dev] spyOnWorldFor:
by Eliot Miranda 13 Jul '16

13 Jul '16

Thanks Ron!! On Wed, Jul 13, 2016 at 10:12 AM, Ron Teitelbaum <ron(a)3dicc.com> wrote: > Yes you can rename it but please add the following in the class comment: > > > > This class is dedicated in memory of Andreas Raab the person, the > tremendous amount of work including his contributions to this class, and > the contributions he made to the Squeak community. > > > > Suggestions or changes are welcome. > > > > Ron > > > > *From:* Eliot Miranda [mailto:eliot.miranda@gmail.com] > *Sent:* Wednesday, July 13, 2016 12:37 PM > *To:* Ron Teitelbaum > *Cc:* Chris Muller; The general-purpose Squeak developers list > *Subject:* Re: [squeak-dev] spyOnWorldFor: > > > > > > > > On Wed, Jul 13, 2016 at 9:23 AM, Chris Muller <asqueaker(a)gmail.com> wrote: > > I think we should rename AndreasSystemProfiler to MessageTally, > replacing the old implementation. > > Andreas' initials are still preserved on the methods that way, and we > maintain the generic naming that Smalltalk has always had since its > beginning. > > > > +1. Ron, as a representative of the copyright holder, are you willing to > give your ascent to this renaming and inclusion in the base? > > > > > > > > On Tue, Jul 12, 2016 at 5:47 AM, Eliot Miranda <eliot.miranda(a)gmail.com> > wrote: > > H All, > > > >> On Jul 11, 2016, at 2:55 PM, Levente Uzonyi <leves(a)caesar.elte.hu> > wrote: > >> > >>> On Mon, 11 Jul 2016, Yoshiki Ohshima wrote: > >>> > >>> Thanks. Is there actually a reason to try AndreasSystemProfier, or > >>> does the MessageTally in Squeak 5.0 subsume it? > >> > >> AndreasSystemProfier is more accurate, because it can measure the time > spent in primitives. > > > > And hence in 5.x we could replace MessageTally with > AndreasSystemProfiler and have only one copy of the code. > > > > If students are working on improving MessageTally they could (and IMO > should) be redirected to AndreasSystemProfiler. > > > > > > > >> > >> Levente > >> > >>> > >>>> On Sun, Jul 10, 2016 at 7:45 AM, Eliot Miranda < > eliot.miranda(a)gmail.com> wrote: > >>>> Hi Yoshiki, > >>>> > >>>> try an up-to-date VM. I'd point you to Travis could but I don't > see entirely green builds there right now. So pick up the most up-to-date > VM from my site. > >>>> > >>>> _,,,^..^,,,_ (phone) > >>>> > >>>>> On Jul 8, 2016, at 3:58 PM, Yoshiki Ohshima <Yoshiki.Ohshima(a)acm.org> > wrote: > >>>>> > >>>>> I am trying a few things on Squeak 5.0. In earlier versions there > was > >>>>> AndreasSystemProfier (formerly known as QSystemProfier) and had a > >>>>> method called spyOnWorldFor:, which was quite useful. I just loaded > >>>>> AndreasProfier-eem.11.mcz and tried it but it crashed the 5.0 all in > >>>>> one VM on Mac OS 10.10. > >>>>> > >>>>> Is this a known issue? Is there an alternative to it? > >>>>> > >>>>> -- > >>>>> -- Yoshiki > >>> > >>> > >>> > >>> -- > >>> -- Yoshiki > >> > > > > > > > > -- > > _,,,^..^,,,_ > > best, Eliot > -- _,,,^..^,,,_ best, Eliot

1 0

The Trunk: TrueType-mt.43.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.43.mcz ==================== Summary ==================== Name: TrueType-mt.43 Author: mt Time: 13 July 2016, 12:16:44.682029 pm UUID: 571bce8d-fded-5446-bb94-a24cbf015573 Ancestors: TrueType-topa.42 Clean-up some dependencies between Graphics, Morphic, and TrueType. =============== Diff against TrueType-topa.42 =============== Item was added: + ----- Method: LinedTTCFont>>computeForm: (in category 'private') ----- + computeForm: char + + | ttGlyph scale | + + char = Character tab ifTrue: [^ super computeForm: char]. + + "char = $U ifTrue: [self doOnlyOnce: [self halt]]." + scale := self pixelSize asFloat / (ttcDescription ascender - ttcDescription descender). + ttGlyph := ttcDescription at: char. + ^ ttGlyph asFormWithScale: scale ascender: ttcDescription ascender descender: ttcDescription descender fgColor: foregroundColor bgColor: Color transparent depth: self depth replaceColor: false lineGlyph: lineGlyph lingGlyphWidth: contourWidth emphasis: emphasis! Item was added: + ----- Method: TTCFont>>computeForm: (in category 'private') ----- + computeForm: char + "Compute the glyph form for the given character" + ^ttcDescription renderGlyph: char height: self height fgColor: foregroundColor bgColor: Color transparent depth: self depth! Item was added: + ----- Method: TTCFont>>fallbackForm (in category 'private') ----- + fallbackForm + "Compute the glyph form for the fallback glyph" + ^ttcDescription renderFallbackGlyphOfHeight: self height fgColor: foregroundColor bgColor: Color transparent depth: self depth! Item was added: + ----- Method: TTGlyph>>asFormWithScale:ascender:descender: (in category 'converting') ----- + asFormWithScale: scale ascender: ascender descender: descender + ^ self + asFormWithScale: scale + ascender: ascender + descender: descender + fgColor: Color black + bgColor: Color white + depth: 8 + replaceColor: true. + ! Item was added: + ----- Method: TTGlyph>>asFormWithScale:ascender:descender:fgColor:bgColor:depth: (in category 'converting') ----- + asFormWithScale: scale ascender: ascender descender: descender fgColor: fgColor bgColor: bgColor depth: depth + + ^ self + asFormWithScale: scale + ascender: ascender + descender: descender + fgColor: fgColor + bgColor: bgColor + depth: depth + replaceColor: false. + ! Item was added: + ----- Method: TTGlyph>>asFormWithScale:ascender:descender:fgColor:bgColor:depth:replaceColor: (in category 'converting') ----- + asFormWithScale: scale ascender: ascender descender: descender fgColor: fgColor bgColor: bgColor depth: depth replaceColor: replaceColorFlag + + ^ self + asFormWithScale: scale + ascender: ascender + descender: descender + fgColor: fgColor + bgColor: bgColor + depth: depth + replaceColor: replaceColorFlag + lineGlyph: nil + lingGlyphWidth: 0 + emphasis: 0.! Item was added: + ----- Method: TTGlyph>>asFormWithScale:ascender:descender:fgColor:bgColor:depth:replaceColor:lineGlyph:lingGlyphWidth:emphasis: (in category 'converting') ----- + asFormWithScale: scale ascender: ascender descender: descender fgColor: fgColor bgColor: bgColor depth: depth replaceColor: replaceColorFlag lineGlyph: lineGlyph lingGlyphWidth: lWidth emphasis: code + + | form canvas newScale | + form := Form extent: (advanceWidth @ (ascender - descender) * scale) rounded depth: depth. + form fillColor: bgColor. + canvas := BalloonCanvas on: form. + canvas aaLevel: 4. + canvas transformBy: (MatrixTransform2x3 withScale: scale asPoint * (1 @ -1)). + canvas transformBy: (MatrixTransform2x3 withOffset: 0 @ ascender negated). + canvas + drawGeneralBezierShape: self contours + color: fgColor + borderWidth: 0 + borderColor: fgColor. + ((code bitAnd: 4) ~= 0 or: [(code bitAnd: 16) ~= 0]) ifTrue: [ + newScale := (form width + 1) asFloat / lineGlyph calculateWidth asFloat. + canvas transformBy: (MatrixTransform2x3 withScale: (newScale / scale)(a)1.0). + + (code bitAnd: 4) ~= 0 ifTrue: [ + canvas + drawGeneralBezierShape: lineGlyph contours + color: fgColor + borderWidth: 0 + borderColor: fgColor. + ]. + + (code bitAnd: 16) ~= 0 ifTrue: [ + canvas transformBy: (MatrixTransform2x3 withOffset: 0@(ascender // 2)). + canvas + drawGeneralBezierShape: lineGlyph contours + color: fgColor + borderWidth: 0 + borderColor: fgColor. + ]. + ]. + + replaceColorFlag ifTrue: [ + form replaceColor: bgColor withColor: Color transparent. + ]. + ^ form!

1 0

The Trunk: Graphics-mt.353.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.353.mcz ==================== Summary ==================== Name: Graphics-mt.353 Author: mt Time: 13 July 2016, 12:15:51.812029 pm UUID: ecba04a2-359a-9242-a453-713066ae433d Ancestors: Graphics-mt.352 Clean-up some dependencies between Graphics, Morphic, and TrueType. =============== Diff against Graphics-mt.352 =============== Item was added: + ----- Method: Point>>ceiling (in category 'truncation and round off') ----- + ceiling + "Answer a Point that is the receiver's x and y ceiling. Answer the receiver if its coordinates are already integral." + + (x isInteger and: [y isInteger]) ifTrue: [^ self]. + ^ x ceiling @ y ceiling + ! Item was added: + ----- Method: Point>>floor (in category 'truncation and round off') ----- + floor + "Answer a Point that is the receiver's x and y floor. Answer the receiver if its coordinates are already integral." + + (x isInteger and: [y isInteger]) ifTrue: [^ self]. + ^ x floor @ y floor + ! Item was added: + ----- Method: Point>>guarded (in category 'extent functions') ----- + guarded + "Return a positive nonzero extent." + ^ self max: 1@1! Item was added: + ----- Method: Point>>isIntegerPoint (in category 'truncation and round off') ----- + isIntegerPoint + ^ x isInteger and: [ y isInteger ] ! Item was added: + ----- Method: Point>>roundDownTo: (in category 'truncation and round off') ----- + roundDownTo: grid + "Answer a Point that is the receiver's x and y rounded to grid x and + grid y by lower value (toward negative infinity)." + + | gridPoint | + gridPoint := grid asPoint. + ^(x roundDownTo: gridPoint x) @ (y roundDownTo: gridPoint y)! Item was added: + ----- Method: Point>>roundUpTo: (in category 'truncation and round off') ----- + roundUpTo: grid + "Answer a Point that is the receiver's x and y rounded to grid x and + grid y by upper value (toward infinity)." + + | gridPoint | + gridPoint := grid asPoint. + ^(x roundUpTo: gridPoint x) @ (y roundUpTo: gridPoint y)! Item was added: + ----- Method: Point>>scaleTo: (in category 'extent functions') ----- + scaleTo: anExtent + "Return a Point scalefactor for shrinking a thumbnail of the receiver's extent to fit within anExtent. self and anExtent are expected to have positive nonZero x and y." + + | factor sX sY | + factor := 3.0 reciprocal . + sX := anExtent x / self x asFloat . + sY := anExtent y / self y asFloat . + sX = sY ifTrue: [ ^ sX @ sY ] . "Same aspect ratio" + ^ sX < sY ifTrue: [ sX @ (sX max: sY * factor) ] + ifFalse: [ (sY max: sX * factor ) @ sY ] ! Item was added: + ----- Method: Rectangle>>ceiling (in category 'truncation and round off') ----- + ceiling + "Answer the integer rectange to the bottom right of receiver. + Return reciever if it already and integerRectange." + + self isIntegerRectangle ifTrue: [ ^ self ] . + + ^origin ceiling corner: corner ceiling! Item was added: + ----- Method: Rectangle>>compressTo: (in category 'truncation and round off') ----- + compressTo: grid + "Answer a Rectangle whose origin and corner are rounded to grid x and grid y. + Rounding is done by upper value on origin and lower value on corner so that + rounded rectangle is inside self." + + ^Rectangle origin: (origin roundUpTo: grid) + corner: (corner roundDownTo: grid)! Item was added: + ----- Method: Rectangle>>compressed (in category 'truncation and round off') ----- + compressed + "Answer a Rectangle whose origin and corner are rounded to integers. + Rounding is done by upper value on origin and lower value on corner so that + rounded rectangle is inside self." + + ^Rectangle origin: origin ceiling corner: corner floor! Item was added: + ----- Method: Rectangle>>expandTo: (in category 'truncation and round off') ----- + expandTo: grid + "Answer a Rectangle whose origin and corner are rounded to grid x and grid y. + Rounding is done by upper value on origin and lower value on corner so that + self is inside rounded rectangle." + + ^Rectangle origin: (origin roundDownTo: grid) + corner: (corner roundUpTo: grid)! Item was added: + ----- Method: Rectangle>>expanded (in category 'truncation and round off') ----- + expanded + "Answer a Rectangle whose origin and corner are rounded to integers. + Rounding is done by upper value on origin and lower value on corner so that + self is inside rounded rectangle." + + ^Rectangle origin: origin floor corner: corner ceiling! Item was added: + ----- Method: Rectangle>>floor (in category 'truncation and round off') ----- + floor + "Answer the integer rectange to the topleft of receiver. + Return reciever if it already and integerRectange." + + self isIntegerRectangle ifTrue: [ ^ self ] . + + ^origin floor corner: corner floor! Item was added: + ----- Method: Rectangle>>isIntegerRectangle (in category 'truncation and round off') ----- + isIntegerRectangle + "Answer true if all component of receiver are integral." + + ^origin isIntegerPoint and: [ corner isIntegerPoint ]! Item was added: + ----- Method: Rectangle>>roundTo: (in category 'truncation and round off') ----- + roundTo: grid + "Answer a Rectangle whose origin and corner are rounded to grid x and grid y." + + ^Rectangle origin: (origin roundTo: grid) + corner: (corner roundTo: grid)!

1 0

The Trunk: Morphic-mt.1191.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1191.mcz ==================== Summary ==================== Name: Morphic-mt.1191 Author: mt Time: 13 July 2016, 12:15:09.232029 pm UUID: 3976006c-99a5-7d4a-8d8e-36775aa92b2c Ancestors: Morphic-mt.1190 Clean-up some dependencies between Graphics, Morphic, and TrueType. =============== Diff against Morphic-mt.1190 =============== Item was removed: - ----- Method: LinedTTCFont>>computeForm: (in category '*Morphic-Multilingual') ----- - computeForm: char - - | ttGlyph scale | - - char = Character tab ifTrue: [^ super computeForm: char]. - - "char = $U ifTrue: [self doOnlyOnce: [self halt]]." - scale := self pixelSize asFloat / (ttcDescription ascender - ttcDescription descender). - ttGlyph := ttcDescription at: char. - ^ ttGlyph asFormWithScale: scale ascender: ttcDescription ascender descender: ttcDescription descender fgColor: foregroundColor bgColor: Color transparent depth: self depth replaceColor: false lineGlyph: lineGlyph lingGlyphWidth: contourWidth emphasis: emphasis! Item was removed: - ----- Method: Point>>ceiling (in category '*Morphic-Truncation and Roundoff') ----- - ceiling - "Answer a Point that is the receiver's x and y ceiling. Answer the receiver if its coordinates are already integral." - - (x isInteger and: [y isInteger]) ifTrue: [^ self]. - ^ x ceiling @ y ceiling - ! Item was removed: - ----- Method: Point>>floor (in category '*Morphic-Truncation and Roundoff') ----- - floor - "Answer a Point that is the receiver's x and y floor. Answer the receiver if its coordinates are already integral." - - (x isInteger and: [y isInteger]) ifTrue: [^ self]. - ^ x floor @ y floor - ! Item was removed: - ----- Method: Point>>guarded (in category '*Morphic-extent functions') ----- - guarded - "Return a positive nonzero extent." - self max: 1@1 .! Item was removed: - ----- Method: Point>>isIntegerPoint (in category '*Morphic-Truncation and Roundoff') ----- - isIntegerPoint - ^ x isInteger and: [ y isInteger ] ! Item was removed: - ----- Method: Point>>roundDownTo: (in category '*Morphic-Truncation and Roundoff') ----- - roundDownTo: grid - "Answer a Point that is the receiver's x and y rounded to grid x and - grid y by lower value (toward negative infinity)." - - | gridPoint | - gridPoint := grid asPoint. - ^(x roundDownTo: gridPoint x) @ (y roundDownTo: gridPoint y)! Item was removed: - ----- Method: Point>>roundUpTo: (in category '*Morphic-Truncation and Roundoff') ----- - roundUpTo: grid - "Answer a Point that is the receiver's x and y rounded to grid x and - grid y by upper value (toward infinity)." - - | gridPoint | - gridPoint := grid asPoint. - ^(x roundUpTo: gridPoint x) @ (y roundUpTo: gridPoint y)! Item was removed: - ----- Method: Point>>scaleTo: (in category '*Morphic-extent functions') ----- - scaleTo: anExtent - "Return a Point scalefactor for shrinking a thumbnail of the receiver's extent to fit within anExtent" - " self and anExtent are expected to have positive nonZero x and y. " - | factor sX sY | - factor := 3.0 reciprocal . "EccentricityThreshhold reciprical" - sX := anExtent x / self x asFloat . - sY := anExtent y / self y asFloat . - sX = sY ifTrue: [ ^ sX @ sY ] . "Same aspect ratio" - ^ sX < sY ifTrue: [ sX @ (sX max: sY * factor) ] - ifFalse: [ (sY max: sX * factor ) @ sY ] ! Item was removed: - ----- Method: Rectangle>>ceiling (in category '*Morphic-Truncation and Roundoff') ----- - ceiling - "Answer the integer rectange to the bottom right of receiver. - Return reciever if it already and integerRectange." - - self isIntegerRectangle ifTrue: [ ^ self ] . - - ^origin ceiling corner: corner ceiling! Item was removed: - ----- Method: Rectangle>>compressTo: (in category '*Morphic-Truncation and Roundoff') ----- - compressTo: grid - "Answer a Rectangle whose origin and corner are rounded to grid x and grid y. - Rounding is done by upper value on origin and lower value on corner so that - rounded rectangle is inside self." - - ^Rectangle origin: (origin roundUpTo: grid) - corner: (corner roundDownTo: grid)! Item was removed: - ----- Method: Rectangle>>compressed (in category '*Morphic-Truncation and Roundoff') ----- - compressed - "Answer a Rectangle whose origin and corner are rounded to integers. - Rounding is done by upper value on origin and lower value on corner so that - rounded rectangle is inside self." - - ^Rectangle origin: origin ceiling corner: corner floor! Item was removed: - ----- Method: Rectangle>>expandTo: (in category '*Morphic-Truncation and Roundoff') ----- - expandTo: grid - "Answer a Rectangle whose origin and corner are rounded to grid x and grid y. - Rounding is done by upper value on origin and lower value on corner so that - self is inside rounded rectangle." - - ^Rectangle origin: (origin roundDownTo: grid) - corner: (corner roundUpTo: grid)! Item was removed: - ----- Method: Rectangle>>expanded (in category '*Morphic-Truncation and Roundoff') ----- - expanded - "Answer a Rectangle whose origin and corner are rounded to integers. - Rounding is done by upper value on origin and lower value on corner so that - self is inside rounded rectangle." - - ^Rectangle origin: origin floor corner: corner ceiling! Item was removed: - ----- Method: Rectangle>>floor (in category '*Morphic-Truncation and Roundoff') ----- - floor - "Answer the integer rectange to the topleft of receiver. - Return reciever if it already and integerRectange." - - self isIntegerRectangle ifTrue: [ ^ self ] . - - ^origin floor corner: corner floor! Item was removed: - ----- Method: Rectangle>>isIntegerRectangle (in category '*Morphic-Truncation and Roundoff') ----- - isIntegerRectangle - "Answer true if all component of receiver are integral." - - ^origin isIntegerPoint and: [ corner isIntegerPoint ]! Item was removed: - ----- Method: Rectangle>>roundTo: (in category '*Morphic-Truncation and Roundoff') ----- - roundTo: grid - "Answer a Rectangle whose origin and corner are rounded to grid x and grid y." - - ^Rectangle origin: (origin roundTo: grid) - corner: (corner roundTo: grid)! Item was removed: - ----- Method: TTCFont>>computeForm: (in category '*Morphic-Multilingual') ----- - computeForm: char - "Compute the glyph form for the given character" - ^ttcDescription renderGlyph: char height: self height fgColor: foregroundColor bgColor: Color transparent depth: self depth! Item was removed: - ----- Method: TTCFont>>fallbackForm (in category '*Morphic-Multilingual') ----- - fallbackForm - "Compute the glyph form for the fallback glyph" - ^ttcDescription renderFallbackGlyphOfHeight: self height fgColor: foregroundColor bgColor: Color transparent depth: self depth! Item was removed: - ----- Method: TTGlyph>>asFormWithScale:ascender:descender: (in category '*Morphic-Multilingual') ----- - asFormWithScale: scale ascender: ascender descender: descender - ^ self - asFormWithScale: scale - ascender: ascender - descender: descender - fgColor: Color black - bgColor: Color white - depth: 8 - replaceColor: true. - ! Item was removed: - ----- Method: TTGlyph>>asFormWithScale:ascender:descender:fgColor:bgColor:depth: (in category '*Morphic-Multilingual') ----- - asFormWithScale: scale ascender: ascender descender: descender fgColor: fgColor bgColor: bgColor depth: depth - - ^ self - asFormWithScale: scale - ascender: ascender - descender: descender - fgColor: fgColor - bgColor: bgColor - depth: depth - replaceColor: false. - ! Item was removed: - ----- Method: TTGlyph>>asFormWithScale:ascender:descender:fgColor:bgColor:depth:replaceColor: (in category '*Morphic-Multilingual') ----- - asFormWithScale: scale ascender: ascender descender: descender fgColor: fgColor bgColor: bgColor depth: depth replaceColor: replaceColorFlag - - ^ self - asFormWithScale: scale - ascender: ascender - descender: descender - fgColor: fgColor - bgColor: bgColor - depth: depth - replaceColor: replaceColorFlag - lineGlyph: nil - lingGlyphWidth: 0 - emphasis: 0.! Item was removed: - ----- Method: TTGlyph>>asFormWithScale:ascender:descender:fgColor:bgColor:depth:replaceColor:lineGlyph:lingGlyphWidth:emphasis: (in category '*Morphic-Multilingual') ----- - asFormWithScale: scale ascender: ascender descender: descender fgColor: fgColor bgColor: bgColor depth: depth replaceColor: replaceColorFlag lineGlyph: lineGlyph lingGlyphWidth: lWidth emphasis: code - - | form canvas newScale | - form := Form extent: (advanceWidth @ (ascender - descender) * scale) rounded depth: depth. - form fillColor: bgColor. - canvas := BalloonCanvas on: form. - canvas aaLevel: 4. - canvas transformBy: (MatrixTransform2x3 withScale: scale asPoint * (1 @ -1)). - canvas transformBy: (MatrixTransform2x3 withOffset: 0 @ ascender negated). - canvas - drawGeneralBezierShape: self contours - color: fgColor - borderWidth: 0 - borderColor: fgColor. - ((code bitAnd: 4) ~= 0 or: [(code bitAnd: 16) ~= 0]) ifTrue: [ - newScale := (form width + 1) asFloat / lineGlyph calculateWidth asFloat. - canvas transformBy: (MatrixTransform2x3 withScale: (newScale / scale)(a)1.0). - - (code bitAnd: 4) ~= 0 ifTrue: [ - canvas - drawGeneralBezierShape: lineGlyph contours - color: fgColor - borderWidth: 0 - borderColor: fgColor. - ]. - - (code bitAnd: 16) ~= 0 ifTrue: [ - canvas transformBy: (MatrixTransform2x3 withOffset: 0@(ascender // 2)). - canvas - drawGeneralBezierShape: lineGlyph contours - color: fgColor - borderWidth: 0 - borderColor: fgColor. - ]. - ]. - - replaceColorFlag ifTrue: [ - form replaceColor: bgColor withColor: Color transparent. - ]. - ^ form!

1 0

The Trunk: 51Deprecated-mt.32.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-mt.32.mcz ==================== Summary ==================== Name: 51Deprecated-mt.32 Author: mt Time: 13 July 2016, 11:57:37.183252 am UUID: 7be81836-e59d-8945-a4ba-5a43c8e55b62 Ancestors: 51Deprecated-mt.31 Deprecate old drop handler for image streams. There is a new one in #defaultImageHandler. Still unused because we have more flexible file services for that. =============== Diff against 51Deprecated-mt.31 =============== Item was added: + ----- Method: ExternalDropHandler class>>registerStandardExternalDropHandlers (in category '*51Deprecated') ----- + registerStandardExternalDropHandlers + "ExternalDropHandler registerStandardExternalDropHandlers" + + self registeredHandlers add: ( + ExternalDropHandler + type: 'image/' + extension: nil + action: [:stream :pasteUp :event | + pasteUp addMorph: (World drawingClass withForm: (Form fromBinaryStream: stream binary)) centeredNear: event position])!

1 0

The Trunk: System-mt.837.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.837.mcz ==================== Summary ==================== Name: System-mt.837 Author: mt Time: 13 July 2016, 11:54:51.034252 am UUID: 2f906c4c-c55b-614b-af91-73b8444b0be0 Ancestors: System-eem.836 When dropping image files into Squeak, use the file services instead of a single drop handler. Then the user can, for example, directly set the image as project background instead of creating a SketchMorph with it. =============== Diff against System-eem.836 =============== Item was changed: ----- Method: ExternalDropHandler class>>cleanUp (in category 'class initialization') ----- cleanUp "Reset and reinstall the drop handlers" + self initialize.! - self resetRegisteredHandlers. - self registerStandardExternalDropHandlers.! Item was changed: ----- Method: ExternalDropHandler class>>initialize (in category 'class initialization') ----- initialize "ExternalDropHandler initialize" self resetRegisteredHandlers. self + "registerHandler: self defaultImageHandler;" "we have file services for images" - registerHandler: self defaultImageHandler; registerHandler: self defaultGZipHandler; registerHandler: self defaultProjectHandler! Item was removed: - ----- Method: ExternalDropHandler class>>registerStandardExternalDropHandlers (in category 'class initialization') ----- - registerStandardExternalDropHandlers - "ExternalDropHandler registerStandardExternalDropHandlers" - - self registeredHandlers add: ( - ExternalDropHandler - type: 'image/' - extension: nil - action: [:stream :pasteUp :event | - pasteUp addMorph: (World drawingClass withForm: (Form fromBinaryStream: stream binary)) centeredNear: event position])!

1 0

The Trunk: Morphic-mt.1190.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1190.mcz ==================== Summary ==================== Name: Morphic-mt.1190 Author: mt Time: 13 July 2016, 11:52:56.625252 am UUID: 9858df29-ea18-0b49-bd51-4d23707bf2f7 Ancestors: Morphic-eem.1189 Propagate the current project background for new projects created from within the current one. =============== Diff against Morphic-eem.1189 =============== Item was changed: ----- Method: MorphicProject>>initialize (in category 'initialize') ----- initialize "Initialize a new Morphic Project" super initialize. world := PasteUpMorph newWorldForProject: self. + world fillStyle: (Project current isMorphic ifTrue: [Project current world fillStyle] ifFalse: [self class defaultFill]). - world color: self class defaultFill. Locale switchToID: CurrentProject localeID. Preferences useVectorVocabulary ifTrue: [world installVectorVocabulary]!

1 0

The Trunk: Graphics-mt.352.mcz
by commits＠source.squeak.org 13 Jul '16

13 Jul '16

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.352.mcz ==================== Summary ==================== Name: Graphics-mt.352 Author: mt Time: 13 July 2016, 11:49:58.442252 am UUID: 0095e815-99ca-bf48-ab99-3770d376d079 Ancestors: Graphics-mt.351 Show the current ressource imports after adding another one via file service. =============== Diff against Graphics-mt.351 =============== Item was added: + ----- Method: Form class>>importImageAndShowImports: (in category 'file list services') ----- + importImageAndShowImports: fullName + + self importImage: fullName. + Imports default explore.! Item was changed: ----- Method: Form class>>serviceImageImports (in category 'file list services') ----- serviceImageImports "Answer a service for reading a graphic into ImageImports" ^ SimpleServiceEntry provider: self label: 'read graphic into ImageImports' + selector: #importImageAndShowImports: - selector: #importImage: description: 'Load a graphic, placing it in the ImageImports repository.' buttonLabel: 'import'!

1 0

[ANN] The Squeak 5.1 Release Plan
by marcel.taeumel 13 Jul '16

13 Jul '16

Hey, there. I just want to inform all of you that we are in the middle of preparing the next Squeak 5.1 release. We are working on automation for generating/updating all release artifacts so that we are eventually able to shorten our release cycle in the future. For this, we are using smalltalkCI (thanks Fabio!), TravisCI, and AppVeyor. Here are the important dates: * Feature Freeze on July 31, 23:59 AOE * Code Freeze on August 14, 23:59 AOE * Release between August 15 and 19 As these dates suggest, our goal is to have the release before this year's ESUG. However, there is another important Smalltalk-related event this year: 20 years of Squeak. :-) Yeah! It was around October 1996, when the first Squeak came into the world. ...having its own worlds. :D So, it would only make sense to also have a special release for this birthday. For this, we revived all of the cool multimedia content, known from Squeak 1 through Squeak 3, and made it fit for the current Squeak code base. Oh, this is so exciting. :-) Anyway, what's with Squeak 5.1 and 64-bit? Since the release of Squeak 5.0, we've been working hard and made a lot of bug fixes and added some features to improve the overall usability and robustness of the Squeak live programming system. Meanwhile, the VMs improved as well. Cog's object format "Spur" got more robust, the JIT improved, and the whole code base moved from SVN to Git: https://github.com/OpenSmalltalk/opensmalltalk-vm. Still, what's up with 64-bit? We have working 64-bit VMs for Mac OS X and Linux. Hence, we will take the chance and also release 64-bit bundles for Squeak 5.1. Be informed that this means a new .image file. You cannot open a 64-bit .image with a 32-bit VM and vice versa. This, however, is nothing serious because we are working on an updated version of our SystemTracer to convert back and forth. With limitations, of course. ;-) You cannot fill a bottle of beer into a shot glass. What's up with the All-in-one? There will be the usual 32-bit all-in-one package, which combines VMs for Linux, Mac OS X, and Windows. Since there will be no 64-bit Windows VM within the next two months, we refrain from creating an almost-all-in-one-32/64 package. This would only confuse the users. In the future, we can arguably expand the concept of the All-in-one to also contain 32-bit and 64-bit VMs and images. So, what are the prospective release artifacts for Squeak 5.1? * All-in-one (Linux/Mac/Win) 32-bit * Mac OS X App 32-bit, signed * Mac OS X App 64-bit, signed * Linux Bundle 32-bit * Linux Bundle 64-bit * Windows App (maybe with MSI Installer) 32-bit, maybe signed * ZIP archive containing .image and .changes, no VM, no .sources We plan to also use the new release automation process for Squeak 5.0 and update those release artifacts as well. We will update our squeak.org Website but you will always find the artifacts on http://files.squeak.org/5.0 and http://files.squeak.org/5.1 . :-) Best, Marcel -- View this message in context: http://forum.world.st/ANN-The-Squeak-5-1-Release-Plan-tp4906439.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

← Newer
1
...
14
15
16
17
18
19
20
...
23
Older →

Jump to page: