That is why I tried the two-event MOUBTN command, letting the first button
press move the display cursor to the selected field's location first, then
double-clicking the mouse to light up F4.  

Now that you've said it, I bet that is the major reason for the big delay. 
Do you suppose?

In <714D6BA7BBF1D0118A510060B0673BD397C3CD@az101-nt-msx2.avnet.com>, on
05/01/98 
   at 04:16 PM, "Popeil, Russ" <Russ.Popeil@avnet.com> said:

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


-- 
-----------------------------------------------------------
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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact [javascript protected email address].