1) The label does not appear:
Code: Select all
#include once "fltk-c.bi"
var win = Fl_Double_WindowNew(500,500)
var can = Fl_CanvasNew(50, 50, 400, 400, "Canvas")
Fl_WindowShow win
Fl_Run
Code: Select all
sub CanvasDrawCB cdecl (byval me as any ptr, _
byref dstX as long,byref dstY as long, _
byref cpyW as long,byref cpyH as long, _
byref srcX as long,byref srcY as long)