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"!
etoys-dev@lists.squeakfoundation.org