Squeak-dev June 2013

squeak-dev@lists.squeakfoundation.org

45 participants
215 discussions

Re: [squeak-dev] The Inbox: System-cmm.497.mcz
by Levente Uzonyi 01 Jul '13

01 Jul '13

Two things about the implementation: - using #isOctetCharacter is not good enough. When I wrote ascii, I meant the 7-bit US-ASCII characters. For example $á is both #isOctetCharacter and #isAlphaNumeric, but I don't think it should appear in a method's timestamp. - some methods have Smalltalk123 as author Levente On Fri, 14 Sep 2012, commits(a)source.squeak.org wrote: > A new version of System was added to project The Inbox: > http://source.squeak.org/inbox/System-cmm.497.mcz > > ==================== Summary ==================== > > Name: System-cmm.497 > Author: cmm > Time: 14 September 2012, 3:14:45.552 pm > UUID: d55d42e9-1782-4cdd-a0d0-253bf60940f5 > Ancestors: System-ul.496 > > Updates for the Author proposal: > > - Completely separate the model from the UI. Author should be a "pure domain object." The PerSe methods are no longer needed. > > - Instead, let Utilities class take responsibility for employing Squeak UI-elements to set the current Author attributes, as well as for being the "convenient" way to access these attributes. > > - Since we are reifying an Author from a String, it is now treated as a whole Author object, rather than just a String-holder. Allow multiple Author instances to exist and the #current Author can be swapped out with another Author instance. > > =============== Diff against System-ul.496 =============== > > Item was removed: > - ----- Method: Author class>>changeStamp (in category 'convenience') ----- > - changeStamp > - > - ^self current changeStamp! > > Item was removed: > - ----- Method: Author class>>changeStampPerSe (in category 'convenience') ----- > - changeStampPerSe > - > - ^self current changeStampPerSe! > > Item was changed: > ----- Method: Author class>>current (in category 'instance creation') ----- > current > + ^ instance ifNil: > + [ self current: self new. > + instance ]! > - > - ^instance ifNil: [ instance := super new ]! > > Item was added: > + ----- Method: Author class>>current: (in category 'class initialization') ----- > + current: anAuthor > + instance := anAuthor! > > Item was changed: > ----- Method: Author class>>fullNamePerSe (in category 'pharo compatibility') ----- > fullNamePerSe > + ^ self current initials! > - > - ^self initialsPerSe! > > Item was removed: > - ----- Method: Author class>>initials (in category 'convenience') ----- > - initials > - > - ^self current initials! > > Item was removed: > - ----- Method: Author class>>initialsPerSe (in category 'convenience') ----- > - initialsPerSe > - > - ^self current initialsPerSe! > > Item was removed: > - ----- Method: Author class>>new (in category 'instance creation') ----- > - new > - > - self error: 'Use #current'! > > Item was changed: > ----- Method: Author class>>reset (in category 'instance creation') ----- > reset > + self current: nil! > - > - instance := nil! > > Item was changed: > ----- Method: Author class>>useAuthor:during: (in category 'pharo compatibility') ----- > + useAuthor: aString during: aBlock > + ^ self current > + useInitials: aString > + during: aBlock! > - useAuthor: aString during: aBlock > - > - ^self useInitials: aString during: aBlock! > > Item was removed: > - ----- Method: Author class>>useInitials:during: (in category 'convenience') ----- > - useInitials: aString during: aBlock > - > - ^self current useInitials: aString during: aBlock! > > Item was removed: > - ----- Method: Author class>>username (in category 'convenience') ----- > - username > - > - ^self current username! > > Item was removed: > - ----- Method: Author class>>usernamePerSe (in category 'convenience') ----- > - usernamePerSe > - > - ^self current usernamePerSe! > > Item was changed: > ----- Method: Author>>changeStamp (in category 'accessing') ----- > changeStamp > + ^ self changeStampWithInitials: (self initials ifEmpty: [ 'unknown' ])! > - > - ^self changeStampWithInitials: self initials! > > Item was removed: > - ----- Method: Author>>changeStampPerSe (in category 'accessing') ----- > - changeStampPerSe > - > - ^self changeStampWithInitials: (self initialsPerSe ifEmpty: [ '.' ])! > > Item was changed: > ----- Method: Author>>fullName (in category 'pharo compatibility') ----- > fullName > + ^ self initials! > - > - ^self initials! > > Item was removed: > - ----- Method: Author>>fullNamePerSe (in category 'pharo compatibility') ----- > - fullNamePerSe > - > - ^self initialsPerSe! > > Item was changed: > ----- Method: Author>>initialize (in category 'initialize-release') ----- > initialize > - > super initialize. > + initials := username := String empty! > - initials := String new. > - username := String new > - ! > > Item was changed: > ----- Method: Author>>initials (in category 'accessing') ----- > initials > + ^ initials! > - > - ^initials ifEmpty: [ self requestAndSetInitials ]! > > Item was removed: > - ----- Method: Author>>initialsPerSe (in category 'accessing') ----- > - initialsPerSe > - > - ^initials! > > Item was removed: > - ----- Method: Author>>requestAndSetInitials (in category 'accessing') ----- > - requestAndSetInitials > - > - ^initials := (UIManager default > - request: 'Please type your initials: ' translated > - initialAnswer: initials) select: [ :each | > - #( > - ($A $Z) > - ($a $z) > - ($0 $9)) anySatisfy: [ :range | > - each between: range first and: range second ] ]! > > Item was removed: > - ----- Method: Author>>requestAndSetUsername (in category 'accessing') ----- > - requestAndSetUsername > - > - ^username := UIManager default > - request: 'Please type your name:' translated > - initialAnswer: (username > - ifEmpty: [ 'Your Name' translated ] > - ifNotEmpty: [ username ])! > > Item was changed: > ----- Method: Author>>username (in category 'accessing') ----- > username > + ^ username! > - > - ^username ifEmpty: [ self requestAndSetUsername ]! > > Item was removed: > - ----- Method: Author>>usernamePerSe (in category 'accessing') ----- > - usernamePerSe > - > - ^username! > > Item was changed: > ----- Method: SpaceTally>>spaceTally: (in category 'class analysis') ----- > + spaceTally: classes > - spaceTally: classes > "Answer a collection of SpaceTallyItems representing the memory space (in bytes) consumed by the code and instances of each class in the system. Note that code sizes do not currently report memory consumed by class variables. " > - > "((SpaceTally new spaceTally: (Array with: TextMorph with: Point)) asSortedCollection: [:a :b | a spaceForInstances > b spaceForInstances]) asArray" > - > self preAllocateResultsFor: classes. > Smalltalk garbageCollect. > self computeSpaceUsage. > ^ results > + sort: [ : a : b | a spaceForInstances > b spaceForInstances ] ; > + yourself! > - ! > > Item was changed: > ----- Method: Utilities class>>authorInitials (in category 'identification') ----- > authorInitials > + "Answer the initials to be used to identify the current code author." > + ^ self authorInitialsPerSe ifEmpty: > + [ self > + setAuthorInitials ; > + authorInitialsPerSe ]! > - "Answer the initials to be used to identify the current code author. " > - > - ^Author initials! > > Item was changed: > ----- Method: Utilities class>>authorInitialsPerSe (in category 'identification') ----- > authorInitialsPerSe > + ^ Author current initials! > - "Answer the currently-prevailing author initials, such as they, empty or not" > - > - ^Author initialsPerSe! > > Item was changed: > ----- Method: Utilities class>>authorName (in category 'identification') ----- > authorName > + ^ self authorNamePerSe ifEmpty: > + [ self > + setAuthorName ; > + authorNamePerSe ]! > - > - ^Author username! > > Item was changed: > ----- Method: Utilities class>>authorNamePerSe (in category 'identification') ----- > authorNamePerSe > + ^ Author current username! > - > - ^Author usernamePerSe! > > Item was changed: > ----- Method: Utilities class>>changeStamp (in category 'identification') ----- > + changeStamp > + ^ Author current changeStampWithInitials: self authorInitials! > - changeStamp > - > - ^Author changeStamp! > > Item was changed: > ----- Method: Utilities class>>changeStampPerSe (in category 'identification') ----- > changeStampPerSe > + ^ Author current changeStamp! > - > - ^Author changeStampPerSe! > > Item was changed: > ----- Method: Utilities class>>setAuthorInitials (in category 'identification') ----- > setAuthorInitials > "Put up a dialog allowing the user to specify the author's initials. " > + | oldInitials | > + oldInitials := Author current initials. > + Author reset. > + Author current initials: > + ((UIManager default > + request: 'Please type your initials: ' translated > + initialAnswer: oldInitials) select: [ : each | each isOctetCharacter and: [ each isAlphaNumeric ] ])! > - > - ^Author current requestAndSetInitials! > > Item was changed: > ----- Method: Utilities class>>setAuthorName (in category 'identification') ----- > setAuthorName > + Author current username: > + (UIManager default > + request: 'Please type your name:' translated > + initialAnswer: (Author current username ifEmpty: [ 'Your Name' translated ]))! > - > - Author requestAndSetUsername! > > >

