file-find dialog opens with up to 4 toolbars

Oops, copied from wrong buffer for 1st message: Below are the commands I was using to create the toolbar: ;--- 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")) ;---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"] ))) ;--- 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-width 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 _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta