GNAT, CLAW, and the right mouse button

GNAT, CLAW, and the right mouse button

[Jeff Carter]

I've been examining the demo version of CLAW for GNAT for Win95 using
GNAT 3.04 to see if I can easily do the kind of things I need to do.
I've had no problem with anything except determining if the right mouse
button has been pressed on a button.

I tried the obvious solution of extending the pushbutton type, and
overriding When_Right_Button_Down, but my version of the procedure is
never called, since I never get the message box it puts up as its first
action. Nor can it be raising an exception during elaboration of its
declarative part, since I can make that empty.

Does anyone have any experience with this? If there's no way around
this, it may mean I won't be able to use CLAW.

Thanks.
-- 
Jeff Carter
Innovative Concepts, Inc.

Now go away, or I shall taunt you a second time.

Re: GNAT, CLAW, and the right mouse button

[Tom Moran]

The demo version of CLAW, which you are using, did not subclass
controls.  The current version does.  So:
 type hot_buttons is new claw.push_button.button_type with null record;
    procedure When_Right_Button_Down
                             (Window_Button: in out hot_buttons;
                              Mouse_Params : in    
Claw.Mouse_Params_Type;
                              Do_Default   : in out Boolean);

works, ie, your When_Right_Button will be called when the rightmost
mouse button is clicked while over the push button.  (Too many buttons
here!)

You might want to join the CLAW mailing list for quicker answers to your
questions.
To subscribe to the Claw mailing list, send a message to
Claw-request@rrsoftware.com with the message body being SUBSCRIBE.