[STUMP] Re: Bug, or something, Stumpwm crashing when creating a new window

[Rohan Nicholls]

Okay, made some progress with finding where the problem is, and found
a workaround
but I am pretty sure this is not a fix, esp. if you have more than one
screen.  But it allowed
windows to be created on my system.  Now to test it at work:

Anyway here is a diff of what I did to make it work.  A possible idea
would be to make the
screen an optional parameter defaulting to the current screen, but I
would not put my
money on it, as I don't know enough about the application.

*** /tmp/ediff4203bPw   Thu Sep  4 01:34:48 2008
--- /home/rohan/src/stumpwm/window.lisp Thu Sep  4 01:29:10 2008
***************
*** 950,956 ****
  (defun process-mapped-window (screen xwin)
    "Add the window to the screen's mapped window list and process it as
  needed."
!   (let ((window (add-window screen xwin)))
      (setf (xlib:window-event-mask (window-xwin window)) *window-events*)
      ;; windows always have border width 0. Their parents provide the
      ;; border.
--- 950,956 ----
  (defun process-mapped-window (screen xwin)
    "Add the window to the screen's mapped window list and process it as
  needed."
!   (let ((window (add-window (or screen (current-screen)) xwin)))
      (setf (xlib:window-event-mask (window-xwin window)) *window-events*)
      ;; windows always have border width 0. Their parents provide the
      ;; border.

Hope this helps,

Rohan

On Thu, Sep 4, 2008 at 12:33 AM, Rohan Nicholls
<address@hidden> wrote:
> Hi everyone,
>
> I am not sure that my last post managed to make it through, because
> there has been no reaction.  Basically stumpwm has rendered itself
> completely inoperable on my system because any attempt to open a
> window, usually by opening a new application makes it crash.  I have
> tried to create the problem while sitting in a slime-connect session,
> but it bypasses the slime session (probably happening in a different
> thread or something) so the best I can do is a backtrace.
> I am studying it now, and seeing if I can do anything to fix it, but
> my knowledge of the internals of stumpwm are not good.
>
> At a glance it seems that for whatever reason the (current-screen)
> value is not being passed to the window creator function thingy.  But
> that is just a guess.
>
> I attached the backtrace last time, and the mail seemed to disappear,
> so this time I will put the dump inline.
>
> Thanks in advance for any help, as I would love to be able to use
> stumpwm again, although this hiatus using other window managers has
> reminded me why I love the stump so much.  I will see if I can revive
> ratpoison to tide me over.
>
> Rohan
>
>
> The value NIL is not of type STUMPWM::SCREEN.
> 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {BE490CD}>)[:EXTERNAL]
> 1: (SB-DEBUG:BACKTRACE 100 #<SB-IMPL::STRING-OUTPUT-STREAM {BE49079}>)
> 2: (STUMPWM::BACKTRACE-STRING)
> 3: ((FLET #:LAMBDA221) #<TYPE-ERROR {BE48D79}>)
> 4: (SIGNAL #<TYPE-ERROR {BE48D79}>)[:EXTERNAL]
> 5: (ERROR TYPE-ERROR)[:EXTERNAL]
> 6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
>    #<unavailable argument>
>    #.(SB-SYS:INT-SAP #XB7B074F0)
>    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7B071DC :TYPE (*
>                                                            (SB-ALIEN:STRUCT
>
> SB-VM::OS-CONTEXT-T-STRUCT))>
>    (398 14))
> 7: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
>    #<unavailable argument>
>    #.(SB-SYS:INT-SAP #XB7B074F0)
>    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7B071DC :TYPE (*
>                                                            (SB-ALIEN:STRUCT
>
> SB-VM::OS-CONTEXT-T-STRUCT))>
>    (398 14))[:EXTERNAL]
> 8: (SB-KERNEL:INTERNAL-ERROR
>    #.(SB-SYS:INT-SAP #XB7B071DC)
>    #<unavailable argument>)
> 9: ("foreign function: #x806480C")
> 10: ("foreign function: #x8052ABC")
> 11: ("foreign function: #x8056A73")
> 12: (STUMPWM::SCREEN-ADD-MAPPED-WINDOW NIL #<XLIB:WINDOW :0 C00009>)
> 13: (STUMPWM::ADD-WINDOW NIL #<XLIB:WINDOW :0 C00009>)
> 14: (STUMPWM::PROCESS-MAPPED-WINDOW NIL #<XLIB:WINDOW :0 C00009>)
> 15: ((LABELS #:G145)
>     :PARENT
>     #<XLIB:WINDOW :0 69>
>     :SEND-EVENT-P
>     NIL
>     :WINDOW
>     #<XLIB:WINDOW :0 C00009>)
> 16: (STUMPWM::HANDLE-EVENT)[:EXTERNAL]
> 17: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
> 18: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]508))
> 19: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
>     #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {B7B0786D}>
>     #S(SB-THREAD:MUTEX
>        :NAME "CLX Event Lock"
>        :%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {A6DFD09}>
>        :STATE 1))
> 20: (XLIB:PROCESS-EVENT #<XLIB:DISPLAY :0 (The X.Org Foundation
> R10402000)>)[:EXTERNAL]
> 21: (STUMPWM::STUMPWM-INTERNAL-LOOP)
> 22: (STUMPWM::STUMPWM-INTERNAL-LOOP)[:EXTERNAL]
> 23: (STUMPWM::STUMPWM-INTERNAL ":0.0")
> 24: (STUMPWM ":0.0")
> 25: (SB-INT:SIMPLE-EVAL-IN-LEXENV (STUMPWM) #<NULL-LEXENV>)
> 26: (SB-FASL::LOAD-AS-SOURCE
>     #<SB-SYS:FD-STREAM for "file /home/rohan/bin/startstump" {A94B791}>
>     NIL
>     NIL)
> 27: ((FLET SB-FASL::LOAD-STREAM)
>     #<SB-SYS:FD-STREAM for "file /home/rohan/bin/startstump" {A94B791}>)
> 28: (LOAD #P"/home/rohan/bin/startstump")[:EXTERNAL]
> 29: (SB-INT:SIMPLE-EVAL-IN-LEXENV
>     (LOAD #P"/home/rohan/bin/startstump")
>     #<NULL-LEXENV>)
> 30: (SB-IMPL::PROCESS-EVAL-OPTIONS
>     ("(require :asdf)"
>      "(setq asdf:*central-registry* 
> '(#p\"/home/rohan/src/clbuild/systems/\"))"
>      "nil" (LOAD #P"/home/rohan/bin/startstump")))
> 31: (SB-IMPL::TOPLEVEL-INIT)
> 32: ((LABELS SB-IMPL::RESTART-LISP))
>