Change Critic browser editor label.

Instead of changing the dialog button size, which would be a dirty Morphic hack. Fix #1127
moosetechnology · Sep 23, 2024 · e391acd · e391acd
1 parent b001b51
commit e391acd
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 14 deletions.
diff --git a/src/MooseIDE-CriticBrowser/MiCBConditionBuilderPresenter.class.st b/src/MooseIDE-CriticBrowser/MiCBConditionBuilderPresenter.class.st
@@ -26,12 +26,6 @@ MiCBConditionBuilderPresenter class >> ruleComponentName [
 	^ 'condition'
 ]
 
-{ #category : #specs }
-MiCBConditionBuilderPresenter class >> title [
-
-	^ 'Rules builder'
-]
-
 { #category : #action }
 MiCBConditionBuilderPresenter >> buildComponent: aCondition [
 

diff --git a/src/MooseIDE-CriticBrowser/MiCBContextBuilderPresenter.class.st b/src/MooseIDE-CriticBrowser/MiCBContextBuilderPresenter.class.st
@@ -19,12 +19,6 @@ MiCBContextBuilderPresenter class >> ruleComponentName [
 	^ 'context'
 ]
 
-{ #category : #specs }
-MiCBContextBuilderPresenter class >> title [
-
-	^ 'Context builder'
-]
-
 { #category : #action }
 MiCBContextBuilderPresenter >> buildComponent: aContext [
 

diff --git a/src/MooseIDE-CriticBrowser/MiCBRuleComponentBuilderPresenter.class.st b/src/MooseIDE-CriticBrowser/MiCBRuleComponentBuilderPresenter.class.st
@@ -15,7 +15,7 @@ Class {
 { #category : #labels }
 MiCBRuleComponentBuilderPresenter class >> addButtonLabel [
 
-	^ 'Add {1}' format: { self ruleComponentName capitalized }
+	^ 'Add'
 ]
 
 { #category : #labels }
@@ -67,7 +67,8 @@ MiCBRuleComponentBuilderPresenter >> actionButton [
 				  iconName: #glamorousEdit;
 				  action: [
 					  self editComponent.
-					  self withWindowDo: #close ] ]
+					  self withWindowDo: #close ];
+				  yourself ]
 ]
 
 { #category : #action }
@@ -154,6 +155,10 @@ MiCBRuleComponentBuilderPresenter >> initializePresenters [
 MiCBRuleComponentBuilderPresenter >> initializeWindow: aWindowPresenter [
 
 	super initializeWindow: aWindowPresenter.
+	aWindowPresenter title:
+		self class ruleComponentName capitalized , (isForEdition
+			 ifTrue: [ ' editor' ]
+			 ifFalse: [ ' builder' ]).
 	aWindowPresenter initialExtent: self class initialExtent
 ]