Re: [STUMP] crashing on startup

[Magnus Henoch]

Paddy Mullen <address@hidden> writes:

> 10:39:55 Window #<XLIB:WINDOW :0 400009> is dock-type. Placing in mode-line.
>
> debugger invoked on a TYPE-ERROR in thread #<THREAD "initial thread" RUNNING
> {100371F9E1}>:
>   The value 525/2 is not of type (UNSIGNED-BYTE 29).

Sorry for hijacking this thread, but I had the same error (with the
exact same value).  It used to happen every time I tried C-t !
gnome-panel.  The backtrace (which I foolishly didn't save) said that
XLIB:SET-DRAWABLE-HEIGHT wasn't happy with 525/2, as above.

After making the obvious change, gnome-panel started fine, but going
back to the older version, I couldn't reproduce the problem anymore, to
get the backtrace again...

So I'll just leave this patch here, FWIW.

diff --git a/mode-line.lisp b/mode-line.lisp
index e1eb5d7..7664399 100644
--- a/mode-line.lisp
+++ b/mode-line.lisp
@@ -298,10 +298,12 @@ critical."
           (+ (* (1+ (count #\Newline (mode-line-contents ml) :test #'equal))
                 (font-height (xlib:gcontext-font (mode-line-gc ml))))
              (* *mode-line-pad-y* 2))))
-  (setf (xlib:drawable-width (mode-line-window ml)) (- (frame-width 
(mode-line-head ml))
-                                                       (* 2 
(xlib:drawable-border-width (mode-line-window ml))))
-        (xlib:drawable-height (mode-line-window ml)) (min 
(xlib:drawable-height (mode-line-window ml))
-                                                          (/ (head-height 
(mode-line-head ml)) 4))
+  (setf (xlib:drawable-width (mode-line-window ml)) (floor
+                                                    (- (frame-width 
(mode-line-head ml))
+                                                       (* 2 
(xlib:drawable-border-width (mode-line-window ml)))))
+        (xlib:drawable-height (mode-line-window ml)) (floor
+                                                     (min 
(xlib:drawable-height (mode-line-window ml))
+                                                          (/ (head-height 
(mode-line-head ml)) 4)))
         (mode-line-height ml) (+ (xlib:drawable-height (mode-line-window ml))
                                  (* 2 (xlib:drawable-border-width 
(mode-line-window ml))))
         (mode-line-factor ml) (- 1 (/ (mode-line-height ml)

-- 
Magnus Henoch