core: respect borderVertices when showing selection markers

hpi-swa · Oct 14, 2023 · 667ffcc · 667ffcc
1 parent 4d43505
commit 667ffcc
Show file tree

Hide file tree

Showing 3 changed files with 26 additions and 5 deletions.
diff --git a/packages/Sandblocks-Core/SBBlock.class.st b/packages/Sandblocks-Core/SBBlock.class.st
@@ -400,6 +400,13 @@ SBBlock >> blockFor: anObject withInterfaces: aCollection ifOpen: aBlock ifClose
 		ifNone: anotherBlock
 ]
 
+{ #category : #'as yet unclassified' }
+SBBlock >> borderVertices [
+	" return a collection of points to render these in place of the default rectangle "
+
+	^ nil
+]
+
 { #category : #layout }
 SBBlock >> boundsInEditor [
 

diff --git a/packages/Sandblocks-Core/SBBrowserEditor.class.st b/packages/Sandblocks-Core/SBBrowserEditor.class.st
@@ -155,6 +155,12 @@ SBBrowserEditor >> modelSelection: anObject [
 			changed: #messageList]
 ]
 
+{ #category : #'as yet unclassified' }
+SBBrowserEditor >> newEmptyChildNear: aBlock before: aBoolean [
+
+	^ nil
+]
+
 { #category : #'as yet unclassified' }
 SBBrowserEditor >> openOnlyMorph: aBlock [
 

diff --git a/packages/Sandblocks-Core/SBCursorSelect.class.st b/packages/Sandblocks-Core/SBCursorSelect.class.st
@@ -40,11 +40,19 @@ SBCursorSelect >> color [
 { #category : #'as yet unclassified' }
 SBCursorSelect >> drawOn: aCanvas in: aRectangle color: aColor [
 
-	aCanvas
-		frameRoundRect: (aRectangle insetBy: 2)
-		radius: self block colorPolicy cornerRadius
-		width: self block frameSize
-		color: aColor
+	self block borderVertices
+		ifNotNil: [:v |
+			aCanvas
+				drawPolygon: v
+				color: nil
+				borderWidth: self block frameSize
+				borderColor: aColor]
+		ifNil: [
+			aCanvas
+				frameRoundRect: (aRectangle insetBy: 2)
+				radius: self block colorPolicy cornerRadius
+				width: self block frameSize
+				color: aColor]
 ]
 
 { #category : #'as yet unclassified' }