From 03af9be549d1b7e4beab7e77bcd2920c2a651ec7 Mon Sep 17 00:00:00 2001
From: jordanmontt <sebastianjmt@hotmail.com>
Date: Wed, 17 Nov 2021 15:03:41 +0100
Subject: [PATCH] Added an application. Renamed some classes. Using the
 application to start the presenters instead of sending new openWithSpec.
 Using styles.

---
 .../RewriteRuleBuilderPresenter.class.st      | 17 ++--
 .../ApplyRuleOnAllClassesCommand.class.st     |  2 +-
 .../MatchToolPresenter.class.st               | 55 ++++++++-----
 .../OpenMatchToolCommand.class.st             |  6 ++
 .../OpenRTApplierCommand.class.st             |  4 +-
 .../OpenRTBasicEditorCommand.class.st         | 10 ++-
 .../OpenRTExpressionFinderCommand.class.st    |  6 ++
 .../OpenRTHelpBrowserCommand.class.st         |  8 +-
 .../OpenRTRuleLoaderCommand.class.st          |  6 ++
 src/RewriteRuleTools/RTApplication.class.st   | 82 +++++++++++++++++++
 .../RTCheatSheetPresenter.class.st            | 13 ++-
 ...st => RTCodeTransformerPresenter.class.st} | 60 ++++++++------
 .../RTExpressionFinderPresenter.class.st      |  4 +-
 ...ass.st => RTHelpBrowserPresenter.class.st} | 41 +++++-----
 ...lass.st => RTRuleEditorPresenter.class.st} | 58 +++++--------
 .../RTRuleLoaderPresenter.class.st            |  6 +-
 src/RewriteRuleTools/SaveRuleCommand.class.st |  6 ++
 .../RTBasicEditorPresenterTest.class.st       |  8 +-
 .../RTRuleApplierPresenterTest.class.st       |  4 +-
 .../RTRulesHelpPresenterTest.class.st         |  2 +-
 20 files changed, 267 insertions(+), 131 deletions(-)
 create mode 100644 src/RewriteRuleTools/RTApplication.class.st
 rename src/RewriteRuleTools/{RTRuleTransformerPresenter.class.st => RTCodeTransformerPresenter.class.st} (72%)
 rename src/RewriteRuleTools/{RTRulesHelpPresenter.class.st => RTHelpBrowserPresenter.class.st} (89%)
 rename src/RewriteRuleTools/{RTBasicEditorPresenter.class.st => RTRuleEditorPresenter.class.st} (79%)

diff --git a/src/RewriteRuleBuilder/RewriteRuleBuilderPresenter.class.st b/src/RewriteRuleBuilder/RewriteRuleBuilderPresenter.class.st
index c6087a9..456ad58 100644
--- a/src/RewriteRuleBuilder/RewriteRuleBuilderPresenter.class.st
+++ b/src/RewriteRuleBuilder/RewriteRuleBuilderPresenter.class.st
@@ -67,7 +67,8 @@ RewriteRuleBuilderPresenter class >> menuCommandOn: aBuilder [
 { #category : #'instance creation' }
 RewriteRuleBuilderPresenter class >> open [
 
-	^ self new openWithSpec
+	<example>
+	^ RTApplication new startRuleBuilder
 ]
 
 { #category : #accessing }
@@ -90,7 +91,7 @@ RewriteRuleBuilderPresenter >> applyOnAllClasses [
 	(UIManager default confirm:
 		 'Do you want to apply this rule to all system classes?') ifFalse: [ 
 		^ self ].
-	RTRuleTransformerPresenter
+	RTCodeTransformerPresenter
 		runReplaceWithRuleAsAssociation: self lhs text -> self rhs text
 		isForMethod: false
 ]
@@ -216,17 +217,17 @@ RewriteRuleBuilderPresenter >> initializePresenters [
 		                   icon: MatchToolPresenter icon.
 	basicEditorButton := self newButton
 		                     label: 'Basic Editor';
-		                     icon: RTBasicEditorPresenter icon.
+		                     icon: RTRuleEditorPresenter icon.
 	applyOnAllClassesButton := self newButton
 		                           label: 'On all classes';
 		                           help:
 			                           'Apply the current rewrite rule that is on this tool to all classes in the system.';
-		                           icon: RTRuleTransformerPresenter icon.
+		                           icon: RTCodeTransformerPresenter icon.
 	applierButton := self newButton
 		                 label: 'On selection...';
 		                 help:
 			                 'Open a tool to apply a saved rewrite rule to a selected set of classes.';
-		                 icon: RTRuleTransformerPresenter icon.
+		                 icon: RTCodeTransformerPresenter icon.
 	buttonsBar := self newButtonBar
 		              add: saveRuleButton;
 		              add: applierButton;
@@ -319,16 +320,16 @@ RewriteRuleBuilderPresenter >> openApplier [
 	| applier |
 	^ loadedRule
 		  ifNotNil: [ 
-			  applier := RTRuleTransformerPresenter new.
+			  applier := RTCodeTransformerPresenter new.
 			  applier selectedRules: { loadedRule class }.
 			  applier openWithSpec ]
-		  ifNil: [ RTRuleTransformerPresenter open ]
+		  ifNil: [ RTCodeTransformerPresenter open ]
 ]
 
 { #category : #actions }
 RewriteRuleBuilderPresenter >> openBasicRuleEditor [
 
-	^ RTBasicEditorPresenter new
+	^ RTRuleEditorPresenter new
 		  rhs: self rhs;
 		  lhs: self lhs;
 		  openWithSpec
diff --git a/src/RewriteRuleTools/ApplyRuleOnAllClassesCommand.class.st b/src/RewriteRuleTools/ApplyRuleOnAllClassesCommand.class.st
index 7e886b0..b71bbdf 100644
--- a/src/RewriteRuleTools/ApplyRuleOnAllClassesCommand.class.st
+++ b/src/RewriteRuleTools/ApplyRuleOnAllClassesCommand.class.st
@@ -24,7 +24,7 @@ ApplyRuleOnAllClassesCommand class >> defaultName [
 { #category : #default }
 ApplyRuleOnAllClassesCommand class >> iconName [
 
-	^ RTRuleTransformerPresenter iconName
+	^ RTCodeTransformerPresenter iconName
 ]
 
 { #category : #executing }
diff --git a/src/RewriteRuleTools/MatchToolPresenter.class.st b/src/RewriteRuleTools/MatchToolPresenter.class.st
index 4fc3d8b..8e8178f 100644
--- a/src/RewriteRuleTools/MatchToolPresenter.class.st
+++ b/src/RewriteRuleTools/MatchToolPresenter.class.st
@@ -62,10 +62,10 @@ MatchToolPresenter class >> menuCommandOn: aBuilder [
 { #category : #api }
 MatchToolPresenter class >> open [
 	<example>
-	^ self new openWithSpec
+	^ RTApplication new startMatchTool
 ]
 
-{ #category : #accessing }
+{ #category : #specs }
 MatchToolPresenter class >> title [
 
 	^ 'Match Tool'
@@ -100,6 +100,32 @@ MatchToolPresenter >> getBindingsItemsForMatch: bindingsAssociation [
 	^ newItems flattened
 ]
 
+{ #category : #initialization }
+MatchToolPresenter >> initializeButtons [
+
+	executeButton := self newButton.
+	executeButton
+		icon: (self iconNamed: #smallDoIt);
+		label: 'Match';
+		shortcut: Character cr meta.
+]
+
+{ #category : #initialization }
+MatchToolPresenter >> initializeEditors [
+
+	methodCheckbox := self newCheckBox label: 'Is rule for method?'.
+	
+	codeLabel := self newLabel label: 'Pharo code'.
+	
+	codeEditor := self newCode.
+	codeEditor
+		withoutLineNumbers;
+		beForScripting;
+		text: DefaultRule new inputCode.
+
+	ruleEditor := self instantiate: RTSearchForPanel.
+]
+
 { #category : #initialization }
 MatchToolPresenter >> initializeLayout [
 
@@ -134,23 +160,7 @@ MatchToolPresenter >> initializeLayout [
 ]
 
 { #category : #initialization }
-MatchToolPresenter >> initializePresenters [
-
-	methodCheckbox := self newCheckBox label: 'Is rule for method?'.
-	codeLabel := self newLabel label: 'Pharo code'.
-
-	codeEditor := self newCode.
-	codeEditor
-		withoutLineNumbers;
-		beForScripting;
-		text: DefaultRule new inputCode.
-	ruleEditor := self instantiate: RTSearchForPanel.
-
-	executeButton := self newButton.
-	executeButton
-		icon: (self iconNamed: #smallDoIt);
-		label: 'Match';
-		shortcut: Character cr meta.
+MatchToolPresenter >> initializeMatchesPresenters [
 
 	matchesList := self newList.
 	matchesList display: [ :assoc | assoc key formattedCode ].
@@ -164,7 +174,14 @@ MatchToolPresenter >> initializePresenters [
 			title: 'Bindings'
 			evaluated: [ :assoc | assoc value formattedCode ]);
 		beResizable.
+]
 
+{ #category : #initialization }
+MatchToolPresenter >> initializePresenters [
+	
+	self initializeEditors.
+	self initializeButtons.
+	self initializeMatchesPresenters.
 	self initializeLayout.
 	
 	self focusOrder
diff --git a/src/RewriteRuleTools/OpenMatchToolCommand.class.st b/src/RewriteRuleTools/OpenMatchToolCommand.class.st
index 34bc764..97a39b1 100644
--- a/src/RewriteRuleTools/OpenMatchToolCommand.class.st
+++ b/src/RewriteRuleTools/OpenMatchToolCommand.class.st
@@ -9,6 +9,12 @@ Class {
 	#category : #'RewriteRuleTools-Commands'
 }
 
+{ #category : #default }
+OpenMatchToolCommand class >> defaultDescription [
+
+	^ 'Open MatchTool'
+]
+
 { #category : #default }
 OpenMatchToolCommand class >> defaultName [
 
diff --git a/src/RewriteRuleTools/OpenRTApplierCommand.class.st b/src/RewriteRuleTools/OpenRTApplierCommand.class.st
index 8027fd3..4a2e2d1 100644
--- a/src/RewriteRuleTools/OpenRTApplierCommand.class.st
+++ b/src/RewriteRuleTools/OpenRTApplierCommand.class.st
@@ -24,11 +24,11 @@ OpenRTApplierCommand class >> defaultName [
 { #category : #default }
 OpenRTApplierCommand class >> iconName [
 
-	^ RTRuleTransformerPresenter iconName
+	^ RTCodeTransformerPresenter iconName
 ]
 
 { #category : #executing }
 OpenRTApplierCommand >> execute [
 
-	^ RTRuleTransformerPresenter open
+	^ RTCodeTransformerPresenter open
 ]
diff --git a/src/RewriteRuleTools/OpenRTBasicEditorCommand.class.st b/src/RewriteRuleTools/OpenRTBasicEditorCommand.class.st
index 4ad0201..e074654 100644
--- a/src/RewriteRuleTools/OpenRTBasicEditorCommand.class.st
+++ b/src/RewriteRuleTools/OpenRTBasicEditorCommand.class.st
@@ -9,6 +9,12 @@ Class {
 	#category : #'RewriteRuleTools-Commands'
 }
 
+{ #category : #default }
+OpenRTBasicEditorCommand class >> defaultDescription [
+
+	^ 'Open Rewrite Rule Editor'
+]
+
 { #category : #default }
 OpenRTBasicEditorCommand class >> defaultName [
 
@@ -18,13 +24,13 @@ OpenRTBasicEditorCommand class >> defaultName [
 { #category : #default }
 OpenRTBasicEditorCommand class >> iconName [
 
-	^RTBasicEditorPresenter iconName
+	^RTRuleEditorPresenter iconName
 ]
 
 { #category : #executing }
 OpenRTBasicEditorCommand >> execute [
 
-	^ RTBasicEditorPresenter new
+	^ RTRuleEditorPresenter new
 		lhs: self context lhs;
 		rhs: self context rhs;
 		openWithSpec
diff --git a/src/RewriteRuleTools/OpenRTExpressionFinderCommand.class.st b/src/RewriteRuleTools/OpenRTExpressionFinderCommand.class.st
index 6038d2b..92dd991 100644
--- a/src/RewriteRuleTools/OpenRTExpressionFinderCommand.class.st
+++ b/src/RewriteRuleTools/OpenRTExpressionFinderCommand.class.st
@@ -9,6 +9,12 @@ Class {
 	#category : #'RewriteRuleTools-Commands'
 }
 
+{ #category : #default }
+OpenRTExpressionFinderCommand class >> defaultDescription [
+
+	^ 'Find ocurrences of an expression in all Pharo''s code'
+]
+
 { #category : #default }
 OpenRTExpressionFinderCommand class >> defaultName [
 
diff --git a/src/RewriteRuleTools/OpenRTHelpBrowserCommand.class.st b/src/RewriteRuleTools/OpenRTHelpBrowserCommand.class.st
index 32578c6..27d100a 100644
--- a/src/RewriteRuleTools/OpenRTHelpBrowserCommand.class.st
+++ b/src/RewriteRuleTools/OpenRTHelpBrowserCommand.class.st
@@ -9,6 +9,12 @@ Class {
 	#category : #'RewriteRuleTools-Commands'
 }
 
+{ #category : #default }
+OpenRTHelpBrowserCommand class >> defaultDescription [
+
+	^ 'Help browser'
+]
+
 { #category : #default }
 OpenRTHelpBrowserCommand class >> defaultName [
 
@@ -24,5 +30,5 @@ OpenRTHelpBrowserCommand class >> iconName [
 { #category : #executing }
 OpenRTHelpBrowserCommand >> execute [
 
-	^ RTRulesHelpPresenter open
+	^ RTHelpBrowserPresenter open
 ]
diff --git a/src/RewriteRuleTools/OpenRTRuleLoaderCommand.class.st b/src/RewriteRuleTools/OpenRTRuleLoaderCommand.class.st
index c4d8c23..1cbc21f 100644
--- a/src/RewriteRuleTools/OpenRTRuleLoaderCommand.class.st
+++ b/src/RewriteRuleTools/OpenRTRuleLoaderCommand.class.st
@@ -9,6 +9,12 @@ Class {
 	#category : #'RewriteRuleTools-Commands'
 }
 
+{ #category : #default }
+OpenRTRuleLoaderCommand class >> defaultDescription [
+
+	^ 'Load a stored Rewrite Rule'
+]
+
 { #category : #default }
 OpenRTRuleLoaderCommand class >> defaultName [
 
diff --git a/src/RewriteRuleTools/RTApplication.class.st b/src/RewriteRuleTools/RTApplication.class.st
new file mode 100644
index 0000000..14cc494
--- /dev/null
+++ b/src/RewriteRuleTools/RTApplication.class.st
@@ -0,0 +1,82 @@
+"
+I am an application to use in all RT tool to define costum styles.
+"
+Class {
+	#name : #RTApplication,
+	#superclass : #SpApplication,
+	#classVars : [
+		'Current'
+	],
+	#category : #'RewriteRuleTools-Application'
+}
+
+{ #category : #accessing }
+RTApplication class >> current [
+
+	^ Current ifNil: [ Current := self new ]
+]
+
+{ #category : #running }
+RTApplication >> start [
+
+	(self newPresenter: RTRuleEditorPresenter) openWithSpec
+]
+
+{ #category : #running }
+RTApplication >> startExpressionFinder [
+
+	^ (self newPresenter: RTExpressionFinderPresenter) openWithSpec
+]
+
+{ #category : #running }
+RTApplication >> startHelpBrowser [
+
+	^ (self newPresenter: RTHelpBrowserPresenter) openWithSpec
+]
+
+{ #category : #running }
+RTApplication >> startMatchTool [
+
+	^ (self newPresenter: MatchToolPresenter) openWithSpec
+]
+
+{ #category : #running }
+RTApplication >> startRuleBuilder [
+
+	^ (self newPresenter: RewriteRuleBuilderPresenter) openWithSpec
+]
+
+{ #category : #running }
+RTApplication >> startRuleEditor [
+
+	^ (self newPresenter: RTRuleEditorPresenter) openWithSpec
+]
+
+{ #category : #running }
+RTApplication >> startRuleLoader [
+
+	^ (self newPresenter: RTRuleLoaderPresenter) openWithSpec
+]
+
+{ #category : #running }
+RTApplication >> startTransformer [
+
+	^ (self newPresenter: RTCodeTransformerPresenter) openWithSpec
+]
+
+{ #category : #styling }
+RTApplication >> styleSheet [
+
+	^ SpStyle defaultStyleSheet, 
+	(SpStyleVariableSTONReader fromString:
+'.application [
+	
+	.container [ Container { #padding: 4, #borderWidth: 2 } ],
+	.bgOpaque [ Draw { #backgroundColor: EnvironmentColor(#base) } ],
+	.bgBlue [ Draw { #backgroundColor: #blue } ],
+	.boldFont [ Font { #bold: true } ],
+	.textFont [ Font { #name: EnvironmentFont(#default) } ],
+	.bigFontSize [ Font { #size: 20 } ],
+	.buttonStyle [ Geometry { #width: 130 } ]
+]')
+]
diff --git a/src/RewriteRuleTools/RTCheatSheetPresenter.class.st b/src/RewriteRuleTools/RTCheatSheetPresenter.class.st
index 3629478..724a71d 100644
--- a/src/RewriteRuleTools/RTCheatSheetPresenter.class.st
+++ b/src/RewriteRuleTools/RTCheatSheetPresenter.class.st
@@ -37,10 +37,19 @@ RTCheatSheetPresenter >> initializeLayout [
 { #category : #initialization }
 RTCheatSheetPresenter >> initializePresenters [
 
-	textPresenter := self newText
+	textPresenter := self newText.
+	textPresenter
 		text: self helpText;
 		beNotEditable.
+
 	helpButton := self instantiate: (OpenRTHelpBrowserCommand asSpecButtonForContext: self).
+
+	self initializeStyles.
 	self initializeLayout
-	"cheatSheet color: self theme baseColor"
+]
+
+{ #category : #initialization }
+RTCheatSheetPresenter >> initializeStyles [
+
+	textPresenter addStyle: 'bgOpaque'.
 ]
diff --git a/src/RewriteRuleTools/RTRuleTransformerPresenter.class.st b/src/RewriteRuleTools/RTCodeTransformerPresenter.class.st
similarity index 72%
rename from src/RewriteRuleTools/RTRuleTransformerPresenter.class.st
rename to src/RewriteRuleTools/RTCodeTransformerPresenter.class.st
index 12ef6d9..fb70bea 100644
--- a/src/RewriteRuleTools/RTRuleTransformerPresenter.class.st
+++ b/src/RewriteRuleTools/RTCodeTransformerPresenter.class.st
@@ -10,7 +10,7 @@ You can open me whit:
 `RewriteRuleApplierPresenter open`
 "
 Class {
-	#name : #RTRuleTransformerPresenter,
+	#name : #RTCodeTransformerPresenter,
 	#superclass : #SpPresenter,
 	#instVars : [
 		'applyOnSelectedClassesButton',
@@ -24,37 +24,37 @@ Class {
 }
 
 { #category : #accessing }
-RTRuleTransformerPresenter class >> descriptionText [
+RTCodeTransformerPresenter class >> descriptionText [
 
 	^ 'Apply your custom rewrite rules to any packages or classes'
 ]
 
 { #category : #accessing }
-RTRuleTransformerPresenter class >> icon [
+RTCodeTransformerPresenter class >> icon [
 
 	^ self iconNamed: self iconName
 ]
 
 { #category : #accessing }
-RTRuleTransformerPresenter class >> iconName [
+RTCodeTransformerPresenter class >> iconName [
 	^ #objects
 ]
 
 { #category : #api }
-RTRuleTransformerPresenter class >> open [
+RTCodeTransformerPresenter class >> open [
 
 	<script>
-	^ self new openWithSpec
+	^ RTApplication new startTransformer
 ]
 
-{ #category : #accessing }
-RTRuleTransformerPresenter class >> title [
+{ #category : #specs }
+RTCodeTransformerPresenter class >> title [
 
 	^ 'Rewrite Rule Applier'
 ]
 
 { #category : #initialization }
-RTRuleTransformerPresenter >> connectPresenters [
+RTCodeTransformerPresenter >> connectPresenters [
 
 	applyOnSelectedClassesButton action: [ self runReplace ].
 	applyOnAllClassesButton action: [ self runReplaceOnAllClasses ].
@@ -62,7 +62,7 @@ RTRuleTransformerPresenter >> connectPresenters [
 ]
 
 { #category : #initialization }
-RTRuleTransformerPresenter >> initializeButtons [
+RTCodeTransformerPresenter >> initializeButtons [
 
 	openRulesTableButton := self newButton.
 	openRulesTableButton
@@ -83,46 +83,54 @@ RTRuleTransformerPresenter >> initializeButtons [
 ]
 
 { #category : #initialization }
-RTRuleTransformerPresenter >> initializeLayout [
-
-	| fixedWidth |
-	fixedWidth := 130.
+RTCodeTransformerPresenter >> initializeLayout [
 
 	self layout: (SpBoxLayout newTopToBottom
 		add: methodsSelectorPresenter;
 		add: (SpBoxLayout newLeftToRight
-			add: openRulesTableButton width: fixedWidth;
-			addLast: applyOnSelectedClassesButton withConstraints: [ :c | c width: fixedWidth];
-			addLast: applyOnAllClassesButton withConstraints: [ :c | c width: fixedWidth];
-			addLast: openLoaderButton withConstraints: [ :c | c width: fixedWidth];
+			add: openRulesTableButton expand: false;
+			addLast: applyOnSelectedClassesButton expand: false;
+			addLast: applyOnAllClassesButton expand: false;
+			addLast: openLoaderButton expand: false;
 			yourself)
 		expand: false;
 		yourself)
 ]
 
 { #category : #initialization }
-RTRuleTransformerPresenter >> initializeMethodsSelector [
+RTCodeTransformerPresenter >> initializeMethodsSelector [
 
 	methodsSelectorPresenter := MethodsSelectorPresenter new
 ]
 
 { #category : #initialization }
-RTRuleTransformerPresenter >> initializePresenters [
-
+RTCodeTransformerPresenter >> initializePresenters [
+	
 	self initializeButtons.
 	self initializeRulesTableSelector.
 	self initializeMethodsSelector.
+
+	self initializeStyles.
 	self initializeLayout
 ]
 
 { #category : #initialization }
-RTRuleTransformerPresenter >> initializeRulesTableSelector [
+RTCodeTransformerPresenter >> initializeRulesTableSelector [
 
 	rulesTablePresenter := self instantiate: RTRulesTableSelectorPresenter
 ]
 
 { #category : #initialization }
-RTRuleTransformerPresenter >> initializeWindow: aWindowPresenter [
+RTCodeTransformerPresenter >> initializeStyles [
+
+	openRulesTableButton addStyle: 'buttonStyle'.
+	applyOnSelectedClassesButton addStyle: 'buttonStyle'.
+	applyOnAllClassesButton addStyle: 'buttonStyle'.
+	openLoaderButton addStyle: 'buttonStyle'
+]
+
+{ #category : #initialization }
+RTCodeTransformerPresenter >> initializeWindow: aWindowPresenter [
 
 	aWindowPresenter
 		title: self class title translated;
@@ -133,7 +141,7 @@ RTRuleTransformerPresenter >> initializeWindow: aWindowPresenter [
 ]
 
 { #category : #actions }
-RTRuleTransformerPresenter >> openTableSelectorAsPopover [
+RTCodeTransformerPresenter >> openTableSelectorAsPopover [
 
 	| popover wrapper |
 	"This is a hack. Wrap the presenter inside a fixed width to have a bigger popover"
@@ -154,7 +162,7 @@ RTRuleTransformerPresenter >> openTableSelectorAsPopover [
 ]
 
 { #category : #actions }
-RTRuleTransformerPresenter >> runReplace [
+RTCodeTransformerPresenter >> runReplace [
 
 	| changes selectedRules |
 	selectedRules := rulesTablePresenter selectedRules.
@@ -165,7 +173,7 @@ RTRuleTransformerPresenter >> runReplace [
 ]
 
 { #category : #actions }
-RTRuleTransformerPresenter >> runReplaceOnAllClasses [
+RTCodeTransformerPresenter >> runReplaceOnAllClasses [
 
 	| changes |
 	changes := RTRenrakuApplier changesOfAllMethodsFor: rulesTablePresenter selectedRules.
diff --git a/src/RewriteRuleTools/RTExpressionFinderPresenter.class.st b/src/RewriteRuleTools/RTExpressionFinderPresenter.class.st
index df3fc16..90dd25a 100644
--- a/src/RewriteRuleTools/RTExpressionFinderPresenter.class.st
+++ b/src/RewriteRuleTools/RTExpressionFinderPresenter.class.st
@@ -39,7 +39,7 @@ RTExpressionFinderPresenter class >> menuCommandOn: aBuilder [
 RTExpressionFinderPresenter class >> open [
 
 	<script>
-	^ self new openWithSpec
+	^ RTApplication new startExpressionFinder
 ]
 
 { #category : #initialization }
@@ -66,7 +66,7 @@ RTExpressionFinderPresenter >> initializeLayout [
 
 { #category : #initialization }
 RTExpressionFinderPresenter >> initializePresenters [
-
+	
 	patternCodePresenter := self instantiate: RTSearchForPanel.
 	cheatSheet := self instantiate: RTCheatSheetPresenter.
 	searchButton := self newButton.
diff --git a/src/RewriteRuleTools/RTRulesHelpPresenter.class.st b/src/RewriteRuleTools/RTHelpBrowserPresenter.class.st
similarity index 89%
rename from src/RewriteRuleTools/RTRulesHelpPresenter.class.st
rename to src/RewriteRuleTools/RTHelpBrowserPresenter.class.st
index c79d718..93d6729 100644
--- a/src/RewriteRuleTools/RTRulesHelpPresenter.class.st
+++ b/src/RewriteRuleTools/RTHelpBrowserPresenter.class.st
@@ -2,7 +2,7 @@
 I am a helper browser that contains an explanation of what the rewrite rule are and how their syntax works.
 "
 Class {
-	#name : #RTRulesHelpPresenter,
+	#name : #RTHelpBrowserPresenter,
 	#superclass : #SpPresenter,
 	#instVars : [
 		'morphPresenter'
@@ -11,7 +11,7 @@ Class {
 }
 
 { #category : #accessing }
-RTRulesHelpPresenter class >> basicPatterns [
+RTHelpBrowserPresenter class >> basicPatterns [
 
 	^ '#(\`)Basic Pattern Nodes
 Code prefixed with a backtick character (\`) defines a pattern node. A pattern node can be a
@@ -34,7 +34,7 @@ that will match any method which returns nil. '
 ]
 
 { #category : #accessing }
-RTRulesHelpPresenter class >> blockPatterns [
+RTHelpBrowserPresenter class >> blockPatterns [
 
 	^ '#(`{ }) Block Pattern Nodes
 These are the most exotic of all the nodes. They match any AST nodes like a list pattern 
@@ -57,7 +57,7 @@ In this case first `#(1 2 3)` will be matched by the literal node and then teste
 ]
 
 { #category : #api }
-RTRulesHelpPresenter class >> getMicrodownParsedText [
+RTHelpBrowserPresenter class >> getMicrodownParsedText [
 
 	| concatenatedContent |
 	concatenatedContent := self patternCodeIntro , String cr
@@ -72,7 +72,7 @@ RTRulesHelpPresenter class >> getMicrodownParsedText [
 ]
 
 { #category : #accessing }
-RTRulesHelpPresenter class >> issues [
+RTHelpBrowserPresenter class >> issues [
 
 	^ '#Issues?
  If you found any issues please submit them here: 
@@ -81,7 +81,7 @@ Your feedback is absolutely necessary and will help to evolve this tool into a b
 ]
 
 { #category : #accessing }
-RTRulesHelpPresenter class >> listPatterns [
+RTHelpBrowserPresenter class >> listPatterns [
 
 	^ '#(\`@) List Pattern Nodes
 To have complete flexibility there is the possibility to use an at sign `@` before the name
@@ -135,7 +135,7 @@ name looks nicer this way._'
 ]
 
 { #category : #accessing }
-RTRulesHelpPresenter class >> literalPatterns [
+RTHelpBrowserPresenter class >> literalPatterns [
 
 	^ '#(\`\#) Literal Pattern Nodes
 For variables backtick can be followed by hash to enforce that matched receiver will be a literal:
@@ -145,7 +145,7 @@ For variables backtick can be followed by hash to enforce that matched receiver
 ]
 
 { #category : #accessing }
-RTRulesHelpPresenter class >> namingImportant [
+RTHelpBrowserPresenter class >> namingImportant [
 
 	^ '#Naming is Important
 The pattern nodes are so that you can match anything in their place. But their naming is also
@@ -158,13 +158,14 @@ arguments. It is like that because we used the same pattern variable name.'
 ]
 
 { #category : #'instance creation' }
-RTRulesHelpPresenter class >> open [ 
+RTHelpBrowserPresenter class >> open [
+
 	<script>
-	^ self new openWithSpec
+	^ RTApplication new startHelpBrowser
 ]
 
 { #category : #parsing }
-RTRulesHelpPresenter class >> parseMicrodownText: aString [
+RTHelpBrowserPresenter class >> parseMicrodownText: aString [
 
 	^ [ MicRichTextComposer microdownAsRichText: aString ]
 		  on: MicParsingError , MessageNotUnderstood
@@ -172,7 +173,7 @@ RTRulesHelpPresenter class >> parseMicrodownText: aString [
 ]
 
 { #category : #accessing }
-RTRulesHelpPresenter class >> patternCodeIntro [
+RTHelpBrowserPresenter class >> patternCodeIntro [
 
 	^ '#Pattern Code Introduction
 Pattern code is very similar to ordinary Smalltalk code, but allows to specify some “wildcards”.
@@ -194,7 +195,7 @@ The following sections will go over different kinds of wildcards (pattern nodes)
 ]
 
 { #category : #accessing }
-RTRulesHelpPresenter class >> statementPatterns [
+RTHelpBrowserPresenter class >> statementPatterns [
 
 	^ '#(\`.) Statement Pattern Nodes
 Backtick can be followed by a period to match statements. For example:
@@ -208,7 +209,7 @@ only one statement each.'
 ]
 
 { #category : #accessing }
-RTRulesHelpPresenter class >> whatNext [
+RTHelpBrowserPresenter class >> whatNext [
 
 	^ '#What''s Next?
 At the moment you can create quality rules that use pattern expression to detect and even
@@ -222,7 +223,7 @@ Especially read: `Rules > Creating Rules > Special Rules > ReNodeMatchRule`'
 ]
 
 { #category : #accesing }
-RTRulesHelpPresenter >> createTextMorph [
+RTHelpBrowserPresenter >> createTextMorph [
 
 	^ RubScrolledTextMorph new
 		  setText: self class getMicrodownParsedText;
@@ -231,19 +232,21 @@ RTRulesHelpPresenter >> createTextMorph [
 ]
 
 { #category : #initialization }
-RTRulesHelpPresenter >> initializePresenters [
+RTHelpBrowserPresenter >> initializePresenters [
 
 	
 	morphPresenter := self newMorph
 		morph: self createTextMorph;
 		yourself.
+	morphPresenter addStyle: 'bgOpaque'.
+
 	self layout: (SpBoxLayout newLeftToRight
-			 add: morphPresenter;
-			 yourself).
+		add: morphPresenter;
+		yourself).
 ]
 
 { #category : #initialization }
-RTRulesHelpPresenter >> initializeWindow: aWindowPresenter [
+RTHelpBrowserPresenter >> initializeWindow: aWindowPresenter [
 
 	aWindowPresenter
 		title: 'Rewrite rules syntax help';
diff --git a/src/RewriteRuleTools/RTBasicEditorPresenter.class.st b/src/RewriteRuleTools/RTRuleEditorPresenter.class.st
similarity index 79%
rename from src/RewriteRuleTools/RTBasicEditorPresenter.class.st
rename to src/RewriteRuleTools/RTRuleEditorPresenter.class.st
index 2c868f5..fc6d7c1 100644
--- a/src/RewriteRuleTools/RTBasicEditorPresenter.class.st
+++ b/src/RewriteRuleTools/RTRuleEditorPresenter.class.st
@@ -12,7 +12,7 @@ If you want to edit an already saved rewrite rule, just click on 'Open Loader' a
 Click on MatchTool to open a tool that allows you to match your rule with a block of Pharo's code.
 "
 Class {
-	#name : #RTBasicEditorPresenter,
+	#name : #RTRuleEditorPresenter,
 	#superclass : #SpPresenter,
 	#instVars : [
 		'cheatSheet',
@@ -30,38 +30,24 @@ Class {
 }
 
 { #category : #accessing }
-RTBasicEditorPresenter class >> descriptionText [ 
+RTRuleEditorPresenter class >> descriptionText [ 
 
 	^ 'A tool to build and apply custom Rewrite Rules.'
 ]
 
-{ #category : #accesing }
-RTBasicEditorPresenter class >> helpText [
-
-	^ '` = meta var
-
-@ = list
-
-` = recurse into
-
-. = statement
-
-# = literal'
-]
-
 { #category : #accessing }
-RTBasicEditorPresenter class >> icon [
+RTRuleEditorPresenter class >> icon [
 
 	^ self iconNamed: self iconName
 ]
 
 { #category : #accessing }
-RTBasicEditorPresenter class >> iconName [
+RTRuleEditorPresenter class >> iconName [
 	^ #workspaceIcon
 ]
 
 { #category : #'world menu' }
-RTBasicEditorPresenter class >> menuCommandOn: aBuilder [
+RTRuleEditorPresenter class >> menuCommandOn: aBuilder [
 
 	<worldMenu>
 	(aBuilder item: #RewriteRuleEditor)
@@ -73,20 +59,20 @@ RTBasicEditorPresenter class >> menuCommandOn: aBuilder [
 ]
 
 { #category : #specs }
-RTBasicEditorPresenter class >> open [
+RTRuleEditorPresenter class >> open [
 
 	<example>
-	^ self new openWithSpec
+	^ RTApplication new startRuleEditor
 ]
 
-{ #category : #accessing }
-RTBasicEditorPresenter class >> title [
+{ #category : #specs }
+RTRuleEditorPresenter class >> title [
 
 	^ 'Rewrite Basic Editor'
 ]
 
 { #category : #initialization }
-RTBasicEditorPresenter >> initializeButtons [
+RTRuleEditorPresenter >> initializeButtons [
 
 	loadButton := self instantiate: (OpenRTRuleLoaderCommand asSpecButtonForContext: self).
 	saveButton := self instantiate: (SaveRuleCommand asSpecButtonForContext: self).
@@ -97,7 +83,7 @@ RTBasicEditorPresenter >> initializeButtons [
 ]
 
 { #category : #initialization }
-RTBasicEditorPresenter >> initializeLayout [
+RTRuleEditorPresenter >> initializeLayout [
 
 	| tempLayout|
 	tempLayout := SpPanedLayout newLeftToRight
@@ -115,20 +101,20 @@ RTBasicEditorPresenter >> initializeLayout [
 			add: saveButton expand: false;
 			add: loadButton expand: false;
 			yourself);
-		positionOfSlider: 70 percent;
+		positionOfSlider: 75 percent;
 		yourself.
 	self layout: (tempLayout)
 ]
 
 { #category : #initialization }
-RTBasicEditorPresenter >> initializeMethodCheckbox [
+RTRuleEditorPresenter >> initializeMethodCheckbox [
 
 	isMethodCheckbox := self newCheckBox.
 	isMethodCheckbox label: 'Is rule for method?'
 ]
 
 { #category : #initialization }
-RTBasicEditorPresenter >> initializePresenters [
+RTRuleEditorPresenter >> initializePresenters [
 
 	self initializeMethodCheckbox.
 	self initializeTextCheatSheet.
@@ -138,20 +124,20 @@ RTBasicEditorPresenter >> initializePresenters [
 ]
 
 { #category : #initialization }
-RTBasicEditorPresenter >> initializeRuleEditors [
+RTRuleEditorPresenter >> initializeRuleEditors [
 
 	searchForEditor := self instantiate: RTSearchForPanel.
 	replaceWithEditor := self instantiate: RTReplaceWithPanel
 ]
 
 { #category : #initialization }
-RTBasicEditorPresenter >> initializeTextCheatSheet [
+RTRuleEditorPresenter >> initializeTextCheatSheet [
 
 	cheatSheet := self instantiate: RTCheatSheetPresenter
 ]
 
 { #category : #initialization }
-RTBasicEditorPresenter >> initializeWindow: aWindowPresenter [
+RTRuleEditorPresenter >> initializeWindow: aWindowPresenter [
 
 	| fontWidth rowHeight |
 	fontWidth := StandardFonts defaultFont widthOfString: 'M'.
@@ -164,27 +150,27 @@ RTBasicEditorPresenter >> initializeWindow: aWindowPresenter [
 ]
 
 { #category : #accessing }
-RTBasicEditorPresenter >> isRuleForMethod [
+RTRuleEditorPresenter >> isRuleForMethod [
 
 	^ isMethodCheckbox state
 ]
 
 { #category : #accessing }
-RTBasicEditorPresenter >> lhs [
+RTRuleEditorPresenter >> lhs [
 	^ searchForEditor lhs
 ]
 
 { #category : #accessing }
-RTBasicEditorPresenter >> lhs: aCode [
+RTRuleEditorPresenter >> lhs: aCode [
 	searchForEditor lhs: aCode
 ]
 
 { #category : #accessing }
-RTBasicEditorPresenter >> rhs [
+RTRuleEditorPresenter >> rhs [
 	^ replaceWithEditor rhs
 ]
 
 { #category : #accessing }
-RTBasicEditorPresenter >> rhs: aCode [
+RTRuleEditorPresenter >> rhs: aCode [
 	replaceWithEditor rhs: aCode
 ]
diff --git a/src/RewriteRuleTools/RTRuleLoaderPresenter.class.st b/src/RewriteRuleTools/RTRuleLoaderPresenter.class.st
index a794070..0bce1ec 100644
--- a/src/RewriteRuleTools/RTRuleLoaderPresenter.class.st
+++ b/src/RewriteRuleTools/RTRuleLoaderPresenter.class.st
@@ -38,10 +38,10 @@ RTRuleLoaderPresenter class >> iconName [
 RTRuleLoaderPresenter class >> open [
 
 	<script>
-	^ self new openWithSpec
+	^ RTApplication new startRuleLoader
 ]
 
-{ #category : #accessing }
+{ #category : #specs }
 RTRuleLoaderPresenter class >> title [
 
 	^ 'Rewrite rule loader'
@@ -115,7 +115,7 @@ RTRuleLoaderPresenter >> initializeLayout [
 
 { #category : #initialization }
 RTRuleLoaderPresenter >> initializePresenters [
-
+	
 	self initializeTableSelector.
 	self initializeButtons.
 	self initializeLayout
diff --git a/src/RewriteRuleTools/SaveRuleCommand.class.st b/src/RewriteRuleTools/SaveRuleCommand.class.st
index 4e11116..6443618 100644
--- a/src/RewriteRuleTools/SaveRuleCommand.class.st
+++ b/src/RewriteRuleTools/SaveRuleCommand.class.st
@@ -9,6 +9,12 @@ Class {
 	#category : #'RewriteRuleTools-Commands'
 }
 
+{ #category : #default }
+SaveRuleCommand class >> defaultDescription [
+
+	^ 'Save the current rule as a STON file in the disk'
+]
+
 { #category : #default }
 SaveRuleCommand class >> defaultName [
 
diff --git a/src/RewriteTool-Tests/RTBasicEditorPresenterTest.class.st b/src/RewriteTool-Tests/RTBasicEditorPresenterTest.class.st
index 9aad055..dfdb18f 100644
--- a/src/RewriteTool-Tests/RTBasicEditorPresenterTest.class.st
+++ b/src/RewriteTool-Tests/RTBasicEditorPresenterTest.class.st
@@ -11,13 +11,7 @@ Class {
 RTBasicEditorPresenterTest >> setUp [
 
 	super setUp.
-	rewriteBasicEditor := RTBasicEditorPresenter new
-]
-
-{ #category : #tests }
-RTBasicEditorPresenterTest >> testHelpText [
-
-	self assert: rewriteBasicEditor class helpText isNotNil
+	rewriteBasicEditor := RTRuleEditorPresenter new
 ]
 
 { #category : #tests }
diff --git a/src/RewriteTool-Tests/RTRuleApplierPresenterTest.class.st b/src/RewriteTool-Tests/RTRuleApplierPresenterTest.class.st
index bc7196a..edf15cf 100644
--- a/src/RewriteTool-Tests/RTRuleApplierPresenterTest.class.st
+++ b/src/RewriteTool-Tests/RTRuleApplierPresenterTest.class.st
@@ -14,14 +14,14 @@ Class {
 RTRuleApplierPresenterTest >> setUp [
 
 	super setUp.
-	applier := RTRuleTransformerPresenter new
+	applier := RTCodeTransformerPresenter new
 ]
 
 { #category : #tests }
 RTRuleApplierPresenterTest >> testOpen [
 
 	| applierWindow |
-	applierWindow := RTRuleTransformerPresenter open.
+	applierWindow := RTCodeTransformerPresenter open.
 	self assert: applierWindow isBuilt.
 	applierWindow close
 ]
diff --git a/src/RewriteTool-Tests/RTRulesHelpPresenterTest.class.st b/src/RewriteTool-Tests/RTRulesHelpPresenterTest.class.st
index 3a0bc14..240c9d2 100644
--- a/src/RewriteTool-Tests/RTRulesHelpPresenterTest.class.st
+++ b/src/RewriteTool-Tests/RTRulesHelpPresenterTest.class.st
@@ -15,7 +15,7 @@ RTRulesHelpPresenterTest >> setUp [
 
 	super setUp.
 
-	rulesHelper := RTRulesHelpPresenter new
+	rulesHelper := RTHelpBrowserPresenter new
 ]
 
 { #category : #tests }