[PATCH 2/4] "appicon" frame part - dockapp special

["Alexey I. Froloff" <raorn altlinux org>]

Signed-off-by: Alexey I. Froloff <raorn altlinux org>
---
 lisp/sawfish/wm/frames.jl  |    3 +++
 lisp/sawfish/wm/keymaps.jl |    8 ++++++++
 2 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/lisp/sawfish/wm/frames.jl b/lisp/sawfish/wm/frames.jl
index a19fc35..7c582de 100644
--- a/lisp/sawfish/wm/frames.jl
+++ b/lisp/sawfish/wm/frames.jl
@@ -151,6 +151,7 @@ that overrides settings set elsewhere.")
       (shaded-transient . shaped-transient)
       (icon . shaped-transient)
       (dock . unframed)
+      (dockapp . unframed)
       (utility . default)
       (shaded-utility . shaded-transient)
       (toolbar . unframed)
@@ -657,6 +658,8 @@ generate.")
   (define-frame-class 'title `((keymap . title-keymap)
 			       (cursor . ,(cursor-for-frame-part 'title))))
 
+  (define-frame-class 'appicon '((keymap . appicon-keymap)))
+
   (mapc (lambda (x)
 	  (define-frame-class x `((cursor . ,(cursor-for-frame-part x))
 				  (keymap . border-keymap))))
diff --git a/lisp/sawfish/wm/keymaps.jl b/lisp/sawfish/wm/keymaps.jl
index 32552ee..280f8a7 100644
--- a/lisp/sawfish/wm/keymaps.jl
+++ b/lisp/sawfish/wm/keymaps.jl
@@ -231,6 +231,14 @@ of a window. (Only mouse-bindings are evaluated in this map.)"
   :group bindings
   :type keymap)
 
+  (defcustom appicon-keymap (bind-keys (make-keymap)
+				       "Button1-Move" 'move-window-interactively
+				       "Button1-Click1" 'popup-window-menu)
+    "Keymap containing bindings active when the pointer is in the appicon of
+a window. (Only mouse-bindings are evaluated in this map.)"
+    :group bindings
+    :type keymap)
+
   (defvar pointer-motion-threshold 2
     "Distance in pixels pointer must move before generating motion events.")
 
-- 
1.7.0.4