[Gambas-devel] Please help me...

[ron]

On Monday 12 April 2004 18:25, Benoit Minisini wrote:
> On Sunday 11 April 2004 15:53, Fabien Bodard wrote:
> > Sorry i send that here because i don't know why my message never appear
> > on gambas user mailing list
> >
> > How i can use the drag and drop feature?
> >
> > I don't understand why i can't drop anything directly on a form on other
> > non textual object.
> >
> > I send my test
> >
> > Fabien
>
> What's the problem exactly ?
>
> The only one I found in your project is that you call Drag with "data" as
> type, which is forbidden. When you use the MimeType parameter of Drag, it
> must begin with "text/". You can't specify a mimetype for something other
> than text data.
>
> Regards,

I have problems to Benoit

PUBLIC SUB ShowDrag(dmsg AS String, drg AS  Object)
PRINT "---- Drag object at " & dmsg
    PRINT "drag.data =";drag.Data
    PRINT "drag.format =";drag.format
    PRINT "drag.type =";drag.type
    PRINT "drag.action =";drag.action
    PRINT "drag.source =";drag.source
    PRINT "drag.x =";drag.x
    PRINT "drag.y =";drag.y
END

PUBLIC SUB TableView1_drag() 
DIM idx AS Integer
  PRINT "TableView1_drag() event"    
   
  ShowDrag("tbv drag", Drag)  <-------- this one goes OK

END
'----------------------------
PUBLIC SUB tableview1_drop()
DIM col AS Integer
DIM hLB AS ListBox

  PRINT "tableview1_drop() event"  
  ShowDrag("Drop tbv", Drag) <------- this crashes gambas  in v0.92
    
END

PUBLIC SUB ListBox1_MouseMove() 
  IF mouse.button =2 THEN  'right button
    ListBox1.drag("LBframe")
    ' after the drag a listbox click occurs
  ENDIF
END


in the ShowDrag drg as Object is no error. It is simple not used
the drag.property are all as expected on TableView1_drag() 
The Drag carried to the sub gives no error

the crash in tableview1_drop() is only in v0.92 and works in v0.91
The Drag carried to the sub gives here an error

Help say SUB Drag ( Data AS Variant [ , Format AS String ] ) 
For Data I can only geve a string. anything else gives a error
at this line.

the complete project is in gbdocktest-0.5.tar.gz i send to Fabian
here in the maillist.