diff --git a/packages/Sandblocks-Babylonian/SBExploriants.class.st b/packages/Sandblocks-Babylonian/SBExploriants.class.st index 99f652ce..e27ceca4 100644 --- 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 index 19a3598f..bc3f3c5a 100644 --- 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 }