[Gambas-user] Drop on Toolbutton

[Steven Lobbezoo]

Got it !
Thanks,
Steven

Le mercredi 2 mai 2007 23:48, Benoit Minisini a écrit :
> On mercredi 2 mai 2007, Steven Lobbezoo wrote:
> > Hi,
> >
> > I have a problem with a drop on a toolbutton, I do :
> >
> > PUBLIC SUB THed_Drop()
> >   ' first look if it's there allready, if so : refuse
> >   IF TB1.Text = Drag.Source.Name THEN RETURN
> >   IF TB2.Text = Drag.Source.Name THEN RETURN
> >   IF TB3.Text = Drag.Source.Name THEN RETURN
> >   IF TB4.Text = Drag.Source.Name THEN RETURN
> >   LAST.Picture = Drag.Data.Picture
> >   LAST.Text = Drag.Source.Name
> > END
> >
> > The drop takes place, I see the image and text (that I put in name, since
> > the text property does not exist), but i cannot read it. Al TBx.Text are
> > empty.
> >
> > Is this a bug ?
> >
> > Steven
>
> What is the value of Drag.Source.Name? (print it at the beginning of
> THed_Drop).
>
> And there is no text property in Drag.Data because the dragged data is
> exchanged with the same X11 protocol than the clipboard data, and at the
> moment Gambas can put only one mime type in it.
>
> Regards,