[Gambas-bugtracker] Bug #2968: 3.19.5 Xubuntu 24.xx

[<bugtracker@xxxxxxxxxxxxxx>]

http://gambaswiki.org/bugtracker/edit?object=BUG.2968&from=L21haW4-

Comment #16 by Bruce STEERS:

Most bizarre , it seems to be something to do with using Drag.Data

If i change your use of InStr(Drag.Data,"le://") in Drag_Move to use Drag.Formats.Exist("text/uri-list") to check it's a file drop then it works without error.

This code causes the problem...

Public Sub Disp_Img_DragMove()

    If Drag.Type = Drag.Text Then
    If InStr(Drag.data, "le://") <> 0 Then 
       Drag.show(Last)
    Endif
  Endif

End


This code , no problem...

Public Sub Disp_Img_DragMove()

    If Drag.Formats.Exist("text/uri-list") Then
      Drag.show(Last)
    Endif

End

I'm not saying your code is wrong. I think it should still work.
It is odd that just by using Drag.Data it causes this problem.
(so it probably is a bug)

If it was me Oliver I would avoid using Drag.Data , the data can be different depending on the toolkit, is is better/safer to use Drag.Formats.Exist() and Drag.Paste() on the desired mime type.

Ps. also avoid using Drag.Format for other formats than text/plain, Drag.Format will mostly be text/plain even if text/uri-list or other text/types are used, Drag.Formats.Exist("text/uri-list") is the best way to detect if a drag is a file drag.

Could you check if you still get the error if using Drag.Formats.Exist() and not using Drag.Data anywhere.


----[ Gambas bugtracker-list is hosted by https://www.hostsharing.net ]----