;------------- toolbar with text icons -------------------------
;---  skm  7/5/2011
;

;--- first make a blank toolbar structure
(setq text-icons-toolbar (make-toolbar-specifier nil))

;--- define buttons to go on the toolbar
(setq text-icon-open     (toolbar-make-button-list "Open"))
(setq text-icon-dired    (toolbar-make-button-list "Dired"))
(setq text-icon-save     (toolbar-make-button-list "Save"))
(setq text-icon-print    (toolbar-make-button-list "Print"))
(setq text-icon-cut      (toolbar-make-button-list "Cut"))
(setq text-icon-copy     (toolbar-make-button-list "Copy"))
(setq text-icon-paste    (toolbar-make-button-list "Paste"))
(setq text-icon-undo     (toolbar-make-button-list "Undo"))
(setq text-icon-spell    (toolbar-make-button-list "Spell"))
(setq text-icon-replace  (toolbar-make-button-list "Replace"))
(setq text-icon-mail     (toolbar-make-button-list "Mail"))
(setq text-icon-info     (toolbar-make-button-list "Info"))
(setq text-icon-compile  (toolbar-make-button-list "Compile"))
(setq text-icon-debug    (toolbar-make-button-list "Debug"))
(setq text-icon-news     (toolbar-make-button-list "News"))



;---add buttons to the new toolbar
(set-specifier text-icons-toolbar (cons (current-buffer) (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-open toolbar-open       t "Open a file"])))
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-dired toolbar-dired     t "Edit a directory"]))) 
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-save toolbar-save       t "Save buffer"] )))
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-print toolbar-print     t "Print buffer"] )))
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-cut toolbar-cut         t "Kill region"] )))
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-copy toolbar-copy       t "Copy region"] )))
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-paste toolbar-paste     t "Paste from clipboard"] )))
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-undo toolbar-undo       t "Undo edit"] )))
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-spell toolbar-ispell    t "Check spelling"]))) 
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-replace toolbar-replace t "Search & Replace"]))) 
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-mail toolbar-mail       t "Read mail"] )))
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-info toolbar-info       t "Info documentation"]))) 
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-compile toolbar-compile t "Start a compilation"]))) 
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-debug toolbar-debug     t "Start a debugger"] )))
(set-specifier text-icons-toolbar (cons 'global (toolbar-add-item (specifier-instance text-icons-toolbar)[text-icon-news toolbar-news       t "Read news"])))

;--- copy text-icons-toolbar to bottom-toolbar
(copy-specifier text-icons-toolbar bottom-toolbar) 


;--- next 2 lines have to both be run to make the toolbar visible
(set-specifier bottom-toolbar-visible-p t)    ; make the toolbar visible
(set-specifier bottom-toolbar-height 28 )     ; set the height of the toolbar to (non zero) pixels


;--- set the border width, 
;---- i.e. the border around the outside of all the icons as a group, but not between them
(set-specifier bottom-toolbar-border-width 4) ; set the border width in pixels