[Pkg] The Trunk: Tools-cmm.500.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Oct 1 19:20:13 UTC 2013

Chris Muller uploaded a new version of Tools to project The Trunk:

==================== 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)
  			[self reformulateList]
  			[self updateCodePaneIfNeeded]!

Item was changed:
  ----- Method: Utilities class>>browseRecentSubmissions (in category '*Tools') -----
  	"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'!

More information about the Packages mailing list