'From etoys2.1 of 8 August 2007 [latest update: #1547] on 12 August 2007 at 11:42:05 am'!
"Change Set:		useGetTextnoop2-KR
Date:			12 August 2007
Author:			Korakurider

apply #translatedNoop to bunch of classes for prototypes in flap"!


!BouncingAtomsMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:44'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#BouncingAtomsMorph, #new. 'Bouncing Atoms' translatedNoop. 'Atoms, mate' translatedNoop}
						forFlapNamed: 'Widgets']! !


!Browser class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:45'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#Browser. #prototypicalToolWindow. 'Browser' translatedNoop. 'A Browser is a tool that allows you to view all the code of all the classes in the system' translatedNoop}
						forFlapNamed: 'Tools']! !


!ChangeSorter class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:45'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#ChangeSorter.		#prototypicalToolWindow.		'Change Set'	 translatedNoop. 'A tool that allows you to view and manipulate all the code changes in a single change set' translatedNoop}
						forFlapNamed: 'Tools']! !


!ClockMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:46'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#ClockMorph,	#authoringPrototype.	'Clock' translatedNoop.			'A simple digital clock' translatedNoop}
						forFlapNamed: 'Supplies'.
						cl registerQuad: {#ClockMorph.	#authoringPrototype.	'Clock' translatedNoop. 'A simple digital clock' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.]! !


!DualChangeSorter class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:47'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#DualChangeSorter,		#prototypicalToolWindow.	'Change Sorter' translatedNoop.		'Shows two change sets side by side' translatedNoop}
						forFlapNamed: 'Tools']! !


!EllipseMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:47'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#EllipseMorph. #authoringPrototype. 'Ellipse'	 translatedNoop. 'An ellipse or circle' translatedNoop}
						forFlapNamed: 'Supplies'.
						cl registerQuad: {#EllipseMorph. #authoringPrototype. 'Ellipse' translatedNoop. 'An ellipse or circle' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.]! !


!FileList class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:06'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#FileList	. #prototypicalToolWindow, 'File List' translatedNoop.		'A File List is a tool for browsing folders and files on disks and on ftp types.' translatedNoop} 
						forFlapNamed: 'Tools']! !


