1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
function Controler_Mouse_Event(Widget : access Gtk.Widget.Gtk_Widget_Record'Class;
Event : Gdk.Event.Gdk_Event;
Controler : Controler_Access) return Boolean is
X, Y : Gint;
begin
case Gdk.Event.Get_Event_Type(Event) is
when Gdk.Event.Button_Press =>
case Gdk.Event.Get_Button(Event) is
when 1 =>
Put_Line("Presse left");
Controler.Timbre.Controler_Id := Controler.Id;
when others =>
null;
end case;
when Gdk.Event.Button_Release =>
Put_Line("Release");
if Controler.Timbre.Controler_Id /= 0 then
X := Gint(Gdk.Event.Get_X(Event));
Y := Gint(Gdk.Event.Get_Y(Event));
Move(Controler.Timbre.Synth_Fixed,
Controler.Timbre.Controlers_Table(Controler.Timbre.Controler_Id).Controler_vbox,
X,
Y);
Controler.Timbre.Controler_Id := 0;
end if;
when others => null;
end case;
return True;
end controler_Mouse_Event; |
Partager