When I get into the office I'll publish the 3rd-time's-the-charm version. This one has the right postscript but doesn't remove the other stuff like #initialize and #unload for setting up/tearing down the old style preference. Sorry for the noise.
frank
On 02 Dec 2013, at 8:37, commits@source.squeak.org wrote:
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.'!
squeak-dev@lists.squeakfoundation.org