- eclipse-cvs@lists.common-lisp.net - mailman3.common-lisp.net

[Eclipse-cvs] CVS update: eclipse/lib/gnome-manager.lisp eclipse/lib/manager-commons.lisp eclipse/lib/netwm-manager.lisp
by Iban Hatchondo 13 Nov '03

13 Nov '03

Update of /project/eclipse/cvsroot/eclipse/lib In directory common-lisp.net:/tmp/cvs-serv2268 Modified Files: gnome-manager.lisp manager-commons.lisp netwm-manager.lisp Log Message: more hacking. Replace make-window-list-setter by define-window-list-property-accessor, that defines both the reader and the writer for the given property atom. Date: Wed Nov 12 19:03:51 2003 Author: ihatchondo Index: eclipse/lib/gnome-manager.lisp diff -u eclipse/lib/gnome-manager.lisp:1.1 eclipse/lib/gnome-manager.lisp:1.2 --- eclipse/lib/gnome-manager.lisp:1.1 Thu Nov 7 09:23:31 2002 +++ eclipse/lib/gnome-manager.lisp Wed Nov 12 19:03:50 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: GNOME -*- -;;; $Id: gnome-manager.lisp,v 1.1 2002/11/07 14:23:31 hatchond Exp $ +;;; $Id: gnome-manager.lisp,v 1.2 2003/11/13 00:03:50 ihatchondo Exp $ ;;; ;;; This is the CLX support for the managing with gnome. ;;; @@ -37,7 +37,7 @@ set-workspace-names set-atoms-property get-atoms-property get-window-property - make-window-list-seter) + define-window-list-property-accessor) (:export win-client-list win-workspace-count win-workspace-names win-workspace @@ -92,16 +92,18 @@ ;; Each entry is a window-id of a managed client. -(defun win-client-list (window &key window-list) - (get-window-property window :_WIN_CLIENT_LIST window-list)) - -(make-window-list-seter win-client-list :_WIN_CLIENT_LIST :CARDINAL) - -(defsetf win-client-list (window &key (mode :replace)) (win) - " To set this property give or a single window or a list of window. - you can add or remove one window from the property or - simply replace the actual value by a new list." - `(set-win-client-list ,window ,win ,mode)) +(define-window-list-property-accessor (win-client-list) + :property-atom :_WIN_CLIENT_LIST + :data-type :CARDINAL + :reader-documentation + "Returns the _win_client_list property. + - window: a window + - window-list: if true the returned list is a list of window. Otherwise + the returned list is the list of window-id." + :writer-documentation + "To set this property give or a single window or a list of window. + You can add or remove one window from the property or simply + replace the actual value by a new list.") ;; _WIN_WORKSPACE_COUNT Index: eclipse/lib/manager-commons.lisp diff -u eclipse/lib/manager-commons.lisp:1.1 eclipse/lib/manager-commons.lisp:1.2 --- eclipse/lib/manager-commons.lisp:1.1 Thu Nov 7 09:23:31 2002 +++ eclipse/lib/manager-commons.lisp Wed Nov 12 19:03:50 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: MANAGER-COMMONS -*- -;;; $Id: manager-commons.lisp,v 1.1 2002/11/07 14:23:31 hatchond Exp $ +;;; $Id: manager-commons.lisp,v 1.2 2003/11/13 00:03:50 ihatchondo Exp $ ;;; ;;; This is the CLX support for the managing with gnome. ;;; @@ -207,19 +207,25 @@ (lambda (id) (xlib::lookup-window (xlib:drawable-display window) id))))) -(defmacro make-window-list-seter (type atom &optional (data-type :WINDOW)) - (let ((primary (with-standard-io-syntax (format nil "~A" type))) - (setter (with-standard-io-syntax (format nil "SET-~A" type)))) - `(defun ,(intern setter) (window win mode) - (when win - (change-property - window - ,atom - (cond ((eq mode :remove) - (setf mode :replace) - (remove win (,(intern primary) window :window-list t))) - ((listp win) win) - (t (list win))) - ,data-type - 32 - :mode mode :transform #'xlib:window-id))))) +(defmacro define-window-list-property-accessor + ((name) &key property-atom (data-type :window) + reader-documentation writer-documentation) + (let ((reader (with-standard-io-syntax (format nil "~A" name)))) + `(progn + (defun ,(intern reader) (window &key window-list) + ,@(when reader-documentation `(,reader-documentation)) + (get-window-property window ,property-atom window-list)) + (defsetf ,(intern reader) (window &key (mode :replace)) (win) + ,@(when writer-documentation `(,writer-documentation)) + `(when ,win + (change-property + ,window + ,',property-atom + (cond ((eq ,mode :remove) + (remove ,win (,',(intern reader) ,window :window-list t))) + ((listp ,win) ,win) + (t (list ,win))) + ,',data-type + 32 + :mode (if (eq ,mode :remove) :replace ,mode) + :transform #'xlib:window-id)))))) \ No newline at end of file Index: eclipse/lib/netwm-manager.lisp diff -u eclipse/lib/netwm-manager.lisp:1.3 eclipse/lib/netwm-manager.lisp:1.4 --- eclipse/lib/netwm-manager.lisp:1.3 Thu Aug 28 10:40:34 2003 +++ eclipse/lib/netwm-manager.lisp Wed Nov 12 19:03:50 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: EXTENDED-WINDOW-MANAGER-HINTS -*- -;;; $Id: netwm-manager.lisp,v 1.3 2003/08/28 14:40:34 hatchond Exp $ +;;; $Id: netwm-manager.lisp,v 1.4 2003/11/13 00:03:50 ihatchondo Exp $ ;;; ;;; This is the CLX support for the managing with gnome. ;;; @@ -37,7 +37,7 @@ set-workspace-names set-atoms-property get-atoms-property get-window-property - make-window-list-seter) + define-window-list-property-accessor) (:export net-supported net-client-list net-client-list-stacking net-number-of-desktops @@ -140,29 +140,31 @@ ;; _NET_CLIENT_LIST -(defun net-client-list (window &key window-list) - (get-window-property window :_NET_CLIENT_LIST window-list)) - -(make-window-list-seter net-client-list :_NET_CLIENT_LIST) - -(defsetf net-client-list (window &key (mode :replace)) (win) - " To set this property give or a single window or a list of window. - you can add or remove one window from the property or - simply replace the actual value by a new list." - `(set-net-client-list ,window ,win ,mode)) +(define-window-list-property-accessor (net-client-list) + :property-atom :_NET_CLIENT_LIST + :reader-documentation + "Returns the _net_client_list property. + - window: a window + - window-list: if true the returned list is a list of window. Otherwise + the returned list is the list of window-id." + :writer-documentation + "To set this property give or a single window or a list of window. + You can add or remove one window from the property or simply + replace the actual value by a new list.") ;; _NET_CLIENT_LIST_STACKING -(defun net-client-list-stacking (window &key window-list) - (get-window-property window :_NET_CLIENT_LIST_STACKING window-list)) - -(make-window-list-seter net-client-list-stacking :_NET_CLIENT_LIST_STACKING) - -(defsetf net-client-list-stacking (window &key (mode :replace)) (win) - " To set this property give a single window or a list of window. - you can add/remove one window from the property or - simply replace the actual value by a new list." - `(set-net-client-list-stacking ,window ,win ,mode)) +(define-window-list-property-accessor (net-client-list-stacking) + :property-atom :_NET_CLIENT_LIST_STACKING + :reader-documentation + "Returns the _net_client_list_stacking property. + - window: a window + - window-list: if true the returned list is a list of window. Otherwise + the returned list is the list of window-id." + :writer-documentation + "To set this property give a single window or a list of window. + You can add/remove one window from the property or + simply replace the actual value by a new list.") ;; _NET_NUMBER_OF_DESKTOPS @@ -241,16 +243,17 @@ ;; _NET_VIRTUAL_ROOTS -(defun net-virtual-roots (window &key window-list) - (get-window-property window :_NET_VIRTUAL_ROOTS window-list)) - -(make-window-list-seter net-virtual-roots :_NET_VIRTUAL_ROOTS :CARDINAL) - -(defsetf net-virtual-roots (window &key (mode :replace)) (windows) - " To set this property give or a single window or a list of window. - you can add or remove one window from the property or - simply replace the actual value by a new list." - `(set-net-virtual-roots ,window ,windows ,mode)) +(define-window-list-property-accessor (net-virtual-roots) + :property-atom :_NET_VIRTUAL_ROOTS + :reader-documentation + "Returns the _net_virtual_roots property. + - window: a window + - window-list: if true the returned list is a list of window. Otherwise + the returned list is the list of window-id." + :writer-documentation + "To set this property give or a single window or a list of window. + You can add or remove one window from the property or simply + replace the actual value by a new list.") ;; _NET_SHOWING_DESKTOP

1 0

[Eclipse-cvs] CVS update: eclipse/system.lisp
by Iban Hatchondo 10 Nov '03

10 Nov '03

Update of /project/eclipse/cvsroot/eclipse In directory common-lisp.net:/tmp/cvs-serv19005 Modified Files: system.lisp Log Message: compile-theme hacking. Should fix theme compiling problem report by Robert Strandh. Date: Mon Nov 10 05:02:54 2003 Author: ihatchondo Index: eclipse/system.lisp diff -u eclipse/system.lisp:1.6 eclipse/system.lisp:1.7 --- eclipse/system.lisp:1.6 Thu Aug 28 10:50:35 2003 +++ eclipse/system.lisp Mon Nov 10 05:02:53 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: User -*- -;;; $Id: system.lisp,v 1.6 2003/08/28 14:50:35 hatchond Exp $ +;;; $Id: system.lisp,v 1.7 2003/11/10 10:02:53 ihatchondo Exp $ ;;; ;;; This file is part of Eclipse. ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO @@ -79,8 +79,9 @@ ) (defun compile-theme (directory-name) - (let ((i-filespec (merge-pathnames "theme.lisp" directory-name)) - (o-filespec (merge-pathnames "theme.o"))) + (let* ((i-filespec (merge-pathnames "theme.lisp" directory-name)) + (directory-truename (directory-namestring (truename i-filespec))) + (o-filespec (merge-pathnames "theme.o" directory-truename))) (operate-on-system :eclipse :load) (load i-filespec) (compile-file i-filespec :output-file o-filespec)))

1 0

[Eclipse-cvs] CVS update: eclipse/widgets.lisp
by Iban Hatchondo 08 Nov '03

08 Nov '03

Update of /project/eclipse/cvsroot/eclipse In directory common-lisp.net:/tmp/cvs-serv11742 Modified Files: widgets.lisp Log Message: fix misplaced ignore-errors declarations. Date: Sat Nov 8 14:54:13 2003 Author: ihatchondo Index: eclipse/widgets.lisp diff -u eclipse/widgets.lisp:1.18 eclipse/widgets.lisp:1.19 --- eclipse/widgets.lisp:1.18 Sat Nov 1 04:41:49 2003 +++ eclipse/widgets.lisp Sat Nov 8 14:54:13 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*- -;;; $Id: widgets.lisp,v 1.18 2003/11/01 09:41:49 ihatchondo Exp $ +;;; $Id: widgets.lisp,v 1.19 2003/11/08 19:54:13 ihatchondo Exp $ ;;; ;;; ECLIPSE. The Common Lisp Window Manager. ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO @@ -304,7 +304,7 @@ (when desktop-p (pushnew :_net_wm_state_sticky netwm-state) (add-desktop-application *root* app) - (setf (window-priority window prec-desk) stack-mode)) + (setf (xlib:window-priority window prec-desk) stack-mode)) (setf (netwm:net-wm-state window) netwm-state (window-desktop-num window) +any-desktop+)) (grab-button window :any '(:button-press) :sync-pointer-p t)) @@ -566,9 +566,10 @@ (with-slots (window icon gcontext) application (let ((background (clx-ext::wm-hints-icon-pixmap window)) (width 45) (height 20)) - (if (typep background 'xlib:pixmap) - (multiple-value-setq (width height) (drawable-sizes background)) - (setf background nil)) + (ignore-errors + (if (typep background 'xlib:pixmap) + (multiple-value-setq (width height) (drawable-sizes background)) + (setf background nil))) (ignore-errors (when (and background (= 1 (xlib:drawable-depth background))) (let ((pix (xlib:create-pixmap

1 0

[Eclipse-cvs] CVS update: eclipse/Makefile.in
by Iban Hatchondo 05 Nov '03

05 Nov '03

Update of /project/eclipse/cvsroot/eclipse In directory common-lisp.net:/tmp/cvs-serv22461 Modified Files: Makefile.in Log Message: ptch from Christian Lynbech applied. Date: Wed Nov 5 04:12:43 2003 Author: ihatchondo Index: eclipse/Makefile.in diff -u eclipse/Makefile.in:1.7 eclipse/Makefile.in:1.8 --- eclipse/Makefile.in:1.7 Mon Oct 6 13:57:25 2003 +++ eclipse/Makefile.in Wed Nov 5 04:12:43 2003 @@ -1,5 +1,5 @@ # -*- Mode: Makefile -*- -# $Id: Makefile.in,v 1.7 2003/10/06 17:57:25 ihatchondo Exp $ +# $Id: Makefile.in,v 1.8 2003/11/05 09:12:43 ihatchondo Exp $ # # Makefile for Eclipse window manager. @@ -101,7 +101,8 @@ for theme in ${themes} ; do \ test -f "themes/$$theme/theme.o" && \ $(install) -d ${themedir}/$$theme && \ - $(install) ${themedir}/$$theme/theme.o && \ + $(install) themes/$$theme/theme.o \ + ${themedir}/$$theme/theme.o && \ for file in themes/$$theme/*.pnm ; do \ $(install) $$file ${themedir}/$$theme/. ; \ done ; \

1 0

[Eclipse-cvs] CVS update: eclipse/widgets.lisp
by Iban Hatchondo 01 Nov '03

01 Nov '03

Update of /project/eclipse/cvsroot/eclipse In directory common-lisp.net:/tmp/cvs-serv19500 Modified Files: widgets.lisp Log Message: fix focus loss problem when switching into fullscreen. Date: Sat Nov 1 04:41:49 2003 Author: ihatchondo Index: eclipse/widgets.lisp diff -u eclipse/widgets.lisp:1.17 eclipse/widgets.lisp:1.18 --- eclipse/widgets.lisp:1.17 Thu Oct 9 07:37:08 2003 +++ eclipse/widgets.lisp Sat Nov 1 04:41:49 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*- -;;; $Id: widgets.lisp,v 1.17 2003/10/09 11:37:08 ihatchondo Exp $ +;;; $Id: widgets.lisp,v 1.18 2003/11/01 09:41:49 ihatchondo Exp $ ;;; ;;; ECLIPSE. The Common Lisp Window Manager. ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO @@ -249,7 +249,8 @@ (setf x 0 y 0 w (screen-width) h (screen-height))) (xlib:with-state (window) (setf (window-position window) (values x y) - (drawable-sizes window) (values w h))))) + (drawable-sizes window) (values w h)))) + (focus-widget application 0)) (with-event-mask (*root-window*) (setf (window-position window) (geometry-coordinates fgeometry) (drawable-sizes window) (geometry-sizes fgeometry))

1 0

[Eclipse-cvs] CVS update: public_html/resources.shtml
by Erik Enge 17 Oct '03

17 Oct '03

Update of /project/eclipse/cvsroot/public_html In directory common-lisp.net:/home/eenge/tmp/eclipse-public_html Modified Files: resources.shtml Log Message: updating links to mailinglists Date: Fri Oct 17 13:19:50 2003 Author: eenge Index: public_html/resources.shtml diff -u public_html/resources.shtml:1.1.1.1 public_html/resources.shtml:1.2 --- public_html/resources.shtml:1.1.1.1 Wed Oct 1 10:10:03 2003 +++ public_html/resources.shtml Fri Oct 17 13:19:49 2003 @@ -14,16 +14,19 @@ <h3>Eclipse</h3> <ul> - <li>Discussion mailinglist - <a href="http://lists.unlambda.com/mailman/listinfo/eclipse"> - http://lists.unlambda.com/mailman/listinfo/eclipse</a></li> - <li>CVS commit mailinglist - <a href="http://lists.unlambda.com/mailman/listinfo/eclipse-cvs"> - http://lists.unlambda.com/mailman/listinfo/eclipse-cvs</a></li> + <li>Discussion mailinglist - <a href="/mailman/listinfo/eclipse-devel"> + http://common-lisp.net/mailman/listinfo/eclipse-devel</a></li> + <li>CVS commit mailinglist - <a href="/mailman/listinfo/eclipse-cvs"> + http://common-lisp.net/mailman/listinfo/eclipse-cvs</a></li> + <li>Announce mailinglist - <a href="/mailman/listinfo/eclipse-announce"> + http://common-lisp.net/mailman/listinfo/eclipse-announce</a></li> </ul> <p>If you're a fan of NNTP, try <a href="http://www.gmane.org/">Gmane</a> which funnels the Eclipse mailinglists, among a host of others, into - news groups.</p> + news groups. (Or try common-lisp.net's NNTP server; more + info <a href="/nntp.shtml">over there</a>.)</p> <h3>Common Lisp</h3> <ul> @@ -55,4 +58,4 @@ </table> </td> </tr> - \ No newline at end of file +

1 0

[Eclipse-cvs] CVS update: eclipse/input.lisp
by Iban Hatchondo 12 Oct '03

12 Oct '03

Update of /project/eclipse/cvsroot/eclipse In directory common-lisp.net:/tmp/cvs-serv16435 Modified Files: input.lisp Log Message: use (setf xlib:window-priority) instead of (setf window-priority) when changing the stacking order of a box-button. Date: Sun Oct 12 17:59:18 2003 Author: ihatchondo Index: eclipse/input.lisp diff -u eclipse/input.lisp:1.19 eclipse/input.lisp:1.20 --- eclipse/input.lisp:1.19 Thu Oct 9 07:38:18 2003 +++ eclipse/input.lisp Sun Oct 12 17:59:17 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*- -;;; $Id: input.lisp,v 1.19 2003/10/09 11:38:18 ihatchondo Exp $ +;;; $Id: input.lisp,v 1.20 2003/10/12 21:59:17 ihatchondo Exp $ ;;; ;;; ECLIPSE. The Common Lisp Window Manager. ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO @@ -478,4 +478,4 @@ ;;; Events for Message Box (defmethod event-process ((event visibility-notify) (box box-button)) - (setf (window-priority (widget-window box)) :above)) \ No newline at end of file + (setf (xlib:window-priority (widget-window box)) :above)) \ No newline at end of file

