[etoys-dev] Etoys: Connectors-bf.187.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Connectors to project Etoys:
http://source.squeak.org/etoys/Connectors-bf.187.mcz

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

Name: Connectors-bf.187
Author: bf
Time: 4 May 2010, 2:06:54 pm
UUID: 0d4098c3-f017-4764-b558-654317afb5d5
Ancestors: Connectors-bf.186

- move flaps methods back into the connectors package

=============== Diff against Connectors-bf.186 ===============

Item was added:
+ ----- Method: Flaps class>>newFSMConnectorsFlap (in category '*connectors-shapes-flaps') -----
+ newFSMConnectorsFlap
+ 	"Answer a newly-created flap which adheres to the left edge of the screen and which holds prototypes of Connectors parts relevant to FSM diagrams."
+ 	"Flaps newFSMConnectorsFlap openInWorld; setToPopOutOnDragOver: false."
+ 	|  aFlapTab aStrip  |
+ 	aStrip _ self preferredConnectorsFlapBinClass newPartsBinWithOrientation: #leftToRight  andColor: (Color blue muchLighter alpha: 0.8) from: self quadsDefiningFSMConnectorsFlap buttonClass: self preferredConnectorsButtonClass.
+ 	aStrip submorphs third
+ 		actionSelector: #startWiringLabeled: ;
+ 		arguments: { 'event' }.
+ 
+ 	aFlapTab _ FlapTab new referent: aStrip beSticky.
+ 	aFlapTab setName: 'FSM' edge: #bottom color: (Color blue muchLighter).
+ 	aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu.
+ 
+ 	aStrip beFlap: true.
+ 	aStrip extent: (self currentWorld width @ 78).
+ 	aStrip color: (Color blue muchLighter alpha: 0.8).
+ 	aStrip submorphsDo: [ :ea | ea updateImage ].
+ 	^ aFlapTab
+ !

Item was added:
+ ----- Method: Flaps class>>preferredConnectorsButtonClass (in category '*connectors-shapes-flaps') -----
+ preferredConnectorsButtonClass
+ 	^Smalltalk at: #NCMakerButton ifAbsent: [ IconicButton ]!

Item was added:
+ ----- Method: Flaps class>>newClassDiagramConnectorsFlap (in category '*connectors-shapes-flaps') -----
+ newClassDiagramConnectorsFlap
+ 	"Answer a newly-created flap which adheres to the left edge of the screen and which holds prototypes of Connectors parts relevant to UML class diagrams."
+ 	
+ 	"
+ 	Flaps newClassDiagramConnectorsFlap openInWorld; setToPopOutOnDragOver: false.
+ 	"
+ 
+ 	|  aFlapTab aStrip |
+ 	aStrip _ self preferredConnectorsFlapBinClass
+ 		newPartsBinWithOrientation: #leftToRight andColor: (Color blue muchLighter alpha: 0.3) from: self quadsDefiningClassDiagramConnectorsFlap buttonClass: self preferredConnectorsButtonClass.
+  
+ 	aFlapTab _ FlapTab new referent: aStrip beSticky.
+ 	aFlapTab setName: 'Class Diagrams' translated edge: #bottom color: Color blue muchLighter.
+ 	aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu.
+ 
+ 	aStrip beFlap: true.
+ 	aStrip extent: (self currentWorld width @ 78).
+ 	aStrip submorphsDo: [ :ea | ea updateImage ].
+ 	^aFlapTab
+ !

Item was added:
+ ----- Method: Flaps class>>quadsDefiningConnectorsFlap (in category '*connectors-shapes-flaps') -----
+ quadsDefiningConnectorsFlap
+ 	"Answer a structure defining the items on the default Connectors flap"
+ 
+ 	^ #(
+ 	(NCLabelMorph newStandAlone 'Label' 'A label')
+ 	(NCSmartLabelMorph newStandAlone 'Smart Label' 'A label that positions itself')
+ 	(NCAAConnectorMorph	newStandAlone		'Connector'	'A basic connector')
+ 	(NCAAConnectorMorph	newWithArrow 'ConnectorArrow'	'A basic connector with an arrowhead')
+ 	(NCAAConnectorMorph	newCurvyConnector 'Curvy Connector'	'A basic curved connector')
+ 	(NCAAConnectorMorph	newCurvyArrow 'Curvy ConnectorArrow'	'A basic curved connector with an arrowhead')
+ 	(NCGrabbableDisplayTextMorph authoringPrototype 'Title' 'Display text that you can move')
+ 	(NCTextRectangleMorph new 'Text Rectangle' 'A rectangle with text, or a button')
+ 	(NCButtonBar newStandAlone 'ButtonBar' 'A buttonBar for customizing')
+ 	(NCMakerButton newStandAlone 'Maker Button' 'A handy Morph-generating button')
+ 	(NCBasicShapeMorph newStandAlone 'Basic Shape' 'A simple shape with a context menu')
+ 	(Flaps newNCPartsBinFlap 'New Button Flap' 'A new button flap')
+ 	(NCAttachmentPointAdjusterWindow newStandAlone 'AP Adjuster' 'This lets you adjust the attachment points on a dropped Morph')
+ 	) translatedNoop
+ !

Item was added:
+ ----- Method: Flaps class>>preferredConnectorsFlapBinClass (in category '*connectors-shapes-flaps') -----
+ preferredConnectorsFlapBinClass
+ 	^Smalltalk at: #NCPartsBin ifAbsent: [ PartsBin ]!

