The Trunk: Tools-fbs.506.mcz

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

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

Name: Tools-fbs.506
Author: fbs
Time: 2 December 2013, 8:37:29.384 am
UUID: 707f1239-be88-1e40-afb2-f138bc2bb288
Ancestors: Tools-cmm.503

Tools-fbs.505 is broken because, while it has the right postscript, I failed to remove the all the other stuff around the preference.

Don't program while tired.

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

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 removed:
- ----- Method: SystemBrowser class>>initialize (in category 'class initialization') -----
- initialize
- | pref |
- pref := Preferences preferenceAt: #browserShowsPackagePane.
- Preferences
- addPreference: #browserShowsPackagePane
- categories: pref categoryList
- default: pref defaultValue
- balloonHelp: pref helpString
- projectLocal: pref localToProject
- changeInformee: self
- changeSelector: #packagePanePreferenceChanged
- !

Item was removed:
- ----- Method: SystemBrowser class>>packagePanePreferenceChanged (in category 'events') -----
- packagePanePreferenceChanged
- | theOtherOne |
- self registeredClasses size = 2
- ifTrue: [theOtherOne := (self registeredClasses copyWithout: PackagePaneBrowser) first]
- ifFalse: [theOtherOne := nil].
- (Preferences valueOfFlag: #browserShowsPackagePane ifAbsent: [false])
- ifTrue: [self default: PackagePaneBrowser]
- ifFalse: [self default: theOtherOne].
- SystemNavigation default browserClass: self default.!

Item was removed:
- ----- Method: SystemBrowser class>>unload (in category 'initialize-release') -----
- unload
- | pref |
- pref := Preferences preferenceAt: #browserShowsPackagePane.
- Preferences
- addPreference: #browserShowsPackagePane
- categories: pref categoryList
- default: pref defaultValue
- balloonHelp: pref helpString
- projectLocal: pref localToProject
- changeInformee: nil
- changeSelector: nil
- !

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.'!