Commit 04e605fb authored by Iban Hatchondo's avatar Iban Hatchondo
Browse files

Fix: frame extents request handling and frame entents property on undecorate window.

parent 97f38e49
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: input.lisp,v 1.49 2008/04/25 16:02:49 ihatchondo Exp $
;;; $Id: input.lisp,v 1.50 2008/04/28 12:29:38 ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
......@@ -97,7 +97,8 @@
(event-process e (or (lookup-widget child) *root*))))))))
(defmethod event-process ((event client-message) window)
(when (xlib:window-p window)
(declare (ignorable window))
(with-slots ((window event-window)) event
(case (event-type event)
(:_net_request_frame_extents
(with-slots (left-margin right-margin top-margin bottom-margin)
......
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: wm.lisp,v 1.54 2008/04/25 08:42:45 ihatchondo Exp $
;;; $Id: wm.lisp,v 1.55 2008/04/25 16:02:49 ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
......@@ -711,6 +711,7 @@
(decore-application window application :map nil))
(update-lists application 1 *root*)))
((window-not-decorable-p window (application-type application))
(setf (netwm:net-frame-extents window) (values 0 0 0 0))
(setf (wm-state window) 1)
(xlib:map-window window))
(t (decore-application window application :map t)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment