Little quality of lives

hpi-swa · Dec 11, 2023 · 27014ac · 27014ac
1 parent bc079cc
commit 27014ac
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 7 deletions.
diff --git a/packages/Sandblocks-Babylonian/SBExploriants.class.st b/packages/Sandblocks-Babylonian/SBExploriants.class.st
@@ -58,6 +58,12 @@ SBExploriants >> binding: aString for: block class: aClass ifPresent: aBlock [
 	^ nil
 ]
 
+{ #category : #ui }
+SBExploriants >> buildView [
+
+	self addMorphBack: (self activeBlock hResizing: #shrinkWrap)
+]
+
 { #category : #testing }
 SBExploriants >> cacheType: aClass for: aBlock [
 ]

diff --git a/packages/Sandblocks-Babylonian/SBInputBroadcaster.class.st b/packages/Sandblocks-Babylonian/SBInputBroadcaster.class.st
@@ -57,11 +57,8 @@ SBInputBroadcaster >> filterEvent: anEvent for: aMorph [
 		| localTarget newEvent delta |
 		localTarget := self translatedPositionOf: anEvent from: aMorph to: aListener.
 		delta := localTarget - anEvent position.
-		newEvent := anEvent copy.
-
-		newEvent translateBy: delta.
-		anEvent isDropEvent ifTrue: [newEvent translateTo: localTarget].
-
+		newEvent := anEvent copy translateBy: delta.
+
 		(self needsHandHandling: newEvent)
 				ifTrue: [
 					self simulateGlobalHand: (self stateHands at: i) 
@@ -149,9 +146,9 @@ SBInputBroadcaster >> mouseEnter: anEvent [
 { #category : #events }
 SBInputBroadcaster >> needsHandHandling: anEvent [
 
-	"rechte maustaste im sbeditor ausschließen?"
 	^ anEvent isMouse 
 			and: [anEvent isMouseDown or: [anEvent isMouseUp]]
+			and: [(SBPreferences rightClickContextMenu and: [anEvent yellowButtonPressed]) not]
 ]
 
 { #category : #accessing }
@@ -178,7 +175,7 @@ SBInputBroadcaster >> simulateGlobalHand: aHand for: anEvent in: aMorph pos: aPo
 		setHand: aHand.
 	aHand handleEvent: anEvent.
 
-	aMorph owner ifNotNil: [:theOwner | theOwner removeMorph: aHand].
+	aHand delete.
 ]
 
 { #category : #accessing }