[etoys-dev] Etoys Inbox: EToysIMPORT-tfel.11.mcz

[commits at source.squeak.org]

Tim Felgentreff uploaded a new version of EToysIMPORT to project Etoys Inbox:
http://source.squeak.org/etoysinbox/EToysIMPORT-tfel.11.mcz

==================== Summary ====================

Name: EToysIMPORT-tfel.11
Author: tfel
Time: 28 July 2016, 5:50:38.233262 pm
UUID: 35bfd324-500b-c543-98a4-fa8cb300e84e
Ancestors: EToysIMPORT-tfel.10

another override for flaps

=============== Diff against EToysIMPORT-tfel.10 ===============

Item was added:
+ ----- Method: Flaps class>>addAndEnableEToyFlaps (in category '*EToysIMPORT-predefined flaps') -----
+ addAndEnableEToyFlaps
+ 	"Initialize the standard default out-of-box set of global flaps.  This method creates them and places them in my class variable #SharedFlapTabs, but does not itself get them displayed."
+ 
+ 	^ self addAndEnableEToyFlapsWithPreviousEntries: nil.
+ !

Item was changed:
  ----- Method: Flaps class>>addAndEnableEToyFlapsWithPreviousEntries: (in category '*EToysIMPORT-predefined flaps') -----
  addAndEnableEToyFlapsWithPreviousEntries: aCollection
  	"Initialize the standard default out-of-box set of global flaps.  This method creates them and places them in my class variable #SharedFlapTabs, but does not itself get them displayed."
  
  	| aSuppliesFlap |
  	SharedFlapTabs
  		ifNotNil: [^ self].
  	SharedFlapTabs _ OrderedCollection new.
  	aSuppliesFlap _ self newSuppliesFlapFromQuads: self quadsDefiningPlugInSuppliesFlap positioning: #right withPreviousEntries: aCollection.
  	aSuppliesFlap referent setNameTo: 'Supplies Flap' translated.  "Per request from Kim Rose, 7/19/02"
  	SharedFlapTabs add: aSuppliesFlap.  "The #center designation doesn't quite work at the moment"
  	Preferences sugarNavigator
  		ifTrue: [SharedFlapTabs add: self newSugarNavigatorFlap]
  		ifFalse: [SharedFlapTabs add: self newNavigatorFlap].
  	self enableGlobalFlapWithID: 'Supplies' translated.
  	Preferences sugarNavigator
  		ifTrue:
  			[self enableGlobalFlapWithID: 'Sugar Navigator Flap' translated.
  			(self globalFlapTabWithID: 'Sugar Navigator Flap' translated) ifNotNilDo:
+ 				[:navTab |
+ 					aSuppliesFlap sugarNavTab: navTab.
+ 					SugarNavigatorBar current hideNavBar; showNavBar]]
- 				[:navTab | aSuppliesFlap sugarNavTab: navTab]]
  		ifFalse: [self enableGlobalFlapWithID: 'Navigator' translated].
  
  	SharedFlapsAllowed _ true.
  	Project current flapsSuppressed: false.
  	^ SharedFlapTabs
  
  "Flaps addAndEnableEToyFlaps"!