Hi Stef, 

	Then here you have this .cs which adds 2 new options to the
Browser windows menu. One option to choose that current browser as the
default, and another option to select the new default from the menu. 

	I am posting this as an ENH in Mantis.

Regards,
Hernán

> -----Original Message-----
> From: squeak-dev-bounces at lists.squeakfoundation.org 
> [mailto:squeak-dev-bounces at lists.squeakfoundation.org] On 
> Behalf Of stéphane ducasse
> Sent: Thursday, September 30, 2004 4:47 AM
> To: The general-purpose Squeak developers list
> Subject: Re: About App-Registry
> 
> 
> Hi hernan
> 
> thanks but from a user point of view this is not really accessible so 
> may be we should have a way from the UI to deregister an application
> 
> Stef
> 
> On 30 sept. 04, at 02:22, Hernan Tylim wrote:
> 
> > Hi Stef,
> >
> > I don't know if you already find out how but in case you don't:
> >
> > SystemBrowser askForDefault
> >
> > Or:
> >
> > SystemBrowser default: nil
> >
> > With this last one it will ask you the next time you open a browser.
> >
> > (Of course the same applies to the other App Registries on 
> the system)
> >
> > Regards,
> > Hernán
> >
> >> -----Original Message-----
> >> From: squeak-dev-bounces at lists.squeakfoundation.org
> >> [mailto:squeak-dev-bounces at lists.squeakfoundation.org] On
> >> Behalf Of stéphane ducasse
> >> Sent: Wednesday, September 29, 2004 1:07 PM
> >> To: The general-purpose Squeak developers list
> >> Subject: About App-Registry
> >>
> >>
> >> hi guys
> >>
> >> This is really nice to have a pop up that you asks you to 
> choose the
> >> kind of browser you want.
> >> But how can I reset the mechanism if I make a mistake :)
> >>
> >> Stef
> >>
> >>
> >
> >
> >
> 
> 
-------------- next part --------------
'From Squeak3.8alpha of 8 September 2004 [latest update: #6271] on 30 September 2004 at 8:51:47 am'!
"Change Set:		RegisterBrowserWndMenu-hpt
Date:			30 September 2004
Author:			Hernan Tylim

Adds a few lines methods to Browser to add 2 new option menu to its Window Menu.
One option to register that current browser as the default browser selection. And another option to directly ask for a new default value."!


