Summary for xwem--main--2.1--patch-38

[Zajcev Evgeny <lg@xxxxxxxx>]

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

Revision: xwem--main--2.1--patch-38
Archive: lg@xxxxxxxxxxxxxx
Creator: Zajcev Evgeny <lg@xxxxxxxx>
Date: Wed Mar 23 02:13:31 MSK 2005
Standard-date: 2005-03-22 23:13:31 GMT
Modified-files: extra/xwem-rooticon.el
New-patches: lg@xxxxxxxxxxxxxx/xwem--main--2.1--patch-38
Summary: rooticon popup menu addons
Keywords: 

* extra/xwem-rooticon.el (xwem-rooticon-genmenu): [addon] Few menu items
  added.

* added files

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

* modified files

--- orig/extra/xwem-rooticon.el
+++ mod/extra/xwem-rooticon.el
@@ -360,7 +360,14 @@
 (defun xwem-rooticon-genmenu (ri)
   (list "XWEM RootIcon"
         (vector "Select" `(xwem-select-client ,(xwem-rooticon-cl ri)))
-        (vector "Info" `(xwem-client-info ,(xwem-rooticon-cl ri)))))
+        (vector "Info" `(xwem-client-info ,(xwem-rooticon-cl ri)))
+        (vector "Mark" `(if (xwem-cl-marked-p ,(xwem-rooticon-cl ri))
+                            (xwem-client-unset-mark ,(xwem-rooticon-cl ri))
+                          (xwem-client-set-mark ,(xwem-rooticon-cl ri)))
+                :style 'toggle :selected `(xwem-cl-marked-p ,(xwem-rooticon-cl 
ri)))
+        "--"
+        (vector "Close" `(xwem-client-kill ,(xwem-rooticon-cl ri)))
+        (vector "Kill" `(xwem-client-kill ,(xwem-rooticon-cl ri) '(4)))))
 
 (define-xwem-command xwem-rooticon-menu ()
   "Popup rooticon menu."