i try the tree-simple example and i get these errors
Code: Select all
#include once "FLTK/Fl_Double_Window.bi"
#include once "FLTK/Fl_Tree.bi"
'Tree's callback
'Invoked whenever an item's state changes.
'This callback is invoked whenever the user clicks an item in the menu bar
Sub TreeCallback(w as Fl_Widget ptr, p as any ptr)
var tree = cptr(Fl_Tree ptr, w)
dim item as const Fl_Tree_Item ptr = cptr(Fl_Tree_Item ptr, tree->callback_item())
if (item <> 1) then
exit sub
end if
select case (tree->callback_reason())
case FL_TREE_REASON_SELECTED
dim pathname as string*256
tree->item_pathname(pathname, sizeof(pathname), item)
print "TreeCallback: Item selected=" & item->label() & " Full pathname= " & pathname
case FL_TREE_REASON_DESELECTED
print "TreeCallback: Item " & item->label() & " deselected"
case FL_TREE_REASON_OPENED
print "TreeCallback: Item " & item->label() & " opened"
case FL_TREE_REASON_CLOSED
print "TreeCallback: Item " & item->label() & " closed"
end select
end sub
'main program
Fl.scheme("gtk+")
dim win as Fl_Double_Window = Fl_Double_Window(250, 400, "Simple Tree")
win.begin()
'Create the tree
dim tree as Fl_Tree= Fl_Tree(10, 10, win.w()-20, win.h()-20)
tree.showroot(0) 'don't show root of tree
dim cb as Fl_Callback = @TreeCallback
tree.callback(cb) 'setup a callback for the tree
'Add some items
tree.add("Flintstones/Fred")
tree.add("Flintstones/Wilma")
tree.add("Flintstones/Pebbles")
tree.add("Simpsons/Homer")
tree.add("Simpsons/Marge")
tree.add("Simpsons/Bart")
tree.add("Simpsons/Lisa")
tree.add(!"Pathnames/\\/bin") 'front slashes
tree.add(!"Pathnames/\\/usr\\/sbin")
tree.add(!"Pathnames/C:\\\\Program Files") 'backslashes
tree.add(!"Pathnames/C:\\\\Documents and Settings")
win.end_()
win.resizable(win)
win.show()
Fl.run_()
Buinding Project: [tree]......
/home/user/Bin/FreeBASIC/FreeBASIC-1.10.0-source/bin/fbc -c -m "tree" -b "tree.bas" -i "/home/user/Bin/FreeBASIC/FreeBASIC-1.10.0-source/inc" -p "/home/user/Bin/FreeBASIC/FreeBASIC-1.10.0-source/lib/freebasic/linux-x86_64" -l Xrender -l Xcursor -l Xfixes -l Xext -l Xft -l fontconfig -l Xinerama -l pthread -l m -l X11 -l png -l z -l jpeg
tree.c: In function ‘_Z8FL_COLORhhh’:
tree.c
13: warning: infinite recursion detected [-Winfinite-recursion]
1293 | static void _Z8FL_COLORhhh( uint8 R$1, uint8 G$1, uint8 B$1 )
| ^~~~~~~~~~~~~~
tree.c
9: note: recursive call
1296 | _Z8FL_COLORhhh( R$1, G$1, B$1 );
| ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
tree.c: In function ‘_ZNK7Fl_Tree5prefsEv’:
tree.c
33: warning: infinite recursion detected [-Winfinite-recursion]
1664 | static struct $13Fl_Tree_Prefs* _ZNK7Fl_Tree5prefsEv( struct $7Fl_Tree* THIS$1 )
| ^~~~~~~~~~~~~~~~~~~~
tree.c
41: note: recursive call
1669 | struct $13Fl_Tree_Prefs* vr$1 = _ZNK7Fl_Tree5prefsEv( THIS$1 );
| ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Compile Success!!
************************************
Continue Link Project: [tree]......
/home/user/Bin/FreeBASIC/FreeBASIC-1.10.0-source/bin/fbc -x "tree" -a "tree.o" -i "/home/user/Bin/FreeBASIC/FreeBASIC-1.10.0-source/inc" -p "/home/user/Bin/FreeBASIC/FreeBASIC-1.10.0-source/lib/freebasic/linux-x86_64" -l Xrender -l Xcursor -l Xfixes -l Xext -l Xft -l fontconfig -l Xinerama -l pthread -l m -l X11 -l png -l z -l jpeg
ld: tree.o:(.data.rel+0x400): undefined reference to `Fl_Image::label(FL_MENU_ITEM*)'
ld: tree.o:(.data.rel+0x460): undefined reference to `Fl_RGB_Image::label(FL_MENU_ITEM*)'
ld: tree.o:(.data.rel+0x4c0): undefined reference to `Fl_Bitmap::label(FL_MENU_ITEM*)'
ld: tree.o:(.data.rel+0x520): undefined reference to `Fl_Pixmap::label(FL_MENU_ITEM*)'
Compile Error...