From 61685d2a8a1d201f9dd29fe5e4a47c08f59bc576 Mon Sep 17 00:00:00 2001
From: JanBliznicenko <Jan.Bliznicenko@gmail.com>
Date: Fri, 13 Oct 2023 18:52:12 +0200
Subject: [PATCH] removed call of removed method

---
 .../OPRSDraggableControlPoints.class.st             |  6 ++++--
 repository/OpenPonk-Spec/OPEditor.class.st          | 13 +++----------
 2 files changed, 7 insertions(+), 12 deletions(-)

diff --git a/repository/OpenPonk-Roassal3/OPRSDraggableControlPoints.class.st b/repository/OpenPonk-Roassal3/OPRSDraggableControlPoints.class.st
index 183fe704..b828bdfa 100644
--- a/repository/OpenPonk-Roassal3/OPRSDraggableControlPoints.class.st
+++ b/repository/OpenPonk-Roassal3/OPRSDraggableControlPoints.class.st
@@ -18,11 +18,13 @@ OPRSDraggableControlPoints >> connectWithCanvas [
 	interaction := canvas propertyAt: OPRSSelectableCanvas ifAbsent: [
 		               line
 			               when: RSMouseLeftClick
-			               do: [ :event | self showHandles ].
+			               do: [ :event | self showHandles ]
+			               for: self.
 		               canvas
 			               when: RSMouseLeftClick
 			               do: [ :event |
-			               event shape = line ifFalse: [ self removeHandles ] ].
+			               event shape = line ifFalse: [ self removeHandles ] ]
+			               for: self.
 		               ^ self ].
 	interaction
 		when: OPRSSelectionEndEvent
diff --git a/repository/OpenPonk-Spec/OPEditor.class.st b/repository/OpenPonk-Spec/OPEditor.class.st
index f85ed4e4..f91130b4 100644
--- a/repository/OpenPonk-Spec/OPEditor.class.st
+++ b/repository/OpenPonk-Spec/OPEditor.class.st
@@ -11,7 +11,6 @@ Class {
 		'zoomLabel',
 		'diagramController',
 		'plugin',
-		'shortcuts',
 		'canvasPresenter',
 		'canvasMenu',
 		'form',
@@ -129,7 +128,7 @@ OPEditor >> canvasPresenter [
 	^ canvasPresenter
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #initialization }
 OPEditor >> connectPresenters [
 
 	| menu |
@@ -155,7 +154,7 @@ OPEditor >> form [
 	^ form
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #initialization }
 OPEditor >> initializePresenters [
 
 	canvasMenu := self newMenuBar.
@@ -209,7 +208,7 @@ OPEditor >> openEmptyModel: aModel [
 	self rebuildWidget
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #initialization }
 OPEditor >> openFormOn: aController [
 
 	form editController: aController
@@ -252,15 +251,9 @@ OPEditor >> tabDeleted [
 		diagramController diagramElement.
 	self workbench projectController removeDiagramController:
 		diagramController.
-	self unregisterShortcutsOn: self workbench.
 	diagramController removeRender
 ]
 
-{ #category : #shortcuts }
-OPEditor >> unregisterShortcutsOn: aPresenter [
-	shortcuts do: [ :pair | aPresenter removeKeyCombination: pair key ]
-]
-
 { #category : #updating }
 OPEditor >> updateUndoRedo [
 	self flag: #unused.