Click above to get retro games delivered to your door ever month!

 twReadModal( aGetList, lMouseExit )
 ----------------------------------------------------------------------------
     twReadModal() provides a moused get reader with provision for
     mouse hot spots.

     NOTE: TSDWIN has included in its structure Nantucket's:

                GETSYS02.PRG

           which is a later replacement for GETSYS.PRG and allows user
           read layers. If you use both READMODAL() and twReadModal()
           in an application, you may cause yourself some problems. All
           TSDWIN functions requiring reads use twReadModal(),
           therefore GETSYS02.OBJ is always linked. Save yourself some
           grief and change all your reads to twReadModal(). You can do
           this by modifying your STD.CH or creating another header
           file of your choosing.

       Mouse Support:

     twReadModal() has two defaults for mouse support.

       Left Button:

     Clicking the left button on a get will make that the active get.
     Click again to move the cursor to the position of the mouse cursor
     inside the get.

       Right Button:

        lMouseExit  is FALSE (default)

     The right button acts like the down arrow key except that when the
     end of the getlist is reached, input focus returns to the first
     element of the getlist. Escape from reads can be triggered ny
     assigning a mouse hot spot to stuff the keyboard with K_ESC.

        lMouseExit  is TRUE (default)

     The right button will cause the get to be written and then you
     will escape from the read. If the getlist has only one element
     and commonly used defaults are displayed, the right button exit
     feature comes in handy and is similar to the action provided by
     most other TSDWIN mouse functions.

       Arguments:

     aGetList   - 'A' An array of get objects.

     lMouseExit - 'L' Logical to determine whether the right button
                      cycles through the getlist or acts like the page
                      down or Ctrl-W keys normally do.

       Return:

     NIL

       Example:

     @ twRow( ....    GET .....
               etc,

     twReadModal( getlist );getlist := {}