RE: Menubar problems

I thought I answered the question.. Brain flat I guess.  Windows and OS/2 
implemented this differently.  The book is correct for OS/2, I believe.


This code works for me:


...
     A                                      MOUBTN(*ULD ENTER)  
     A          R MENUBAR                   MNUBAR  
     A            MNUFLD         2Y 0B  1  2  
     A                                      MNUBARCHC(1 PULLFILE '>File ') 
 
     A                                      MNUBARCHC(2 PULLEDIT '>Edit ') 
 
     A                                      MNUBARCHC(3 PULLVIEW '>View ') 
 
     A                                      MNUBARCHC(4 PULLHELP 'He>lp ') 
 
     A          R PULLFILE                  PULLDOWN  
     A            @FILE          2Y 0B  1  1PSHBTNFLD((*NUMCOL 1))  
     A                                      PSHBTNCHC(1 '>Save' ENTER)  
     A                                      PSHBTNCHC(2 'Save >As' ENTER)  
 
     A                                      PSHBTNCHC(3 'S>pool File' 
ENTER) 
     A          R PULLEDIT                  PULLDOWN  
     A            @EDIT          2Y 0B  1  1SNGCHCFLD 
... 



_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




"Kellems, Cary" <cary.kellems@nissan-usa.com>
Sent by: owner-midrange-l@midrange.com
04/23/2001 10:19 AM
Please respond to MIDRANGE-L

 
        To:     "'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>
        cc: 
        Subject:        RE: Menubar problems
Your learned opinions are truly appreciated.  But does anyone out there 
have
a solution?

> -----Original Message-----
> From:          booth@martinvt.com [SMTP:booth@martinvt.com]
> Sent:          Friday, April 20, 2001 5:03 PM
> To:            MIDRANGE-L@midrange.com
> Subject:               Re: Menubar problems
> 
> The menu bar is entirely mouseable.  With an enhanced display it's 
> attractive.  Adding radio buttons for various selections and choices is 
> huge improvement over 24 function keys.  The implementation is difficult 

> partly because so many shops that haven't had a terminal on premises for 

> years still insist on programming for the lowest possible configuration. 

> How many people still won't use yellow for a color because of column 
> separators, for example?
> 
> _______________________
> Booth Martin
> Booth@MartinVT.com
> http://www.MartinVT.com
> _______________________
> 
> 
> 
> 
> "James W. Kilgore" <eMail@James-W-Kilgore.com>
> Sent by: owner-midrange-l@midrange.com
> 04/20/2001 03:14 AM
> Please respond to MIDRANGE-L
> 
> 
>         To:     MIDRANGE-L@midrange.com
>         cc: 
>         Subject:        Re: Menubar problems
> Cary,
> 
> I don't know if anyone has told you this, but menubar is a cruel joke
> created by some sick individual. Don't go there.  Run fast, run far.
> 
> Why not just place F7=Edit paragraph at the bottom of the screen?
> 
> If someone wants to edit a paragraph what do they have to do?  Place the
> cursor, press a key to activate the menu bar, press another key to
> activate the function they want.
> 
> IMHO, skip the menu bar.  Place the cursor, press F7.
> 
> "Kellems, Cary" wrote:
> > 
> > Has anybody encountered the following problem?
> > When I use the following DDS:
> > 
> > A            SLT            2Y 0B  1  2SNGCHCFLD(*NOAUTOSLT *NOSLT
> > A                                      OENT)
> > A                                      CHOICE(1 '>Edit Paragraph')
> > A                                      CHCACCEL(1 'F7')
> > A                                      CHOICE(2 '>Insert Paragraph
> > A                                      CHCACCEL(2 'F6')
> > 
> > The choices display as Edit Paragraph instead of Edit Paragraph. 
{where
> 
> the
> > 'd' is underline when the 'E' should be underlined}  The actual 
function
> > works just great, that is when the "E" is pressed then it takes that 
> option.
> > Is there a PTF for this or is it just a programming error on myside?
> >
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
> 
> 
> 
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to 
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---