[squeak-dev] The Trunk: MorphicExtras-nice.207.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jun 10 15:53:04 UTC 2017


Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-nice.207.mcz

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

Name: MorphicExtras-nice.207
Author: nice
Time: 10 June 2017, 5:52:47.062634 pm
UUID: 157ef560-9a00-4d80-a341-9b1292a4cbae
Ancestors: MorphicExtras-nice.206

Massively replace ifNotNilDo: by ifNotNil:
We don't need two different selectors to do a single thing.

=============== Diff against MorphicExtras-nice.206 ===============

Item was changed:
  ----- Method: Flaps class>>addAndEnableEToyFlaps (in category '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."
  
  	| aSuppliesFlap |
  	SharedFlapTabs
  		ifNotNil: [^ self].
  	SharedFlapTabs := OrderedCollection new.
  
  	aSuppliesFlap := self newSuppliesFlapFromQuads: self quadsDefiningPlugInSuppliesFlap positioning: #right.
  	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"
  
  	(Smalltalk globals at: #SugarNavigatorBar ifPresent: [:c | c showSugarNavigator] ifAbsent: [false])
  		ifTrue: [SharedFlapTabs add: self newSugarNavigatorFlap]
  		ifFalse: [Preferences showProjectNavigator
  			ifTrue:[ SharedFlapTabs add: self newNavigatorFlap]].
  
  	self enableGlobalFlapWithID: 'Supplies' translated.
  
  	(Smalltalk globals at: #SugarNavigatorBar ifPresent: [:c | c showSugarNavigator] ifAbsent: [false])
  		ifTrue:
  			[self enableGlobalFlapWithID: 'Sugar Navigator Flap' translated.
+ 			(self globalFlapTabWithID: 'Sugar Navigator Flap' translated) ifNotNil:
- 			(self globalFlapTabWithID: 'Sugar Navigator Flap' translated) ifNotNilDo:
  				[:navTab | aSuppliesFlap sugarNavTab: navTab]]
  		ifFalse: [
  			Preferences showProjectNavigator
  				ifTrue:[ self enableGlobalFlapWithID: 'Navigator' translated]].
  
  	SharedFlapsAllowed := true.
  	Project current flapsSuppressed: false.
  	^ SharedFlapTabs
  
  "Flaps addAndEnableEToyFlaps"!



More information about the Squeak-dev mailing list