Merge pull request #1436 from Rinzwind/buttonbaradapter-display-scale…

…-factor Make methods in SpMorphicButtonBarAdapter take the display scale factor into account
pharo-spec · Aug 10, 2023 · 5b93e87 · 5b93e87
2 parents 30a040e + 751b685
commit 5b93e87
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Spec2-Adapters-Morphic/SpMorphicButtonBarAdapter.class.st b/src/Spec2-Adapters-Morphic/SpMorphicButtonBarAdapter.class.st
@@ -10,13 +10,13 @@ Class {
 { #category : #accessing }
 SpMorphicButtonBarAdapter class >> defaultHeight [
 
-	^ 30
+	^ 30 scaledByDisplayScaleFactor
 ]
 
 { #category : #accessing }
 SpMorphicButtonBarAdapter class >> defaultItemSeparation [
 
-	^ 3@0
+	^ (3@0) scaledByDisplayScaleFactor
 ]
 
 { #category : #factory }
@@ -25,7 +25,7 @@ SpMorphicButtonBarAdapter >> addModelTo: panelMorph [
 	self model items do: [ :each |
 		self model focusOrder add: each.
 		panelMorph addMorph: (each build
-			width: 100;
+			width: 100 scaledByDisplayScaleFactor;
 			hResizing: #rigid;
 			yourself) ]
 ]