[etoys-dev] Etoys: Connectors-kfr.193.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Connectors to project Etoys:
http://source.squeak.org/etoys/Connectors-kfr.193.mcz

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

Name: Connectors-kfr.193
Author: kfr
Time: 28 August 2011, 1:27:25 am
UUID: 4df7457d-fd24-f440-8242-c9ceb7c932fa
Ancestors: Connectors-kfr.192

http://tracker.squeakland.org/browse/SQ-977

=============== Diff against Connectors-kfr.192 ===============

Item was changed:
  ----- Method: NCAAConnectorMorph class>>supplementaryPartsDescriptions (in category 'new-morph participation') -----
  supplementaryPartsDescriptions
  	| descriptions |
  	"PartsBin clearThumbnailCache; cacheAllThumbnails"
  	descriptions _ OrderedCollection new.
  	descriptions addAll: {
  	DescriptionForPartsBin
  		formalName: 'Connector' translatedNoop
  		categoryList: {'Connectors' translatedNoop}
  		documentation: 'A basic Connector' translatedNoop
  		globalReceiverSymbol: #NCAAConnectorMorph
  		nativitySelector: #newStandAlone.
  
  	DescriptionForPartsBin
  		formalName: 'ConnectorArrow' translatedNoop
  		categoryList: {'Connectors' translatedNoop}
  		documentation: 'A basic Connector with an arrowhead' translatedNoop
  		globalReceiverSymbol: #NCAAConnectorMorph
  		nativitySelector: #newWithArrow.
  		
  	DescriptionForPartsBin
  		formalName: 'Curvy Connector' translatedNoop
  		categoryList: {'Connectors' translatedNoop}
  		documentation: 'A basic Connector that bends smoothly' translatedNoop
  		globalReceiverSymbol: #NCAAConnectorMorph
  		nativitySelector: #newCurvyConnector.
  
  	DescriptionForPartsBin
  		formalName: 'Curvy ConnectorArrow' translatedNoop
  		categoryList: {'Connectors' translatedNoop}
  		documentation: 'A basic smooth Connector with an arrowhead' translatedNoop
  		globalReceiverSymbol: #NCAAConnectorMorph
  		nativitySelector: #newCurvyArrow.
  	}.
  
  	(Flaps respondsTo: #newNCPartsBinFlap) ifTrue: [
  		descriptions add: (
  	(DescriptionForPartsBin
  		formalName: 'Button Flap' translatedNoop
  		categoryList: {'Connectors' translatedNoop}
+ 		documentation: 'A blank button flap' translatedNoop
- 		documentation: 'A blank buttton flap' translatedNoop
  		globalReceiverSymbol: #Flaps
  		nativitySelector: #newNCPartsBinFlap)
  			sampleImageForm: self buttonFlapImage; yourself) ].
  
  	(Flaps respondsTo: #newConnectorsFlap) ifTrue: [
  		descriptions add: (
  	(DescriptionForPartsBin
  		formalName: 'Connectors Flap' translatedNoop
  		categoryList: {'Connectors' translatedNoop}
  		documentation: 'A pre-loaded Connectors flap' translatedNoop
  		globalReceiverSymbol: #Flaps
  		nativitySelector: #newConnectorsFlap)
  			sampleImageForm: self connectorsFlapImage; yourself) ].
  
  	Smalltalk at: #NCMakerButton ifPresent: [ :ncmb |
  		descriptions addAll: {
  	DescriptionForPartsBin
  		formalName: 'Connector Button' translatedNoop
  		categoryList: {'Connectors' translatedNoop}
  		documentation: 'A Maker Button with a Connector loaded' translatedNoop
  		globalReceiverSymbol: #NCAAConnectorMorph
  		nativitySelector: #newMakerButton.
  	DescriptionForPartsBin
  		formalName: 'Random Connectors' translatedNoop
  		categoryList: {'Connectors' translatedNoop}
  		documentation: 'A button that makes fancy Connectors at random' translatedNoop
  		globalReceiverSymbol: #NCAAConnectorMorph
  		nativitySelector: #newRandomButton.
  		}
  	].
  	^descriptions
  !