Merge pull request #14 from moosetechnology/select-links

Add menu item to select all/incoming/outgoing links

src/Hierarchical-Roassal-Menu/HAddLinkMenuItem.class.st

@@ -36,11 +36,6 @@ HAddLinkMenuItem >> execute [
 					visualization rebuildLines: shape.
 					].
 			evt signalUpdate ].
-
-
-
-
-
 ]
 
 { #category : #accessing }
@@ -58,7 +53,6 @@ HAddLinkMenuItem >> modelFor: aShape [
 	^ aShape model 
 		ifNil: [ self modelFor: aShape parent ]
 		ifNotNil: [ aShape model ]
-
 ]
 
 { #category : #accessing }

src/Hierarchical-Roassal-Menu/HHideAllLinksMenuItem.class.st

@@ -20,7 +20,7 @@ HHideAllLinksMenuItem >> group [
 
 { #category : #accessing }
 HHideAllLinksMenuItem >> label [
-	^ 'Hide All links'
+	^ 'Hide all links'
 ]
 
 { #category : #accessing }

src/Hierarchical-Roassal-Menu/HNewEntityMenuItem.class.st

@@ -23,7 +23,7 @@ HNewEntityMenuItem >> group [
 
 { #category : #accessing }
 HNewEntityMenuItem >> label [
-	^ 'New Entity'
+	^ 'New entity'
 ]
 
 { #category : #accessing }

src/Hierarchical-Roassal-Menu/HRelayoutMenuItem.class.st

@@ -1,5 +1,5 @@
 "
-This menu item uses the layout of an HNode to place roassal shapes in their positions
+This menu item uses the layout of an HNode to place roassal shapes in their positions.
 "
 Class {
 	#name : #HRelayoutMenuItem,

src/Hierarchical-Roassal-Menu/HSelectAllLinksMenuItem.class.st

@@ -0,0 +1,33 @@
+"
+This menu item selects all the links of the node.
+"
+Class {
+	#name : #HSelectAllLinksMenuItem,
+	#superclass : #HNodeMenuItem,
+	#category : #'Hierarchical-Roassal-Menu'
+}
+
+{ #category : #execution }
+HSelectAllLinksMenuItem >> execute [
+
+	visualization container setSelectedShapes:
+		shape outgoingShapes , shape incomingShapes
+]
+
+{ #category : #accessing }
+HSelectAllLinksMenuItem >> group [
+
+	^ 3
+]
+
+{ #category : #accessing }
+HSelectAllLinksMenuItem >> label [
+
+	^ 'Select all links'
+]
+
+{ #category : #accessing }
+HSelectAllLinksMenuItem >> order [
+
+	^ 100
+]

src/Hierarchical-Roassal-Menu/HSelectIncomingLinksMenuItem.class.st

@@ -0,0 +1,32 @@
+"
+This menu item selects the incoming links of the node.
+"
+Class {
+	#name : #HSelectIncomingLinksMenuItem,
+	#superclass : #HNodeMenuItem,
+	#category : #'Hierarchical-Roassal-Menu'
+}
+
+{ #category : #execution }
+HSelectIncomingLinksMenuItem >> execute [
+
+	visualization container setSelectedShapes: shape incomingShapes
+]
+
+{ #category : #accessing }
+HSelectIncomingLinksMenuItem >> group [
+
+	^ 3
+]
+
+{ #category : #accessing }
+HSelectIncomingLinksMenuItem >> label [
+
+	^ 'Select incoming links'
+]
+
+{ #category : #accessing }
+HSelectIncomingLinksMenuItem >> order [
+
+	^ 110
+]

src/Hierarchical-Roassal-Menu/HSelectOutgoingLinksMenuItem.class.st

@@ -0,0 +1,32 @@
+"
+This menu item selects the outgoing links of the node.
+"
+Class {
+	#name : #HSelectOutgoingLinksMenuItem,
+	#superclass : #HNodeMenuItem,
+	#category : #'Hierarchical-Roassal-Menu'
+}
+
+{ #category : #execution }
+HSelectOutgoingLinksMenuItem >> execute [
+
+	visualization container setSelectedShapes: shape outgoingShapes
+]
+
+{ #category : #accessing }
+HSelectOutgoingLinksMenuItem >> group [
+
+	^ 3
+]
+
+{ #category : #accessing }
+HSelectOutgoingLinksMenuItem >> label [
+
+	^ 'Select outgoing links'
+]
+
+{ #category : #accessing }
+HSelectOutgoingLinksMenuItem >> order [
+
+	^ 120
+]

src/Hierarchical-Roassal-Menu/HShowAllLinksMenuItem.class.st

@@ -1,5 +1,5 @@
 "
-this menu item show all the links of the node and all children
+This menu item shows all the links of the node and all children.
 "
 Class {
 	#name : #HShowAllLinksMenuItem,
@@ -20,7 +20,7 @@ HShowAllLinksMenuItem >> group [
 
 { #category : #accessing }
 HShowAllLinksMenuItem >> label [
-	^ 'Show All links'
+	^ 'Show all links'
 ]
 
 { #category : #accessing }