Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
eclipse
eclipse
Commits
04e605fb
Commit
04e605fb
authored
Apr 28, 2008
by
Iban Hatchondo
Browse files
Fix: frame extents request handling and frame entents property on undecorate window.
parent
97f38e49
Changes
2
Hide whitespace changes
Inline
Side-by-side
input.lisp
View file @
04e605fb
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: input.lisp,v 1.
49
2008/04/2
5
1
6:02:49
ihatchondo Exp $
;;; $Id: input.lisp,v 1.
50
2008/04/2
8
1
2: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
)
...
...
wm.lisp
View file @
04e605fb
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: wm.lisp,v 1.5
4
2008/04/25
08:4
2:4
5
ihatchondo Exp $
;;; $Id: wm.lisp,v 1.5
5
2008/04/25
16:0
2:4
9
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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment