Mercurial Mercurial > hg > stx-libwidg2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MenuPanel.st
changeset 4232 8193baee0399
parent 4226 73442f136108
child 4235 c7a96376eac2 
--- a/MenuPanel.st	Tue Jun 04 12:31:05 2013 +0200
+++ b/MenuPanel.st	Tue Jun 04 15:52:09 2013 +0200
@@ -7520,35 +7520,35 @@
     menuPanel paint:fg.
     labelExtent := self displayLabelExtent.
 
-    y := layout top + (layout height - labelExtent y // 2) + yOffset.
+    y := layout top + ((layout height - labelExtent y) // 2) + yOffset.
 "/  menuPanel centerItems ifTrue:[self halt].
     aLabel isArray ifFalse:[
-	|printLabel|
-
-	aLabel isText ifTrue:[
-	    "/ background of label has already been drawn
-	    printLabel := aLabel withoutBackgroundColorEmphasis.
-	] ifFalse:[
-	    printLabel := aLabel.
-	].
-	y := y + (printLabel ascentOn:menuPanel).
-	printLabel displayOn:menuPanel x:x y:y.
+        |printLabel|
+
+        aLabel isText ifTrue:[
+            "/ background of label has already been drawn
+            printLabel := aLabel withoutBackgroundColorEmphasis.
+        ] ifFalse:[
+            printLabel := aLabel.
+        ].
+        y := y + (printLabel ascentOn:menuPanel).
+        printLabel displayOn:menuPanel x:x y:y.
     ] ifTrue:[
-	aLabel do:[:el|
-	    el notNil ifTrue:[
-		y0 := y + (el ascentOn:menuPanel).
+        aLabel do:[:el|
+            el notNil ifTrue:[
+                y0 := y + (el ascentOn:menuPanel).
 "/                el isImageOrForm ifFalse:[
 "/                    y0 := y + fontAscent
 "/                ] ifTrue:[
 "/                    y0 := y
 "/                ].
-		x0 := x + (labelExtent x - (el widthOn:menuPanel) // 2).
-		el displayOn:menuPanel x:x0 y:y0.
-		y := y + 1 + (el heightOn:menuPanel)
-	    ] ifFalse:[
-		y := y + (self spaceBetweenEmptyLines)
-	    ]
-	].
+                x0 := x + ((labelExtent x - (el widthOn:menuPanel)) // 2).
+                el displayOn:menuPanel x:x0 y:y0.
+                y := y + 1 + (el heightOn:menuPanel)
+            ] ifFalse:[
+                y := y + (self spaceBetweenEmptyLines)
+            ]
+        ].
     ].
     menuPanel setFont:oldFont
 !
@@ -8670,11 +8670,11 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.554 2013-05-28 18:41:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.555 2013-06-04 13:52:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.554 2013-05-28 18:41:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.555 2013-06-04 13:52:09 cg Exp $'
 ! !
hg/stx-libwidg2