RE: Mouse button

["Popeil, Russ" <Russ.Popeil@xxxxxxxxx>]

It is my understanding that when used with a Mouse the RTNCSRLOC will return
the following 

>From the DDS manual V4R1
RTNCSRLOC({*WINDOW | *MOUSE}
           &cursor-row &cursor-column
           [&cursor-row2
           [&cursor-column2]])

*MOUSE causes these parameters to 
return the location of the cursor just before a two event mouse definition
is processed.
 
I believe that with the mouse you cannot get the field name. 
Russ Popeil - IBM Certified Specialist - RPG Programmer & AS/400 Sales
Associate 
Avnet Computer - Integrated Solutions. Bottom-Line Results.
Office: 516-677-9346, Fax: 516-677-0296, Beeper: 516-786-5846
eMail:  Russ.popeil@avnet.com
http://www.avnetcomputer.com



> -----Original Message-----
> From: boothm@ibm.net [SMTP:boothm@ibm.net]
> Sent: Friday, May 01, 1998 2:00 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Mouse button
> 
> Here is code that almost works.  Anyone have an idea what I am missing?
> 
>   A                         RTNCSRLOC(&RECID &FLDID) 
>   A                         MOUBTN(*ULP *ULD CF04)   
>   A    RECID     10A  H                               
>   A    FLDID     10A  H                               
> 
> (The goal is to tell an RPG program the field name that the mouse cursor
> is in when the mouse is double-clicked.)
> 
> -- 
> -----------------------------------------------------------
> boothm@ibm.net
> -----------------------------------------------------------
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@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 unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---