[squeak-dev] The Trunk: Tools-fbs.505.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Dec 1 23:01:44 UTC 2013


Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.505.mcz

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

Name: Tools-fbs.505
Author: fbs
Time: 1 December 2013, 10:56:27.019 pm
UUID: 3f71c223-c1cf-064a-b6fa-8aaf565b2939
Ancestors: Tools-cmm.503

Move #browserShowsPackagePane to the new pragma style preference. Take 2. Preserve the value of the preference.

=============== Diff against Tools-cmm.503 ===============

Item was changed:
  MessageSet subclass: #RecentMessageSet
  	instanceVariableNames: ''
+ 	classVariableNames: 'NumberOfRecentSubmissionsToStore'
- 	classVariableNames: ''
  	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 added:
+ ----- Method: SystemBrowser class>>browserShowsPackagePane (in category 'preferences') -----
+ browserShowsPackagePane
+ 	<preference: 'Browser shows package pane' category: 'browsing' description: 'If true, then the various ''browse full'' and ''browse it'' commands (usually invoked via cmd-b) will open a Package Browser rather than a System Browser.  The Package Browser includes a package pane which groups system categories into packages based on the initial portion of their category name.' type: #Boolean>
+ 	^ SystemNavigation default browserClass == PackagePaneBrowser.!

Item was added:
+ ----- Method: SystemBrowser class>>browserShowsPackagePane: (in category 'preferences') -----
+ browserShowsPackagePane: aBoolean
+ 	| theOtherOne |
+ 	self registeredClasses size = 2
+ 		ifTrue: [theOtherOne := (self registeredClasses copyWithout: PackagePaneBrowser) first]
+ 		ifFalse: [theOtherOne := nil].
+ 	aBoolean
+ 		ifTrue: [self default: PackagePaneBrowser]
+ 		ifFalse: [self default: theOtherOne].
+ 	SystemNavigation default browserClass: self default.!

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



More information about the Squeak-dev mailing list