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
db85bf76
Commit
db85bf76
authored
Feb 13, 2004
by
Iban Hatchondo
Browse files
fix inconsitency in menu-3-process.
parent
d4aa91a8
Changes
1
Hide whitespace changes
Inline
Side-by-side
wm.lisp
View file @
db85bf76
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: wm.lisp,v 1.3
4
2004/0
1/23 15:41:43
ihatchondo Exp $
;;; $Id: wm.lisp,v 1.3
5
2004/0
2/12 23:30:22
ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
...
...
@@ -391,7 +391,7 @@
(
t
(
values
x
y
))))
(
multiple-value-bind
(
x
y
)
(
window-position
app-window
)
(
values
(
max
0
(
-
x
left-margin
))
(
max
0
(
-
y
top-margin
))))))))
(
defun
make-decoration
(
app-window
application
&key
theme
)
(
unless
theme
(
setf
theme
(
root-decoration-theme
*root*
)))
(
let*
((
dstyle
(
find-decoration-frame-style
theme
app-window
))
...
...
@@ -567,21 +567,30 @@
(
xlib:ungrab-pointer
*display*
)
t
)
(
defmethod
menu-3-process
((
ev
motion-notify
)
(
ap
application
)
&key
key
)
(
when
(
application-active-p
ap
)
(
when
(
eql
key
:move
)
(
activate-move-resize
ap
*root*
'move-status
*move-mode*
*verbose-move*
))
t
))
(
defmethod
menu-3-process
((
event
button-release
)
(
app
application
)
&key
key
)
(
declare
(
ignorable
event
))
(
cond
((
eql
key
:move
)
(
finish-move
app
*verbose-move*
*move-mode*
)))
(
call-next-method
))
(
defmethod
menu-3-process
((
ev
button-release
)
(
dec
decoration
)
&key
key
)
(
cond
((
eql
key
:resize
)
(
finish-resize
dec
*verbose-resize*
*resize-mode*
))
((
eql
key
:move
)
(
finish-move
dec
*verbose-resize*
*resize-mode*
)))
(
call-next-method
))
(
defmethod
menu-3-process
((
ev
motion-notify
)
(
app
application
)
&key
key
)
(
when
(
eql
key
:move
)
(
activate-move-resize
app
*root*
'move-status
*move-mode*
*verbose-move*
)
(
application-active-p
app
)))
(
defmethod
menu-3-process
((
ev
motion-notify
)
(
master
decoration
)
&key
key
)
(
when
(
decoration-active-p
master
)
(
cond
((
eql
key
:
resize
)
(
activate-move-resize
master
*root*
'resize-status
*resize-mode*
*verbose-
resize
*
)
)
((
eql
key
:move
)
(
activate-move-resize
master
*root*
'move-status
*move-mode*
*verbose-move*
)))
t
))
(
when
(
or
(
eql
key
:resize
)
(
eql
key
:move
)
)
(
multiple-value-call
#'
activate-move-
resize
master
*root*
(
cond
((
eql
key
:
resize
)
(
values
'resize-status
*resize-mode*
*verbose-resize*
)
)
((
eql
key
:move
)
(
values
'move-status
*move-mode*
*verbose-move*
)))
)
(
decoration-active-p
master
)
))
(
defmethod
menu-3-process
((
event
enter-notify
)
(
app
application
)
&rest
rest
)
(
declare
(
ignorable
event
rest
))
...
...
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