#include once "fltk-c.bi"

'test of:
' Fl_Text_Buffer                          http://www.fltk.org/doc-1.3/classFl__Text__Buffer.html
' Fl_Text_Display extends Fl_Group        http://www.fltk.org/doc-1.3/classFl__Text__Display.html
' Fl_Text_Editor extends  Fl_Text_Display http://www.fltk.org/doc-1.3/classFl__Text__Editor.html

dim as Fl_Window      ptr win = Fl_WindowNew(640,480, "Fl_Text_Editor")
dim as Fl_Text_Buffer ptr buf = Fl_Text_BufferNew()
dim as Fl_Text_Editor ptr edt = Fl_Text_EditorNew(10,10,Fl_WidgetGetW(win)-20,Fl_WidgetGetH(win)-20)
Fl_Text_DisplaySetBuffer edt,buf

Fl_GroupSetResizable win,edt
Fl_WindowShow win
Fl_Run