!Browser methodsFor: 'user interface' stamp: 'hpt 9/30/2004 08:43'!
addModelItemsToWindowMenu: aMenu
	" Add model-related item to the window menu"
	super addModelItemsToWindowMenu: aMenu.
	Smalltalk isMorphic
		ifTrue: 
			[aMenu 
				addLine;
				add: 'Register this Browser as defaul' target: self action:#registerAsDefault;
				add: 'Choose new Browser default' target: self action:#chooseNewBrowserDefault]! !

!Browser methodsFor: 'user interface' stamp: 'hpt 9/30/2004 08:45'!
chooseNewBrowserDefault
	SystemBrowser askForDefault! !

!Browser methodsFor: 'user interface' stamp: 'hpt 9/30/2004 08:46'!
registerAsDefault
	SystemBrowser default: self class.! !


!Browser reorganize!
('user interface' addModelItemsToWindowMenu: chooseNewBrowserDefault registerAsDefault)
('accessing' contents contents:notifying: contentsSelection couldBrowseAnyClass doItReceiver editSelection editSelection: noteSelectionIndex:for: request:initialAnswer: spawn: suggestCategoryToSpawnedBrowser:)
('annotation' annotation)
('breakpoints' toggleBreakOnEntry)
('class comment pane' buildMorphicCommentPane classComment:notifying: noCommentNagString)
('class functions' addAllMethodsToCurrentChangeSet buildClassBrowser classCommentText classDefinitionText classListMenu: classListMenu:shifted: copyClass createInstVarAccessors defineClass:notifying: editClass editComment explainSpecial: fetchClassDocPane fileOutClass findMethod hierarchy makeNewSubclass plusButtonHit printOutClass removeClass renameClass shiftedClassListMenu:)
('class list' classList classListIndex classListIndex: classListSingleton recent selectClass: selectedClass selectedClassName toggleClassListIndex:)
('code pane' compileMessage:notifying: showBytecodes)
('copying' veryDeepInner:)
('drag and drop' acceptDroppingMorph:event:inMorph: acceptMethod:dstMessageCategory:srcMessageCategory:dstClass:dstClassOrMeta:srcClassOrMeta:internal:copySemantic: acceptMethod:messageCategory:class:atListMorph:internal:copy: changeCategoryForClass:srcSystemCategory:atListMorph:internal:copy: changeMessageCategoryForMethod:dstMessageCategory:srcMessageCategory:insideClassOrMeta:internal:copySemantic: codeTextMorph dragAnimationFor:transferMorph: dragPassengerFor:inMorph: dragTransferTypeForMorph: dstCategoryDstListMorph: dstClassDstListMorph: dstMessageCategoryDstListMorph: message:compileInClass:fromClass:dstMessageCategory:srcMessageCategory:internal:copySemantic: overwriteDialogHierarchyChange:higher:sourceClassName:destinationClassName:methodSelector: wantsDroppedMorph:event:inMorph:)
('initialize-release' addAListPane:to:at:plus: addClassAndSwitchesTo:at:plus: addMorphicSwitchesTo:at: browseSelectionInPlace browserWindowActivated buildClassSwitchView buildCommentSwitchView buildInstanceClassSwitchView buildInstanceSwitchView buildMorphicClassList buildMorphicMessageCatList buildMorphicMessageList buildMorphicSwitches buildMorphicSystemCatList buildOptionalButtonsView defaultBrowserTitle highlightClassList:with: highlightMessageCategoryList:with: highlightSystemCategoryList:with: labelString methodCategoryChanged openAsMorphClassEditing: openAsMorphEditing: openAsMorphMessageEditing: openAsMorphMsgCatEditing: openAsMorphSysCatEditing: openEditString: openMessageCatEditString: openMessageEditString: openOnClassWithEditString: openSystemCatEditString: optionalAnnotationHeight optionalButtonHeight setClass:selector: setSelector: systemCatSingletonKey:from: systemOrganizer:)
('message category functions' addCategory alphabetizeMessageCategories buildMessageCategoryBrowser buildMessageCategoryBrowserEditString: canShowMultipleMessageCategories categoryOfCurrentMethod changeMessageCategories: editMessageCategories fileOutMessageCategories highlightMessageList:with: messageCategoryMenu: printOutMessageCategories removeEmptyCategories removeMessageCategory renameCategory showHomeCategory)
('message category list' categorizeAllUncategorizedMethods messageCatListSingleton messageCategoryList messageCategoryListIndex messageCategoryListIndex: messageCategoryListSelection rawMessageCategoryList recategorizeMethodSelector: selectMessageCategoryNamed: selectOriginalCategoryForCurrentMethod selectedMessageCategoryName setOriginalCategoryIndexForCurrentMethod toggleMessageCategoryListIndex:)
('message functions' addExtraShiftedItemsTo: buildMessageBrowser buildMessageBrowserEditString: defineMessage:notifying: defineMessageFrom:notifying: inspectInstances inspectSubInstances messageListMenu:shifted: removeMessage removeMessageFromBrowser shiftedMessageListMenu:)
('message list' messageList messageListIndex messageListIndex: messageListSingleton reformulateList selectedMessage selectedMessageName selectedMessageName: toggleMessageListIndex:)
('metaclass' classCommentIndicated classMessagesIndicated classOrMetaClassOrganizer indicateClassMessages indicateInstanceMessages instanceMessagesIndicated metaClassIndicated metaClassIndicated: selectedClassOrMetaClass selectedClassOrMetaClassName setClassOrganizer)
('system category functions' addSystemCategory alphabetizeSystemCategories browseAllClasses buildSystemCategoryBrowser buildSystemCategoryBrowserEditString: changeSystemCategories: classNotFound editSystemCategories fileOutSystemCategory findClass potentialClassNames printOutSystemCategory removeSystemCategory renameSystemCategory systemCatSingletonMenu: systemCategoryMenu: updateSystemCategories)
('system category list' indexIsOne indexIsOne: selectCategoryForClass: selectedEnvironment selectedSystemCategoryName systemCategoryList systemCategoryListIndex systemCategoryListIndex: systemCategorySingleton toggleSystemCategoryListIndex:)
('construction' addLowerPanesTo:at:with:)
!