Merge pull request #16835 from Inao0/16699-Refactorings-Rename-refactoring-should-focus-the-input-field

Ducasse · web-flow · commit 096d609552f2 · 2024-08-01T11:48:37.000+02:00
Fix keyboard focus of rename method refactoring window
diff --git a/src/Refactoring-UI/StMethodNameEditorPresenter.class.st b/src/Refactoring-UI/StMethodNameEditorPresenter.class.st
@@ -353,7 +353,8 @@ StMethodNameEditorPresenter >> initializeDialogWindow: aModalPresenter [
 					ifNil: [ '' ]
 					ifNotNil: [ :selector | ' : "', selector, '"' ]);		
 		addButton: 'Cancel' do: [ :presenter | presenter beCancel; close ];
-		addDefaultButton: 'Rename' do: [ :presenter | self renameMethodAndClose: presenter ]
+		addDefaultButton: 'Rename' do: [ :presenter | self renameMethodAndClose: presenter ];
+		whenOpenedDo: [ selectorInput takeKeyboardFocus; selectAll ]
 ]
 
 { #category : 'initialization' }

Original file line number	Diff line number	Diff line change
`@@ -353,7 +353,8 @@ StMethodNameEditorPresenter >> initializeDialogWindow: aModalPresenter [`
`353`	`353`	`ifNil: [ '' ]`
`354`	`354`	`ifNotNil: [ :selector \| ' : "', selector, '"' ]);`
`355`	`355`	`addButton: 'Cancel' do: [ :presenter \| presenter beCancel; close ];`
`356`		`- addDefaultButton: 'Rename' do: [ :presenter \| self renameMethodAndClose: presenter ]`
	`356`	`+ addDefaultButton: 'Rename' do: [ :presenter \| self renameMethodAndClose: presenter ];`
	`357`	`+ whenOpenedDo: [ selectorInput takeKeyboardFocus; selectAll ]`
`357`	`358`	`]`
`358`	`359`
`359`	`360`	`{ #category : 'initialization' }`