RE: ok, I made a green screen with radio buttons

> -----Original Message-----
> From: Pat Barber [mailto:MBOCEANSIDE@postoffice.worldnet.att.net]
> Sent: Tuesday, November 02, 1999 5:20 PM
> To: MIDRANGE-L@midrange.com
> Subject: Re: ok, I made a green screen with radio buttons
> 
> 
> Joel Fritz wrote:
> > 
> > I'll decline the applause, but I'm adding a pop up window 
> to a menu right
> > now that offers sub menu choices using push buttons.  >

/*            SNIP                                             */
 
> Don't forget to share the "How to do it".................


Actually, I've just adapted Booth's sample code to a little window big
enough to display 3 choices.

Here's the DDS:
  A          R ITMWDW                                                       
  A*%%TS  SD  19991102  123426  JEF         REL-V4R2M0  5769-PW1            
  A                                      OVERLAY                            
  A                                      WINDOW(8 23 3 13 *NOMSGLIN)        
  A                                      WDWTITLE((*TEXT 'Select Items'))   
  A            FILOPT         2Y 0B  1  1PSHBTNFLD((*NUMCOL 1))             
  A                                      PSHBTNCHC(1 '>Low Margin')         
  A                                      PSHBTNCHC(2 '>PWP')                
  A                                      PSHBTNCHC(3 '>Quit')               

The field in the window shows three choices.  The accelerator letter is
marked by the ">".  User needs either to position the cursor on the button
of choice, or press the accelerator letter key.  The push button field
contains 1, 2, or 3 depending on which button was pushed.  It's pretty easy.
I don't think SDA supports the PUSHBxxx keywords.  I created the window and
added the field in SDA, but I added the pushbutton keywords in SEU.  Quick
search of the SDA manual seems to confirm that.  SDA doesn't support
WDWTITLE either.  The keyboard shift for the field must be Y.  Must be
related to some of the other things that require Yness in display file
numeric fields.

I had a conventional menu with a full screen and all consecutive numbers
used.  I changed one of the options to support editing two different files.
This is no different from adding a conventional submenu record format except
it looks cuter.  I've tried this on some terminals and it looks ugly, but it
seems to work with what we have.  This particular menu is used only by
people using emulation.  

The menu program that supports this screen is written in CL, so I skipped
including the code.  Too many gotos.  It's pretty simple-- exfmt or sndrcvf
and respond to the value in the push button field.

The thing that impresses me and embarasses me at the same time is that this
is _EASY_.  I only wish I had started doing it two years ago when we went to
v3r7. 

+---
| 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
+---