'From Squeak3.6beta of ''4 July 2003'' [latest update: #5373] on 29 July 2003 at 12:10:01 am'!

!MethodWithinCategoryWrapper methodsFor: 'menu operations' stamp: 'dew 7/29/2003 00:00'!
removeMethod
	"If a message is selected, create a Confirmer so the user can verify that the currently selected message should be removed from the system. If so, remove it.  If the Preference 'confirmMethodRemoves' is set to false, the confirmer is bypassed."
	| methodSymbol confirmation |

	methodSymbol _ item methodSymbol.
	confirmation _ SystemNavigation new confirmRemovalOf: methodSymbol on: item actualClass.
	confirmation == 3 ifTrue: [^ self].

	item actualClass removeSelector: methodSymbol.
	self changed: #siblingsModified.
	confirmation == 2 ifTrue:
		[SystemNavigation new browseAllCallsOn: methodSymbol]
! !


!WhiskerBrowser class methodsFor: 'initialization-release' stamp: 'dew 7/28/2003 23:43'!
initializePreferences
	"Initialize the Whisker group of Preferences, if they don't exist yet."
	"WhiskerBrowser initializePreferences"

	| currentChangeSet dummyChangeSet |

	"We don't want these auto-generated Preferences methods to show up in the current changeset, so temporarily redirect changes to a dummy changeset."
	currentChangeSet _ ChangeSet current.
	dummyChangeSet _ ChangeSet new initialize.
	ChangeSet newChanges: dummyChangeSet.

	Preferences
		addNonExistingPreference: #showWhiskerMethodTitles
		category: #whisker
		default: false
		balloonHelp: 'If true, then titlebars will be shown above every method pane, as opposed to just one titlebar for the whole class.'.
	Preferences
		addNonExistingPreference: #colorWhiskerPanes
		category: #whisker
		default: true
		balloonHelp: 'If true, then class panes will come in assorted colors, and method panes will match the associated class color.  Otherwise, the default Browser color will be used (which can be set via the World menu ''appearance.../window colors...'').'.
	Preferences
		addNonExistingPreference: #browseFullOpensWhisker
		category: #whisker
		default: true
		balloonHelp: 'If true, whenever ''browse full'' is chosen from a pop-up menu, the class/method will be opened in Whisker rather than a System Browser.  (A System Browser can still be opened from the World/open menu.)'.
	Preferences
		addNonExistingPreference: #classSideShadowInWhisker
		category: #whisker
		default: true
		balloonHelp: 'If true, the class-side information in the Whisker class pane will have a darker color to set it apart, and the class-side method panes will appear in a matching darker color.'.
	Preferences
		addNonExistingPreference: #highlightLatestWhiskerMethod
		category: #whisker
		default: false
		balloonHelp: 'If true, the most recently selected method pane will be highlighted with a lighter color.'.
	Preferences
		addNonExistingPreference: #plusMinusToggleButtons
		category: #whisker
		default: false
		balloonHelp: 'If true, the toggle buttons in the hierarchy widgets will be Windows-style plus-minus boxes instead of arrows.'.
	Preferences
		addNonExistingPreference: #showWhiskerMethodCategories
		category: #whisker
		default: true
		balloonHelp: 'If true, method categories will be shown in the Whisker class pane.  Otherwise, all methods will appear in alphabetical order with no categories.'.
	Preferences
		addNonExistingPreference: #stackNewlySelectedPanesOnTop
		category: #whisker
		default: false
		balloonHelp: 'If true, when a class or method is selected, its pane will always appear on the top of the stack.  Otherwise, class/method panes will appear in the same vertical order as in the corresponding list on their left.'.

	"Restore the current changeset."
	ChangeSet newChanges: currentChangeSet.

	"Remove dummy changeset from ChangeSorter"
	ChangeSorter removeChangeSet: dummyChangeSet.
! !