Merge pull request #21 from adri09070/19-I-loose-ctrlc-in-debugger-wh…

…en-loading-chest- removing problematic shortcuts that mess up with the "cmd+c" shortcut
pharo-spec · Aug 2, 2023 · d63d5e9 · d63d5e9
2 parents 585de05 + f2800ab
commit d63d5e9
Show file tree

Hide file tree

Showing 7 changed files with 3 additions and 52 deletions.
diff --git a/src/Chest-Commands/ChestCopyObjectCommand.class.st b/src/Chest-Commands/ChestCopyObjectCommand.class.st
@@ -22,12 +22,6 @@ ChestCopyObjectCommand class >> defaultName [
 	^ 'Copy object in a clipboard chest'
 ]
 
-{ #category : #defaults }
-ChestCopyObjectCommand class >> defaultShortcutKey [
-
-	^ $c meta shift
-]
-
 { #category : #executing }
 ChestCopyObjectCommand >> execute [
 

diff --git a/src/Chest-Commands/ChestLoadObjectIntoCodeCommand.class.st b/src/Chest-Commands/ChestLoadObjectIntoCodeCommand.class.st
@@ -25,12 +25,6 @@ ChestLoadObjectIntoCodeCommand class >> defaultName [
 	^ 'Load object from chest'
 ]
 
-{ #category : #default }
-ChestLoadObjectIntoCodeCommand class >> defaultShortcutKey [
-
-	^ $c meta , $l meta
-]
-
 { #category : #testing }
 ChestLoadObjectIntoCodeCommand class >> isVisibleForContext: aCodePresenter [
 

diff --git a/src/Chest-Commands/ChestRemoveAllChestsCommand.class.st b/src/Chest-Commands/ChestRemoveAllChestsCommand.class.st
@@ -22,12 +22,6 @@ ChestRemoveAllChestsCommand class >> defaultName [
 	^ 'Remove all chests'
 ]
 
-{ #category : #default }
-ChestRemoveAllChestsCommand class >> defaultShortcutKey [
-
-	^ $c meta , $r meta , $m meta shift
-]
-
 { #category : #executing }
 ChestRemoveAllChestsCommand >> execute [
 

diff --git a/src/Chest-Commands/ChestRemoveChestCommand.class.st b/src/Chest-Commands/ChestRemoveChestCommand.class.st
@@ -22,12 +22,6 @@ ChestRemoveChestCommand class >> defaultName [
 	^ 'Remove chest'
 ]
 
-{ #category : #default }
-ChestRemoveChestCommand class >> defaultShortcutKey [
-
-	^ $c meta , $r meta , $m meta
-]
-
 { #category : #testing }
 ChestRemoveChestCommand >> canBeExecuted [
 

diff --git a/src/Chest-Commands/ChestStoreObjectCommand.class.st b/src/Chest-Commands/ChestStoreObjectCommand.class.st
@@ -25,12 +25,6 @@ ChestStoreObjectCommand class >> defaultName [
 	^ 'Store object in a chest'
 ]
 
-{ #category : #'accessing - defaults' }
-ChestStoreObjectCommand class >> defaultShortcutKey [
-
-	^ $c meta , $s meta
-]
-
 { #category : #initialization }
 ChestStoreObjectCommand >> buildChoicePresenter [
 

diff --git a/src/Chest/TChestAssociation.extension.st b/src/Chest/TChestAssociation.extension.st
diff --git a/src/Chest/TChestAssociation.trait.st b/src/Chest/TChestAssociation.trait.st
@@ -25,19 +25,19 @@ TChestAssociation classSide >> key: key value: value variableName: variableName
 		  variableName: variableName
 ]
 
-{ #category : #'*Chest' }
+{ #category : #accessing }
 TChestAssociation >> chestChildren [
 
 	^ {  } asOrderedCollection
 ]
 
-{ #category : #'*Chest' }
+{ #category : #accessing }
 TChestAssociation >> chestEvaluation [
 
 	^ self value
 ]
 
-{ #category : #'*Chest' }
+{ #category : #accessing }
 TChestAssociation >> chestName [
 
 	^ self key