[squeak-dev] The Trunk: System-tpr.970.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Oct 22 01:03:01 UTC 2017

tim Rowledge uploaded a new version of System to project The Trunk:

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

Name: System-tpr.970
Author: tpr
Time: 21 October 2017, 6:02:31.987517 pm
UUID: 6fa3986a-3897-42ce-aca9-139253493f33
Ancestors: System-dtl.969

Improve two Browser related comments; one so the example actually works.

=============== Diff against System-dtl.969 ===============

Item was changed:
  ----- Method: SystemNavigation>>browseClassesWithNamesContaining:caseSensitive: (in category 'browse') -----
  browseClassesWithNamesContaining: aString caseSensitive: caseSensitive 
+ 	"SystemNavigation default browseClassesWithNamesContaining: 'eMorph' caseSensitive: true "
- 	"Smalltalk browseClassesWithNamesContaining: 'eMorph' caseSensitive: true "
  	"Launch a class-list list browser on all classes whose names containg aString as a substring."
  	| suffix aList |
  	suffix := caseSensitive
  				ifTrue: [' (case-sensitive)']
  				ifFalse: [' (use shift for case-sensitive)'].
  	aList := OrderedCollection new.
  	Cursor wait
  		showWhile: [Smalltalk
  				allClassesDo: [:class | (class name includesSubstring: aString caseSensitive: caseSensitive)
  						ifTrue: [aList add: class name]]].
  	aList size > 0
  		ifTrue: [ToolSet openClassListBrowser: aList asSet sorted title: 'Classes whose names contain ' , aString , suffix]!

Item was changed:
  ----- Method: ToolSet class>>openClassListBrowser:title: (in category 'browsing') -----
  openClassListBrowser: anArray title: aString
+ 	"Open a class list browser on the list of classes named"
- 	"Open a class list browser"
  	self default ifNil:[^self inform: 'Cannot open ClassListBrowser'].
  	^self default openClassListBrowser: anArray title: aString!

More information about the Squeak-dev mailing list