Item was added:
+ ----- Method: Flaps class>>newNCPartsBinFlap (in category '*connectors-shapes-flaps') -----
+ newNCPartsBinFlap
+ 	"Answer a newly-created flap which adheres to the left edge of the screen."
+ 	"Flaps newNCPartsBinFlap openInWorld; setToPopOutOnDragOver: false."
+ 
+ 	|  aFlapTab aStrip |
+ 	aStrip _ self preferredConnectorsFlapBinClass
+ 		newPartsBinWithOrientation: #topToBottom andColor: (Color orange muchLighter alpha: 0.8) from: #() buttonClass: self preferredConnectorsButtonClass.
+  
+ 	aFlapTab _ FlapTab new referent: aStrip beSticky.
+ 	aFlapTab setName: 'My Flap' translated edge: #left color: Color orange lighter.
+ 	aFlapTab position: (self currentWorld width - aFlapTab width) @ ((Display height - aFlapTab height) * 2 // 3).
+ 	aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu.
+ 
+ 	aStrip extent: (120 @ self currentWorld height).
+ 	aStrip beFlap: true.
+ 	aStrip color: (Color orange muchLighter alpha: 0.8).
+ 	
+ 	^ aFlapTab
+ !

Item was added:
+ ----- Method: Flaps class>>quadsDefiningFSMConnectorsFlap (in category '*connectors-shapes-flaps') -----
+ quadsDefiningFSMConnectorsFlap
+ 	"Answer a structure defining the items on the default FSM flap"
+ 	"Flaps newFSMConnectorsFlap openInWorld; setToPopOutOnDragOver: false."
+ 
+ 	^ #(
+ 	(NCLabelMorph newStandAlone 'Label' 'A label')
+ 	(NCSmartLabelMorph newStandAlone 'Smart Label' 'A label that positions itself')
+ 	(NCAAConnectorMorph newStateTransition 'State Transition' 'A state transition for UML State Diagrams')
+ 	(NCTextRectangleMorph newStateSymbol 'State' 'A UML State shape')
+ 	(NCCompositeStateMorph newCompositeState 'Composite State' 'A UML composite state shape')
+ 	(NCScrolledCompositeStateMorph newStandAlone 'Scrolled State' 'A UML State shape with scrollbars')
+ 	(NCEllipseMorph newStartState 'Start State' 'A UML start state shape')
+ 	(NCEllipseMorph newEndState 'End State' 'A UML end state shape')
+ 	"(NCButtonBar newFSMToolbar 'FSM ButtonBar' 'A buttonBar for State Machine drawings')"
+ 	) translatedNoop!

Item was added:
+ ----- Method: Flaps class>>quadsDefiningClassDiagramConnectorsFlap (in category '*connectors-shapes-flaps') -----
+ quadsDefiningClassDiagramConnectorsFlap
+ 	"Answer a structure defining the items on the default Class Diagram flap"
+ 	"Flaps newClassDiagramConnectorsFlap openInWorld; setToPopOutOnDragOver: false."
+ 
+ 	^ #(
+ 	(NCLabelMorph newStandAlone 'Label' 'A label')
+ 	(NCSmartLabelMorph newStandAlone 'Smart Label' 'A label that positions itself')
+ 	(NCAAConnectorMorph	newDirectionalAssociation	'Association'	'A class association for UML Class Diagrams')
+ 	(NCAAConnectorMorph	newAssociation	'Association'	'A class association for UML Class Diagrams')
+ 	(NCAAConnectorMorph newGeneralizationRelationship	'Generalization' 'An inheritance (generalization) connection for UML Class Diagrams')
+ 	(NCAAConnectorMorph newImplementationRelationship 'Implementation' 'An implementation relationship for UML Class Diagrams')
+ 	(NCTextRectangleMorph newUMLClassSymbol 'Class' 'A UML class symbol')
+ 	(NCTextRectangleMorph newUMLClassSymbolWithTwoBlocks 'Class2' 'A UML class symbol')
+ 	(NCTextRectangleMorph newUMLClassSymbolWithThreeBlocks 'Class3' 'A UML class symbol')
+ 	(NCCompositeStateMorph newUMLPackage 'UML Package' 'A UML package shape')
+ 	(NCNoteMorph  newStandAlone 'Note' 'An annotation')
+ 	)!

Item was added:
+ ----- Method: Flaps class>>newConnectorsFlap (in category '*connectors-shapes-flaps') -----
+ newConnectorsFlap
+ 	"Answer a newly-created flap which adheres to the left edge of the screen and which holds prototypes of Connectors parts."
+ 	"Flaps newConnectorsFlap openInWorld; setToPopOutOnDragOver: false."
+ 
+ 	|  aFlapTab aStrip |
+ 	aStrip _ self preferredConnectorsFlapBinClass
+ 		newPartsBinWithOrientation: #leftToRight andColor: (Color blue muchLighter alpha: 0.8) from: self quadsDefiningConnectorsFlap buttonClass: self preferredConnectorsButtonClass.
+  
+ 	aFlapTab _ FlapTab new referent: aStrip beSticky.
+ 	aFlapTab setName: 'Connectors' translated edge: #bottom color: Color blue muchLighter.
+ 	aFlapTab setBalloonText: aFlapTab balloonTextForFlapsMenu.
+ 
+ 	aStrip beFlap: true.
+ 	aStrip extent: (self currentWorld width @ 78).
+ 	aStrip submorphsDo: [ :ea | ea updateImage ].
+ 	^ aFlapTab
+ !