home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff238a.lzh / DMouse / dmouse-handler.c < prev    next >
C/C++ Source or Header  |  1989-08-24  |  16KB  |  663 lines
  1.  
  2. /*
  3.  *  DMOUSE-HANDLER.C
  4.  *
  5.  *  (c)Copyright 1989 by Matthew Dillon, All Rights Reserved
  6.  *
  7.  *  V1.20, last revision 3 August 1989
  8.  *
  9.  *  Note on upping the handler process priority.  This is done to cause the
  10.  *  handler task to get CPU before the current input event completes its
  11.  *  processing so intuition calls made by the process are executed before
  12.  *  the event is propogated.  If said intuition calls block, it's ok
  13.  *  because they are not blocking the input handler process.
  14.  */
  15.  
  16. #include "dmouse.h"
  17.  
  18. #ifdef LATTICE
  19. #include <stdio.h>
  20. #include <stdlib.h>
  21. #include <string.h>
  22. #endif
  23.  
  24. /*typedef struct Layer          LAYER;*/
  25. typedef struct IE        *IEP;
  26. typedef struct IORequest    IORequest;
  27.  
  28. DMS    *Dms               = NULL;
  29. IBASE    *IntuitionBase           = NULL;
  30. GFXBASE *GfxBase           = NULL;
  31. struct LayersBase  *LayersBase = NULL;
  32. struct ExecBase    *SysBase    = NULL;
  33.  
  34. static PORT    *IOPort = NULL;     /*    For IPC messages          */
  35. static LIST    BlankList;        /*    list of external blanker programs */
  36.  
  37. static char    STimedout = 0;
  38. static char    MTimedout = 0;
  39. static long    STime = 0, MTime = 0;
  40. #ifdef DEBUG
  41. static long    DBFh = NULL;
  42. #endif
  43.  
  44.  
  45. #define IBASE IntuitionBase
  46.  
  47. NS    Ns = {    0, 0, 64, -1, 1, -1, -1, 0, CUSTOMSCREEN|SCREENQUIET };
  48. IE DummyIE = { 0 };
  49.  
  50. short    NRMe;    /*  Don't Repeat Mouse Events   */
  51.  
  52. #ifdef LATTICE
  53. __asm __saveds IEP handler(register __a0 IE *event);
  54. #else
  55. IE *handler();
  56. #endif
  57.  
  58. LAYER *WhichMouseLayer ARGS((void));
  59. void sendrequest ARGS((long, IE *));
  60. LAYER *WhichMouseLayer ARGS((void));
  61. int doipcmsg ARGS((short));
  62. void DeleteBlanker ARGS((IORequest *));
  63. __saveds void noname ARGS((void));
  64.  
  65. #ifdef LATTICE
  66. __saveds void
  67. noname()
  68. #else
  69. _main()
  70. #endif
  71. {
  72.  
  73.     reg DMS *dms;
  74.     IOR  *ior;
  75.     INT addhand;
  76.  
  77. #ifndef LATTICE
  78.     geta4();
  79. #endif
  80.     SysBase = *(struct ExecBase **)4;
  81. #ifdef LATTICE
  82.     {
  83.     DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 0);
  84.     }
  85. #endif
  86.     {
  87.     reg PROC *proc = (PROC *)FindTask(NULL);
  88.     proc->pr_ConsoleTask = NULL;
  89.     }
  90.     NRMe = 0;
  91.     dms = Dms = (DMS *)FindPort(PORTNAME);
  92.     if (!dms)
  93.     return;
  94.     dms->Port.mp_Flags = PA_SIGNAL;
  95.     dms->Port.mp_SigBit = AllocSignal(-1);
  96.     dms->Port.mp_SigTask = FindTask(NULL);
  97.     dms->HandTask = dms->Port.mp_SigTask;
  98.     ior = CreateStdIO(&dms->Port);
  99.     IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0);
  100.     GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 0);
  101.     LayersBase = (struct LayersBase *)OpenLibrary("layers.library", 0);
  102.     IOPort = CreatePort("DMouse.ipc", 0);
  103.     NewList(&BlankList);
  104.  
  105.     if (!IntuitionBase || !GfxBase || !LayersBase)
  106.     goto startupfail;
  107.     addhand.is_Node.ln_Pri = dms->IPri;
  108.     addhand.is_Code = (FPTR)handler;
  109.     addhand.is_Data = NULL;
  110.  
  111.     if (OpenDevice("input.device", 0, ior, 0)) {
  112.     goto startupfail;
  113.     } else {
  114.     SCR *scr = NULL;
  115.     uword *SprSavePtr = NULL;
  116.     long ipc_mask;
  117.  
  118.     Signal(dms->ShakeTask, 1 << dms->ShakeSig);
  119.     ior->io_Command = IND_ADDHANDLER;
  120.     ior->io_Data = (APTR)&addhand;
  121.     ior->io_Message.mn_Node.ln_Type = NT_MESSAGE;
  122.     DoIO(ior);
  123.  
  124.     ipc_mask = 1 << IOPort->mp_SigBit;
  125.  
  126.     for (;;) {
  127.         reg long sigs = Wait(SBF_C|(1<<dms->Port.mp_SigBit)|ipc_mask);
  128.         if (sigs & (1 << dms->Port.mp_SigBit)) {
  129.         reg REQ *msg;
  130.         while (msg = (REQ *)GetMsg(&dms->Port)) {
  131.             switch((long)msg->Msg.mn_Node.ln_Name) {
  132.             case REQ_SCREENON:
  133.             if (scr)
  134.                 CloseScreen(scr);
  135.             scr = NULL;
  136.             doipcmsg(0x82);
  137.             break;
  138.             case REQ_SCREENOFF:
  139.             if (scr)
  140.                 ScreenToFront(scr);
  141.             if (doipcmsg(0x83) == 0 && scr == NULL) {
  142.                 if (scr = OpenScreen(&Ns))
  143.                 SetRGB4(&scr->ViewPort, 0, 0, 0, 0);
  144.             }
  145.             break;
  146.             case REQ_MOUSEON:
  147.             if (SprSavePtr) {
  148.                 register COPINIT *ci = GfxBase->copinit;
  149.                 ci->sprstrtup[1] = (ulong)SprSavePtr >> 16;
  150.                 ci->sprstrtup[3] = (uword)(long)SprSavePtr;
  151.                 SprSavePtr = NULL;
  152.             }
  153.             doipcmsg(0x80);
  154.             break;
  155.             case REQ_MOUSEOFF:
  156.             if (doipcmsg(0x81) == 0) {
  157.                 reg COPINIT *ci = GfxBase->copinit;
  158.                 if (ci->sprstrtup[0] != 0x120 || ci->sprstrtup[2] != 0x122)
  159.                 break;
  160.  
  161.                 if (!SprSavePtr)
  162.                 SprSavePtr = (uword *)((ci->sprstrtup[1] << 16) | ci->sprstrtup[3]);
  163.                 ci->sprstrtup[1] = (ulong)dms->NoSprData >> 16;
  164.                 ci->sprstrtup[3] = (uword)(long)dms->NoSprData;
  165.             }
  166.             break;
  167.             case REQ_DOCMD:
  168.             {
  169.                 long fh = (long)Open("nil:", 1006);
  170.                 Execute(dms->Cmd, NULL, fh);
  171.                 if (fh)
  172.                 Close(fh);
  173.             }
  174.             break;
  175.             case REQ_RAWMOUSE:
  176.             {
  177.                 register LAYER *layer;
  178.  
  179.                 NRMe = 0;
  180.                 Forbid();
  181.                 layer = WhichMouseLayer();
  182.                 if (msg->ie_Code == IECODE_RBUTTON && dms->LMBEnable && (msg->ie_Qualifier & dms->RQual)) {
  183.                 register WIN *win;
  184.                 if (layer && (win = (WIN *)layer->Window) && !(win->Flags & BACKDROP) && (win->NextWindow || win->WScreen->FirstWindow != win)) {
  185.                     if (dms->Workbench)
  186.                     WindowToBack(win);
  187.                     else
  188.                     BehindLayer(0, layer);
  189.                 } else if (IBASE->FirstScreen)
  190.                     ScreenToBack(IBASE->FirstScreen);
  191.                 }
  192.                 if (layer && layer->Window) {
  193.                 if (msg->ie_Code == IECODE_LBUTTON && !(((WIN *)layer->Window)->Flags & BACKDROP) && dms->LMBEnable && layer->ClipRect && layer->ClipRect->Next) {
  194.                     /*
  195.                      *    Note: Case where it is the 'first' click in a series, where dms->CTime is
  196.                      *          garbage, works properly no matter what DoubleClick returns.
  197.                      */
  198.                     if (dms->LQual == 0 || (msg->ie_Qualifier & dms->LQual)) {
  199.                     if ((APTR)dms->CWin == layer->Window && DoubleClick(dms->CTime.tv_secs, dms->CTime.tv_micro, msg->ie_TimeStamp.tv_secs, msg->ie_TimeStamp.tv_micro))
  200.                         --dms->CLeft;
  201.                     else
  202.                         dms->CLeft = dms->Clicks - 1;
  203.                     dms->CTime = msg->ie_TimeStamp;
  204.                     dms->CWin = (WIN *)layer->Window;
  205.                     if (dms->CLeft == 0) {
  206.                         dms->CLeft = dms->Clicks;
  207.                         if (dms->Workbench)
  208.                         WindowToFront((WIN *)layer->Window);
  209.                         else
  210.                         UpfrontLayer(0, layer);
  211.                     }
  212.                     }
  213.                 }
  214.                 if ((dms->AAEnable & 1) && (void *)layer->Window != (void *)IBASE->ActiveWindow && msg->ie_Code == IECODE_NOBUTTON && !(msg->ie_Qualifier & 0x7000)) {
  215.                     if (!IBASE->ActiveWindow || !IBASE->ActiveWindow->FirstRequest)
  216.                     ActivateWindow((WIN *)layer->Window);
  217.                 }
  218.                 }
  219.                 Permit();
  220.             }
  221.             break;
  222.             case REQ_RAWKEY:
  223.             {
  224.                 register LAYER *layer;
  225.  
  226.                 Forbid();
  227.                 layer = WhichMouseLayer();
  228.                 if (layer && layer->Window && (void *)layer->Window != (void *)IBASE->ActiveWindow) {
  229.                 if (!IBASE->ActiveWindow || !IBASE->ActiveWindow->FirstRequest)
  230.                     ActivateWindow((WIN *)layer->Window);
  231.                 }
  232.                 Permit();
  233.             }
  234.             break;
  235. #ifdef DEBUG
  236.             case REQ_DEBUG:
  237.             {
  238.                 char buf[128];
  239.                 if (!DBFh) {
  240.                 DBFh = Open("con:0/0/400/100/dmouse-debug", 1006);
  241.                 if (!DBFh)
  242.                     break;
  243.                 }
  244.                 sprintf(buf, "%02lx %04lx %04lx\n",
  245.                 msg->ie_Class,
  246.                 msg->ie_Code,
  247.                 msg->ie_Qualifier
  248.                 );
  249.                 Write(DBFh, buf, strlen(buf));
  250.             }
  251.             break;
  252.             case REQ_DEBUGOFF:
  253.             if (DBFh) {
  254.                 Close(DBFh);
  255.                 DBFh = NULL;
  256.             }
  257.             break;
  258. #endif
  259.             }
  260.             FreeMem(msg, msg->Msg.mn_Length);
  261.         }
  262.         }
  263.         if (sigs & SBF_C)
  264.         break;
  265.  
  266.         /*
  267.          *    IPC request.
  268.          */
  269.  
  270.         if (sigs & ipc_mask) {
  271.         reg IORequest *ior;
  272.         while (ior = (IORequest *)GetMsg(IOPort)) {
  273.             long req = 0;
  274.  
  275.             if (ior->io_Message.mn_Node.ln_Type == NT_REPLYMSG) {
  276.             FreeMem(ior, ior->io_Message.mn_Length);
  277.             continue;
  278.             }
  279.  
  280.             ior->io_Error = 0;
  281.             switch(ior->io_Command) {
  282.             case 0x80:    /* mouse on  */
  283.             req = REQ_MOUSEON;
  284.             break;
  285.             case 0x81:    /* mouse off */
  286.             req = REQ_MOUSEOFF;
  287.             MTimedout = 1;
  288.             break;
  289.             case 0x82:    /* screen on */
  290.             req = REQ_SCREENON;
  291.             break;
  292.             case 0x83:    /* screen off*/
  293.             req = REQ_SCREENOFF;
  294.             STimedout = 1;
  295.             break;
  296.             case 0x84:    /* add hand  */
  297.             AddHead(&BlankList, ior);
  298.             ior = NULL;
  299.             break;
  300.             case 0x85:    /* rem hand  */
  301.             DeleteBlanker(ior);
  302.             ior = NULL;
  303.             break;
  304.             }
  305.             if (req)
  306.             sendrequest(req, NULL);
  307.             if (ior)
  308.             ReplyMsg(&ior->io_Message);
  309.         }
  310.         }
  311.     }
  312. #ifdef DEBUG
  313.     if (DBFh) {
  314.         Close(DBFh);
  315.         DBFh = NULL;
  316.     }
  317. #endif
  318.     ior->io_Command = IND_REMHANDLER;
  319.     ior->io_Data = (APTR)&addhand;
  320.     ior->io_Message.mn_Node.ln_Type = NT_MESSAGE;
  321.     DoIO(ior);
  322.     ior->io_Command = IND_WRITEEVENT;    /*  NULL EVENT    */
  323.     ior->io_Length = sizeof(IE);
  324.     ior->io_Data = (APTR)&DummyIE;
  325.     ior->io_Message.mn_Node.ln_Type = NT_MESSAGE;
  326.     DoIO(ior);
  327.     CloseDevice(ior);
  328.     {
  329.         reg MSG *msg;
  330.         while (msg = GetMsg(&dms->Port))
  331.         FreeMem(msg, msg->mn_Length);
  332.     }
  333.     if (scr)
  334.         CloseScreen(scr);
  335.     if (SprSavePtr) {
  336.         reg COPINIT *ci = GfxBase->copinit;
  337.         ci->sprstrtup[1] = (ulong)SprSavePtr >> 16;
  338.         ci->sprstrtup[3] = (uword)(long)SprSavePtr;
  339.         SprSavePtr = NULL;
  340.     }
  341.     }
  342.     goto closedown;
  343. startupfail:
  344.     dms->StartupError = 1;
  345.     Signal(dms->ShakeTask, 1 << dms->ShakeSig);
  346.     Wait(SBF_C);
  347. closedown:
  348.     DeleteStdIO(ior);
  349. fail:
  350.     if (IOPort) {
  351.     IORequest *ior;     /*    wait for RemReq messages */
  352.  
  353.     doipcmsg(0x86);     /*  send closedown requests  */
  354.     Forbid();
  355.     while (GetHead(&BlankList)) {
  356.         WaitPort(IOPort);
  357.         while (ior = (IORequest *)GetMsg(IOPort)) {
  358.         if (ior->io_Message.mn_Node.ln_Type == NT_REPLYMSG) {
  359.             FreeMem(ior, ior->io_Message.mn_Length);
  360.             continue;
  361.         }
  362.         if (ior->io_Command == 0x85)    /*  receive remove req  */
  363.             DeleteBlanker(ior);
  364.         else
  365.             ReplyMsg(&ior->io_Message);              /*  ignore other reqs   */
  366.         }
  367.     }
  368.     DeletePort(IOPort);
  369.     Permit();
  370.     }
  371.     if (IntuitionBase)
  372.     CloseLibrary((LIB *)IntuitionBase);
  373.     if (GfxBase)
  374.     CloseLibrary((LIB *)GfxBase);
  375.     if (LayersBase)
  376.     CloseLibrary((LIB *)LayersBase);
  377. #ifdef LATTICE
  378.     {
  379.     CloseLibrary((LIB *)DOSBase);
  380.     }
  381. #endif
  382.     Forbid();
  383.     Signal(dms->ShakeTask, 1 << dms->ShakeSig);
  384. }
  385.  
  386. void
  387. DeleteBlanker(ior)
  388. IORequest *ior;
  389. {
  390.     IORequest *io2;
  391.  
  392.     ior->io_Error = 0;
  393.     for (io2 = GetHead(&BlankList); io2; io2 = GetSucc(io2)) {
  394.     if (io2->io_Unit == ior->io_Unit) {
  395.         Remove(io2);
  396.         if (ior)
  397.         ReplyMsg(&ior->io_Message);
  398.         ReplyMsg(&io2->io_Message);
  399.         ior = NULL;
  400.     }
  401.     }
  402.     if (ior) {
  403.     ior->io_Error = -1;
  404.     ReplyMsg(&ior->io_Message);
  405.     }
  406. }
  407.  
  408. doipcmsg(cmd)
  409. short cmd;
  410. {
  411.     short count = 0;
  412.     short flags = 1 << (cmd & 0x7F);    /*  enable flags */
  413.     IORequest *iob, *io;
  414.  
  415.     for (iob = GetHead(&BlankList); iob; iob = GetSucc(iob)) {
  416.     if (cmd == 0x86 || (iob->io_Flags & flags)) {
  417.         io = AllocMem(sizeof(IORequest), MEMF_PUBLIC|MEMF_CLEAR);
  418.         if (io) {
  419.         io->io_Command = cmd;
  420.         io->io_Unit = iob->io_Unit;
  421.         io->io_Message.mn_ReplyPort = IOPort;
  422.         io->io_Message.mn_Length = sizeof(IORequest);
  423.         PutMsg(iob->io_Message.mn_ReplyPort, &io->io_Message);
  424.         ++count;
  425.         }
  426.     }
  427.     }
  428.     return((int)count);
  429. }
  430.  
  431. /*
  432.  *  The INPUT.DEVICE HANDLER
  433.  *
  434.  *  Note that for Lattice V5.02 and beyond we need no
  435.  *  assembly tags because we can specify that the arguments
  436.  *  are passed in registers.
  437.  */
  438.  
  439. #ifndef LATTICE
  440.  
  441. #asm
  442.         ;    A0 = pointer to event linked list
  443.         ;    A1 = pointer to my data segment
  444.         ;    return new event linked list in D0
  445.  
  446.         public  _CHandler
  447.  
  448. _handler:
  449.         movem.l D2/D3/A0/A1/A4/A6,-(sp)
  450.         jsr     _CHandler
  451.         movem.l (sp)+,D2/D3/A0/A1/A4/A6
  452.         rts
  453.  
  454. #endasm
  455.  
  456. #endif
  457.  
  458. /*
  459.  *  (1) Accellerate mouse movements.
  460.  *  (2) Auto-Select window
  461.  */
  462.  
  463. #ifdef LATTICE
  464.  
  465. __asm __saveds IEP
  466. handler(register __a0 IE *Ev)
  467. {
  468.  
  469. #else
  470.  
  471. IE *
  472. CHandler(scr0, scr1, Ev)
  473. long scr0;
  474. long scr1;
  475. IE *Ev;
  476. {
  477. #endif
  478.     reg IE *ev;
  479.     reg DMS *dms;
  480.  
  481. #ifndef LATTICE
  482.     geta4();
  483. #endif
  484.     dms = Dms;
  485.     for (ev = Ev; ev; ev = Ev->ie_NextEvent) {
  486. #ifdef DEBUG
  487.     if (dms->Debug) {
  488.         if (ev->ie_Class != IECLASS_TIMER)
  489.         sendrequest(REQ_DEBUG, ev);
  490.     } else if (DBFh) {
  491.         sendrequest(REQ_DEBUGOFF, ev);
  492.     }
  493. #endif
  494.     switch(ev->ie_Class) {
  495.     case IECLASS_RAWMOUSE:
  496.         /*
  497.          *    Mouse events restore both the screen and mouse pointer.
  498.          */
  499.  
  500.         STime = ev->ie_TimeStamp.tv_secs + dms->STo;
  501.         MTime = ev->ie_TimeStamp.tv_secs + dms->MTo;
  502.         if (STimedout)
  503.         sendrequest(REQ_SCREENON, ev);
  504.         if (MTimedout)
  505.         sendrequest(REQ_MOUSEON, ev);
  506.         STimedout = MTimedout = 0;
  507.  
  508.         /*
  509.          *    Mouse Acceleration
  510.          */
  511.         {
  512.         register short n;
  513.         register short s;
  514.  
  515.         if (dms->Acc != 1) {
  516.             n = ev->ie_X;
  517.             s = 1;
  518.             if (n < 0) {
  519.             n = -n;
  520.             s = -1;
  521.             }
  522.             if (n > dms->AThresh)
  523.             ev->ie_X = s * (short)((n - dms->AThresh - 1) * dms->Acc + dms->AThresh + 1);
  524.             n = ev->ie_Y;
  525.             s = 1;
  526.             if (n < 0) {
  527.             n = -n;
  528.             s = -1;
  529.             }
  530.             if (n > dms->AThresh)
  531.             ev->ie_Y = s * (short)((n - dms->AThresh - 1) * dms->Acc + dms->AThresh + 1);
  532.         }
  533.         }
  534.  
  535.         /*
  536.          *    Auto Activate and LMB (win/scrn front/bak)
  537.          */
  538.  
  539.         if (dms->LMBEnable && ev->ie_Code == IECODE_RBUTTON && (ev->ie_Qualifier & dms->RQual))
  540.         ev->ie_Class = IECLASS_NULL;    /*  remove event    */
  541.         if (NRMe == 0 && ((dms->AAEnable & 1) || dms->LMBEnable)) {
  542.         register short old;
  543.         NRMe = 1;
  544.         if (ev->ie_Code != IECODE_NOBUTTON)
  545.             old = SetTaskPri(dms->Port.mp_SigTask, 21);
  546.         sendrequest(REQ_RAWMOUSE, ev);
  547.         if (ev->ie_Code != IECODE_NOBUTTON)
  548.             SetTaskPri(dms->Port.mp_SigTask, old);
  549.         }
  550.         break;
  551.     case IECLASS_RAWKEY:
  552.         /*
  553.          *    Keyboard events will kill the screen timeout but not
  554.          *    the mouse timeout.  Note that the priority of the
  555.          *    co-process must be upped to ensure it is able to make the
  556.          *    window active before the keystroke is passed further.
  557.          *
  558.          *    key releases are ignored
  559.          *
  560.          *    note: ie_Qualifier may or may not have bit 15 set
  561.          */
  562.         if (ev->ie_Code & 0x80)
  563.         break;
  564.         if (dms->AAEnable & 2) {
  565.         register short old = SetTaskPri(dms->Port.mp_SigTask, 21);
  566.         sendrequest(REQ_RAWKEY, ev);
  567.         SetTaskPri(dms->Port.mp_SigTask, old);
  568.         }
  569.         STime = ev->ie_TimeStamp.tv_secs + dms->STo;
  570.         if (STimedout) {
  571.         sendrequest(REQ_SCREENON, ev);
  572.         if (dms->MTo == 0)
  573.             sendrequest(REQ_MOUSEON, ev);
  574.         }
  575.         STimedout = 0;
  576.  
  577.         if (ev->ie_Code == dms->Code && (ev->ie_Qualifier | 0x8000) == dms->Qual) {
  578.         sendrequest(REQ_DOCMD, ev);
  579.         ev->ie_Class = IECLASS_NULL;    /*  remove event    */
  580.         }
  581.         break;
  582.     case IECLASS_TIMER:
  583.         /*
  584.          *    On a timer event, if timeout has occured execute the operation
  585.          *    and reset the timeout.    Note that this will cause continuous
  586.          *    timeouts every STo and MTo seconds... required because at any
  587.          *    time Intuition might turn the mouse back on or open a screen or
  588.          *    something and I want the blanker's to work in the long run.
  589.          */
  590.         {
  591.         register long old;
  592.         if (dms->Reset) {
  593.             dms->Reset = 0;
  594.             STime = ev->ie_TimeStamp.tv_secs + dms->STo;
  595.             MTime = ev->ie_TimeStamp.tv_secs + dms->MTo;
  596.         }
  597.         if (dms->STo && (old = STime - ev->ie_TimeStamp.tv_secs) < 0) {
  598.             STime = ev->ie_TimeStamp.tv_secs + dms->STo + 10;
  599.             STimedout = 1;
  600.             MTimedout = 1;
  601.             if (old > -10) {
  602.             sendrequest(REQ_SCREENOFF, ev);
  603.             sendrequest(REQ_MOUSEOFF, ev);
  604.             }
  605.         }
  606.         if (dms->MTo && (old = MTime - ev->ie_TimeStamp.tv_secs) < 0) {
  607.             MTime = ev->ie_TimeStamp.tv_secs + dms->MTo + 1;
  608.             MTimedout = 1;
  609.             if (old > -10)
  610.             sendrequest(REQ_MOUSEOFF, ev);
  611.         }
  612.         }
  613.         break;
  614.     }
  615.     }
  616.     return(Ev);
  617. }
  618.  
  619. void
  620. sendrequest(creq, ev)
  621. long creq;
  622. reg IE *ev;
  623. {
  624.     reg REQ *req = AllocMem(sizeof(REQ), MEMF_PUBLIC);
  625.  
  626.     if (req) {
  627.     req->Msg.mn_Node.ln_Name = (char *)creq;
  628.     req->Msg.mn_ReplyPort = NULL;
  629.     req->Msg.mn_Length = sizeof(REQ);
  630.     if (ev) {
  631.         req->ie_Class= ev->ie_Class;
  632.         req->ie_Code = ev->ie_Code;
  633.         req->ie_Qualifier = ev->ie_Qualifier;
  634.         req->ie_TimeStamp = ev->ie_TimeStamp;
  635.     }
  636.     PutMsg(&Dms->Port, (MSG *)req);
  637.     }
  638. }
  639.  
  640. LAYER *
  641. WhichMouseLayer()
  642. {
  643.     register struct IntuitionBase *ib = IBASE;
  644.     register LAYER *layer = NULL;
  645.     register SCR *scr = ib->FirstScreen;
  646.  
  647.     for (scr = ib->FirstScreen; scr; scr = scr->NextScreen) {
  648.     register short mousey = ib->MouseY;
  649.     register short mousex = ib->MouseX;
  650.     if (!(scr->ViewPort.Modes & LACE))
  651.         mousey >>= 1;
  652.     if (!(scr->ViewPort.Modes & HIRES))
  653.         mousex >>= 1;
  654.     if (layer = WhichLayer(&scr->LayerInfo, mousex, mousey - scr->ViewPort.DyOffset))
  655.         break;
  656.     if (mousey >= scr->ViewPort.DyOffset)
  657.         break;
  658.     }
  659.     return(layer);
  660. }
  661.  
  662.  
  663.