Make rescaling of window buttons consisten with initial creation

bpieber · Aug 27, 2024 · 2768d55 · 2768d55
1 parent 106635c
commit 2768d55
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/...caleButtons-consistentWith-initilizeLabelArea-JuanVuletich-2024Aug27-16h33m-jmv.001.cs.st b/...caleButtons-consistentWith-initilizeLabelArea-JuanVuletich-2024Aug27-16h33m-jmv.001.cs.st
@@ -0,0 +1,19 @@
+'From Cuis7.1 [latest update: #6643] on 27 August 2024 at 4:34:13 pm'!
+
+!SystemWindow methodsFor: 'geometry' stamp: 'jmv 8/27/2024 16:33:11'!
+rescaleButtons
+	"boxExtent changed. Update my buttons."
+
+	| buttonExtent buttonPos spacing |
+	buttonExtent := Theme current titleBarButtonsExtent.
+	buttonPos := (self labelHeight + borderWidth - Theme current titleBarButtonsExtent / 2) ceiling asPoint.
+	spacing := Theme current titleBarButtonsExtent x *13//10.
+	self submorphsReverseDo: [ :aMorph |
+		(aMorph is: #PluggableButtonMorph) 
+		  ifTrue: [ 
+				aMorph morphExtent: buttonExtent. 
+				aMorph morphPosition: buttonPos.
+				buttonPos := buttonPos + (spacing@0).
+		].
+	]! !
+