#: 18350 S12/OS9/68000 (OSK)
    27-Jun-93  03:25:15
Sb: #BGFX & Mouse
Fm: LARRY OLSON 72227,3467
To: all


  Has anyone got an idea of why the following Basic program doesn't work ?

  This is just a test program to try to read the mouse on an MM1 using
Kevin's BGFX. The "MOUSE" function works fine, if you stay in the original
window, but if you try SELECT another window the MOUSE function returns
nothing. Is there a new version of BGFX ? I have version #4, crc DBE1D0.


PROCEDURE mtest2

DIM path:INTEGER
DIM Valid,Area,Control,wx,wy,b1,b2:INTEGER
DIM count:INTEGER
DIN response:STRING[1]

OPEN #path,"/w":UPDATE
RUN bgfx(path,"DWSet",0,0,0,80,26,0,1)
RUN bgfx(path,"Clear")
RUN bgfx(path,"Select")

count=0
REPEAT
count=count+1
RUN bgfx(path,"Mouse",Valid,Area,Control,wx,wy,b1,b2)
PRINT #path,"Valid = "; Valid;
PRINT #path," Area = "; Area;
PRINT #path," Control = "; Control;
PRINT #path," wx = "; wx;
PRINT " wx = "; wx;
PRINT #path," wy = "; wy;
PRINT " wy = "; wy
PRINT #path," b1 = "; b1;
PRINT #path," b2 = "; b2
UNTIL b10 OR count=500


GET #path,response
RUN bgfx("Select")
RUN bgfx(path,"DWEnd")
CLOSE #path
END


   Any help would be appreciated.
       Larry Olson


There is 1 Reply.