The Trunk: MorphicExtras-cmm.80.mcz

Chris Muller uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-cmm.80.mcz

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

Name: MorphicExtras-cmm.80
Author: cmm
Time: 15 March 2010, 6:56:03.728 pm
UUID: 02607708-4bb1-4f0d-a76f-60c7bce156a1
Ancestors: MorphicExtras-MAD.79

- More improved guads of authorInitialsPerSe.

=============== Diff against MorphicExtras-MAD.79 ===============

Item was changed:
  ----- Method: SqueakPage class>>newURLAndPageFor: (in category 'as yet unclassified') -----
  newURLAndPageFor: aMorph
  "Create a new SqueakPage whose contents is the given morph. Assign a URL for that page, record it in the page cache, and answer its URL."
 
  | pg newURL stamp |
  pg := self new.
+ stamp := Utilities authorInitialsPerSe.
+ stamp isEmptyOrNil ifTrue: [ stamp := '*' ].
- stamp := Utilities authorInitialsPerSe ifNil: ['*'].
  pg saveMorph: aMorph author: stamp.
  newURL := SqueakPageCache generateURL.
  SqueakPageCache atURL: newURL put: pg.
+ ^ newURL!
- ^ newURL
- !

Item was changed:
  ----- Method: SqueakPage>>write (in category 'saving') -----
  write
  "Decide whether to write this page on the disk."
  | sf |
  policy == #neverWrite ifTrue: [^ self].
  "demo mode, or write only when user explicitly orders it"
 
  "All other policies do write:   #now"
  contentsMorph ifNil: [^ self].
  dirty := dirty | ((contentsMorph valueOfProperty: #pageDirty) == true).
  "set by layoutChanged"
  dirty == true ifTrue: [
  sf := ServerDirectory new fullPath: url.
  "check for shared password"
  "contentsMorph allMorphsDo: [:m | m prepareToBeSaved].
  done in objectToStoreOnDataStream"
+ lastChangeAuthor := Utilities authorInitialsPerSe.
+ lastChangeAuthor isEmptyOrNil ifTrue: [ lastChangeAuthor := '*'].
- lastChangeAuthor := Utilities authorInitialsPerSe ifNil: ['*'].
  lastChangeTime := Time totalSeconds.
  Cursor wait showWhile: [ | remoteFile |
  remoteFile := sf fileNamed: url. "no notification when overwriting"
  remoteFile dataIsValid.
  remoteFile fileOutClass: nil andObject: self.
  "remoteFile close"].
  contentsMorph setProperty: #pageDirty toValue: nil.
  dirty := false].!