[Eclipse-cvs] CVS eclipse/lib
ihatchondo
ihatchondo at common-lisp.net
Fri Apr 23 16:26:09 UTC 2010
Update of /project/eclipse/cvsroot/eclipse/lib
In directory cl-net:/tmp/cvs-serv15239
Modified Files:
netwm-manager.lisp
Log Message:
Fix: missing exported functions and ATOMS.
--- /project/eclipse/cvsroot/eclipse/lib/netwm-manager.lisp 2007/11/04 22:27:19 1.23
+++ /project/eclipse/cvsroot/eclipse/lib/netwm-manager.lisp 2010/04/23 16:26:09 1.24
@@ -1,5 +1,5 @@
;;; -*- Mode: Lisp; Package: EXTENDED-WINDOW-MANAGER-HINTS -*-
-;;; $Id: netwm-manager.lisp,v 1.23 2007/11/04 22:27:19 ihatchondo Exp $
+;;; $Id: netwm-manager.lisp,v 1.24 2010/04/23 16:26:09 ihatchondo Exp $
;;;
;;; This is the CLX support for the managing with gnome.
;;;
@@ -32,23 +32,46 @@
(:import-from :xlib #:get-property #:change-property)
(:import-from :manager-commons #:card-32 #:card-16 #:card-8 #:int-16)
(:export
- #:net-supported #:net-client-list
- #:net-client-list-stacking #:net-number-of-desktops
- #:net-current-desktop #:net-desktop-geometry
- #:net-desktop-viewport #:net-desktop-names
- #:net-active-window #:net-workarea
- #:net-supporting-wm-check #:net-virtual-roots
+ #:intern-atoms
+ #:net-active-window
+ #:net-client-list
+ #:net-client-list-stacking
+ #:net-current-desktop
+ #:net-desktop-geometry
+ #:net-desktop-layout
+ #:net-desktop-names
+ #:net-desktop-viewport
#:net-frame-extents
- #:net-wm-name #:net-wm-visible-name
- #:net-wm-icon-name #:net-wm-visible-icon-name
- #:net-wm-desktop #:net-wm-window-type
- #:net-wm-state #:net-wm-strut
- #:net-wm-icon-geometry #:net-wm-icon
- #:net-wm-pid #:net-wm-handled-icons
- #:net-wm-allowed-actions #:net-wm-strut-partial
- #:net-wm-user-time #:net-wm-user-time-window
-
- #:intern-atoms)
+ #:net-number-of-desktops
+ #:net-showing-desktop
+ #:net-supported
+ #:net-supporting-wm-check
+ #:net-virtual-roots
+ #:net-wm-allowed-actions
+ #:net-wm-desktop
+ #:net-wm-handled-icons
+ #:net-wm-icon
+ #:net-wm-icon-geometry
+ #:net-wm-icon-name
+ #:net-wm-name
+ #:net-wm-pid
+ #:net-wm-state
+ #:net-wm-strut
+ #:net-wm-strut-partial
+ #:net-wm-user-time
+ #:net-wm-user-time-window
+ #:net-wm-visible-icon-name
+ #:net-wm-visible-name
+ #:net-wm-window-type
+ #:net-workarea
+
+ #:make-desktop-layout
+
+ #:desktop-layout-orientation
+ #:desktop-layout-starting-corner
+ #:desktop-layout-x
+ #:desktop-layout-y
+ )
(:documentation
"This package implements the Extended Window Manager Hints
(from Freedesktop.org). - version 1.4 draft2 -
@@ -63,58 +86,86 @@
(compilation-speed 0)))
(defconstant +exwm-atoms+
- (list "_NET_SUPPORTED" "_NET_CLIENT_LIST"
- "_NET_CLIENT_LIST_STACKING" "_NET_NUMBER_OF_DESKTOPS"
- "_NET_CURRENT_DESKTOP" "_NET_DESKTOP_GEOMETRY"
- "_NET_DESKTOP_VIEWPORT" "_NET_DESKTOP_NAMES"
- "_NET_ACTIVE_WINDOW" "_NET_WORKAREA"
- "_NET_SUPPORTING_WM_CHECK" "_NET_VIRTUAL_ROOTS"
- "_NET_DESKTOP_LAYOUT"
-
- "_NET_RESTACK_WINDOW" "_NET_REQUEST_FRAME_EXTENTS"
- "_NET_MOVERESIZE_WINDOW" "_NET_CLOSE_WINDOW"
+ (list "_NET_ACTIVE_WINDOW"
+ "_NET_CLIENT_LIST"
+ "_NET_CLIENT_LIST_STACKING"
+ "_NET_CLOSE_WINDOW"
+ "_NET_CURRENT_DESKTOP"
+ "_NET_DESKTOP_GEOMETRY"
+ "_NET_DESKTOP_LAYOUT"
+ "_NET_DESKTOP_NAMES"
+ "_NET_DESKTOP_VIEWPORT"
+ "_NET_FRAME_EXTENTS"
+ "_NET_MOVERESIZE_WINDOW"
+ "_NET_NUMBER_OF_DESKTOPS"
+ "_NET_REQUEST_FRAME_EXTENTS"
+ "_NET_RESTACK_WINDOW"
+ "_NET_SHOWING_DESKTOP"
+ "_NET_SUPPORTED"
+ "_NET_SUPPORTING_WM_CHECK"
+ "_NET_VIRTUAL_ROOTS"
+ "_NET_WM_ALLOWED_ACTIONS"
+ "_NET_WM_DESKTOP"
+ "_NET_WM_FULL_PLACEMENT"
+ "_NET_WM_HANDLED_ICONS"
+ "_NET_WM_ICON"
+ "_NET_WM_ICON_GEOMETRY"
+ "_NET_WM_ICON_NAME"
"_NET_WM_MOVERESIZE"
-
- "_NET_WM_SYNC_REQUEST" "_NET_WM_PING"
-
- "_NET_WM_NAME" "_NET_WM_VISIBLE_NAME"
- "_NET_WM_ICON_NAME" "_NET_WM_VISIBLE_ICON_NAME"
- "_NET_WM_DESKTOP" "_NET_WM_WINDOW_TYPE"
- "_NET_WM_STATE" "_NET_WM_STRUT"
- "_NET_WM_ICON_GEOMETRY" "_NET_WM_ICON"
- "_NET_WM_PID" "_NET_WM_HANDLED_ICONS"
- "_NET_WM_USER_TIME" "_NET_FRAME_EXTENTS"
+ "_NET_WM_NAME"
+ "_NET_WM_PID"
+ "_NET_WM_PING"
+ "_NET_WM_STATE"
+ "_NET_WM_STRUT"
+ "_NET_WM_STRUT_PARTIAL"
+ "_NET_WM_SYNC_REQUEST"
+ "_NET_WM_USER_TIME"
"_NET_WM_USER_TIME_WINDOW"
- "_NET_WM_FULL_PLACEMENT"
- ;; "_NET_WM_MOVE_ACTIONS"
-
- "_NET_WM_WINDOW_TYPE_DESKTOP" "_NET_WM_STATE_MODAL"
- "_NET_WM_WINDOW_TYPE_DOCK" "_NET_WM_STATE_STICKY"
- "_NET_WM_WINDOW_TYPE_TOOLBAR" "_NET_WM_STATE_MAXIMIZED_VERT"
- "_NET_WM_WINDOW_TYPE_MENU" "_NET_WM_STATE_MAXIMIZED_HORZ"
- "_NET_WM_WINDOW_TYPE_UTILITY" "_NET_WM_STATE_SHADED"
- "_NET_WM_WINDOW_TYPE_SPLASH" "_NET_WM_STATE_SKIP_TASKBAR"
- "_NET_WM_WINDOW_TYPE_DIALOG" "_NET_WM_STATE_SKIP_PAGER"
- "_NET_WM_WINDOW_TYPE_NORMAL" "_NET_WM_STATE_HIDDEN"
- "_NET_WM_WINDOW_TYPE_DROPDOWN_MENU" "_NET_WM_STATE_FULLSCREEN"
- "_NET_WM_WINDOW_TYPE_POPUP_MENU" "_NET_WM_STATE_ABOVE"
- "_NET_WM_WINDOW_TYPE_TOOLTIP" "_NET_WM_STATE_BELOW"
- "_NET_WM_WINDOW_TYPE_NOTIFICATION" "_NET_WM_STATE_DEMANDS_ATTENTION"
- "_NET_WM_WINDOW_TYPE_COMBO"
- "_NET_WM_WINDOW_TYPE_DND"
-
- "_NET_WM_ALLOWED_ACTIONS"
- "_NET_WM_ACTION_MOVE"
- "_NET_WM_ACTION_RESIZE"
- "_NET_WM_ACTION_MINIMIZE"
- "_NET_WM_ACTION_SHADE"
- "_NET_WM_ACTION_STICK"
- "_NET_WM_ACTION_MAXIMIZE_HORZ"
- "_NET_WM_ACTION_MAXIMIZE_VERT"
- "_NET_WM_ACTION_FULLSCREEN"
- "_NET_WM_ACTION_CHANGE_DESKTOP"
- "_NET_WM_ACTION_CLOSE"
-
+ "_NET_WM_VISIBLE_ICON_NAME"
+ "_NET_WM_VISIBLE_NAME"
+ "_NET_WM_WINDOW_TYPE"
+ "_NET_WORKAREA"
+
+ "_NET_WM_STATE_ABOVE"
+ "_NET_WM_STATE_BELOW"
+ "_NET_WM_STATE_DEMANDS_ATTENTION"
+ "_NET_WM_STATE_FULLSCREEN"
+ "_NET_WM_STATE_HIDDEN"
+ "_NET_WM_STATE_MAXIMIZED_HORZ"
+ "_NET_WM_STATE_MAXIMIZED_VERT"
+ "_NET_WM_STATE_MODAL"
+ "_NET_WM_STATE_SHADED"
+ "_NET_WM_STATE_SKIP_PAGER"
+ "_NET_WM_STATE_SKIP_TASKBAR"
+ "_NET_WM_STATE_STICKY"
+
+ "_NET_WM_WINDOW_TYPE_COMBO"
+ "_NET_WM_WINDOW_TYPE_DESKTOP"
+ "_NET_WM_WINDOW_TYPE_DIALOG"
+ "_NET_WM_WINDOW_TYPE_DND"
+ "_NET_WM_WINDOW_TYPE_DOCK"
+ "_NET_WM_WINDOW_TYPE_DROPDOWN_MENU"
+ "_NET_WM_WINDOW_TYPE_MENU"
+ "_NET_WM_WINDOW_TYPE_NORMAL"
+ "_NET_WM_WINDOW_TYPE_NOTIFICATION"
+ "_NET_WM_WINDOW_TYPE_POPUP_MENU"
+ "_NET_WM_WINDOW_TYPE_SPLASH"
+ "_NET_WM_WINDOW_TYPE_TOOLBAR"
+ "_NET_WM_WINDOW_TYPE_TOOLTIP"
+ "_NET_WM_WINDOW_TYPE_UTILITY"
+
+ "_NET_WM_ACTION_ABOVE"
+ "_NET_WM_ACTION_BELOW"
+ "_NET_WM_ACTION_CHANGE_DESKTOP"
+ "_NET_WM_ACTION_CLOSE"
+ "_NET_WM_ACTION_FULLSCREEN"
+ "_NET_WM_ACTION_MAXIMIZE_HORZ"
+ "_NET_WM_ACTION_MAXIMIZE_VERT"
+ "_NET_WM_ACTION_MINIMIZE"
+ "_NET_WM_ACTION_MOVE"
+ "_NET_WM_ACTION_RESIZE"
+ "_NET_WM_ACTION_SHADE"
+ "_NET_WM_ACTION_STICK"
))
;; General initialisation
@@ -272,6 +323,7 @@
;; _NET_SHOWING_DESKTOP
(defun net-showing-desktop (window)
+ "Returns T if the window manager is in 'showing desktop' mode."
(= 1 (the card-32 (first (get-property window :_NET_SHOWING_DESKTOP)))))
(defsetf net-showing-desktop (window) (mode-p)
More information about the Eclipse-cvs
mailing list