Packages June 2013

packages@lists.squeakfoundation.org

1 participants
276 discussions

The Trunk: TrueType-fbs.20.mcz
by commits＠source.squeak.org 30 Jun '13

30 Jun '13

Frank Shearar uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-fbs.20.mcz ==================== Summary ==================== Name: TrueType-fbs.20 Author: fbs Time: 30 June 2013, 11:34:38.327 am UUID: 69ef78b0-eb3b-2049-8fec-9470754dbf4e Ancestors: TrueType-ul.19 TrueType shouldn't depend on Morphic (because Morphic should be unloadable), and since it's display related let's put it in Multilingual-Display (for the moment). =============== Diff against TrueType-ul.19 =============== Item was removed: - ----- 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 removed: - ----- 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 removed: - ----- 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 removed: - ----- 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: TrueType-fbs.20.mcz
by commits＠source.squeak.org 30 Jun '13

30 Jun '13

1 0

The Trunk: Multilingual-fbs.162.mcz
by commits＠source.squeak.org 30 Jun '13

30 Jun '13

Frank Shearar uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-fbs.162.mcz ==================== Summary ==================== Name: Multilingual-fbs.162 Author: fbs Time: 30 June 2013, 11:33:27.5 am UUID: 29079816-610e-5748-bfb1-eacc1b4935a4 Ancestors: Multilingual-nice.161 TrueType shouldn't depend on Morphic (because Morphic should be unloadable), and since it's display related let's put it in Multilingual-Display (for the moment). =============== Diff against Multilingual-nice.161 =============== Item was added: + ----- Method: TTGlyph>>asFormWithScale:ascender:descender: (in category '*Multilingual-Display-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 '*Multilingual-Display-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 '*Multilingual-Display-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 '*Multilingual-Display-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: Multilingual-fbs.162.mcz
by commits＠source.squeak.org 30 Jun '13

30 Jun '13

1 0

The Trunk: Multilingual-fbs.162.mcz
by commits＠source.squeak.org 30 Jun '13

30 Jun '13

1 0

The Trunk: Kernel-fbs.778.mcz
by commits＠source.squeak.org 30 Jun '13

30 Jun '13

Frank Shearar uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-fbs.778.mcz ==================== Summary ==================== Name: Kernel-fbs.778 Author: fbs Time: 30 June 2013, 11:12:32.033 am UUID: 883d00af-21bc-ee42-af7d-c15c19c491e4 Ancestors: Kernel-fbs.777 More consolidation of the "System-Object Events" pieces. Note the removal of indirection through Object class >> #flushEvents. At some point we might want to deprecate this method because it doesn't do anything useful. =============== Diff against Kernel-fbs.777 =============== Item was removed: - ----- Method: Object class>>flushEvents (in category 'class initialization') ----- - flushEvents - "Object flushEvents" - - EventManager flushEvents. !

1 0

The Trunk: Kernel-fbs.778.mcz
by commits＠source.squeak.org 30 Jun '13

30 Jun '13

1 0

The Trunk: Kernel-fbs.778.mcz
by commits＠source.squeak.org 30 Jun '13

30 Jun '13

1 0

The Trunk: System-fbs.555.mcz
by commits＠source.squeak.org 30 Jun '13

30 Jun '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.555.mcz ==================== Summary ==================== Name: System-fbs.555 Author: fbs Time: 30 June 2013, 11:11:36.602 am UUID: b0c9ac36-e757-e34b-b569-37a32412ce51 Ancestors: System-fbs.554 More consolidation of the "System-Object Events" pieces. Note the removal of indirection through Object class >> #flushEvents. At some point we might want to deprecate this method because it doesn't do anything useful. =============== Diff against System-fbs.554 =============== Item was changed: ----- Method: EventManager class>>flushEvents (in category 'initialize-release') ----- flushEvents + "EventManager flushEvents" - "Object flushEvents" self actionMaps keysAndValuesDo:[:rcvr :evtDict| rcvr ifNotNil:[ "make sure we don't modify evtDict while enumerating" evtDict keys do:[:evtName| | msgSet | msgSet := evtDict at: evtName ifAbsent:[nil]. (msgSet == nil) ifTrue:[rcvr removeActionsForEvent: evtName]]]]. EventManager actionMaps finalizeValues. ! Item was added: + ----- Method: Object class>>flushEvents (in category '*System-Object Events-class initialization') ----- + flushEvents + "Object flushEvents" + + EventManager flushEvents. ! Item was changed: ----- Method: SmalltalkImage>>garbageCollect (in category 'memory space') ----- garbageCollect "Primitive. Reclaims all garbage and answers the number of bytes of available space." Object flushDependents. + EventManager flushEvents. - Object flushEvents. ^self primitiveGarbageCollect! Item was changed: ----- Method: SmalltalkImage>>snapshot:andQuit:embedded: (in category 'snapshot and quit') ----- snapshot: save andQuit: quit embedded: embeddedFlag "Mark the changes file and close all files as part of #processShutdownList. If save is true, save the current state of this Smalltalk in the image file. If quit is true, then exit to the outer OS shell. The latter part of this method runs when resuming a previously saved image. This resume logic checks for a document file to process when starting up." | resuming msg | Object flushDependents. + EventManager flushEvents. - Object flushEvents. (SourceFiles at: 2) ifNotNil:[ msg := String streamContents: [ :s | s nextPutAll: '----'; nextPutAll: (save ifTrue: [ quit ifTrue: [ 'QUIT' ] ifFalse: [ 'SNAPSHOT' ] ] ifFalse: [quit ifTrue: [ 'QUIT/NOSAVE' ] ifFalse: [ 'NOP' ]]); nextPutAll: '----'; print: Date dateAndTimeNow; space; nextPutAll: (FileDirectory default localNameFor: self imageName); nextPutAll: ' priorSource: '; print: LastQuitLogPosition ]. self assureStartupStampLogged. save ifTrue: [ LastQuitLogPosition := (SourceFiles at: 2) setToEnd; position ]. self logChange: msg. Transcript cr; show: msg ]. Smalltalk processShutDownList: quit. Cursor write show. save ifTrue: [resuming := embeddedFlag ifTrue: [self snapshotEmbeddedPrimitive] ifFalse: [self snapshotPrimitive]. "<-- PC frozen here on image file" resuming == false "guard against failure" ifTrue: ["Time to reclaim segment files is immediately after a save" Smalltalk at: #ImageSegment ifPresent: [:theClass | theClass reclaimObsoleteSegmentFiles]]] ifFalse: [resuming := false]. quit & (resuming == false) ifTrue: [self quitPrimitive]. Cursor normal show. Smalltalk setGCParameters. resuming == true ifTrue: [Smalltalk clearExternalObjects]. Smalltalk processStartUpList: resuming == true. resuming == true ifTrue:[ self setPlatformPreferences. self recordStartupStamp]. Project current wakeUpTopWindow. "Now it's time to raise an error" resuming == nil ifTrue: [self error:'Failed to write image file (disk full?)']. ^ resuming!

1 0

The Trunk: System-fbs.555.mcz
by commits＠source.squeak.org 30 Jun '13

30 Jun '13

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2013