!Flaps class methodsFor: 'flaps registry' stamp: 'KR 8/12/2007 10:28'!
defaultsQuadsDefiningScriptingFlap
	"Answer a structure defining the default items in the Scripting flap.
	previously in quadsDeiningScriptingFlap"

	^ {
	{#TrashCanMorph.		#new.							'Trash' translatedNoop. 	'A tool for discarding objects' translatedNoop}.	
	{#ScriptingSystem.		#scriptControlButtons.			'Status' translatedNoop.	'Buttons to run, stop, or single-step scripts' translatedNoop}.
	{#AllScriptsTool.			#allScriptsToolForActiveWorld.	'All Scripts' translatedNoop.	'A tool that lets you control all the running scripts in your world' translatedNoop}.
	{#ScriptingSystem.		#newScriptingSpace.		'Scripting' translatedNoop. 	'A confined place for drawing and scripting, with its own private stop/step/go buttons.' translatedNoop}.

	{#PaintInvokingMorph.	#new.		'Paint' translatedNoop.	'Drop this into an area to start making a fresh painting there' translatedNoop}.
	{#ScriptableButton.		#authoringPrototype.	'Button' translatedNoop.		'A Scriptable button' translatedNoop}.
	{#ScriptingSystem.		#prototypicalHolder.		'Holder' translatedNoop.		'A place for storing alternative pictures in an animation, etc.' translatedNoop}.
	{#FunctionTile.			#randomNumberTile.	'Random' translatedNoop.	'A tile that will produce a random number in a given range' translatedNoop}.
	{#ScriptingSystem.		#anyButtonPressedTiles.	'ButtonDown?' translatedNoop.	'Tiles for querying whether the mouse button is down' translatedNoop}.
	{#ScriptingSystem.		#noButtonPressedTiles.	'ButtonUp?' translatedNoop.		'Tiles for querying whether the mouse button is up' translatedNoop}.

	{#SimpleSliderMorph.	#authoringPrototype.	'Slider' translatedNoop.		'A slider for showing and setting numeric values.' translatedNoop}.
	{#JoystickMorph	.		#authoringPrototype.	'Joystick' translatedNoop.	'A joystick-like control' translatedNoop}.
	{#TextFieldMorph.		#exampleBackgroundField.	'Scrolling Field'	translatedNoop. 'A scrolling data field which will have a different value on every card of the background' translatedNoop}.

	{#PasteUpMorph.	#authoringPrototype.		'Playfield' translatedNoop.	'A place for assembling parts or for staging animations' translatedNoop}.


	{#StackMorph. 		#authoringPrototype.		'Stack' translatedNoop. 		'A multi-card data base'	translatedNoop}.
	{#TextMorph.		#exampleBackgroundLabel.	'Background Label' translatedNoop. 'A piece of text that will occur on every card of the background' translatedNoop}.
	{#TextMorph	.		#exampleBackgroundField.	'Background Field' translatedNoop. 'A  data field which will have a different value on every card of the background' translatedNoop}
} asOrderedCollection! !

!Flaps class methodsFor: 'flaps registry' stamp: 'KR 8/12/2007 10:30'!
defaultsQuadsDefiningStackToolsFlap
	"Answer a structure defining the items on the default system Stack Tools flap.
	previously in quadsDefiningStackToolsFlap"

	^ {
	{#StackMorph. 		#authoringPrototype.	'Stack' translatedNoop. 				'A multi-card data base'	translatedNoop}.
	{#StackMorph.		#stackHelpWindow.		'Stack Help'	translatedNoop.		'Some hints about how to use Stacks' translatedNoop}.
	{#TextMorph	.		#authoringPrototype.	'Simple Text' translatedNoop.		'Text that you can edit into anything you wish' translatedNoop}.
	{#TextMorph	.		#fancyPrototype.		'Fancy Text' translatedNoop. 		'A text field with a rounded shadowed border, with a fancy font.' translatedNoop}.
	{#ScrollableField.	#newStandAlone.		'Scrolling Text' translatedNoop.		'Holds any amount of text; has a scroll bar' translatedNoop}.
	{#ScriptableButton.	#authoringPrototype.	'Scriptable Button' translatedNoop.	'A button whose script will be a method of the background Player' translatedNoop}.
	{#StackMorph.		#previousCardButton. 	'Previous Card' translatedNoop. 		'A button that takes the user to the previous card in the stack' translatedNoop}.
	{#StackMorph.		#nextCardButton.		'Next Card' translatedNoop.			'A button that takes the user to the next card in the stack' translatedNoop} } asOrderedCollection
! !

!Flaps class methodsFor: 'flaps registry' stamp: 'KR 8/12/2007 10:33'!
defaultsQuadsDefiningSuppliesFlap
	"Answer a list of quads which define the objects to appear in the default Supplies flap.
	previously in quadsDefiningSuppliesFlap"

	^ {
	{#RectangleMorph. 	#authoringPrototype.		'Rectangle' 	translatedNoop.	'A rectangle' translatedNoop}.
	{#RectangleMorph.	#roundRectPrototype.		'RoundRect' translatedNoop.		'A rectangle with rounded corners' translatedNoop}.
	{#EllipseMorph.		#authoringPrototype.		'Ellipse' translatedNoop.			'An ellipse or circle' translatedNoop}.
	{#StarMorph.		#authoringPrototype.		'Star' translatedNoop.			'A star' translatedNoop}.
	{#CurveMorph.		#authoringPrototype.		'Curve' translatedNoop.			'A curve' translatedNoop}.
	{#PolygonMorph.	#authoringPrototype.		'Polygon' translatedNoop.		'A straight-sided figure with any number of sides' translatedNoop}.
	{#TextMorph	.		#boldAuthoringPrototype.	'Text' translatedNoop.			'Text that you can edit into anything you desire.' translatedNoop}.
	{#ScriptingSystem.	#prototypicalHolder. 		'Holder' translatedNoop.			'A place for storing alternative pictures in an animation, etc.' translatedNoop}.
	{#ImageMorph.		#authoringPrototype.		'Picture' translatedNoop.		'A non-editable picture of something' translatedNoop}.
	{#ScriptableButton.	#authoringPrototype.		'Button' translatedNoop.			'A Scriptable button' translatedNoop}.
	{#SimpleSliderMorph.	#authoringPrototype.	'Slider' translatedNoop.			'A slider for showing and setting numeric values.' translatedNoop}.
	{#PasteUpMorph.	#authoringPrototype.		'Playfield' translatedNoop.		'A place for assembling parts or for staging animations' translatedNoop}.
	{#BookMorph.		#authoringPrototype.		'Book' translatedNoop.			'A multi-paged structure' translatedNoop}.
	{#TabbedPalette.		#authoringPrototype.		'TabbedPalette' translatedNoop.	'A structure with tabs' translatedNoop}.
	{#JoystickMorph	.	#authoringPrototype.		'Joystick' translatedNoop.		'A joystick-like control' translatedNoop}.
	{#ClockMorph.		#authoringPrototype.		'Clock' translatedNoop.			'A simple digital clock' translatedNoop}.
	{#BookMorph.		#previousPageButton. 		'PreviousPage' translatedNoop.	'A button that takes you to the previous page' translatedNoop}.
	{#BookMorph.		#nextPageButton.			'NextPage' translatedNoop.		'A button that takes you to the next page' translatedNoop}
} asOrderedCollection! !

!Flaps class methodsFor: 'flaps registry' stamp: 'KR 8/12/2007 10:37'!
defaultsQuadsDefiningToolsFlap
	"Answer a structure defining the default Tools flap.
	previously in quadsDefiningToolsFlap"

	^ OrderedCollection new
	addAll: {
	{#Browser. 		#prototypicalToolWindow.	'Browser'  translatedNoop.	'A Browser is a tool that allows you to view all the code of all the classes in the system' translatedNoop}.
	{#TranscriptStream.		#openMorphicTranscript.		'Transcript'  translatedNoop.		'A Transcript is a window usable for logging and debugging; browse references to #Transcript for examples of how to write to it.' translatedNoop}.
	{#Workspace.	#prototypicalToolWindow	.	'Workspace'  translatedNoop.		'A Workspace is a simple window for editing text.  You can later save the contents to a file if you desire.' translatedNoop}};
		add: { Preferences useFileList2 ifTrue: [ #FileList2 ] ifFalse: [ #FileList ].
				#prototypicalToolWindow.
				'File List' translatedNoop.
				'A File List is a tool for browsing folders and files on disks and FTP servers.' translatedNoop };
	addAll: {
	{#DualChangeSorter.		#prototypicalToolWindow.	'Change Sorter' translatedNoop.	'Shows two change sets side by side' translatedNoop}.
	{#SelectorBrowser,		#prototypicalToolWindow.	'Method Finder' translatedNoop.	'A tool for discovering methods by providing sample values for arguments and results' translatedNoop}.
	{#MessageNames	.	#prototypicalToolWindow	.	'Message Names' translatedNoop.		'A tool for finding, viewing, and editing all methods whose names contain a given character sequence.' translatedNoop}.
	{#Preferences.		#preferencesControlPanel.	'Preferences' translatedNoop.		'Allows you to control numerous options' translatedNoop}.
	{#Utilities.			#recentSubmissionsWindow.	'Recent' translatedNoop.				'A message browser that tracks the most recently-submitted methods' translatedNoop}.
	{#ProcessBrowser.	#prototypicalToolWindow.	'Processes' translatedNoop.		'A Process Browser shows you all the running processes' translatedNoop}.
	{#Preferences.		#annotationEditingWindow.	'Annotations' translatedNoop.	'Allows you to specify the annotations to be shown in the annotation panes of browsers, etc.' translatedNoop}.
	{#Scamper.			#newOpenableMorph.	'Scamper' translatedNoop.			'A web browser' translatedNoop}.
	{#Celeste.			#newOpenableMorph.	'Celeste' translatedNoop.				'Celeste -- an EMail reader' translatedNoop}.
	{#PackagePaneBrowser.	#prototypicalToolWindow	.	'Packages' translatedNoop.	'Package Browser:  like a System Browser, except that if has extra level of categorization in the top-left pane, such that class-categories are further organized into groups called "packages"' translatedNoop}.
	{#ChangeSorter.		#prototypicalToolWindow.	'Change Set' translatedNoop.		'A tool that allows you to view and manipulate all the code changes in a single change set' translatedNoop}};
		yourself! !

!Flaps class methodsFor: 'predefined flaps' stamp: 'KR 8/12/2007 11:19'!
defaultsQuadsDefiningPlugInSuppliesFlap
	"Answer a list of quads which define the objects to appear in the default Supplies flap used in the Plug-in image"
	^  {
	{#ObjectsTool. #newStandAlone. 'Object Catalog' translatedNoop. 'A tool that lets you browse the catalog of available objects' translatedNoop}.
	{#AllScriptsTool. #AllScriptsToolForActiveWorld. 'All Scripts' translatedNoop. 'Stop, Step, and Go buttons for controlling all your scripts at once.  The tool can also be "opened up" to control each script in your project individually.' translatedNoop}.
	{#AllPlayersTool. #allPlayersToolForActiveWorld. 'Players' translatedNoop. 'A tool listing all the scripted objects in the project.' translatedNoop}.
	{#TrashCanMorph. #new	. 'Trash' translatedNoop. 'A tool for discarding objects' translatedNoop}.
	{#TextMorph	. #boldAuthoringPrototype. 'Text' translatedNoop.	'Text that you can edit into anything you desire.' translatedNoop}.
	{#RecordingControls. #authoringPrototype. 'Sound Recorder' translatedNoop. 'A device for making sound recordings.' translatedNoop}.
	{#RectangleMorph. #authoringPrototype. 'Rectangle' translatedNoop. 'A rectangle' translatedNoop}.
	{#EllipseMorph, #authoringPrototype	, 'Ellipse' translatedNoop, 'An ellipse or circle' translatedNoop}.
	{#StarMorph. #authoringPrototype. 'Star' translatedNoop. 'A star' translatedNoop}.
	{#ScriptableButton. #authoringPrototype. 'Button' translatedNoop. 'A Scriptable button' translatedNoop}.
	{#BookMorph. #authoringPrototype. 'Book' translatedNoop. 'A multi-paged structure' translatedNoop}.
	{#ScriptingSystem. #prototypicalHolder. 'Holder' translatedNoop. 'A place for storing alternative pictures in an animation, etc.' translatedNoop}.
	{#JoystickMorph	. #authoringPrototype. 'Joystick' translatedNoop. 'A joystick-like control' translatedNoop}.
	{#PasteUpMorph. #authoringPrototype. 'Playfield' translatedNoop. 'A place for assembling parts or for staging animations' translatedNoop}
} asOrderedCollection! !

!Flaps class methodsFor: 'predefined flaps' stamp: 'KR 8/12/2007 10:52'!
newLoneSuppliesFlap
	"Answer a fully-instantiated flap named 'Supplies' to be placed at the bottom of the screen, for use when it is the only flap shown upon web launch"

	|  aFlapTab aStrip leftEdge |  "Flaps setUpSuppliesFlapOnly"
	aStrip _ PartsBin newPartsBinWithOrientation: #leftToRight andColor: Color red muchLighter from:	 {

	{#TrashCanMorph. #new	. 'Trash' translatedNoop. 'A tool for discarding objects' translatedNoop}.	
	{#ScriptingSystem. #scriptControlButtons. 'Status'	translatedNoop. 'Buttons to run, stop, or single-step scripts' translatedNoop}.
	{#AllScriptsTool.    #allScriptsToolForActiveWorld. 'All Scripts' translatedNoop. 'A tool that lets you control all the running scripts in your world' translatedNoop}.

	{#PaintInvokingMorph. #new. 'Paint' translatedNoop.	'Drop this into an area to start making a fresh painting there' translatedNoop}.
	{#RectangleMorph. #authoringPrototype. 'Rectangle' translatedNoop. 'A rectangle' translatedNoop}.
	{#RectangleMorph. #roundRectPrototype. 'RoundRect'	 translatedNoop. 'A rectangle with rounded corners' translatedNoop}.
	{#EllipseMorph.	#authoringPrototype.	'Ellipse' translatedNoop. 'An ellipse or circle' translatedNoop}.
	{#StarMorph. 	#authoringPrototype.	'Star' translatedNoop. 	'A star' translatedNoop}.
	{#CurveMorph.	#authoringPrototype.	'Curve'	translatedNoop. 'A curve' translatedNoop}.
	{#PolygonMorph	. #authoringPrototype.	'Polygon' translatedNoop. 'A straight-sided figure with any number of sides' translatedNoop}.
	{#TextMorph	.	#authoringPrototype. 	'Text' translatedNoop.	'Text that you can edit into anything you desire.' translatedNoop}.
	{#SimpleSliderMorph	.	#authoringPrototype.	'Slider' translatedNoop.	'A slider for showing and setting numeric values.' translatedNoop}.
	{#JoystickMorph	.	#authoringPrototype.	'Joystick' translatedNoop. 	'A joystick-like control' translatedNoop}.
	{#ScriptingSystem.	#prototypicalHolder.		'Holder'	translatedNoop.		'A place for storing alternative pictures in an animation, etc.' translatedNoop}.
	{#ScriptableButton.	#authoringPrototype.	'Button'	 translatedNoop.		'A Scriptable button' translatedNoop}.
	{#PasteUpMorph.	#authoringPrototype.	'Playfield' translatedNoop.	'A place for assembling parts or for staging animations' translatedNoop}.
	{#BookMorph.		#authoringPrototype.	'Book' translatedNoop.		'A multi-paged structure' translatedNoop}.
	{#TabbedPalette.		#authoringPrototype.	'Tabs' translatedNoop.		'A structure with tabs' translatedNoop}.

	{#RecordingControls.	#authoringPrototype.	'Sound Recorder' translatedNoop. 'A device for making sound recordings.' translatedNoop}.
	{#MagnifierMorph.	#newRound	.			'Magnifier' translatedNoop.		'A magnifying glass' translatedNoop}.

	{#ImageMorph.		#authoringPrototype.	'Picture' translatedNoop. 	'A non-editable picture of something' translatedNoop}.
	{#ClockMorph.		#authoringPrototype,	'Clock' translatedNoop, 	'A simple digital clock' translatedNoop}.
	{#BookMorph,		#previousPageButton,	'Previous' translatedNoop, 'A button that takes you to the previous page' translatedNoop}.
	{#BookMorph,		#nextPageButton,		'Next' translatedNoop,	'A button that takes you to the next page' translatedNoop}.
}.

	aFlapTab _ FlapTab new referent: aStrip beSticky.
	aFlapTab setName: 'Supplies' translated edge: #bottom color: Color red lighter.

	aStrip extent: self currentWorld width @ 78.
	leftEdge _ ((Display width - (16  + aFlapTab width)) + 556) // 2.

	aFlapTab position: (leftEdge @ (self currentWorld height - aFlapTab height)).

	aStrip beFlap: true.
	aStrip autoLineLayout: true.
	
	^ aFlapTab! !

!Flaps class methodsFor: '*green' stamp: 'KR 8/12/2007 10:39'!
defaultsQuadsDefiningWidgetsFlap
	"Answer a structure defining the default Widgets flap.
     previously in quadsDefiningWidgetsFlap"

	^ {
	{#TrashCanMorph. #new	. 'Trash' translatedNoop. 'A tool for discarding objects' translatedNoop}.
	{#AllScriptsTool. #allScriptsToolForActiveWorld. 'All Scripts' translatedNoop. 'A tool that lets you see and control all the running scripts in your project' translatedNoop}.
	{#ObjectsTool. #newStandAlone. 'Object Catalog' translatedNoop. 'A tool that lets you browse the catalog of objects' translatedNoop}.
	{#PaintInvokingMorph. #new. 'Paint' translatedNoop. 'Drop this into an area to start making a fresh painting there' translatedNoop}.
	{#GeeMailMorph	. #new. 'Gee-Mail' translatedNoop. 'A place to present annotated content' translatedNoop}.
	{#RecordingControls. #authoringPrototype. 'Sound' translatedNoop. 'A device for making sound recordings.' translatedNoop}.
	{#MPEGMoviePlayerMorph. #authoringPrototype. 'Movie Player' translatedNoop. 'A Player for MPEG movies' translatedNoop}.
	{#FrameRateMorph. #authoringPrototype	. 'Frame Rate' translatedNoop. 'An indicator of how fast your system is running' translatedNoop}.
	{#MagnifierMorph. #newRound. 'Magnifier' translatedNoop. 'A magnifying glass' translatedNoop}.
	{#ScriptingSystem. #newScriptingSpace. 'Scripting' translatedNoop. 'A confined place for drawing and scripting. with its own private stop/step/go buttons.' translatedNoop}.
	{#ScriptingSystem. #holderWithAlphabet. 'Alphabet' translatedNoop. 'A source for single-letter objects' translatedNoop}.
	{#BouncingAtomsMorph. #new. 'Bouncing Atoms' translatedNoop.	'Atoms, mate' translatedNoop}.
	{#ClockMorph. #authoringPrototype. 'Clock' translatedNoop. 'A simple digital clock' translatedNoop}

	} asOrderedCollection! !


!FrameRateMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:52'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#FrameRateMorph. #authoringPrototype. 'Frame Rate' translatedNoop.		'An indicator of how fast your system is running' translatedNoop}
						forFlapNamed: 'Widgets']! !


!ImageMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:53'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#ImageMorph. #authoringPrototype. 'Picture' translatedNoop. 'A non-editable picture of something' translatedNoop} 
						forFlapNamed: 'Supplies']! !


!JoystickMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:53'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#JoystickMorph. #authoringPrototype. 'Joystick' translatedNoop. 'A joystick-like control' translatedNoop} 
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#JoystickMorph	. #authoringPrototype. 'Joystick' translatedNoop. 'A joystick-like control' translatedNoop} 
						forFlapNamed: 'Scripting'.
						cl registerQuad: {#JoystickMorph	. #authoringPrototype. 'Joystick' translatedNoop. 'A joystick-like control' translatedNoop}
						forFlapNamed: 'Supplies']! !


!MagnifierMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:07'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#MagnifierMorph. #newRound. 'Magnifier' translatedNoop.	'A magnifying glass' translatedNoop}
						forFlapNamed: 'Widgets']! !


!MessageNames class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:53'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#MessageNames.		#prototypicalToolWindow.	'Message Names' translatedNoop.		'A tool for finding, viewing, and editing all methods whose names contain a given character sequence.' translatedNoop}
						forFlapNamed: 'Tools']! !


!NCEllipseMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:09'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#EllipseMorph. #authoringPrototype. 'Ellipse' translatedNoop.		'An ellipse or circle' translatedNoop}
						forFlapNamed: 'Supplies'.
						cl registerQuad: {#EllipseMorph. #authoringPrototype.	'Ellipse' translatedNoop.		'An ellipse or circle' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.]! !


!ObjectsTool methodsFor: 'major modes' stamp: 'KR 8/12/2007 10:18'!
modeTabs
	"Answer a list of buttons which, when hit, will trigger the choice of mode of the receiver"

	| buttonList aButton tupleList |
	tupleList _  {

		{'alphabetic' translatedNoop. #alphabetic.	#showAlphabeticTabs.		'A separate tab for each letter of the alphabet' translatedNoop}.
		{'find' translatedNoop.		  #search.		#showSearchPane.		'Provides a type-in pane allowing you to match' translatedNoop}.
		{'categories' translatedNoop.	#categories.	#showCategories.		'Grouped by category' translatedNoop}

		"('standard'		standard	showStandardPane		'Standard Squeak tools supplies for building')"
}.
				
	buttonList _ tupleList collect:
		[:tuple |
			aButton _ SimpleButtonMorph new label: tuple first translated font: Preferences standardButtonFont.
			aButton actWhen: #buttonUp.
			aButton setProperty: #modeSymbol toValue: tuple second.
			aButton target: self; actionSelector: tuple third.
			aButton setBalloonText: tuple fourth translated.
			aButton].
	^ buttonList

"ObjectsTool new modeTabs"! !


!PackagePaneBrowser class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:54'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#PackagePaneBrowser. #prototypicalToolWindow	.	'Packages' translatedNoop.		'Package Browser:  like a System Browser, except that if has extra level of categorization in the top-left pane, such that class-categories are further organized into groups called "packages"' translatedNoop}
						forFlapNamed: 'Tools']! !


!PaintInvokingMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:55'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#PaintInvokingMorph. #new	. 'Paint' translatedNoop. 'Drop this into an area to start making a fresh painting there' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#PaintInvokingMorph. #new. 'Paint' translatedNoop. 'Drop this into an area to start making a fresh painting there' translatedNoop}
						forFlapNamed: 'Widgets'.
						cl registerQuad: {#PaintInvokingMorph. #new. 'Paint' translatedNoop. 'Drop this into an area to start making a fresh painting there' translatedNoop}
						forFlapNamed: 'Scripting']! !


!PasteUpMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:55'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#PasteUpMorph. #authoringPrototype. 'Playfield'	 translatedNoop. 'A place for assembling parts or for staging animations' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#PasteUpMorph. #authoringPrototype. 'Playfield' translatedNoop. 'A place for assembling parts or for staging animations' translatedNoop}
						forFlapNamed: 'Supplies'.
						cl registerQuad: {#PasteUpMorph. #authoringPrototype. 'Playfield' translatedNoop. 'A place for assembling parts or for staging animations' translatedNoop}
						forFlapNamed: 'Scripting']! !


!PolygonMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:56'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#PolygonMorph. #authoringPrototype. 'Polygon'	translatedNoop. 'A straight-sided figure with any number of sides' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#PolygonMorph. #authoringPrototype. 'Polygon'	translatedNoop. 'A straight-sided figure with any number of sides' translatedNoop}
						forFlapNamed: 'Supplies'.]! !


!CurveMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:46'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#CurveMorph, #authoringPrototype. 'Curve'	translatedNoop, 'A curve' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#CurveMorph. #authoringPrototype. 'Curve'	 translatedNoop. 'A curve' translatedNoop}
						forFlapNamed: 'Supplies'.]! !


!Preferences class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:56'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#Preferences. #preferencesControlPanel.	'Preferences' translatedNoop.	'Allows you to control numerous options' translatedNoop}
						forFlapNamed: 'Tools'.
						cl registerQuad: {#Preferences. #annotationEditingWindow.	'Annotations' translatedNoop.		'Allows you to specify the annotations to be shown in the annotation panes of browsers, etc.' translatedNoop}
						forFlapNamed: 'Tools'.]! !


!ProcessBrowser class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:56'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | 	cl registerQuad: {#ProcessBrowser. #prototypicalToolWindow.	'Processes' translatedNoop.			'A Process Browser shows you all the running processes' translatedNoop}
						forFlapNamed: 'Tools'.]! !


!ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 8/12/2007 00:08'!
buttonQuit

	^self makeButton: 'QUIT' balloonText: ('Quit Squeak altogether' translatedNoop) for: #quitSqueak
! !

!ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 8/12/2007 00:01'!
buttonUndo
	"Build and return a fresh Undo button for me."

	^ self makeUpdatingButtonWithBalloonText:  ('Undo or redo the last undoable action' translatedNoop) actionSelector: #undoOrRedoLastCommand wordingSelector: #undoButtonWording

! !


!RectangleMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:57'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#RectangleMorph, #roundRectPrototype, 'RoundRect'	translatedNoop. 'A rectangle with rounded corners' translatedNoop}
						forFlapNamed: 'Supplies'.
						cl registerQuad: {#RectangleMorph. #authoringPrototype. 'Rectangle' 	translatedNoop. 'A rectangle' translatedNoop}
						forFlapNamed: 'Supplies'.
						cl registerQuad: {#RectangleMorph. #roundRectPrototype. 'RoundRect'	 translatedNoop. 'A rectangle with rounded corners' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#RectangleMorph. #authoringPrototype. 'Rectangle' 	translatedNoop. 'A rectangle' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.]! !


!AllScriptsTool class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:43'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#AllScriptsTool. #allScriptsToolForActiveWorld.	'All Scripts' translatedNoop. 'A tool that lets you see and control all the running scripts in your project' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#AllScriptsTool. #allScriptsToolForActiveWorld. 'All Scripts' translatedNoop. 'A tool that lets you control all the running scripts in your world' translatedNoop}
						forFlapNamed: 'Scripting'.
						cl registerQuad: {#AllScriptsTool. #allScriptsToolForActiveWorld. 'All Scripts' translatedNoop. 'A tool that lets you see and control all the running scripts in your project' translatedNoop}
						forFlapNamed: 'Widgets']! !


!BookMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:44'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#BookMorph	. #nextPageButton. 'NextPage' translatedNoop. 'A button that takes you to the next page' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#BookMorph. #previousPageButton. 'PreviousPage' translatedNoop. 'A button that takes you to the previous page' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#BookMorph. #authoringPrototype. 'Book' translatedNoop. 'A multi-paged structure' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#BookMorph. #nextPageButton. 'NextPage' translatedNoop. 'A button that takes you to the next page' translatedNoop}
						forFlapNamed: 'Supplies'.
						cl registerQuad: {#BookMorph. #previousPageButton. 'PreviousPage' translatedNoop. 'A button that takes you to the previous page' translatedNoop}
						forFlapNamed: 'Supplies'.
						cl registerQuad: {#BookMorph. #authoringPrototype. 'Book' translatedNoop. 'A multi-paged structure' translatedNoop}
						forFlapNamed: 'Supplies']! !


!MPEGMoviePlayerMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:54'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#MPEGMoviePlayerMorph. #authoringPrototype.		'Movie Player' translatedNoop.		'A Player for MPEG movies' translatedNoop}
						forFlapNamed: 'Widgets']
! !


!ObjectsTool class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:54'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#ObjectsTool.	 #newStandAlone. 'Object Catalog' translatedNoop. 'A tool that lets you browse the catalog of objects' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#ObjectsTool	. #newStandAlone. 'Object Catalog' translatedNoop.'A tool that lets you browse the catalog of objects' translatedNoop}
						forFlapNamed: 'Widgets'.]! !


!RandomNumberTile class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:10'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry.  Or, now that this class is disused, do not..."

	true ifTrue: [^ self].

	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#RandomNumberTile.	#new.	'Random' translatedNoop.		'A random-number tile for use with tile scripting' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#RandomNumberTile. #new.	 'Random' translatedNoop.		'A tile that will produce a random number in a given range' translatedNoop}
						forFlapNamed: 'Scripting'.]! !


!RecordingControls class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:57'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#RecordingControls. #authoringPrototype.	'Sound Recorder' translatedNoop. 'A device for making sound recordings.' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#RecordingControls. #authoringPrototype. 'Sound Recorder' translatedNoop. 'A device for making sound recordings.' translatedNoop}
						forFlapNamed: 'Widgets'.]! !


!RecordingControlsMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:12'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#RecordingControlsMorph.	#authoringPrototype.	'Sound' translatedNoop. 	'A device for making sound recordings.' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#RecordingControlsMorph.	#authoringPrototype.	'Sound' translatedNoop.	'A device for making sound recordings.'}
						forFlapNamed: 'Widgets'.]! !


!Scamper class methodsFor: 'initialization' stamp: 'KR 8/12/2007 00:00'!
initialize
	"Initialize the class"

	self StartUrl: 'browser:about'.
	FileList registerFileReader: self.
	self registerInOpenMenu.
	WebBrowser register: self.
	
	Flaps registerQuad: { #Scamper. #newOpenableMorph. 'Scamper' translatedNoop. 'A web browser' translatedNoop } forFlapNamed: 'Tools'.! !


!ScriptableButton class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:58'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#ScriptableButton. #authoringPrototype. 'Button' translatedNoop. 'A Scriptable button' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#ScriptableButton. #authoringPrototype.	'Button' translatedNoop. 	'A Scriptable button' translatedNoop}
						forFlapNamed: 'Scripting'.
						cl registerQuad: {#ScriptableButton. #authoringPrototype. 'Scriptable Button' translatedNoop. 'A button whose script will be a method of the background Player' translatedNoop}
						forFlapNamed: 'Stack Tools'.
						cl registerQuad: {#ScriptableButton. #authoringPrototype. 'Button' translatedNoop. 'A Scriptable button' translatedNoop}
						forFlapNamed: 'Supplies'.]! !


!ScrollableField class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:58'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#ScrollableField. #newStandAlone. 'Scrolling Text' translatedNoop. 'Holds any amount of text; has a scroll bar' translatedNoop}
						forFlapNamed: 'Stack Tools'.]! !


!SelectorBrowser class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:58'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#SelectorBrowser. #prototypicalToolWindow. 'Method Finder' translatedNoop.		'A tool for discovering methods by providing sample values for arguments and results' translatedNoop}
						forFlapNamed: 'Tools']
! !


!SimpleSliderMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 10:58'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#SimpleSliderMorph. #authoringPrototype. 'Slider' translatedNoop. 'A slider for showing and setting numeric values.' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#SimpleSliderMorph. #authoringPrototype. 'Slider' translatedNoop. 'A slider for showing and setting numeric values.' translatedNoop}
						forFlapNamed: 'Supplies'.
						cl registerQuad: {#SimpleSliderMorph. #authoringPrototype. 'Slider' translatedNoop. 'A slider for showing and setting numeric values.' translatedNoop}
						forFlapNamed: 'Scripting']! !


!StackMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:13'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#StackMorph. #authoringPrototype. 'Stack' translatedNoop. 'A multi-card data base' translatedNoop}	
						forFlapNamed: 'Scripting'.
						cl registerQuad: {#StackMorph. #authoringPrototype. 'Stack' translatedNoop. 'A multi-card data base' translatedNoop}
						forFlapNamed: 'Stack Tools'.
						cl registerQuad: {#StackMorph. #stackHelpWindow. 'Stack Help' translatedNoop. 'Some hints about how to use Stacks' translatedNoop}
						forFlapNamed: 'Stack Tools'.
						cl registerQuad: {#StackMorph. #previousCardButton. 'Previous Card' translatedNoop. 'A button that takes the user to the previous card in the stack' translatedNoop}
						forFlapNamed: 'Stack Tools'.
						cl registerQuad: {#StackMorph. #nextCardButton. 'Next Card' translatedNoop. 'A button that takes the user to the next card in the stack' translatedNoop}
						forFlapNamed: 'Stack Tools']! !


!StandardScriptingSystem class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:00'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#ScriptingSystem.	#prototypicalHolder.	'Holder'	 translatedNoop.	'A place for storing alternative pictures in an animation, etc.' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#ScriptingSystem.	#prototypicalHolder.	'Holder' translatedNoop.	'A place for storing alternative pictures in an animation, etc.' translatedNoop}
						forFlapNamed: 'Supplies'.
						cl registerQuad: {#ScriptingSystem.	#newScriptingSpace.	'Scripting' translatedNoop.	'A confined place for drawing and scripting, with its own private stop/step/go buttons.' translatedNoop}
						forFlapNamed: 'Widgets'.
						cl registerQuad: {#ScriptingSystem.	#holderWithAlphabet.	'Alphabet' translatedNoop. 'A source for single-letter objects' translatedNoop}
						forFlapNamed: 'Widgets'.]! !


!StarMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:00'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#StarMorph. #authoringPrototype. 'Star' translatedNoop. 'A star' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#StarMorph. #authoringPrototype. 'Star' translatedNoop. 'A star' translatedNoop}
						forFlapNamed: 'Supplies'.]! !


!StickyPadMorph class methodsFor: 'as yet unclassified' stamp: 'KR 8/12/2007 11:15'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#StickyPadMorph.	#newStandAlone.	'Sticky Pad' translatedNoop. 'Each time you obtain one of these pastel, translucent, borderless rectangles, it will be a different color from the previous time.' translatedNoop}
						forFlapNamed: 'Supplies'.
				cl registerQuad: {#StickyPadMorph. #newStandAlone.	'Sticky Pad' translatedNoop.		'Each time you obtain one of these pastel, translucent, borderless rectangles, it will be a different color from the previous time.' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.]! !


!TestRunner class methodsFor: 'new-morph participation' stamp: 'KR 8/12/2007 11:15'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | (cl respondsTo: #registerQuad:forFlapNamed:)
				ifTrue: [cl registerQuad: {#TestRunner. #prototypicalToolWindow. 'Test Runner' translatedNoop. 'The SUnit Test Runner' translatedNoop} forFlapNamed: 'Tools']]! !


!TextFieldMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:16'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#TextFieldMorph. #exampleBackgroundField. 'Scrolling Field' translatedNoop. 'A scrolling data field which will have a different value on every card of the background' translatedNoop}
						forFlapNamed: 'Scripting'.]! !


!TextMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:01'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#TextMorph. #authoringPrototype. 'Text' translatedNoop. 'Text that you can edit into anything you desire.' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#TextMorph	. #exampleBackgroundLabel. 'Background Label' translatedNoop. 'A piece of text that will occur on every card of the background' translatedNoop}
						forFlapNamed: 'Scripting'.
						cl registerQuad: {#TextMorph	. #exampleBackgroundField. 'Background Field' translatedNoop. 'A  data field which will have a different value on every card of the background' translatedNoop}
						forFlapNamed: 'Scripting'.
						cl registerQuad: {#TextMorph	. #authoringPrototype. 'Simple Text'	translatedNoop. 'Text that you can edit into anything you wish' translatedNoop}
						forFlapNamed: 'Stack Tools'.
						cl registerQuad: {#TextMorph	. #fancyPrototype. 'Fancy Text' 	translatedNoop. 'A text field with a rounded shadowed border, with a fancy font.' translatedNoop}
						forFlapNamed: 'Stack Tools'.
						cl registerQuad: {#TextMorph	. #authoringPrototype. 'Text' translatedNoop. 'Text that you can edit into anything you desire.' translatedNoop}
						forFlapNamed: 'Supplies'.]! !


!TranscriptStream class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:01'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#TranscriptStream. #openMorphicTranscript.	'Transcript' translatedNoop.			'A Transcript is a window usable for logging and debugging; browse references to #Transcript for examples of how to write to it.' translatedNoop}
						forFlapNamed: 'Tools']
! !


!TrashCanMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:02'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#TrashCanMorph. #new. 'Trash' translatedNoop. 'A tool for discarding objects' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.
						cl registerQuad: {#TrashCanMorph. #new. 'Trash'	 translatedNoop. 'A tool for discarding objects' translatedNoop}
						forFlapNamed: 'Widgets'.
						cl registerQuad: {#TrashCanMorph. #new. 'Trash' translatedNoop. 'A tool for discarding objects' translatedNoop}
						forFlapNamed: 'Scripting']! !


!Utilities class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:02'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#Utilities. #recentSubmissionsWindow. 	'Recent' translatedNoop.		'A message browser that tracks the most recently-submitted methods' translatedNoop}
						forFlapNamed: 'Tools'.]! !


!Workspace class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:02'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#Workspace. #prototypicalToolWindow.	 'Workspace' translatedNoop.		'A Workspace is a simple window for editing text.  You can later save the contents to a file if you desire.' translatedNoop}						forFlapNamed: 'Tools'.]! !


!WsPhonePadMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:18'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#WsPhonePadMorph	.	#authoringPrototype.		'PhonePad' translatedNoop. 'A device for dialing by tone.'}
						forFlapNamed: 'Widgets'.
						cl registerQuad: {#WsPhonePadMorph.	#authoringPrototype.		'PhonePad' translatedNoop. 'A device for dialing by tone.'}
						forFlapNamed: 'PlugIn Supplies'.]! !


!WsWorldStethoscopeMorph class methodsFor: 'class initialization' stamp: 'KR 8/12/2007 11:19'!
registerInFlapsRegistry
	"Register the receiver in the system's flaps registry"
	self environment
		at: #Flaps
		ifPresent: [:cl | cl registerQuad: {#WsWorldStethoscopeMorph. #authoringPrototype.		'WorldStethoscope' translatedNoop. 'A device for analyzing phenomena as sounds'}
						forFlapNamed: 'Widgets'.
						cl registerQuad: {#WsWorldStethoscopeMorph.	#authoringPrototype.	'WorldStethoscope' translatedNoop.		'A device for analyzing phenomena as sounds' translatedNoop}
						forFlapNamed: 'PlugIn Supplies'.]! !

Scamper initialize!