Sujet : Re: On_Button_Press_Event in Text_View
De : mailbox (at) *nospam* dmitry-kazakov.de (Dmitry A. Kazakov)
Groupes : comp.lang.adaDate : 13. Aug 2024, 22:29:59
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <v9gfo7$1rq4$1@dont-email.me>
References : 1
User-Agent : Mozilla Thunderbird
On 2024-08-13 13:37, Gavin McCord wrote:
I have a custom handler used when I update the Text_Buffer:
Button_Callback.Connect
(Update_Button, "clicked", Update_Clicked'Access,
Buffer_To_Pass);
That works fine so I was imagining something similar might
be possible, but I've run through various permuations of
records and access types but not yet got a working callback.
Any help gratefully received (I can post the full code if
that's useful).
Something like this:
package Event_Handlers is
new Gtk.Handlers.User_Return_Callback
( GObject_Record,
Boolean,
User_Data_Type
);
function On_Button_Press
( Object : access GObject_Record'Class;
Event : Gdk_Event;
Data : User_Data_Type
) return Boolean;
View.Set_Events (View.Get_Events or Button_Press_Mask);
Event_Handlers.Connect
( View,
"button-press-event",
Event_Handlers.To_Marshaller (On_Button_Press'Access),
Data
);
-- Regards,Dmitry A. Kazakovhttp://www.dmitry-kazakov.de