The Trunk: Monticello-eem.396.mcz

Eliot Miranda uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-eem.396.mcz

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

Name: Monticello-eem.396
Author: eem
Time: 29 June 2010, 6:30:15.515 pm
UUID: 4bfae8e6-8254-4d67-8f17-5317a3cf4cb0
Ancestors: Monticello-ar.395

Make sure MCWorkingCopy receives system change
notifications by reregistering for them on startup.

File-out-all for PatchBrowser (package changes).

=============== Diff against Monticello-ar.395 ===============

Item was changed:
  ----- Method: MCWorkingCopy class>>initialize (in category 'as yet unclassified') -----
  initialize
  Smalltalk
  at: #MczInstaller
  ifPresent: [:installer | self adoptVersionInfoFrom: installer].
  self updateInstVars.
  "Temporary conversion code -- remove later"
  registry ifNotNil:[registry rehash]. "changed #="
  self allInstancesDo:[:each| "moved notifications"
  Smalltalk at: #SystemChangeNotifier ifPresent:[:cls|
  cls uniqueInstance noMoreNotificationsFor: each.
  ].
  ].
+ self registerForNotifications.
+ Smalltalk addToStartUpList: self!
- self registerForNotifications.!

Item was added:
+ ----- Method: MCPackageManager class>>reregisterForNotificationsWith: (in category 'system changes') -----
+ reregisterForNotificationsWith: aSystemChangeNotifier
+ aSystemChangeNotifier
+ notify: self ofSystemChangesOfItem: #class change: #Added using: #classModified:;
+ notify: self ofSystemChangesOfItem: #class change: #Modified using: #classModified:;
+ notify: self ofSystemChangesOfItem: #class change: #Renamed using: #classModified:;
+ notify: self ofSystemChangesOfItem: #class change: #Commented using: #classModified:;
+ notify: self ofSystemChangesOfItem: #class change: #Recategorized using: #classMoved:;
+ notify: self ofSystemChangesOfItem: #class change: #Removed using: #classRemoved:;
+ notify: self ofSystemChangesOfItem: #method change: #Added using: #methodModified:;
+ notify: self ofSystemChangesOfItem: #method change: #Modified using: #methodModified:;
+ notify: self ofSystemChangesOfItem: #method change: #Recategorized using: #methodMoved:;
+ notify: self ofSystemChangesOfItem: #method change: #Removed using: #methodRemoved:!

Item was changed:
  ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') -----
  methodListMenu: aMenu
  "Build the menu for the selected method, if any."
 
+ self selectedMessageName
+ ifNil: [items notEmpty ifTrue:
+ [aMenu addList:#(('fileOut (o)' fileOutMessage))]]
+ ifNotNil: [
- self selectedMessageName ifNotNil: [
  aMenu addList:#(
  ('browse full (b)' browseMethodFull)
  ('browse hierarchy (h)' classHierarchy)
  ('browse method (O)' openSingleMessageBrowser)
  ('browse protocol (p)' browseFullProtocol)
  -
  ('fileOut (o)' fileOutMessage)
  ('printOut' printOutMessage)
  ('copy selector (c)' copySelector)).
  aMenu addList: #(
  -
  ('browse senders (n)' browseSendersOfMessages)
  ('browse implementors (m)' browseMessages)
  ('inheritance (i)' methodHierarchy)
  ('versions (v)' browseVersions)
  ('change sets with this method' findMethodInChangeSets)
  " ('x revert to previous version' revertToPreviousVersion)"
  ('remove from current change set' removeFromCurrentChanges)
  " ('x revert & remove from changes' revertAndForget)"
  ('add to current change set' adoptMessageInCurrentChangeset)
  " ('x copy up or copy down...' copyUpOrCopyDown)"
  " ('x remove method (x)' removeMessage)"
  "-"
  ).
  ].
  " aMenu addList: #(
  ('x inst var refs...' browseInstVarRefs)
  ('x inst var defs...' browseInstVarDefs)
  ('x class var refs...' browseClassVarRefs)
  ('x class variables' browseClassVariables)
  ('x class refs (N)' browseClassRefs)
  ).
  "
  ^ aMenu
  !

Item was changed:
  ----- Method: MCPackageManager class>>registerForNotifications (in category 'system changes') -----
  registerForNotifications
+ Smalltalk
+ at: #SystemChangeNotifier
+ ifPresent:
+ [:cls|
+ cls uniqueInstance noMoreNotificationsFor: self.
+ self reregisterForNotificationsWith: cls uniqueInstance]!
- Smalltalk at: #SystemChangeNotifier ifPresent:[:cls|
- (cls uniqueInstance)
- noMoreNotificationsFor: self;
- notify: self ofSystemChangesOfItem: #class change: #Added using: #classModified:;
- notify: self ofSystemChangesOfItem: #class change: #Modified using: #classModified:;
- notify: self ofSystemChangesOfItem: #class change: #Renamed using: #classModified:;
- notify: self ofSystemChangesOfItem: #class change: #Commented using: #classModified:;
- notify: self ofSystemChangesOfItem: #class change: #Recategorized using: #classMoved:;
- notify: self ofSystemChangesOfItem: #class change: #Removed using: #classRemoved:;
- notify: self ofSystemChangesOfItem: #method change: #Added using: #methodModified:;
- notify: self ofSystemChangesOfItem: #method change: #Modified using: #methodModified:;
- notify: self ofSystemChangesOfItem: #method change: #Recategorized using: #methodMoved:;
- notify: self ofSystemChangesOfItem: #method change: #Removed using: #methodRemoved:
- ].!

Item was added:
+ ----- Method: MCWorkingCopy class>>startUp: (in category 'system startup') -----
+ startUp: resuming
+ "Ensure Monticello is receiving system change notifications."
+
+ resuming ifTrue:
+ [Smalltalk
+ at: #SystemChangeNotifier
+ ifPresent: [:scn| self reregisterForNotificationsWith: scn uniqueInstance]]
+ !

Item was changed:
  ----- Method: MCCodeTool>>fileOutMessage (in category 'menus') -----
  fileOutMessage
  "Put a description of the selected message on a file"
 
+ | fileName |
  self selectedMessageName ifNotNil:
  [Cursor write showWhile:
+ [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName].
+ ^self].
+ items isEmpty ifTrue:
+ [^self].
+ fileName := UIManager default request: 'File out on which file?' initialAnswer: 'methods'.
+ Cursor write showWhile:
+ [| internalStream |
+ internalStream := WriteStream on: (String new: 1000).
+ internalStream header; timeStamp.
+ items do:
+ [:patchOp|
+ patchOp definition isMethodDefinition ifTrue:
+ [(patchOp definition actualClass notNil
+  and: [patchOp definition actualClass includesSelector: patchOp definition selector])
+ ifTrue:
+ [patchOp definition actualClass
+ printMethodChunk: patchOp definition selector
+ withPreamble: true
+ on: internalStream
+ moveSource: false
+ toFile: nil]
+ ifFalse:
+ [internalStream nextChunkPut: patchOp definition className, ' removeSelector: ', patchOp definition selector printString]].
+ patchOp definition isClassDefinition ifTrue:
+ [patchOp definition actualClass
+ ifNotNil:
+ [internalStream nextChunkPut: patchOp definition actualClass definition.
+ patchOp definition comment ifNotNil:
+ [patchOp definition actualClass organization
+ putCommentOnFile: internalStream
+ numbered: 1
+ moveSource: false
+ forClass: patchOp definition actualClass]]
+ ifNil:
+ [internalStream nextChunkPut: patchOp definition className, ' removeFromSystem']]].
+ FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]!
- [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName]]!