[Gambas-devel] Please help me...

[Benoit Minisini]

On Monday 12 April 2004 19:18, ron wrote:
>
> 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.
>
>

Just to tell you that Drag is a static class, like Key or Mouse. There is no 
drag object.

-- 
Benoit Minisini
mailto:gambas at ...1...