From 1baf6b63f531d16cc6b8b0f4e698a0380c84f15b Mon Sep 17 00:00:00 2001 From: Steven Costiou <26929529+StevenCostiou@users.noreply.github.com> Date: Wed, 18 Oct 2023 16:13:20 +0200 Subject: [PATCH] There was a missing return in a description accessor --- .../ManifestSpec2Commands.class.st | 8 +++-- .../SpAcceptChangesCommand.class.st | 16 ++++++---- .../SpBrowseClassCommand.class.st | 20 ++++++------ .../SpBrowseClassHierarchyCommand.class.st | 14 ++++---- .../SpBrowseClassReferencesCommand.class.st | 14 ++++---- .../SpBrowseClassVarRefsCommand.class.st | 14 ++++---- .../SpBrowseClassVariablesCommand.class.st | 14 ++++---- .../SpBrowseImplementorsCommand.class.st | 18 ++++++----- .../SpBrowseInstVarRefsCommand.class.st | 14 ++++---- .../SpBrowseInstancesCommand.class.st | 14 ++++---- .../SpBrowseMethodInheritanceCommand.class.st | 14 ++++---- .../SpBrowseMethodReferencesCommand.class.st | 18 ++++++----- .../SpBrowseMethodVersionsCommand.class.st | 16 ++++++---- ...wseMethodsContainingStringCommand.class.st | 16 ++++++---- ...sMatchingStringInsensitiveCommand.class.st | 18 ++++++----- ...odsMatchingStringSensitiveCommand.class.st | 18 ++++++----- .../SpBrowsePointersToCommand.class.st | 14 ++++---- .../SpBrowseSendersCommand.class.st | 18 ++++++----- .../SpBrowseSubInstancesCommand.class.st | 14 ++++---- .../SpCancelChangesCommand.class.st | 16 ++++++---- .../SpSystemDiscoveryCommand.class.st | 10 +++--- .../SpSystemNavigationCommand.class.st | 22 +++++++------ .../SpSystemSelectionCommand.class.st | 16 ++++++---- src/Spec2-Commands/SpTextCopyCommand.class.st | 16 ++++++---- src/Spec2-Commands/SpTextCutCommand.class.st | 16 ++++++---- .../SpTextEditionCommand.class.st | 12 ++++--- src/Spec2-Commands/SpTextFindCommand.class.st | 14 ++++---- .../SpTextPasteCommand.class.st | 16 ++++++---- .../SpTextSearchCommand.class.st | 14 ++++---- .../SpTextSelectAndPasteCommand.class.st | 14 ++++---- src/Spec2-Commands/SpToolCommand.class.st | 32 ++++++++++--------- .../SpToolCurrentApplication.class.st | 8 +++-- .../SpToolCurrentApplicationCommand.class.st | 12 ++++--- src/Spec2-Commands/package.st | 2 +- 34 files changed, 289 insertions(+), 223 deletions(-) diff --git a/src/Spec2-Commands/ManifestSpec2Commands.class.st b/src/Spec2-Commands/ManifestSpec2Commands.class.st index b0069aff9..9d98ba8fc 100644 --- a/src/Spec2-Commands/ManifestSpec2Commands.class.st +++ b/src/Spec2-Commands/ManifestSpec2Commands.class.st @@ -6,7 +6,9 @@ Spec is a framework in Pharo for describing user interfaces. It allows for the c I am a package whose responsibility is to define the commands that will be used by Spec. " Class { - #name : #ManifestSpec2Commands, - #superclass : #PackageManifest, - #category : #'Spec2-Commands-Manifest' + #name : 'ManifestSpec2Commands', + #superclass : 'PackageManifest', + #category : 'Spec2-Commands-Manifest', + #package : 'Spec2-Commands', + #tag : 'Manifest' } diff --git a/src/Spec2-Commands/SpAcceptChangesCommand.class.st b/src/Spec2-Commands/SpAcceptChangesCommand.class.st index 066d05a8c..c6a62b542 100644 --- a/src/Spec2-Commands/SpAcceptChangesCommand.class.st +++ b/src/Spec2-Commands/SpAcceptChangesCommand.class.st @@ -1,27 +1,29 @@ Class { - #name : #SpAcceptChangesCommand, - #superclass : #SpToolCommand, - #category : #'Spec2-Commands-Code' + #name : 'SpAcceptChangesCommand', + #superclass : 'SpToolCommand', + #category : 'Spec2-Commands-Code', + #package : 'Spec2-Commands', + #tag : 'Code' } -{ #category : #defaults } +{ #category : 'defaults' } SpAcceptChangesCommand class >> defaultIconName [ ^#smallOk ] -{ #category : #defaults } +{ #category : 'defaults' } SpAcceptChangesCommand class >> defaultName [ ^ 'Accept' ] -{ #category : #defaults } +{ #category : 'defaults' } SpAcceptChangesCommand class >> defaultShortcutKey [ ^ $s command mac | $s ctrl win | $s ctrl unix ] -{ #category : #execution } +{ #category : 'execution' } SpAcceptChangesCommand >> execute [ self context triggerSubmitAction diff --git a/src/Spec2-Commands/SpBrowseClassCommand.class.st b/src/Spec2-Commands/SpBrowseClassCommand.class.st index 3396fd0c9..3b93e67d2 100644 --- a/src/Spec2-Commands/SpBrowseClassCommand.class.st +++ b/src/Spec2-Commands/SpBrowseClassCommand.class.st @@ -3,20 +3,22 @@ I browse a class that is returned from the evaluation of my context. My context must be a block that returns a class. " Class { - #name : #SpBrowseClassCommand, - #superclass : #SpSystemSelectionCommand, + #name : 'SpBrowseClassCommand', + #superclass : 'SpSystemSelectionCommand', #instVars : [ 'selector' ], - #category : #'Spec2-Commands-Navigation' + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseClassCommand class >> defaultDescription [ ^ 'Browse the selected class' ] -{ #category : #default } +{ #category : 'default' } SpBrowseClassCommand class >> defaultShortcutKey [ ^ $b command mac @@ -24,25 +26,25 @@ SpBrowseClassCommand class >> defaultShortcutKey [ | $b control unix ] -{ #category : #default } +{ #category : 'default' } SpBrowseClassCommand class >> shortName [ ^ 'full class' ] -{ #category : #execution } +{ #category : 'execution' } SpBrowseClassCommand >> execute [ self context perform: self selector ] -{ #category : #accessing } +{ #category : 'accessing' } SpBrowseClassCommand >> selector [ ^ selector ifNil: [ #doBrowseClass ] ] -{ #category : #accessing } +{ #category : 'accessing' } SpBrowseClassCommand >> selector: aSelector [ selector := aSelector diff --git a/src/Spec2-Commands/SpBrowseClassHierarchyCommand.class.st b/src/Spec2-Commands/SpBrowseClassHierarchyCommand.class.st index 90fd38c1a..32b323c08 100644 --- a/src/Spec2-Commands/SpBrowseClassHierarchyCommand.class.st +++ b/src/Spec2-Commands/SpBrowseClassHierarchyCommand.class.st @@ -2,23 +2,25 @@ My context must evaluate to a Behavior. I then browse the hierarchy of that behavior. " Class { - #name : #SpBrowseClassHierarchyCommand, - #superclass : #SpSystemSelectionCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseClassHierarchyCommand', + #superclass : 'SpSystemSelectionCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseClassHierarchyCommand class >> defaultDescription [ ^ 'Browse the class hierarchy of the selected class' ] -{ #category : #default } +{ #category : 'default' } SpBrowseClassHierarchyCommand class >> shortName [ ^ 'class hierarchy' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseClassHierarchyCommand >> execute [ self context doBrowseHierarchy diff --git a/src/Spec2-Commands/SpBrowseClassReferencesCommand.class.st b/src/Spec2-Commands/SpBrowseClassReferencesCommand.class.st index 6974aa911..b30332011 100644 --- a/src/Spec2-Commands/SpBrowseClassReferencesCommand.class.st +++ b/src/Spec2-Commands/SpBrowseClassReferencesCommand.class.st @@ -2,23 +2,25 @@ Browse all references to the class returned by the evaluation of the context. " Class { - #name : #SpBrowseClassReferencesCommand, - #superclass : #SpSystemSelectionCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseClassReferencesCommand', + #superclass : 'SpSystemSelectionCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseClassReferencesCommand class >> defaultDescription [ ^ 'Browse all references to the receiver''s class' ] -{ #category : #default } +{ #category : 'default' } SpBrowseClassReferencesCommand class >> shortName [ ^ 'class references' ] -{ #category : #execution } +{ #category : 'execution' } SpBrowseClassReferencesCommand >> execute [ self context doBrowseClassReferences diff --git a/src/Spec2-Commands/SpBrowseClassVarRefsCommand.class.st b/src/Spec2-Commands/SpBrowseClassVarRefsCommand.class.st index f35ad6e72..d3a7d7744 100644 --- a/src/Spec2-Commands/SpBrowseClassVarRefsCommand.class.st +++ b/src/Spec2-Commands/SpBrowseClassVarRefsCommand.class.st @@ -3,23 +3,25 @@ My context is a class, I browse the class var refs of that class. The system navigation is in charge of executing, and will ask the user to select a variable. " Class { - #name : #SpBrowseClassVarRefsCommand, - #superclass : #SpSystemNavigationCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseClassVarRefsCommand', + #superclass : 'SpSystemNavigationCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseClassVarRefsCommand class >> defaultDescription [ ^ 'Browse the references to class variables' ] -{ #category : #default } +{ #category : 'default' } SpBrowseClassVarRefsCommand class >> shortName [ ^ 'class variables reference' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseClassVarRefsCommand >> execute [ self systemNavigation browseClassVarRefs: self target diff --git a/src/Spec2-Commands/SpBrowseClassVariablesCommand.class.st b/src/Spec2-Commands/SpBrowseClassVariablesCommand.class.st index 0d7f25ebf..08bdf7f9d 100644 --- a/src/Spec2-Commands/SpBrowseClassVariablesCommand.class.st +++ b/src/Spec2-Commands/SpBrowseClassVariablesCommand.class.st @@ -2,23 +2,25 @@ My context is a class, I browse the class variables of that class. " Class { - #name : #SpBrowseClassVariablesCommand, - #superclass : #SpSystemNavigationCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseClassVariablesCommand', + #superclass : 'SpSystemNavigationCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseClassVariablesCommand class >> defaultDescription [ ^ 'Browse the class variables' ] -{ #category : #default } +{ #category : 'default' } SpBrowseClassVariablesCommand class >> shortName [ ^ 'class variables' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseClassVariablesCommand >> execute [ self systemNavigation browseClassVariables: self target diff --git a/src/Spec2-Commands/SpBrowseImplementorsCommand.class.st b/src/Spec2-Commands/SpBrowseImplementorsCommand.class.st index 5fbdf51ea..fa7a54afe 100644 --- a/src/Spec2-Commands/SpBrowseImplementorsCommand.class.st +++ b/src/Spec2-Commands/SpBrowseImplementorsCommand.class.st @@ -2,23 +2,25 @@ Browse all implementors of the selector found in context. " Class { - #name : #SpBrowseImplementorsCommand, - #superclass : #SpSystemSelectionCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseImplementorsCommand', + #superclass : 'SpSystemSelectionCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseImplementorsCommand class >> defaultDescription [ ^ 'Browse all implementors of the selected method or message' ] -{ #category : #accessing } +{ #category : 'accessing' } SpBrowseImplementorsCommand class >> defaultName [ ^ 'Implementors of it' ] -{ #category : #default } +{ #category : 'default' } SpBrowseImplementorsCommand class >> defaultShortcutKey [ ^ $m command mac @@ -26,13 +28,13 @@ SpBrowseImplementorsCommand class >> defaultShortcutKey [ | $m control unix ] -{ #category : #default } +{ #category : 'default' } SpBrowseImplementorsCommand class >> shortName [ ^ 'implementors' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseImplementorsCommand >> execute [ self context doBrowseImplementors diff --git a/src/Spec2-Commands/SpBrowseInstVarRefsCommand.class.st b/src/Spec2-Commands/SpBrowseInstVarRefsCommand.class.st index fb1b137d0..d5e9c7909 100644 --- a/src/Spec2-Commands/SpBrowseInstVarRefsCommand.class.st +++ b/src/Spec2-Commands/SpBrowseInstVarRefsCommand.class.st @@ -3,23 +3,25 @@ My context is a class, I browse the inst var refs of that class. The system navigation is in charge of executing, and will ask the user to select a variable. " Class { - #name : #SpBrowseInstVarRefsCommand, - #superclass : #SpSystemNavigationCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseInstVarRefsCommand', + #superclass : 'SpSystemNavigationCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseInstVarRefsCommand class >> defaultDescription [ ^ 'Browse the references to instance variables' ] -{ #category : #default } +{ #category : 'default' } SpBrowseInstVarRefsCommand class >> shortName [ ^ 'instance variables reference' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseInstVarRefsCommand >> execute [ self systemNavigation browseInstVarRefs: self target ] diff --git a/src/Spec2-Commands/SpBrowseInstancesCommand.class.st b/src/Spec2-Commands/SpBrowseInstancesCommand.class.st index 13eb8adcd..d3b880b01 100644 --- a/src/Spec2-Commands/SpBrowseInstancesCommand.class.st +++ b/src/Spec2-Commands/SpBrowseInstancesCommand.class.st @@ -2,23 +2,25 @@ I browse all instances of the class returned by the evaluation of my context " Class { - #name : #SpBrowseInstancesCommand, - #superclass : #SpSystemDiscoveryCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseInstancesCommand', + #superclass : 'SpSystemDiscoveryCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseInstancesCommand class >> defaultDescription [ ^ 'Browse all instances of the selected class' ] -{ #category : #accessing } +{ #category : 'accessing' } SpBrowseInstancesCommand class >> shortName [ ^ 'all instances' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseInstancesCommand >> execute [ self target instanceSide inspectAllInstances diff --git a/src/Spec2-Commands/SpBrowseMethodInheritanceCommand.class.st b/src/Spec2-Commands/SpBrowseMethodInheritanceCommand.class.st index 9e41c4fd4..4e25b76f7 100644 --- a/src/Spec2-Commands/SpBrowseMethodInheritanceCommand.class.st +++ b/src/Spec2-Commands/SpBrowseMethodInheritanceCommand.class.st @@ -2,23 +2,25 @@ I browse the inheritance of a method - my context must evaluate to a method. " Class { - #name : #SpBrowseMethodInheritanceCommand, - #superclass : #SpSystemNavigationCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseMethodInheritanceCommand', + #superclass : 'SpSystemNavigationCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseMethodInheritanceCommand class >> defaultDescription [ ^ 'Browse the hierarchy implementors of the selected method' ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodInheritanceCommand class >> shortName [ ^ 'method inheritance' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseMethodInheritanceCommand >> execute [ self systemNavigation methodHierarchyBrowserForClass: self target methodClass diff --git a/src/Spec2-Commands/SpBrowseMethodReferencesCommand.class.st b/src/Spec2-Commands/SpBrowseMethodReferencesCommand.class.st index 235ccbf93..e85001a7c 100644 --- a/src/Spec2-Commands/SpBrowseMethodReferencesCommand.class.st +++ b/src/Spec2-Commands/SpBrowseMethodReferencesCommand.class.st @@ -2,23 +2,25 @@ I browse all references to the computed context that is transformed to a symbol. " Class { - #name : #SpBrowseMethodReferencesCommand, - #superclass : #SpSystemSelectionCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseMethodReferencesCommand', + #superclass : 'SpSystemSelectionCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseMethodReferencesCommand class >> defaultDescription [ ^ 'Browse all references to the selected method or selector' ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodReferencesCommand class >> defaultName [ ^ 'References to it' ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodReferencesCommand class >> defaultShortcutKey [ ^ $n command shift mac @@ -26,13 +28,13 @@ SpBrowseMethodReferencesCommand class >> defaultShortcutKey [ | $n control shift unix ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodReferencesCommand class >> shortName [ ^ 'references' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseMethodReferencesCommand >> execute [ self context doBrowseMethodReferences diff --git a/src/Spec2-Commands/SpBrowseMethodVersionsCommand.class.st b/src/Spec2-Commands/SpBrowseMethodVersionsCommand.class.st index 5526f7f70..560746c4c 100644 --- a/src/Spec2-Commands/SpBrowseMethodVersionsCommand.class.st +++ b/src/Spec2-Commands/SpBrowseMethodVersionsCommand.class.st @@ -2,23 +2,25 @@ Create and schedule a message set browser on all versions of the method returned by the evaluation of the context. " Class { - #name : #SpBrowseMethodVersionsCommand, - #superclass : #SpSystemNavigationCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseMethodVersionsCommand', + #superclass : 'SpSystemNavigationCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseMethodVersionsCommand class >> defaultDescription [ - 'Browse history of the method' + ^'Browse history of the method' ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodVersionsCommand class >> shortName [ ^ 'method versions' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseMethodVersionsCommand >> execute [ | target | diff --git a/src/Spec2-Commands/SpBrowseMethodsContainingStringCommand.class.st b/src/Spec2-Commands/SpBrowseMethodsContainingStringCommand.class.st index 6fd4ea1e2..cf99c23fb 100644 --- a/src/Spec2-Commands/SpBrowseMethodsContainingStringCommand.class.st +++ b/src/Spec2-Commands/SpBrowseMethodsContainingStringCommand.class.st @@ -2,30 +2,32 @@ I browse all methods containing a string returned by the computed context. " Class { - #name : #SpBrowseMethodsContainingStringCommand, - #superclass : #SpSystemSelectionCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseMethodsContainingStringCommand', + #superclass : 'SpSystemSelectionCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseMethodsContainingStringCommand class >> defaultDescription [ ^ 'Browse all methods containing the selected string' ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodsContainingStringCommand class >> defaultName [ ^ 'Method source with it' ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodsContainingStringCommand class >> shortName [ ^ 'methods containing string' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseMethodsContainingStringCommand >> execute [ self context doBrowseMethodsContainingString diff --git a/src/Spec2-Commands/SpBrowseMethodsMatchingStringInsensitiveCommand.class.st b/src/Spec2-Commands/SpBrowseMethodsMatchingStringInsensitiveCommand.class.st index df71a4423..f788758ee 100644 --- a/src/Spec2-Commands/SpBrowseMethodsMatchingStringInsensitiveCommand.class.st +++ b/src/Spec2-Commands/SpBrowseMethodsMatchingStringInsensitiveCommand.class.st @@ -2,24 +2,26 @@ Browse all methods matching the selected string (case-insensitive). " Class { - #name : #SpBrowseMethodsMatchingStringInsensitiveCommand, - #superclass : #SpSystemSelectionCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseMethodsMatchingStringInsensitiveCommand', + #superclass : 'SpSystemSelectionCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseMethodsMatchingStringInsensitiveCommand class >> defaultDescription [ ^ 'Browse all methods containing a string matchign the selected string (case-sensitive)' ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodsMatchingStringInsensitiveCommand class >> defaultName [ ^ 'Case insensitive method literal strings with it' ] -{ #category : #defaults } +{ #category : 'defaults' } SpBrowseMethodsMatchingStringInsensitiveCommand class >> defaultShortcutKey [ ^ $e command shift mac @@ -27,13 +29,13 @@ SpBrowseMethodsMatchingStringInsensitiveCommand class >> defaultShortcutKey [ | $e control shift unix ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodsMatchingStringInsensitiveCommand class >> shortName [ ^ nil "Do not use" ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseMethodsMatchingStringInsensitiveCommand >> execute [ self context doBrowseMethodsMatchingStringInsensitive diff --git a/src/Spec2-Commands/SpBrowseMethodsMatchingStringSensitiveCommand.class.st b/src/Spec2-Commands/SpBrowseMethodsMatchingStringSensitiveCommand.class.st index 5d1ecc873..892f5a07e 100644 --- a/src/Spec2-Commands/SpBrowseMethodsMatchingStringSensitiveCommand.class.st +++ b/src/Spec2-Commands/SpBrowseMethodsMatchingStringSensitiveCommand.class.st @@ -2,23 +2,25 @@ Browse all methods matching the selected string (case-sensitive). " Class { - #name : #SpBrowseMethodsMatchingStringSensitiveCommand, - #superclass : #SpSystemSelectionCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseMethodsMatchingStringSensitiveCommand', + #superclass : 'SpSystemSelectionCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseMethodsMatchingStringSensitiveCommand class >> defaultDescription [ ^ 'Browse all methods containing a string matchign the selected string (case-sensitive)' ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodsMatchingStringSensitiveCommand class >> defaultName [ ^ 'Case sensitive method literal strings with it' ] -{ #category : #defaults } +{ #category : 'defaults' } SpBrowseMethodsMatchingStringSensitiveCommand class >> defaultShortcutKey [ ^ $u command shift mac @@ -26,13 +28,13 @@ SpBrowseMethodsMatchingStringSensitiveCommand class >> defaultShortcutKey [ | $u control shift unix ] -{ #category : #default } +{ #category : 'default' } SpBrowseMethodsMatchingStringSensitiveCommand class >> shortName [ ^ 'methods literal strings (case-sensitive)' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseMethodsMatchingStringSensitiveCommand >> execute [ self context doBrowseMethodsMatchingStringSensitive diff --git a/src/Spec2-Commands/SpBrowsePointersToCommand.class.st b/src/Spec2-Commands/SpBrowsePointersToCommand.class.st index 1c2a81f8c..992ae55c8 100644 --- a/src/Spec2-Commands/SpBrowsePointersToCommand.class.st +++ b/src/Spec2-Commands/SpBrowsePointersToCommand.class.st @@ -2,23 +2,25 @@ I inspect all pointers to the object returned by the evaluation of my context " Class { - #name : #SpBrowsePointersToCommand, - #superclass : #SpSystemDiscoveryCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowsePointersToCommand', + #superclass : 'SpSystemDiscoveryCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowsePointersToCommand class >> defaultDescription [ ^ 'Browse all objects referencing the selected object' ] -{ #category : #default } +{ #category : 'default' } SpBrowsePointersToCommand class >> shortName [ ^ 'pointers to' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowsePointersToCommand >> execute [ self target selectedItem value pointersTo inspect ] diff --git a/src/Spec2-Commands/SpBrowseSendersCommand.class.st b/src/Spec2-Commands/SpBrowseSendersCommand.class.st index 09eae8d2a..909554ed9 100644 --- a/src/Spec2-Commands/SpBrowseSendersCommand.class.st +++ b/src/Spec2-Commands/SpBrowseSendersCommand.class.st @@ -3,23 +3,25 @@ Browse all senders. " Class { - #name : #SpBrowseSendersCommand, - #superclass : #SpSystemSelectionCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseSendersCommand', + #superclass : 'SpSystemSelectionCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseSendersCommand class >> defaultDescription [ ^ 'Browse all senders of the selected method or message' ] -{ #category : #default } +{ #category : 'default' } SpBrowseSendersCommand class >> defaultName [ ^ 'Senders of it' ] -{ #category : #default } +{ #category : 'default' } SpBrowseSendersCommand class >> defaultShortcutKey [ ^ $n command mac @@ -27,13 +29,13 @@ SpBrowseSendersCommand class >> defaultShortcutKey [ | $n control unix ] -{ #category : #default } +{ #category : 'default' } SpBrowseSendersCommand class >> shortName [ ^ 'senders' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseSendersCommand >> execute [ self context doBrowseSenders diff --git a/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st b/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st index f48c9d9bb..316e2ce67 100644 --- a/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st +++ b/src/Spec2-Commands/SpBrowseSubInstancesCommand.class.st @@ -2,23 +2,25 @@ I browse all instances of the class (and all its subclasses) returned by the evaluation of my context " Class { - #name : #SpBrowseSubInstancesCommand, - #superclass : #SpSystemDiscoveryCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpBrowseSubInstancesCommand', + #superclass : 'SpSystemDiscoveryCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpBrowseSubInstancesCommand class >> defaultDescription [ ^ 'Browse all instances of the selected class and all its subclasses' ] -{ #category : #default } +{ #category : 'default' } SpBrowseSubInstancesCommand class >> shortName [ ^ 'all subinstances' ] -{ #category : #executing } +{ #category : 'executing' } SpBrowseSubInstancesCommand >> execute [ self target instanceSide inspectSubInstances diff --git a/src/Spec2-Commands/SpCancelChangesCommand.class.st b/src/Spec2-Commands/SpCancelChangesCommand.class.st index 6a99e78cc..fd8931a7b 100644 --- a/src/Spec2-Commands/SpCancelChangesCommand.class.st +++ b/src/Spec2-Commands/SpCancelChangesCommand.class.st @@ -1,27 +1,29 @@ Class { - #name : #SpCancelChangesCommand, - #superclass : #SpToolCommand, - #category : #'Spec2-Commands-Code' + #name : 'SpCancelChangesCommand', + #superclass : 'SpToolCommand', + #category : 'Spec2-Commands-Code', + #package : 'Spec2-Commands', + #tag : 'Code' } -{ #category : #defaults } +{ #category : 'defaults' } SpCancelChangesCommand class >> defaultIconName [ ^#smallCancel ] -{ #category : #defaults } +{ #category : 'defaults' } SpCancelChangesCommand class >> defaultName [ ^ 'Cancel' ] -{ #category : #defaults } +{ #category : 'defaults' } SpCancelChangesCommand class >> defaultShortcutKey [ ^ $l command mac | $l ctrl win | $l ctrl unix ] -{ #category : #execution } +{ #category : 'execution' } SpCancelChangesCommand >> execute [ self context triggerResetAction diff --git a/src/Spec2-Commands/SpSystemDiscoveryCommand.class.st b/src/Spec2-Commands/SpSystemDiscoveryCommand.class.st index 09c32b05c..ce3d99ffb 100644 --- a/src/Spec2-Commands/SpSystemDiscoveryCommand.class.st +++ b/src/Spec2-Commands/SpSystemDiscoveryCommand.class.st @@ -2,12 +2,14 @@ My subclasses implement commands related to the live system discovery and exploration. " Class { - #name : #SpSystemDiscoveryCommand, - #superclass : #SpSystemNavigationCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpSystemDiscoveryCommand', + #superclass : 'SpSystemNavigationCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpSystemDiscoveryCommand class >> defaultIconName [ ^ #smallObjects ] diff --git a/src/Spec2-Commands/SpSystemNavigationCommand.class.st b/src/Spec2-Commands/SpSystemNavigationCommand.class.st index 491ff3e4e..b7b5e4dfa 100644 --- a/src/Spec2-Commands/SpSystemNavigationCommand.class.st +++ b/src/Spec2-Commands/SpSystemNavigationCommand.class.st @@ -5,22 +5,24 @@ I give a selector from a context that must: - evaluate to a string or symbol " Class { - #name : #SpSystemNavigationCommand, - #superclass : #SpToolCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpSystemNavigationCommand', + #superclass : 'SpToolCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #default } +{ #category : 'default' } SpSystemNavigationCommand class >> defaultIconName [ ^#smallSystemBrowser ] -{ #category : #default } +{ #category : 'default' } SpSystemNavigationCommand class >> defaultName [ ^'Browse ', self shortName ] -{ #category : #documentation } +{ #category : 'documentation' } SpSystemNavigationCommand class >> documentContextRequiredSelectors [ "Using a String and not a Symbol because `RBBrowserEnvironmentTest>>#testMatches` fails if answering a symbol (because it detects the referenced selector)" @@ -28,24 +30,24 @@ SpSystemNavigationCommand class >> documentContextRequiredSelectors [ ^ #('environment') ] -{ #category : #default } +{ #category : 'default' } SpSystemNavigationCommand class >> shortName [ ^self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } SpSystemNavigationCommand >> environment [ ^ self context environment ] -{ #category : #accessing } +{ #category : 'accessing' } SpSystemNavigationCommand >> selector [ ^ self target trimBoth asSymbol ] -{ #category : #accessing } +{ #category : 'accessing' } SpSystemNavigationCommand >> systemNavigation [ ^ self context systemNavigation diff --git a/src/Spec2-Commands/SpSystemSelectionCommand.class.st b/src/Spec2-Commands/SpSystemSelectionCommand.class.st index a8fe3dc5c..46bae7f1c 100644 --- a/src/Spec2-Commands/SpSystemSelectionCommand.class.st +++ b/src/Spec2-Commands/SpSystemSelectionCommand.class.st @@ -2,18 +2,20 @@ A base for commands working on current text selection. " Class { - #name : #SpSystemSelectionCommand, - #superclass : #SpSystemNavigationCommand, - #category : #'Spec2-Commands-Navigation' + #name : 'SpSystemSelectionCommand', + #superclass : 'SpSystemNavigationCommand', + #category : 'Spec2-Commands-Navigation', + #package : 'Spec2-Commands', + #tag : 'Navigation' } -{ #category : #documentation } +{ #category : 'documentation' } SpSystemSelectionCommand class >> documentContextRequiredSelectors [ ^ super documentContextRequiredSelectors, #(selectedTextOrLine) ] -{ #category : #private } +{ #category : 'private' } SpSystemSelectionCommand >> evaluate: aString ifError: aBlock [ ^ [ @@ -27,7 +29,7 @@ SpSystemSelectionCommand >> evaluate: aString ifError: aBlock [ ] -{ #category : #private } +{ #category : 'private' } SpSystemSelectionCommand >> selectedSelector [ | node selection | @@ -41,7 +43,7 @@ SpSystemSelectionCommand >> selectedSelector [ ^ selection trimmed asSymbol ] -{ #category : #accessing } +{ #category : 'accessing' } SpSystemSelectionCommand >> selectedTextOrLine [ ^ self context selectedTextOrLine diff --git a/src/Spec2-Commands/SpTextCopyCommand.class.st b/src/Spec2-Commands/SpTextCopyCommand.class.st index 905b2d017..4b27b12f6 100644 --- a/src/Spec2-Commands/SpTextCopyCommand.class.st +++ b/src/Spec2-Commands/SpTextCopyCommand.class.st @@ -1,21 +1,23 @@ Class { - #name : #SpTextCopyCommand, - #superclass : #SpTextEditionCommand, - #category : #'Spec2-Commands-Code' + #name : 'SpTextCopyCommand', + #superclass : 'SpTextEditionCommand', + #category : 'Spec2-Commands-Code', + #package : 'Spec2-Commands', + #tag : 'Code' } -{ #category : #defaults } +{ #category : 'defaults' } SpTextCopyCommand class >> defaultIconName [ ^#smallCopy ] -{ #category : #default } +{ #category : 'default' } SpTextCopyCommand class >> defaultName [ ^ 'Copy' ] -{ #category : #default } +{ #category : 'default' } SpTextCopyCommand class >> defaultShortcutKey [ ^ $c command mac @@ -23,7 +25,7 @@ SpTextCopyCommand class >> defaultShortcutKey [ | $c control unix ] -{ #category : #execution } +{ #category : 'execution' } SpTextCopyCommand >> execute [ context doTextCopy diff --git a/src/Spec2-Commands/SpTextCutCommand.class.st b/src/Spec2-Commands/SpTextCutCommand.class.st index d54ba7d35..32468ad8d 100644 --- a/src/Spec2-Commands/SpTextCutCommand.class.st +++ b/src/Spec2-Commands/SpTextCutCommand.class.st @@ -1,21 +1,23 @@ Class { - #name : #SpTextCutCommand, - #superclass : #SpTextEditionCommand, - #category : #'Spec2-Commands-Code' + #name : 'SpTextCutCommand', + #superclass : 'SpTextEditionCommand', + #category : 'Spec2-Commands-Code', + #package : 'Spec2-Commands', + #tag : 'Code' } -{ #category : #defaults } +{ #category : 'defaults' } SpTextCutCommand class >> defaultIconName [ ^#smallCut ] -{ #category : #default } +{ #category : 'default' } SpTextCutCommand class >> defaultName [ ^ 'Cut' ] -{ #category : #default } +{ #category : 'default' } SpTextCutCommand class >> defaultShortcutKey [ ^ $x command mac @@ -23,7 +25,7 @@ SpTextCutCommand class >> defaultShortcutKey [ | $x control unix ] -{ #category : #execution } +{ #category : 'execution' } SpTextCutCommand >> execute [ context doTextCut diff --git a/src/Spec2-Commands/SpTextEditionCommand.class.st b/src/Spec2-Commands/SpTextEditionCommand.class.st index 1365450ac..9a7d8d442 100644 --- a/src/Spec2-Commands/SpTextEditionCommand.class.st +++ b/src/Spec2-Commands/SpTextEditionCommand.class.st @@ -3,18 +3,20 @@ I'm a base command for edition in code presenters. Operations like ""copy"", ""paste"" will be implemented by extending me. " Class { - #name : #SpTextEditionCommand, - #superclass : #SpToolCommand, - #category : #'Spec2-Commands-Code' + #name : 'SpTextEditionCommand', + #superclass : 'SpToolCommand', + #category : 'Spec2-Commands-Code', + #package : 'Spec2-Commands', + #tag : 'Code' } -{ #category : #accessing } +{ #category : 'accessing' } SpTextEditionCommand class >> allOrdered [ ^ self allSubclasses sorted: #order ascending ] -{ #category : #accessing } +{ #category : 'accessing' } SpTextEditionCommand class >> order [ "at the end by default" diff --git a/src/Spec2-Commands/SpTextFindCommand.class.st b/src/Spec2-Commands/SpTextFindCommand.class.st index 7f6ca7647..89d399ca1 100644 --- a/src/Spec2-Commands/SpTextFindCommand.class.st +++ b/src/Spec2-Commands/SpTextFindCommand.class.st @@ -1,16 +1,18 @@ Class { - #name : #SpTextFindCommand, - #superclass : #SpTextSearchCommand, - #category : #'Spec2-Commands-Code' + #name : 'SpTextFindCommand', + #superclass : 'SpTextSearchCommand', + #category : 'Spec2-Commands-Code', + #package : 'Spec2-Commands', + #tag : 'Code' } -{ #category : #default } +{ #category : 'default' } SpTextFindCommand class >> defaultIconName [ ^ #smallFind ] -{ #category : #defaults } +{ #category : 'defaults' } SpTextFindCommand class >> defaultShortcutKey [ ^ $f command mac @@ -18,7 +20,7 @@ SpTextFindCommand class >> defaultShortcutKey [ | $f control win ] -{ #category : #executing } +{ #category : 'executing' } SpTextFindCommand >> execute [ context doTextFind diff --git a/src/Spec2-Commands/SpTextPasteCommand.class.st b/src/Spec2-Commands/SpTextPasteCommand.class.st index 554e889d8..0883ef35b 100644 --- a/src/Spec2-Commands/SpTextPasteCommand.class.st +++ b/src/Spec2-Commands/SpTextPasteCommand.class.st @@ -1,21 +1,23 @@ Class { - #name : #SpTextPasteCommand, - #superclass : #SpTextEditionCommand, - #category : #'Spec2-Commands-Code' + #name : 'SpTextPasteCommand', + #superclass : 'SpTextEditionCommand', + #category : 'Spec2-Commands-Code', + #package : 'Spec2-Commands', + #tag : 'Code' } -{ #category : #defaults } +{ #category : 'defaults' } SpTextPasteCommand class >> defaultIconName [ ^#smallPaste ] -{ #category : #default } +{ #category : 'default' } SpTextPasteCommand class >> defaultName [ ^ 'Paste' ] -{ #category : #default } +{ #category : 'default' } SpTextPasteCommand class >> defaultShortcutKey [ ^ $v command mac @@ -23,7 +25,7 @@ SpTextPasteCommand class >> defaultShortcutKey [ | $v control unix ] -{ #category : #execution } +{ #category : 'execution' } SpTextPasteCommand >> execute [ context doTextPaste diff --git a/src/Spec2-Commands/SpTextSearchCommand.class.st b/src/Spec2-Commands/SpTextSearchCommand.class.st index 0528ac9fc..bc72348cb 100644 --- a/src/Spec2-Commands/SpTextSearchCommand.class.st +++ b/src/Spec2-Commands/SpTextSearchCommand.class.st @@ -1,22 +1,24 @@ Class { - #name : #SpTextSearchCommand, - #superclass : #SpToolCommand, - #category : #'Spec2-Commands-Code' + #name : 'SpTextSearchCommand', + #superclass : 'SpToolCommand', + #category : 'Spec2-Commands-Code', + #package : 'Spec2-Commands', + #tag : 'Code' } -{ #category : #accessing } +{ #category : 'accessing' } SpTextSearchCommand class >> allOrdered [ ^ self allSubclasses sorted: #order ascending ] -{ #category : #default } +{ #category : 'default' } SpTextSearchCommand class >> defaultName [ ^ 'Find' ] -{ #category : #accessing } +{ #category : 'accessing' } SpTextSearchCommand class >> order [ "at the end by default" diff --git a/src/Spec2-Commands/SpTextSelectAndPasteCommand.class.st b/src/Spec2-Commands/SpTextSelectAndPasteCommand.class.st index 906713ddb..764e54445 100644 --- a/src/Spec2-Commands/SpTextSelectAndPasteCommand.class.st +++ b/src/Spec2-Commands/SpTextSelectAndPasteCommand.class.st @@ -1,21 +1,23 @@ Class { - #name : #SpTextSelectAndPasteCommand, - #superclass : #SpTextEditionCommand, - #category : #'Spec2-Commands-Code' + #name : 'SpTextSelectAndPasteCommand', + #superclass : 'SpTextEditionCommand', + #category : 'Spec2-Commands-Code', + #package : 'Spec2-Commands', + #tag : 'Code' } -{ #category : #defaults } +{ #category : 'defaults' } SpTextSelectAndPasteCommand class >> defaultIconName [ ^#smallCopy ] -{ #category : #default } +{ #category : 'default' } SpTextSelectAndPasteCommand class >> defaultName [ ^ 'Paste...' ] -{ #category : #execution } +{ #category : 'execution' } SpTextSelectAndPasteCommand >> execute [ context doTextSelectAndPaste diff --git a/src/Spec2-Commands/SpToolCommand.class.st b/src/Spec2-Commands/SpToolCommand.class.st index 53d6ab18a..b687ac7b2 100644 --- a/src/Spec2-Commands/SpToolCommand.class.st +++ b/src/Spec2-Commands/SpToolCommand.class.st @@ -4,15 +4,17 @@ My children will define actions that can be executed as part of the Pharo System " Class { - #name : #SpToolCommand, - #superclass : #CmCommand, + #name : 'SpToolCommand', + #superclass : 'CmCommand', #instVars : [ 'transform' ], - #category : #'Spec2-Commands-Presenters' + #category : 'Spec2-Commands-Presenters', + #package : 'Spec2-Commands', + #tag : 'Presenters' } -{ #category : #documentation } +{ #category : 'documentation' } SpToolCommand class >> addDocumentContextRequiredSelectors: aBuilder [ | requiredSelectors | @@ -32,24 +34,24 @@ SpToolCommand class >> addDocumentContextRequiredSelectors: aBuilder [ aBuilder text: '(No required API is defined)' ] ] -{ #category : #defaults } +{ #category : 'defaults' } SpToolCommand class >> defaultIconName [ ^nil ] -{ #category : #defaults } +{ #category : 'defaults' } SpToolCommand class >> defaultShortcutKey [ ^ nil ] -{ #category : #documentation } +{ #category : 'documentation' } SpToolCommand class >> documentContextRequiredSelectors [ ^ #() ] -{ #category : #default } +{ #category : 'default' } SpToolCommand class >> shortName [ "For menus some commands can implement this helper to provide shorter names. Example: default name = 'Browse Command', short name = 'command'. @@ -58,7 +60,7 @@ SpToolCommand class >> shortName [ ^ self defaultName ] -{ #category : #converting } +{ #category : 'converting' } SpToolCommand >> asSpecCommand [ | command | @@ -72,37 +74,37 @@ SpToolCommand >> asSpecCommand [ ^ SpToolCurrentApplicationCommand decorate: command ] -{ #category : #accessing } +{ #category : 'accessing' } SpToolCommand >> defaultIconName [ ^self class defaultIconName ] -{ #category : #initialization } +{ #category : 'initialization' } SpToolCommand >> initialize [ super initialize. transform := [ :aContext | aContext ] ] -{ #category : #accessing } +{ #category : 'accessing' } SpToolCommand >> shortcutKey [ ^ self class defaultShortcutKey ] -{ #category : #accessing } +{ #category : 'accessing' } SpToolCommand >> target [ ^ self transform value: self context ] -{ #category : #accessing } +{ #category : 'accessing' } SpToolCommand >> transform [ ^ transform ] -{ #category : #accessing } +{ #category : 'accessing' } SpToolCommand >> transform: aBlock [ transform := aBlock diff --git a/src/Spec2-Commands/SpToolCurrentApplication.class.st b/src/Spec2-Commands/SpToolCurrentApplication.class.st index 256211b8e..00a0975c2 100644 --- a/src/Spec2-Commands/SpToolCurrentApplication.class.st +++ b/src/Spec2-Commands/SpToolCurrentApplication.class.st @@ -3,7 +3,9 @@ A dynamic variable to keep current executing application while executing a tool It helps to transmit the ongoing application (taken from the tool command context) to deeper in the system navigation. " Class { - #name : #SpToolCurrentApplication, - #superclass : #DynamicVariable, - #category : #'Spec2-Commands-Presenters' + #name : 'SpToolCurrentApplication', + #superclass : 'DynamicVariable', + #category : 'Spec2-Commands-Presenters', + #package : 'Spec2-Commands', + #tag : 'Presenters' } diff --git a/src/Spec2-Commands/SpToolCurrentApplicationCommand.class.st b/src/Spec2-Commands/SpToolCurrentApplicationCommand.class.st index 4b449a07d..0893ce0fe 100644 --- a/src/Spec2-Commands/SpToolCurrentApplicationCommand.class.st +++ b/src/Spec2-Commands/SpToolCurrentApplicationCommand.class.st @@ -2,18 +2,20 @@ A decorator to wrap command on current application dynamic variable. " Class { - #name : #SpToolCurrentApplicationCommand, - #superclass : #CmCommandDecorator, - #category : #'Spec2-Commands-Presenters' + #name : 'SpToolCurrentApplicationCommand', + #superclass : 'CmCommandDecorator', + #category : 'Spec2-Commands-Presenters', + #package : 'Spec2-Commands', + #tag : 'Presenters' } -{ #category : #'reflective operations' } +{ #category : 'reflective operations' } SpToolCurrentApplicationCommand >> doesNotUnderstand: aMessage [ ^ aMessage sendTo: self decoratedCommand ] -{ #category : #executing } +{ #category : 'executing' } SpToolCurrentApplicationCommand >> execute [ SpToolCurrentApplication diff --git a/src/Spec2-Commands/package.st b/src/Spec2-Commands/package.st index 692037b27..904485a3a 100644 --- a/src/Spec2-Commands/package.st +++ b/src/Spec2-Commands/package.st @@ -1 +1 @@ -Package { #name : #'Spec2-Commands' } +Package { #name : 'Spec2-Commands' }