Commit 9204cae3 authored by hatchond's avatar hatchond
Browse files

fix some unhandle events during menu-3 loop.

fix typo prenthesis, and grid undraw in mouse stroke resize/move.
parent a2950f25
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: gestures.lisp,v 1.1 2002/11/07 14:54:26 hatchond Exp $
;;; $Id: gestures.lisp,v 1.2 2003/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))))
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
;;; $Id: wm.lisp,v 1.6 2003/02/03 08:06:32 hatchond Exp $
;;; $Id: wm.lisp,v 1.7 2003/03/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)
......
Supports Markdown
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