Location: lg@xxxxxxxxxxxxxx http://arch.xwem.org/2005/
Revision: xwem--main--2.2--patch-21
Archive: lg@xxxxxxxxxxxxxx
Creator: Zajcev Evgeny <lg@xxxxxxxx>
Date: Tue Jun 21 00:41:50 MSD 2005
Standard-date: 2005-06-20 20:41:50 GMT
New-files: icons/.arch-ids/mini-quake.xpm.id
icons/mini-quake.xpm
Modified-files: lisp/xwem-icons.el lisp/xwem-launcher.el
New-patches: dev@xxxxxxxxxxxxxxxx/xwem--dev--2.2--patch-13
dev@xxxxxxxxxxxxxxxx/xwem--dev--2.2--patch-14
lg@xxxxxxxxxxxxxx/xwem--main--2.2--patch-21
Summary: quake icon added.
Keywords: quake, icon
* lisp/xwem-icons.el (xwem-icons-list): [addon] quake icon added.
* icons/mini-quake.xpm: [new]
* added files
icons/.arch-ids/mini-quake.xpm.id
icons/mini-quake.xpm
{arch}/xwem/xwem--dev/xwem--dev--2.2/dev@xxxxxxxxxxxxxxxx/patch-log/patch-13
{arch}/xwem/xwem--dev/xwem--dev--2.2/dev@xxxxxxxxxxxxxxxx/patch-log/patch-14
{arch}/xwem/xwem--main/xwem--main--2.2/lg@xxxxxxxxxxxxxx/patch-log/patch-21
* modified files
--- orig/lisp/xwem-icons.el
+++ mod/lisp/xwem-icons.el
@@ -34,7 +34,7 @@
;; Supports client properties:
;; `xwem-tab-face' - Face to draw tabber item (overrides `xwem-tabber-face'
-;; `xwem-icon-name' - Name of icon to use (overrides `xwem-icons-alist')
+;; `xwem-icon-name' - Name of icon to use (overrides `xwem-icons-list')
;;; Code:
@@ -122,6 +122,10 @@
(name "^Lupe$")))
("mini-graph.xpm" (application "gnuplot"))
+ ("mini-quake.xpm" (or (and (class-inst "^xqf$")
+ (class-name "^Xqf$"))
+ (name "^FuhQuake$")))
+
;; ICQ
("mini-icq.xpm"
(or (buffer-major-mode eicq-buddy-mode)
--- orig/lisp/xwem-launcher.el
+++ mod/lisp/xwem-launcher.el
@@ -655,7 +655,7 @@
(atype (car action))
(acmd (cdr action)))
(ecase atype
- (elisp (eval (read acmd)))
+ (elisp (eval (car (read-from-string acmd))))
(cmd (xwem-execute-program acmd))))))
;;;###autoload(autoload 'xwem-launch-dock-menu "xwem-launcher" "" t)
|