4 9

Project class >> #makeExistingView:project:projectsToBeDeleted:
by Frank Shearar 30 Jun '13

30 Jun '13

I just found this method. It contains this snippet: Smalltalk isMorphic ifTrue: [ proj createViewIfAppropriate. ] ifFalse: [ ChangeSorter allChangeSets add: proj changeSet. ProjectView openAndEnter: proj. "Note: in MVC we get no further than the above" ]. Wouldn't that be better written by implementing MVCProject >> #createViewIfAppropriate ChangeSorter allChangeSets add: proj changeSet. ProjectView openAndEnter: proj. and ripping out the #isMorphic call? frank

3 16

The Trunk: System-fbs.556.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.556.mcz ==================== Summary ==================== Name: System-fbs.556 Author: fbs Time: 30 June 2013, 11:50:16.245 am UUID: 2a2693f3-995c-3a49-89ae-505c8246d5c3 Ancestors: System-fbs.555 System-Tools is a better place for TTFileDescription>>profileAll because System-Tools provides reasonably generic 'tools' things that don't otherwise have anything to do with TrueType. =============== Diff against System-fbs.555 =============== Item was added: + ----- Method: TTFileDescription>>profileAll (in category '*System-Tools-profiling') ----- + profileAll + "Profile reading all the glyphs" + MessageTally spyOn:[ + 1 to: numGlyphs do:[:glyphIndex| self readGlyphAt: glyphIndex-1]. + ].!

