'From etoys4.0 of 9 October 2008 [latest update: #2319] on 24 September 2009 at 9:17:42 pm'!
"Change Set:		lockNavBar-kks
Date:			24 September 2009
Author:			kks

Lock the Sugar Navigation Bar against accidental deletion"!


!Flaps class methodsFor: 'predefined flaps' stamp: 'kks 9/24/2009 21:04'!
newSugarNavigatorFlap

	| nav aFlapTab |
	nav _ (SugarNavigatorBar newWith: SugarLibrary default) addButtons.

	aFlapTab _ SugarNavTab new.
	aFlapTab setNameTo: 'Sugar Navigator Flap' translated.

	aFlapTab referent: nav.
	aFlapTab addMorph: nav.
	aFlapTab inboard: false.
	aFlapTab edgeToAdhereTo: #top.
	Preferences useArtificialSweetenerBar ifTrue: [nav configureForSqueakland].
	aFlapTab resistsRemoval: true.
	^ aFlapTab

"Flaps replaceGlobalFlapwithID: 'SugarNavigator' translated "
! !

"Postscript:"
SugarLibrary clearDefault.
Flaps disableGlobalFlaps: false.
Flaps enableEToyFlaps.
!