X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgutter-items.el;h=9feefa484140ad8080de60b41887ef2b3e03353c;hb=e66203751a888ea088ca5276f7ecfa78e3b4a323;hp=1f7c373b7954549dda349c9c5837f988239f1e1e;hpb=4328b54281c1fa5907a34519e1825ca3654734da;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/gutter-items.el b/lisp/gutter-items.el
index 1f7c373..9feefa4 100644
--- a/lisp/gutter-items.el
+++ b/lisp/gutter-items.el
@@ -416,8 +416,8 @@ side-by-side."
     (setq progress-glyph-height 16)
     (setq progress-layout-instantiator
 	  `[layout
-	    :orientation horizontal
-	    :margin-width 4
+	    :orientation vertical :margin-width 4
+	    :horizontally-justify left :vertically-justify center
 	    :items (,progress-gauge-instantiator
 		    [button
 		     :pixel-height (eval progress-glyph-height)
@@ -430,8 +430,8 @@ side-by-side."
     (setq progress-glyph-height 24)
     (setq progress-layout-instantiator
 	  `[layout 
-	    :orientation vertical :justify left
-	    :margin-width 4
+	    :orientation vertical :margin-width 4
+	    :horizontally-justify left :vertically-justify center
 	    :items (,progress-text-instantiator
 		    [layout 
 		     :orientation horizontal
@@ -448,7 +448,8 @@ side-by-side."
 
 (defun set-progress-abort-instantiator (&optional locale)
   (set-glyph-image progress-abort-glyph
-		   `[layout :orientation vertical :justify left
+		   `[layout :orientation vertical
+			    :horizontally-justify left :vertically-justify center
 			    :items (,progress-text-instantiator
 				    [layout
 				     :margin-width 4