1 0

The Trunk: TrueType-fbs.21.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.21.mcz ==================== Summary ==================== Name: TrueType-fbs.21 Author: fbs Time: 30 June 2013, 11:51:19.726 am UUID: b74cc493-0067-e34c-be47-06a6e11b581d Ancestors: TrueType-fbs.20 System-Tools is a better place for TTFileDescription>>profileAll because System-Tools provides reasonably generic 'tools' things that don't otherwise have anything to do with TrueType. =============== Diff against TrueType-fbs.20 =============== Item was removed: - ----- Method: TTFileDescription>>profileAll (in category 'private') ----- - profileAll - "Profile reading all the glyphs" - MessageTally spyOn:[ - 1 to: numGlyphs do:[:glyphIndex| self readGlyphAt: glyphIndex-1]. - ].!

1 0

[ANN] SS3 the canary site
by Tobias Pape 30 Jun '13

30 Jun '13

Dear fellow Smalltalkers For me to test new features of SqueakSource3 and for you to have a look on new features and fixed bugs, I have created http://canary.netshed.de/ which is the most recent, say alpha, deployment of SqueakSource3. It contains features that are not yet deployed at other ss3 sites, including the gemstone one. I cannot make any guaranty that code commited to the canary will survive forever; it is a play toy, so go play with it :) Attached a teaser image. Best -Tobias

4 4

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

30 Jun '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.228.mcz ==================== Summary ==================== Name: Tests-fbs.228 Author: fbs Time: 30 June 2013, 11:37:06.573 am UUID: 65debc06-7371-c847-82b7-31ddf9a6eba2 Ancestors: Tests-fbs.227 TrueType -/-> Morphic. =============== Diff against Tests-fbs.227 =============== Item was changed: ----- Method: PackageDependencyTest>>testTrueType (in category 'tests') ----- testTrueType self testPackage: 'TrueType' dependsExactlyOn: #( Collections Balloon Files Graphics Kernel - Morphic Multilingual System 'ToolBuilder-Kernel' ).!

1 0

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: 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: 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: 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

Jump to page: