From xemacs-m  Tue Feb 11 21:46:07 1997
Received: from bayserve.net (bay1.bayserve.net [206.148.244.200])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id VAA26964
	for <xemacs-beta@xemacs.org>; Tue, 11 Feb 1997 21:46:06 -0600 (CST)
Received: from localhost (jmiller@localhost) by  bayserve.net (8.7.2/8.7.2) with SMTP id WAA27464 for <xemacs-beta@xemacs.org>; Tue, 11 Feb 1997 22:50:45 -0500 (EST)
Date: Tue, 11 Feb 1997 22:50:45 -0500 (EST)
From: Jeff Miller <jmiller@bay1.bayserve.net>
To: beta-list <xemacs-beta@xemacs.org>
Subject: grr, need help on menus.
Message-ID: <Pine.SUN.3.95.970211223005.20628E-100000@bay1.bayserve.net>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII


If you remember, I had wanted to have an Option menu for printer
selection.  I've been trying to get this working all weekend but keep
falling on my face. :(

Is what I'm trying to do here even in the right direction?

      ("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
      ("Select Printer" 
       (list    
	(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"


I thought I had read that a list would be interpreted as a submenu.  I
know I'm doing something wrong, I just don't know what.

Also, Steve, I read your comments regarding the Options menu vs Custom.  
If I can cast my puny vote it would be for the Options menu.  I tried
looking at the custom stuff and either it is pretty much just editing
faces or I'm missing something.  It seems like it has a *long* way to go.
It also seems to be a step back with respect to ease of use.  I've managed
to get most of my office converted to XEmacs because of the menus & ease
of use.  I think the custom stuff (at least in it's current form) would
have them asking me more questions, not less.

