The Trunk: System-dtl.211.mcz

David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.211.mcz

==================== Summary ====================

Name: System-dtl.211
Author: dtl
Time: 28 December 2009, 11:34:34 am
UUID: c697eeff-ef70-45db-a8da-26cb77a0bf68
Ancestors: System-dtl.210

Rename #startUpComplete to #wakeUpTopWindow because it is used in contexts other than image startup. Change ChangesOrganizer class>>reorderChangesSets to use 'Project current wakeUpTopWindow' rather than an #isMorphic test.

=============== Diff against System-dtl.210 ===============

Item was added:
+ ----- Method: Project>>wakeUpTopWindow (in category 'enter') -----
+ wakeUpTopWindow
+ "Image has been restarted, and the startUp list has been processed. Perform
+ any additional actions needed to restart the user interface."
+
+ ^ self!

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.
  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.
- Project current startUpComplete.
  "Now it's time to raise an error"
  resuming == nil ifTrue: [self error:'Failed to write image file (disk full?)'].
  ^ resuming!

Item was removed:
- ----- Method: Project>>startUpComplete (in category 'enter') -----
- startUpComplete
- "Image has been restarted, and the startUp list has been processed. Perform
- any additional actions needed to restart the user interface."
-
- ^ self!