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

commits at source.squeak.org commits at source.squeak.org
Wed Oct 23 20:10:20 UTC 2013


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

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

Name: Tools-cmm.501
Author: cmm
Time: 23 October 2013, 3:09:28.913 pm
UUID: 91844028-c199-4119-8a22-1b06b1efbe77
Ancestors: Tools-cmm.500

RecentMessages fix and haircut.

=============== Diff against Tools-cmm.500 ===============

Item was changed:
  MessageSet subclass: #RecentMessageSet
  	instanceVariableNames: ''
+ 	classVariableNames: ''
- 	classVariableNames: 'NumberOfRecentSubmissionsToStore'
  	poolDictionaries: ''
  	category: 'Tools-Browser'!
  
  !RecentMessageSet commentStamp: 'sw 8/1/2002 17:40' prior: 0!
  RecentMessageSet is a message set that shows the most recently-submitted methods, in chronological order.!

Item was removed:
- ----- Method: RecentMessageSet class>>numberOfRecentSubmissionsToStore (in category 'preferences') -----
- numberOfRecentSubmissionsToStore
- 	<preference: 'Number of recent submissions to store'
- 		category: 'Tools'
- 		description: 'Answer how many methods back the ''recent method submissions'' history should store'
- 		type: #Number>
- 	^NumberOfRecentSubmissionsToStore
- 		ifNil: [NumberOfRecentSubmissionsToStore := 30].!

Item was removed:
- ----- Method: RecentMessageSet>>maybeSetSelection (in category 'selection') -----
- maybeSetSelection
- 	"After a browser's message list is changed, this message is dispatched to the model, to give it a chance to refigure a selection"	
- 	self messageListIndex: 1!

Item was changed:
  ----- Method: RecentMessageSet>>reformulateList (in category 'update') -----
  reformulateList
- 	| myList |
  	"Reformulate the receiver's list.  Exclude methods now deleted"
+ 	self initializeMessageList:
+ 		(RecentMessages default methodReferences select:
+ 			[ : each | each isValid ]).
+ 	self messageListIndex: (messageList size min: 1). "0 or 1"
- 
- 	myList := RecentMessages default methodReferences reversed select: [ :each | each isValid].
- 	self initializeMessageList: myList.
- 	self messageListIndex: (messageList size min: 1).	"0 or 1"
  	self changed: #messageList.
  	self changed: #messageListIndex!

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

Item was changed:
  ----- Method: Utilities class>>openRecentSubmissionsBrowser (in category '*Tools') -----
  openRecentSubmissionsBrowser
  	"Open up a browser on the most recent methods submitted in the image; reuse any existing one found in the world."
+ self deprecated: 'use #browseRecentSubmissions'.
+ 	self browseRecentSubmissions!
- 
- 	self currentWorld openRecentSubmissionsBrowser: nil!

Item was changed:
  ----- Method: Utilities class>>recentSubmissionsWindow (in category '*Tools') -----
  recentSubmissionsWindow
  	"Answer a SystemWindow holding recent submissions"
  
  	| recentMessages messageSet |
+ 	recentMessages := RecentMessages default methodReferences.
- 	recentMessages := RecentMessages default methodReferences reversed.
  	messageSet := RecentMessageSet messageList: recentMessages.
  	messageSet autoSelectString: nil.
  	^ ToolBuilder build: messageSet
  
  	"Utilities recentSubmissionsWindow openInHand"
  
  !



More information about the Packages mailing list