#include once "fltk-c.bi"

'test of:
' Fl_Register_Images
' Fl_Help_View extends Fl_Group  http://www.fltk.org/doc-1.3/classFl__Help__View.html
' Fl_Help_ViewSetValue

dim as string html = _
!"<HTML>"   & _
!" <HEAD>"  & _
!" </HEAD>" & _
!" <BODY>"  & _
!"  <IMG WIDTH=128 HEIGHT=128 SRC=\"media/renata.jpg\">"  & _
!"  <H1>The Fl_Help_View class !</>" & _
!"  <HR>"   & _
!" </BODY>" & _
!"</HTML>"

Fl_Register_Images()
dim as Fl_Window    ptr win = Fl_WindowNew2(100,100, 640,480, "Fl_Help_View01")
dim as Fl_Help_View ptr hv  = Fl_Help_ViewNew(10,10,620,460)
Fl_Help_ViewSetValue hv,html

Fl_WindowShow win
Fl_Run
