From xemacs-m  Wed Feb 12 19:24:57 1997
Received: from bayserve.net (bay1.bayserve.net [206.148.244.200])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id TAA16926
	for <xemacs-beta@xemacs.org>; Wed, 12 Feb 1997 19:24:57 -0600 (CST)
Received: from localhost (jmiller@localhost) by  bayserve.net (8.7.2/8.7.2) with SMTP id UAA24706; Wed, 12 Feb 1997 20:29:41 -0500 (EST)
Date: Wed, 12 Feb 1997 20:29:41 -0500 (EST)
From: Jeff Miller <jmiller@bay1.bayserve.net>
To: Heiko Muenkel <muenkel@tnt.uni-hannover.de>
cc: xemacs-beta@xemacs.org
Subject: Re: grr, need help on menus.
In-Reply-To: <199702121053.LAA14541@daedalus.tnt.uni-hannover.de>
Message-ID: <Pine.SUN.3.95.970212202355.22062E-100000@bay1.bayserve.net>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII

On Wed, 12 Feb 1997, Heiko Muenkel wrote:
> > selection.  I've been trying to get this working all weekend but keep
> 
> Try the following:
> 
>       ("Printing Options"
>        ["Command-Line Switches for `lpr'/`lp'..."
> 	(setq lpr-switches
> 	      (read-expression "Switches for `lpr'/`lp': "
> 			       (format "%S" lpr-switches)))
> 	t]
> ;; stelen from Heiko Muenkel
>       (cons    
>        "Select Printer" 
> 	(mapcar '(lambda (printer)
> 		   (vector (car printer)
> 			   (list 'hm-select-new-ps-printer 
> 				 (car printer))
> 			   :style 'radio
> 			   :selected (list 'string= 
> 					   'hm-current-ps-printer 
> 					   (car printer))))
> 		hm-ps-printer-alist)
> 	)
> 
> ;;;
>        ["Pretty-Print With Color"
> 
Thanks Heiko, that's very close to a few of my trys.  Unfortunately, it
yields the a result I saw way too many times. :(

During the xemacs dump, it bombs & I get:

Loading mule-init...
Loading gui...
Loading mode-motion...
Loading mouse...
Loading x-menubar...*** Error in XEmacs initialization
(error "menu name (first element) must be a string" (cons "Select Printer"
(mapcar (quote (lambda (printer) (vector (car printer) (list (quote
hm-select-new-ps-printer) (car printer)) :style (quote radio) :selected
(list (quote string=) (quote hm-current-ps-printer) (car printer)))))
hm-ps-printer-alist)))
*** Backtrace
  really-early-error-handler((error "menu name (first element) must be a
string" (cons "Select Printer" (mapcar ... hm-ps-printer-alist))))
  signal(error ("menu name (first element) must be a string" (cons "Select
Printer" (mapcar ... hm-ps-printer-alist))))
  # bind (menubar-p menu)
  check-menu-syntax((cons "Select Printer" (mapcar (quote ...)
hm-ps-printer-alist)))
  # bind (menuitem item menubar-p menu)
  check-menu-syntax(("Printing Options" ["Command-Line Switches for
`lpr'/`lp'..." (setq lpr-switches ...) t] (cons "Select Printer" (mapcar
... hm-ps-printer-alist)) ["Pretty-Print With Color" (setq
ps-print-color-p ...) :style toggle :selected ps-print-color-p]
("Pretty-Print Paper Size" ["Letter" ... :style radio :selected ...]
["Letter-small" ... :style radio :selected ...] ["Legal" ... :style

--snip--

& a ton more msgs.

