this should fix #744 and other problems around

estebanlm · estebanlm · commit 7d336ebddd05 · 2025-12-16T16:03:46.000+01:00
diff --git a/src/PharoLauncher-Spec2/PhLConfirmDialog.class.st b/src/PharoLauncher-Spec2/PhLConfirmDialog.class.st
@@ -36,8 +36,9 @@ PhLConfirmDialog >> initializePresenters [
 { #category : 'initialization' }
 PhLConfirmDialog >> initializeWindow: aWindowPresenter [
 
-	super initializeWindow: aWindowPresenter.
-	"aWindowPresenter withoutDecorations"
+	aWindowPresenter 
+		title: self title;
+		initialExtent: self class defaultExtent
 ]
 
 { #category : 'api' }
diff --git a/src/PharoLauncher-Spec2/PhLInformDialog.class.st b/src/PharoLauncher-Spec2/PhLInformDialog.class.st
@@ -24,6 +24,14 @@ PhLInformDialog >> initializePresenters [
 		beWrap
 ]
 
+{ #category : 'initialization' }
+PhLInformDialog >> initializeWindow: aWindowPresenter [
+
+	aWindowPresenter 
+		title: self title;
+		initialExtent: self class defaultExtent
+]
+
 { #category : 'initialization' }
 PhLInformDialog >> initializeWindowExtent: aDialogWindowPresenter [
 ]
diff --git a/src/PharoLauncher-Spec2/PhLRequestDialog.class.st b/src/PharoLauncher-Spec2/PhLRequestDialog.class.st
@@ -39,9 +39,11 @@ PhLRequestDialog >> initializePresenters [
 
 { #category : 'initialization' }
 PhLRequestDialog >> initializeWindow: aWindowPresenter [
-
-	super initializeWindow: aWindowPresenter.
-	"aWindowPresenter withoutDecorations"
+	
+	aWindowPresenter 
+		title: self title;
+		initialExtent: self class defaultExtent;
+		whenOpenedDo: [ textInput takeKeyboardFocus; selectAll ]
 ]
 
 { #category : 'initialization' }
diff --git a/src/PharoLauncher-Spec2/PhLSelectDialog.class.st b/src/PharoLauncher-Spec2/PhLSelectDialog.class.st
@@ -6,6 +6,12 @@ Class {
 	#tag : 'View-Dialogs'
 }
 
+{ #category : 'accessing' }
+PhLSelectDialog class >> defaultExtent [
+
+	^ 650@300
+]
+
 { #category : 'layout' }
 PhLSelectDialog >> defaultLayout [
 
@@ -30,6 +36,15 @@ PhLSelectDialog >> initializePresenters [
 		beWrap
 ]
 
+{ #category : 'initialization' }
+PhLSelectDialog >> initializeWindow: aWindowPresenter [
+
+	aWindowPresenter 
+		title: self title;
+		initialExtent: self class defaultExtent;
+		whenOpenedDo: [ list takeKeyboardFocus ]
+]
+
 { #category : 'initialization' }
 PhLSelectDialog >> initializeWindowExtent: aDialogWindowPresenter [
 ]

Original file line number	Diff line number	Diff line change
`@@ -24,6 +24,14 @@ PhLInformDialog >> initializePresenters [`
`24`	`24`	`beWrap`
`25`	`25`	`]`
`26`	`26`
	`27`	`+{ #category : 'initialization' }`
	`28`	`+PhLInformDialog >> initializeWindow: aWindowPresenter [`
	`29`	`+`
	`30`	`+ aWindowPresenter`
	`31`	`+ title: self title;`
	`32`	`+ initialExtent: self class defaultExtent`
	`33`	`+]`
	`34`	`+`
`27`	`35`	`{ #category : 'initialization' }`
`28`	`36`	`PhLInformDialog >> initializeWindowExtent: aDialogWindowPresenter [`
`29`	`37`	`]`