improved creation feedback behavior

OpenPonk · Oct 10, 2023 · 18c2f27 · 18c2f27
1 parent 9121ff6
commit 18c2f27
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 3 deletions.
diff --git a/repository/OpenPonk-Core/OPEditElementTextCommand.class.st b/repository/OpenPonk-Core/OPEditElementTextCommand.class.st
@@ -40,8 +40,10 @@ OPEditElementTextCommand >> announceChange [
 
 { #category : #execute }
 OPEditElementTextCommand >> execute [
+
 	| result |
-	result := UIManager default request: name initialAnswer: get value.
+	result := self doAndReturnFocus: [
+		          UIManager default request: name initialAnswer: get value ].
 	result ifNil: [ ^ self ].
 	set value: result.
 	self announceChange

diff --git a/repository/OpenPonk-Core/OPRenameElementCommand.class.st b/repository/OpenPonk-Core/OPRenameElementCommand.class.st
@@ -25,9 +25,12 @@ Class {
 OPRenameElementCommand >> execute [
 
 	| result |
-	result := UIManager default request: 'Enter a name' initialAnswer: (controller model name).
+	result := self doAndReturnFocus: [
+		          UIManager default
+			          request: 'Enter a name'
+			          initialAnswer: controller model name ].
 	result ifNil: [ ^ self ].
 	result ifEmpty: [ ^ self ].
 	controller model name: result.
-	controller model announcer announce: OPElementRenamed new.
+	controller model announcer announce: OPElementRenamed new
 ]
diff --git a/repository/OpenPonk-Core/OPUICommand.class.st b/repository/OpenPonk-Core/OPUICommand.class.st
@@ -24,6 +24,17 @@ OPUICommand class >> on: anElementController [
 		  yourself
 ]
 
+{ #category : #utilities }
+OPUICommand >> doAndReturnFocus: aBlock [
+
+	| result window wasActive |
+	window := controller diagramController canvasPresenter window window.
+	wasActive := window isActive.
+	result := aBlock value.
+	window activate.
+	^ result
+]
+
 { #category : #execute }
 OPUICommand >> execute [
 	^ self subclassResponsibility