Felix, This works fine...
(let ((d-atom (xinternatom display "WM_DELETE_WINDOW" 0))) (let-location ((atm unsigned-long d-atom)) (xsetwmprotocols display window (location atm) 1)) ..... Thanks a lot, Bill _______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
