function Controler_Mouse_Event(Widget          : access Gtk.Widget.Gtk_Widget_Record'Class;
                                  Event           : Gdk.Event.Gdk_Event;
                                  Controler       : Controler_Access) return Boolean  is
   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
               Move(Controler.Timbre.Synth_Fixed,
                    Controler.Timbre.Controlers_Table(Controler.Timbre.Controler_Id).Controler_vbox,
                    Gint(Gdk.Event.Get_X(Event)),
                    Gint(Gdk.Event.Get_Y(Event)));
               Controler.Timbre.Controler_Id := 0;
            end if;
         when others => null;
      end case;
      return True;
   end controler_Mouse_Event;