1 0

[Eclipse-cvs] CVS update: eclipse/move-resize.lisp
by Iban Hatchondo 09 Oct '03

09 Oct '03

Update of /project/eclipse/cvsroot/eclipse In directory common-lisp.net:/tmp/cvs-serv9274 Modified Files: move-resize.lisp Log Message: fix activate-move-resize, finish-resize when mode is box and verbose is t Date: Thu Oct 9 11:04:11 2003 Author: ihatchondo Index: eclipse/move-resize.lisp diff -u eclipse/move-resize.lisp:1.7 eclipse/move-resize.lisp:1.8 --- eclipse/move-resize.lisp:1.7 Thu Oct 9 07:36:18 2003 +++ eclipse/move-resize.lisp Thu Oct 9 11:04:08 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*- -;;; $Id: move-resize.lisp,v 1.7 2003/10/09 11:36:18 ihatchondo Exp $ +;;; $Id: move-resize.lisp,v 1.8 2003/10/09 15:04:08 ihatchondo Exp $ ;;; ;;; ECLIPSE. The Common Lisp Window Manager. ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO @@ -93,19 +93,26 @@ (defun activate-move-resize (master root status mode verbose-p) "Sets some internal values for the future move or resize animations." - (with-slots ((master-window window) gcontext active-p) master - (with-slots (resize-status move-status current-active-decoration window) root + (with-slots (resize-status move-status current-active-decoration window) root + (with-slots ((master-window window) gcontext active-p) master (when (and active-p (not (or resize-status move-status))) (or *clone* (initialize-clone)) (update-clone master) (grab-root-pointer) (setf (slot-value root status) t current-active-decoration master) + (when verbose-p + (initialize-geometry-info-box) + (multiple-value-bind (x y w h) (window-geometry master-window) + (if (eq status 'resize-status) + (multiple-value-bind (a b c d iw ih bw bh) + (decoration-wm-hints master) + (declare (ignore a b c d)) + (display-geometry (/ (- w bw) iw) (/ (- h bh) ih))) + (display-coordinates x y)))) (when (eq mode :box) (xlib:grab-server *display*) - (draw-window-grid master-window gcontext window)) - (when verbose-p - (initialize-geometry-info-box)))))) + (draw-window-grid master-window gcontext window)))))) ;;;; Resize. @@ -266,7 +273,6 @@ ;; and when root-resize-status is not nil. (defun finish-resize (master &optional verbose-p mode) "Terminate the resize work. (undraw grid, geometry infos, ...)" - (when verbose-p (undraw-geometry-info-box)) (with-slots (window gcontext) master (when (and (decoration-active-p master) (eql mode :box)) (draw-window-grid (widget-window *clone*) gcontext *root-window*) @@ -275,6 +281,7 @@ (setf (window-position window) (values x y) (drawable-sizes window) (values w h)) (resize-from master)))) + (when verbose-p (undraw-geometry-info-box)) (setf *card-point* nil)) ;;;; Move.

1 0

[Eclipse-cvs] CVS update: eclipse/docs/eclipse.1
by Iban Hatchondo 09 Oct '03

09 Oct '03

Update of /project/eclipse/cvsroot/eclipse/docs In directory common-lisp.net:/tmp/cvs-serv24407/docs Modified Files: eclipse.1 Log Message: man page updated. package.lisp updated. Date: Thu Oct 9 07:40:39 2003 Author: ihatchondo Index: eclipse/docs/eclipse.1 diff -u eclipse/docs/eclipse.1:1.8 eclipse/docs/eclipse.1:1.9 --- eclipse/docs/eclipse.1:1.8 Mon Oct 6 13:57:27 2003 +++ eclipse/docs/eclipse.1 Thu Oct 9 07:40:39 2003 @@ -1,5 +1,5 @@ .TH Eclipse 1 "(c) 2001 Iban HATCHONDO" -.\"$Id: eclipse.1,v 1.8 2003/10/06 17:57:27 ihatchondo Exp $ +.\"$Id: eclipse.1,v 1.9 2003/10/09 11:40:39 ihatchondo Exp $ .SH NAME eclipse - a window manager in Common Lisp @@ -167,6 +167,15 @@ of the application iconic name will be displayed. If you don't want eclipse to display small window for icons just set it to \fInil\fP. Default value is \fIt\fP. +.TP +.B\-*screen-edge-resistant-p*\ \fIboolean\fP +Set it to \fInil\fP if you don't want to feel any resistance when +attempting to move a window outside the screen boundaries. Default +value is \fIt\fP. +.TP +.B\-*standard-window-edge-resistant-p*\ \fIboolean\fP +Set it to \fInil\fP if you don't want to feel any resistance on edges +of window(s) you are about to overlap. Default value is \fIt\fP. .TP .B\-*focus-when-window-cycle*\ \fIboolean\fP If set to \fIt\fP the next window will be focused. Otherwise nothing

1 0

[Eclipse-cvs] CVS update: eclipse/package.lisp
by Iban Hatchondo 09 Oct '03

09 Oct '03

Update of /project/eclipse/cvsroot/eclipse In directory common-lisp.net:/tmp/cvs-serv24407 Modified Files: package.lisp Log Message: man page updated. package.lisp updated. Date: Thu Oct 9 07:40:38 2003 Author: ihatchondo Index: eclipse/package.lisp diff -u eclipse/package.lisp:1.9 eclipse/package.lisp:1.10 --- eclipse/package.lisp:1.9 Mon Oct 6 13:57:26 2003 +++ eclipse/package.lisp Thu Oct 9 07:40:38 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: User -*- -;;; $Id: package.lisp,v 1.9 2003/10/06 17:57:26 ihatchondo Exp $ +;;; $Id: package.lisp,v 1.10 2003/10/09 11:40:38 ihatchondo Exp $ ;;; ;;; This file is part of Eclipse. ;;; Copyright (C) 2002 Iban HATCHONDO @@ -185,6 +185,8 @@ "REALIZE-MENU-ITEMS" ;function "REALIZE-POP-UP" ;function "RECOMPUTE-WM-NORMAL-HINTS" ;function + "REGION-INTERSECT-REGION-P" ;function + "REGION-INTERSECT-WINDOW-IN-SCREEN" ;function "REGISTER-ALL-KEYSTROKES" ;function "REGISTER-ALL-MOUSE-STROKES" ;function "RUN-APPLICATION" ;function @@ -329,15 +331,14 @@ "WITH-ROOT-CURSOR" ;macro "+ANY-DESKTOP+" ;constant + "+APPLICATION-MASK+" ;constant "+DECORATION-EVENT-MASK+" ;constant "+EDGE-EVENT-MASK+" ;constant - "+FOCUSABLE-MASK+" ;constant "+GNOME-PROTOCOLS+" ;constant "+NETWM-PROTOCOL+" ;constant "+POINTER-EVENT-MASK+" ;constant "+PUSH-BUTTON-MASK+" ;constant "+STD-BUTTON-MASK+" ;constant - "+UNFOCUSABLE-MASK+" ;constant "*WHITE*" ;variable "*BLACK*" ;variable

1 0