Applied changes from pull request pharo-project#13848 (“Fix System Br…

…owser scaling”) to Pharo 11.
Rinzwind · Jul 23, 2023 · a01d035 · a01d035
1 parent e3f3049
commit a01d035
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/src/Calypso-Browser/ClyBrowserMorph.class.st b/src/Calypso-Browser/ClyBrowserMorph.class.st
@@ -348,7 +348,7 @@ ClyBrowserMorph >> ignoreNavigationDuring: aBlock [
 
 { #category : #initialization }
 ClyBrowserMorph >> initialExtent [
-	^ 850@620
+	^ 850@620 * self currentWorld displayScaleFactor
 ]
 
 { #category : #initialization }

diff --git a/src/Calypso-Browser/ClyNotebookPageActionButtonMorph.class.st b/src/Calypso-Browser/ClyNotebookPageActionButtonMorph.class.st
@@ -52,7 +52,7 @@ ClyNotebookPageActionButtonMorph >> forAction: anAction [
 		passiveEnabledOverDownFillStyle: (self theme buttonPressedFillStyleFor: self);
 		addUpAction: [ anAction action value ];
 		setBalloonText: anAction label;
-		extent: 16@16.
+		extent: 16@16 * self currentWorld displayScaleFactor.
 
 	icon := anAction icon.
 

diff --git a/src/Calypso-Browser/ClyNotebookPageMorph.class.st b/src/Calypso-Browser/ClyNotebookPageMorph.class.st
@@ -79,7 +79,7 @@ ClyNotebookPageMorph >> initialize [
 	But this is not good, think a better way."
 	labelMorph := labelPresenter build
 		              hResizing: #rigid;
-		              width: 120;
+		              width: 120 * self currentWorld displayScaleFactor;
 		              yourself
 ]
 

diff --git a/src/Calypso-Browser/ClyToolbarMorph.class.st b/src/Calypso-Browser/ClyToolbarMorph.class.st
@@ -61,7 +61,7 @@ ClyToolbarMorph >> browser: anObject [
 
 { #category : #initialization }
 ClyToolbarMorph >> defaultHeight [
-	^30
+	^ 30 * self currentWorld displayScaleFactor
 ]
 
 { #category : #initialization }