backport of fix for #1562

pharo-spec · Oct 4, 2024 · d725a30 · d725a30
1 parent 5a2fe20
commit d725a30
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Spec2-Adapters-Morphic/SpMorphicMenuBarAdapter.class.st b/src/Spec2-Adapters-Morphic/SpMorphicMenuBarAdapter.class.st
@@ -65,6 +65,7 @@ SpMorphicMenuBarAdapter >> buildWidget [
 	widget := ToolDockingBarMorph new
 		          hResizing: #spaceFill;
 		          vResizing: #spaceFill;
+		          height: 24 * self currentWorld displayScaleFactor;
 		          yourself.
 
 	self menuGroups doWithIndex: [ :aGroup :index |