Hi Marcus, 
	A while ago I sent this changeset that adds SqueakMap to the
tools flaps. I don't know if only Goran can harvest it but anyway here
it is.

Regards.
Hernán

> -----Original Message-----
> From: squeak-dev-bounces at lists.squeakfoundation.org 
> [mailto:squeak-dev-bounces at lists.squeakfoundation.org] On 
> Behalf Of Marcus Denker
> Sent: Wednesday, August 25, 2004 5:42 AM
> To: The general-purpose Squeak developers list
> Subject: Re: Shouldn't Squeak Map Package loader be in the 
> tools flap infull image?
> 
> 
> 
> Am 24.08.2004 um 22:53 schrieb Darius:
> 
> >
> >
> > Shouldn't Squeak Map Package loader be in the tools flap in 
> full image?
> >
> >
> >
> >
> 
> I just looked at that: It seems that the tools are supposed 
> to register 
> themselves in the
> Tools flap.  The Package loader does not do that.
> 
> So this is a change that should be done in the package, I think.
> 
>         Marcus
> 
> 
-------------- next part --------------
'From Squeak3.7gamma of ''17 July 2004'' [latest update: #5978] on 25 July 2004 at 2:57:03 pm'!
"Change Set:		PackageLoaderOnToolsFlap
Date:			25 July 2004
Author:			Hern‡n Tylim

This cs just adds the PackageLoader to the Tools Flaps using the Flaps registry mechanism. 

The changes are a new SMLoader class method, #prototypalToolWindow which is the #open method but returns the window instance instead. This was required by the registry mechanism (also it was kind of copied from the Browser>>protypicalToolWindow). The other 2 changes were done to SMLoader class>>initialize and SMLoader class>>unload to register and unregister the quad as it is currently done for the 'Open...' menu."!


!SMLoader class methodsFor: 'interface opening' stamp: 'hpt 7/25/2004 14:41'!
prototypicalToolWindow
	"Answer an example of myself seen in a tool window, for the benefit of parts-launching tools"

	| aWindow |
	aWindow _ self new createWindow.
	aWindow openInWorld.
	^ aWindow! !

!SMLoader class methodsFor: 'menu registration' stamp: 'hpt 7/25/2004 14:47'!
initialize
	"Hook us up in the world menu and the Tools Flap."

	(Flaps respondsTo: #registerQuad:forFlapNamed:)
		ifTrue: [
		 Flaps registerQuad: #(SMLoader prototypicalToolWindow 'Package Loader' 'A Tool that lets you load external Squeak packages') forFlapNamed: 'Tools' translated.
		 Flaps replaceToolsFlap].
	 (TheWorldMenu respondsTo: #registerOpenCommand:)
         ifTrue: [
		TheWorldMenu registerOpenCommand: {'SqueakMap Package Loader'. {self. #open}}.
		TheWorldMenu unregisterOpenCommand: 'Package Loader'].
	DefaultFilters _ OrderedCollection new.
	DefaultCategoriesToFilterIds _ OrderedCollection new
! !

!SMLoader class methodsFor: 'menu registration' stamp: 'hpt 7/25/2004 14:49'!
unload
	(Flaps respondsTo: #registerQuad:forFlapNamed:) ifTrue:
		 [Flaps unregisterQuad: #(SMLoader prototypicalToolWindow 'Package Loader' 'A Tool that lets you load external Squeak packages') forFlapNamed: 'Tools' translated.
		Flaps replaceToolsFlap].
		
	(TheWorldMenu respondsTo: #registerOpenCommand:) ifTrue: 
		[TheWorldMenu unregisterOpenCommand: 'SqueakMap Package Loader'].! !

SMLoader initialize!