Summary for xwem--main--2.1--patch-6

[Zajcev Evgeny <lg@xxxxxxxx>]

Location: lg@xxxxxxxxxxxxxx http://arch.xwem.org/2005/

Revision: xwem--main--2.1--patch-6
Archive: lg@xxxxxxxxxxxxxx
Creator: Zajcev Evgeny <lg@xxxxxxxx>
Date: Tue Jan 25 03:06:08 MSK 2005
Standard-date: 2005-01-25 00:06:08 GMT
Modified-files: lisp/xwem-clients.el
New-patches: lg@xxxxxxxxxxxxxx/xwem--main--2.1--patch-6
Summary: xwem-cl-manage-hook added
Keywords: hooks

* lisp/xwem-clients.el (Commentary): [addons]

* lisp/xwem-clients.el (xwem-cl-manage-hook): [new] hook called when
  client manages initially or after managing model change.

* added files

    {arch}/xwem/xwem--main/xwem--main--2.1/lg@xxxxxxxxxxxxxx/patch-log/patch-6

* modified files

--- orig/lisp/xwem-clients.el
+++ mod/lisp/xwem-clients.el
@@ -54,20 +54,41 @@
 ;;   `xwem-cl-state-change-hook' - Called when CL changes state to one
 ;;                                 described above.
 ;; 
-;;   `xwem-cl-manage-hook' - Called when CL just managed.
+;;   `xwem-cl-manage-hook' - Called when CL just managed.  This hook
+;;                           differs from `xwem-cl-create-hook',
+;;                           `xwem-cl-create-hook' called only once
+;;                           during client lifetime, but
+;;                           `xwem-cl-manage-hook' calls evertime
+;;                           client changes its managing model.
 ;; 
-;;   `xwem-cl-activate-hook' - Called when CL is activated in its context.
+;;   `xwem-cl-activate-hook' - Called when CL is activated in its
+;;                             context.
 ;;
-;;   `xwem-cl-deactivate-hook' - Called when CL is deactivated in its context.
+;;   `xwem-cl-deactivate-hook' - Called when CL is deactivated in its
+;;                               context.
 ;; 
-;;   `xwem-cl-withdraw-hook' - Called when CL is about to move to withdrawn 
state.
+;;   `xwem-cl-withdraw-hook' - Called when CL is about to move to
+;;                             withdrawn state.
 ;;
 
-;; 
 ;; Supported client properties:
 ;; 
-;;   `noselect'  - Non-nil to make client non-selectable.
-
+;;   `noselect' - Non-nil to make client non-selectable.
+;; 
+;;   `skip-deselect' - Non-nil makes client non-deselectable.
+;; 
+;;   `override-skip-deselect' - Non-nil overrides `skip-deselect'
+;;                              property of selected client.
+;; 
+;;   `skip-initial-state' - Non-nil to skip processing ICCCM initial
+;;                          client state.
+;; 
+;;   `x-border-width' - Client's border width in pixels.
+;; 
+;;   `x-border-color' - Client's border color.
+;; 
+;;   `ignore-has-input-p' - Non-nil mean force focusing even if client
+;;                          does not have ICCCM focus model.
 
 ;;; Code:
 
@@ -207,6 +228,12 @@
   :group 'xwem-hooks)
 
 ;;;###autoload
+(defcustom xwem-cl-manage-hook nil
+  "*Hooks to be called with just managed CL as argument."
+  :type 'hook
+  :group 'xwem-hooks)
+
+;;;###autoload
 (defcustom xwem-cl-activate-hook nil
   "*Hooks to be called with just setuped CL as argument."
   :type 'hook
@@ -1917,7 +1944,9 @@
   (xwem-method-manage cl)
 
   (unless (xwem-client-property cl 'skip-initial-state)
-    (xwem-cl-honour-init-state cl)))
+    (xwem-cl-honour-init-state cl))
+
+  (run-hooks 'xwem-cl-manage-hook cl))
 
 ;;;###xwem-autoload
 (defun xwem-activate (cl &optional type)