From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e49d54b9fe3ec4f8
X-Google-Attributes: gid103376,public
From: Tom Moran <tmoran@bix.com>
Subject: Re: GNAT, CLAW, and the right mouse button
Date: 1997/03/08
Message-ID: <332220C4.5127@bix.com>#1/1
X-Deja-AN: 224082546
References: <33208C2B.FF6D5DF@innocon.com>
Organization: InterNex Information Services 1-800-595-3333
Reply-To: tmoran@bix.com
Newsgroups: comp.lang.ada
Date: 1997-03-08T00:00:00+00:00
List-Id: <comp.lang.ada>


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.