(require 'riece-menu)
+(defconst riece-toolbar-description
+ "Show toolbar icons.")
+
(defvar riece-toolbar-items
'(riece-command-quit
riece-command-join
riece-command-part
riece-command-previous-channel
riece-command-next-channel
- riece-command-change-layout))
+ riece-command-change-layout
+ riece-submit-bug-report))
(defun riece-toolbar-find-menu-item (command)
(let ((pointer riece-menu-items)
menu-item)
(while pointer
(setq file (locate-file (symbol-name (car pointer))
- load-path
+ (cons riece-data-directory load-path)
'(".xpm" ".pbm" ".xbm"))
menu-item (riece-toolbar-find-menu-item (car pointer)))
(if (and file (file-exists-p file))