Etoys Inbox: EToysIMPORT-tfel.11.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Etoys Inbox: EToysIMPORT-tfel.11.mcz

commits-2
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 mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev
Loading...