The Trunk: Tools-cmm.500.mcz

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

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

Name: Tools-cmm.500
Author: cmm
Time: 1 October 2013, 2:19:25.118 pm
UUID: 426c84cf-2b9c-4c84-8a06-489fabc91907
Ancestors: Tools-fbs.499

- Ensure RecentMessages startUp is executed in postScript.
- Employ "Meaningless Behavior" (from CHECKS PLII) rather than a modal dialog by putting up an empty RecentMessageSet rather than a modal alert.

=============== Diff against Tools-fbs.499 ===============

Item was changed:
  ----- Method: RecentMessageSet>>updateListsAndCodeIn: (in category 'update') -----
  updateListsAndCodeIn: aWindow
 
  | recentFromUtilities |
  "RAA 20 june 2000 - a recent change to how messages were displayed in the list caused them not to match what was stored in Utilities. This caused the recent submissions to be continuously updated. The hack below fixed that problem"
 
  self flag: #mref. "in second pass, use simpler test"
 
  self canDiscardEdits ifFalse: [^ self].
+ RecentMessages default isEmpty ifTrue: [ ^ self ].
  recentFromUtilities := RecentMessages default mostRecent asString,' '.
  (messageList first asStringOrText asString beginsWith: recentFromUtilities)
  ifFalse:
  [self reformulateList]
  ifTrue:
  [self updateCodePaneIfNeeded]!

Item was changed:
  ----- Method: Utilities class>>browseRecentSubmissions (in category '*Tools') -----
  browseRecentSubmissions
  "Open up a browser on the most recent methods submitted in the image.  5/96 sw."
 
  "Utilities browseRecentSubmissions"
 
+ | recentMessages |
- | recentMessages |
-
- RecentMessages default isEmpty ifTrue:
- [^ self inform: 'There are no recent submissions'].
-
  recentMessages := RecentMessages default methodReferences reversed.
  ^ RecentMessageSet
  openMessageList: recentMessages
  name: 'Recent submissions -- youngest first '
  autoSelect: nil.!

Item was changed:
  (PackageInfo named: 'Tools') postscript: 'Workspace allSubInstancesDo: [ :each | (each instVarNamed: #bindings) ifNil: [ each initializeBindings ] ].
+ World initializeDesktopCommandKeySelectors.
+ RecentMessages startUp.'!
- World initializeDesktopCommandKeySelectors'!

On 1 October 2013 20:19,  <[hidden email]> wrote:
Thanks, Chris. What did I do wrong with my attempt at making #startUp start up?

frank

I don't know what the problem is/was, but when you add something to the
preamble, or the postscript of a package, then you might want to create
a new mcm, to make sure that the snippet is executed at the right time
during the update.


Levente

On Tue, 1 Oct 2013, Frank Shearar wrote: