added preview in the tile of the builder

jordanmontt · Nov 10, 2021 · daf6e4d · daf6e4d
1 parent e7c6a02
commit daf6e4d
Showing 1 changed file with 11 additions and 8 deletions.
diff --git a/src/RewriteRuleBuilder/RewriteRuleBuilderPresenter.class.st b/src/RewriteRuleBuilder/RewriteRuleBuilderPresenter.class.st
@@ -55,7 +55,7 @@ RewriteRuleBuilderPresenter class >> iconName [
 RewriteRuleBuilderPresenter class >> menuCommandOn: aBuilder [
 
 	<worldMenu>
-	(aBuilder item: 'RewriteRuleBuilder')
+	(aBuilder item: 'RewriteRuleBuilder (preview)')
 		parent: #Tools;
 		action: [ self open ];
 		order: 33;
@@ -253,7 +253,7 @@ RewriteRuleBuilderPresenter >> initializePresenters [
 RewriteRuleBuilderPresenter >> initializeWindow: aWindowPresenter [
 
 	aWindowPresenter
-		title: self class title;
+		title: self class title, '(Preview version)';
 		initialExtent: 840 @ 650;
 		windowIcon: self class icon;
 		askOkToClose: false;
@@ -389,12 +389,15 @@ RewriteRuleBuilderPresenter >> rhs: aString [
 { #category : #actions }
 RewriteRuleBuilderPresenter >> saveRule [
 
-	^ RTCustomRuleGenerator new
-		  searchFor: self lhs;
-		  replaceWith: self rhs;
-		  inputCode: self inputCode;
-		  outputCode: self outputCode;
-		  storeRule: loadedRule className isForMethod: false
+	| ruleHolder |
+	ruleHolder := RTRuleHolder
+		lhs: self lhs
+		rhs: self rhs
+		isForMethod: false
+		inputCode: self inputCode
+		outputCode: self outputCode.
+
+	^ RTRuleSaver storeRuleOnDisk: ruleHolder
 ]
 
 { #category : #accessing }