🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.amiga.tech
Article #1971

GADGETDOWN problem

#1971
From: GORDON R. MAC GREGOR
Date: Fri, 03 Nov 1989 04:12
46 lines
1493 bytes
Would anyone have an idea as to why I dont get the gadget down IDCMP
message in the code below.  I seem to be getting the other events
just fine.

[...]

/*-------------------------- The Window -------------------------------*/
struct Window *Window;
struct RastPort *rport;

struct NewWindow newwindow = {0,0,WINDOWWIDTH,WINDOWHEIGHT,-1,-1,
          CLOSEWINDOW|MOUSEBUTTONS|MENUPICK|GADGETUP|GADGETDOWN,
          WINDOWDRAG|WINDOWDEPTH|WINDOWCLOSE|
            SMART_REFRESH|REPORTMOUSE|ACTIVATE,
          &ladd_bool,NULL,(UBYTE *)TITLE,NULL,NULL,
          -1,-1,-1,-1,WBENCHSCREEN};


[...]

USHORT get_mouse(window,x,y,data)
  struct Window *window;
  SHORT  *x, *y;
  USHORT *data;
{
  USHORT flag=0;
  struct IntuiMessage *msg;
  struct Gadget *gad_address;

  Wait( 1L << window->UserPort->mp_SigBit );

  while( msg=(struct IntuiMessage *)GetMsg(window->UserPort) )
  {
    /*
       [...]
    */
    printf("+++ %ld\n",msg->Class);

  }
  if( flag )
    return flag;

  return MOUSEBUTTON;
}

[...]
Technical Details
Message-ID: <1989Nov3.041231.28697@aucs.uucp>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!wugate!uunet!cs.dal.ca!aucs!850031m

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!wugate!uunet!cs.dal.ca!aucs!850031m
From: 850031m@aucs.uucp (GORDON R. MAC GREGOR)
Newsgroups: comp.sys.amiga.tech
Subject: GADGETDOWN problem
Message-ID: <1989Nov3.041231.28697@aucs.uucp>
Date: 3 Nov 89 04:12:31 GMT
Reply-To: 850031m@aucs.UUCP (GORDON R. MAC GREGOR)
Distribution: na
Organization: School of Computer Science, Acadia Univ., Nova Scotia
Lines: 46