Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
eclipse
eclipse
Commits
9204cae3
Commit
9204cae3
authored
Mar 17, 2003
by
hatchond
Browse files
fix some unhandle events during menu-3 loop.
fix typo prenthesis, and grid undraw in mouse stroke resize/move.
parent
a2950f25
Changes
2
Hide whitespace changes
Inline
Side-by-side
gestures.lisp
View file @
9204cae3
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: gestures.lisp,v 1.
1
200
2/11/07 14:54:26
hatchond Exp $
;;; $Id: gestures.lisp,v 1.
2
200
3/03/16 00:38:55
hatchond Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2002 Iban HATCHONDO
...
...
@@ -280,7 +280,7 @@
(
let
((
ms
(
make-mouse-stroke
name
button
modifiers
default-modifiers-p
fun
)))
(
when
(
stroke-equal
ms
(
gethash
name
*mousestrokes*
))
(
undefine-combo-internal
ms
*root-window*
)
:mouse-p
t
)
(
undefine-combo-internal
ms
*root-window*
:mouse-p
t
)
)
(
define-combo-internal
ms
*root-window*
:mouse-p
t
)
(
setf
(
gethash
name
*mousestrokes*
)
ms
)))))
...
...
@@ -309,7 +309,8 @@
(
let
((
widget
(
lookup-widget
(
event-child
event
))))
(
unless
(
decoration-p
widget
)
(
return-from
mouse-stroke-for-move-and-resize
nil
))
(
when
(
eq
*focus-type*
:on-click
)
(
focus-widget
widget
0
))
(
xlib:grab-pointer
(
event-child
event
)
+pointer-event-mask+
)
(
menu-3-process
event
widget
:key
action
)
(
funcall
(
define-menu-3
action
))
(
focus-widget
widget
0
)))
(
funcall
(
define-menu-3
action
))))
wm.lisp
View file @
9204cae3
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: wm.lisp,v 1.
6
2003/0
2/03 08:06:32
hatchond Exp $
;;; $Id: wm.lisp,v 1.
7
2003/0
3/16 01:10:07
hatchond Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
...
...
@@ -487,18 +487,15 @@
(
defgeneric
menu-3-process
(
event
widget
&rest
rest
))
(
defmethod
menu-3-process
(
event
widget
&rest
rest
)
(
declare
(
ignorable
event
widget
rest
)))
(
declare
(
ignorable
rest
))
(
event-process
event
widget
)
nil
)
(
defmethod
menu-3-process
((
event
pointer-event
)
(
w
base-widget
)
&rest
rest
)
(
declare
(
ignore
rest
))
(
xlib:ungrab-pointer
*display*
)
t
)
(
defmethod
menu-3-process
((
event
exposure
)
(
widget
base-widget
)
&rest
rest
)
(
declare
(
ignore
rest
))
(
event-process
event
widget
)
nil
)
(
defmethod
menu-3-process
((
ev
motion-notify
)
(
master
decoration
)
&key
key
)
(
when
(
decoration-active-p
master
)
(
cond
((
eql
key
:resize
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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