From xemacs-m  Wed Feb 12 04:54:09 1997
Received: from mgate.uni-hannover.de (mgate.uni-hannover.de [130.75.2.3])
	by xemacs.org (8.8.5/8.8.5) with SMTP id EAA28457
	for <xemacs-beta@xemacs.org>; Wed, 12 Feb 1997 04:54:09 -0600 (CST)
Received: from helios (actually helios.tnt.uni-hannover.de) by mgate 
          with SMTP (PP); Wed, 12 Feb 1997 11:53:46 +0100
Received: from daedalus.tnt.uni-hannover.de by helios (SMI-8.6/SMI-SVR4) 
          id LAA21102; Wed, 12 Feb 1997 11:53:28 +0100
Received: by daedalus.tnt.uni-hannover.de (SMI-8.6/SMI-SVR4) id LAA14541;
          Wed, 12 Feb 1997 11:53:22 +0100
Date: Wed, 12 Feb 1997 11:53:22 +0100
Message-Id: <199702121053.LAA14541@daedalus.tnt.uni-hannover.de>
From: Heiko Muenkel <muenkel@tnt.uni-hannover.de>
To: jmiller@bay1.bayserve.net
Cc: xemacs-beta@xemacs.org
Subject: Re: grr, need help on menus.
In-Reply-To: <Pine.SUN.3.95.970211223005.20628E-100000@bay1.bayserve.net>
References: <Pine.SUN.3.95.970211223005.20628E-100000@bay1.bayserve.net>
X-Face: n}R'l6CHRf>pi&bj7[x0CW3:kmXm@1)7m+l*9[fp;-Ow4Xe~=5E;skf?2> 
        y]f{HzB|Q(\V9+y$PP~.4G[2n4W7{6Ilm[AMY9B:0kj.K_$-d%p4YIF*bX;=ADp6{ 
        HS@NEv9c.VII+9PgXHASx}K(jy^t=q%qzZ72q1e4E;O!$A$`&wgtLk"1%p.nC_G!] 
        4d1!+J4Q#YD_iXeEy`1x)d\r$1Qn\'23n|[8Y_xzuXJJ7W(EGqnzB]`]aq??;+z=) 
        DW~\'Vq&F'g%QU[Mv2:}nS>SdZFTEC2GsgB=Q,:~H<R5S[:ZN%B:s0;|v1x"Jb
Mime-Version: 1.0 (generated by tm-edit 7.90)
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?

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"


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.

