The Trunk: Tools-fbs.505.mcz

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