FLTK C for FreeBASIC Jan 09, 2017

[D.J.Peters]

how do i get mouse x,y from image or the box containing the image?

You are killing me I get all my mouse coords from eBay :-)

There are more than ten solution to get such things like mouse coords in FLTK.
It depends from on which point in your application do you need it.

first take a look at this small code:

Code: Select all

#include once "fltk-c.bi"
var win = Fl_WindowNew(320,240)
var box = Fl_BoxNew2(BoxType(FL_GLEAM_DOWN_BOX),50,50,Fl_WidgetGetW(win)-100,Fl_WidgetGetH(win)-100)
Fl_WindowShow(win)
Fl_Run()

Aftert the call of Fl_Run() your GUI application is running and I can't see the point where you get any mouse coords.

Ok so far ?

As an FLTK beginners the only chance are to interact with your GUI application are you don't use Fl_Run() instead you can use Fl_Wait().

Fl_Wait() waits for any event and returns 0 if no more Windows are open.

Here are how this beginner friendly solution works.

Code: Select all

#include once "fltk-c.bi"
var win = Fl_WindowNew(320, 240)
var box = Fl_BoxNew2(BoxType(FL_GLEAM_DOWN_BOX),50,50,Fl_WidgetGetW(win)-100,Fl_WidgetGetH(win)-100)
Fl_WindowShow(win)

while Fl_Wait()
  var event=Fl_EventNumber()
  ' is it a mouse move and inside the box
  if event = FL_EVENT_MOVE and Fl_EventInside(box) then
    ' print the mouse coords relative to the box X,Y origin
    print event,Fl_EventX()-Fl_WidgetGetX(box),Fl_EventY()-Fl_WidgetGetY(box)
  end if 
wend

Before I show you other solutions play with some kinds of events here are some functions you can try

Fl_EventNumber, Fl_EventButton,Fl_EventButton1, Fl_EventButton2, Fl_EventButton3
Fl_EventButtons, Fl_GetEventClicks, Fl_GetEventIsClick, Fl_EventKey
Fl_EventAlt , Fl_EventCtrl, Fl_EventShift, Fl_EventCommand, Fl_EventText
Fl_EventX, Fl_EventY, Fl_EventXRoot, Fl_EventYRoot, Fl_EventDX, Fl_EventDY
Fl_EventClipboardData, Fl_EventClipboardType

But remember, if you book me as your personal FLTK coach I'm not cheap. :lol:

Joshy

[D.J.Peters]

Ok let's started may be other FLTK beginners are reading here also and will learn the primary idea of FLTK.

Again take a look at this small code the result are the same as before but I made one tiny change.

Code: Select all

#include once "fltk-c.bi"
var win = Fl_WindowNew(320,240)
var box = Fl_BoxExNew(50,50,Fl_WidgetGetW(win)-100,Fl_WidgetGetH(win)-100)
Fl_WidgetSetBox(box,BoxType(FL_GLEAM_DOWN_BOX))

Fl_WindowShow(win)

while Fl_Wait()
  var event=Fl_EventNumber()
  ' is it a mouse move and inside the box
  if event = FL_EVENT_MOVE and Fl_EventInside(box) then
    ' print the mouse coords coords inside the box
    print event,Fl_EventX()-Fl_WidgetGetX(box),Fl_EventY()-Fl_WidgetGetY(box)
  end if 
wend

Do you found the difference ?

If not compare the line where I create the Box.

May be you ask your self "What to hell is a BoxEx widget"

While I wrote the FLTK wrapper I added for all(*) FLTK Widget a second version.
(*) all means really all widgets exists in two versions.

The "normal" version of the FLTK widgets are this with only one defaut callback.

For example a FLTK button has only one callback and this callback will be trigger if anyone press the button.
Thats all what the "normal" button widget of the C++ wrapper can do for you.

Another example the only callback of an "normal" slider widget will be trigger if a value of the slider are changed.
Not more not less :-)

The only callback of a Window for example are called if the user close it via mouse or by the "hide" command.
Inside this default callback you can ignore it and an ESCAPE key won't close your running application anymore.

Back to the Ex not your ex girlfriend this is another bad story. :-)

The secret of the ...Ex widgets are:
you can overwrite all "normaly hidden" function and methods of the normal version of the same widget.

Let us begin simple we overwrite the hidden event handler callback with our own version.

Code: Select all

#include once "fltk-c.bi"

function MyBoxHandleCB cdecl(byval me as any ptr, byval event as FL_EVENT) as long
  ' ! in this simple case we only handle the mouse move event !
  if event = FL_EVENT_MOVE then
    print Fl_EventX()-Fl_WidgetGetX(me),Fl_EventY()-Fl_WidgetGetY(me)
    return 1
  end if
  ' all events our "BoxEx Widget class" we don't use e.g. resize, redraw and so one ...
  ' should be deligated to the "normal BoxWidget" it's the base class of our BoxExWidget class.
  return Fl_BoxExHandleBase(me,event)
end function
'
' main
'
var win = Fl_WindowNew(320,240)
var box = Fl_BoxExNew(50,50,Fl_WidgetGetW(win)-100,Fl_WidgetGetH(win)-100)
Fl_WidgetSetBox(box,BoxType(FL_GLEAM_DOWN_BOX))
Fl_BoxExSetHandleCB(box,@MyBoxHandleCB)
Fl_WindowShow(win)
Fl_Run()

May be this is the most perfect answer of your last question.
"how do i get mouse x,y from image or the box containing the image ?"

This was the first part of "FLTK-C For Dummies" :-)

It's time for me to go sleeping it's 9:30 at morning here in germany and I waked up two days before. :-)

But "I will be back" and terminate you all FLTK haters.

Joshy

[owen]

draw lines and circles
zoom in and out with the mouse wheel

Code: Select all

#Include once "fltk-c.bi"

Declare Sub Create_Window_Main ()
Declare Sub draw_lines Cdecl (widget As FL_Widget Ptr)
Declare Sub draw_circles Cdecl (widget As FL_Widget Ptr)
Declare Sub myfbgfxtofltkimg Cdecl (byval UserData as any ptr)
Declare Function calcd(cd1 as Double,cd2 as Double,cd3 as Double,cd4 as Double,cd5 as Double,cd6 as Double) as double

Declare Sub mymain()
Declare Sub drawlines
Declare Sub drawcircles
Declare Sub zoomin()
Declare Sub zoomout()
Declare Sub zoominpan()
Declare Sub zoomoutpan()
Declare Sub escapeme()

'Windows and widgets:
Dim Shared As Fl_Window Ptr win
Dim Shared As Fl_Box Ptr box
Dim Shared As Fl_Button Ptr btn_draw_line
Dim Shared As Fl_Button Ptr btn_draw_circle
Dim Shared As Fl_Image Ptr img
'Dim Shared As Fl_EventNumber Ptr en


Dim Shared mywidth As Integer
Dim Shared myheight As Integer
Dim Shared As Integer myfltkimage_mouse_x, myfltkimage_mouse_y
Dim Shared As BOOLEAN mbp,mousebuttondown, mousebuttonup,myfltkimage_mouse_scroll_up,myfltkimage_mouse_scroll_down
Dim Shared As Integer mswp
Dim Shared As BOOLEAN drawingline=FALSE, drawingcircle=FALSE
Dim Shared As Integer linec,circlec
Dim Shared As Double lines(100,4), circles(100,3)
Dim Shared As String drawing_entity
drawing_entity="line"
Dim Shared As Integer mouse_clicks
Dim Shared As Integer wx1,wy1,wx2,wy2,wzoom,wzoomt,maxzoomin,maxzoomout

mywidth=580
myheight=580
'ScreenRes mywidth,myheight,,,fb.GFX_NULL
wx1=0
wy1=0
wx2=mywidth-1
wy2=myheight-1
wzoomt=10
maxzoomin=10
maxzoomout=10000



Dim Shared As Integer w,h,pitch_src
Dim Shared As Integer bytes_img=3 ' RGB
ScreenRes mywidth,myheight,,,-1
ScreenInfo w,h,,,pitch_src
Dim Shared As Integer pitch_img
pitch_img=w*bytes_img
Dim Shared As UByte Ptr rgb_img
rgb_img=allocate(h*pitch_img)

window (wx1,wy1)-(wx2,wy2)


Create_Window_Main ()
Fl_WidgetSetCallback0 btn_draw_line, @draw_lines
Fl_WidgetSetCallback0 btn_draw_circle, @draw_circles

Fl_AddIdle @mymain, box

Fl_WindowShow(win)
Fl_Run
DeAllocate rgb_img

End


Sub draw_lines Cdecl (widget As FL_Widget Ptr)
   drawing_entity="line"
End Sub
Sub draw_circles Cdecl (widget As FL_Widget Ptr)
   drawing_entity="circle"
End Sub


Sub Create_Window_Main ()
   win = Fl_WindowNew (800, 600, "my_fbgfx_to_fltk_image_test-5")
   box = Fl_BoxNew(120, 0, 580, 580)
   btn_draw_line = Fl_ButtonNew (10, 10, 100, 20, "Draw lines")
   btn_draw_circle = Fl_ButtonNew (10, 40, 100, 20, "Draw circles")

End Sub




Sub getfltkevents()
   
'   Print "Fl_EventNumber";Fl_EventNumber;" "
'   Print "Fl_EventButtons (non-zero)";Fl_EventButtons;"          "
'   Print "Fl_EventButton (mouse button (1-3))";Fl_EventButton;"          "
'   Print "Fl_EventX & Fl_EventY (mouse pointer x,y)";Fl_EventX();Fl_EventY();" "
'   Print "Fl_EventDY (mouse wheel)";Fl_EventDY();" "
'   Print "Fl_EventKey asc";Fl_EventKey();" "
   Select Case Fl_EventX()
      Case Fl_WidgetGetX(box) To Fl_WidgetGetX(box)+mywidth
         Select Case Fl_EventY()
            Case Fl_WidgetGetY(box) To Fl_WidgetGetY(box)+myheight
               Select Case Fl_EventNumber
                  Case 0 ' mouse button
                     If Fl_EventButtons<>0 Then
                        If mbp=FALSE Then
                           mbp=TRUE
                           Select Case Fl_EventButton
                              Case 1
                                 mousebuttondown=TRUE
                              Case 2
                                 'middle button
                              Case 3
                                 escapeme
                           End Select
                        EndIf
                     Else
                        mbp=FALSE
                     EndIf
                  Case 11 ' mouse move
                     myfltkimage_mouse_x=Fl_EventX()-Fl_WidgetGetX(box)
                     myfltkimage_mouse_y=Fl_EventY()'-Fl_WidgetGetY(box)
                     'change the mousey to increase from bottom up
                     myfltkimage_mouse_y=579-myfltkimage_mouse_y
                     myfltkimage_mouse_x=wx1+(wx2-wx1)*(myfltkimage_mouse_x/(580))
                     myfltkimage_mouse_y=wy1+(wy2-wy1)*(myfltkimage_mouse_y/(580))
                  Case 19 ' mouse scroll wheel
                     If mswp<>Fl_EventDY Then
                        mswp=Fl_EventDY
                        Select Case Fl_EventDY()
                           Case Is > 0
                              'zoom out
                              myfltkimage_mouse_scroll_up=TRUE
                           Case Is < 0
                              'zoom in
                              myfltkimage_mouse_scroll_down=TRUE
                        End Select
                     EndIf
               End Select
         End Select
   End Select
End Sub





Function calcd(cd1 as Double,cd2 As Double,cd3 as Double,cd4 as Double,cd5 as Double,cd6 as Double) as double
   calcd = sqr((cd1-cd4)^2 + (cd2-cd5)^2 + (cd3-cd6)^2)
end function



Sub mymain()
   getfltkevents
   Sleep 50
   ScreenLock
   Cls
   
   If mousebuttondown=TRUE Then
      mousebuttondown=FALSE
      mouse_clicks+=1
   EndIf
   Select Case mouse_clicks
      Case 1
         Select Case drawing_entity
            Case "line"
               If drawingline=FALSE Then
                  drawingline=TRUE
                  linec=linec+1
                  lines(linec,1)=myfltkimage_mouse_x
                  lines(linec,2)=myfltkimage_mouse_y
               EndIf
            Case "circle"
               If drawingcircle=FALSE Then
                  drawingcircle=TRUE
                  circlec=circlec+1
                  circles(circlec,1)=myfltkimage_mouse_x
                  circles(circlec,2)=myfltkimage_mouse_y
               EndIf            
         End Select
      Case 2
         Select Case drawing_entity
            Case "line"
               If drawingline=TRUE Then
                  drawingline=FALSE
                  mouse_clicks=0
                  lines(linec,3)=myfltkimage_mouse_x
                  lines(linec,4)=myfltkimage_mouse_y
               EndIf         
            Case "circle"
               If drawingcircle=TRUE Then
                  drawingcircle=FALSE
                  mouse_clicks=0
                  Dim r As Double
                  r=calcd( circles(circlec,1) , circles(circlec,2) ,0, CDbl(myfltkimage_mouse_x), CDbl(myfltkimage_mouse_y),0)
                  circles(circlec,3)=r
               EndIf         
         End Select
   End Select

   If drawingline=TRUE Then Line(lines(linec,1),lines(linec,2))-(myfltkimage_mouse_x,myfltkimage_mouse_y)
   If drawingcircle=TRUE Then
         Dim r As Double
         r=calcd( circles(circlec,1) , circles(circlec,2) ,0, CDbl(myfltkimage_mouse_x), CDbl(myfltkimage_mouse_y),0)
         Circle( circles(circlec,1),circles(circlec,2) ),r
   EndIf
   
   If myfltkimage_mouse_scroll_up=TRUE Then
      myfltkimage_mouse_scroll_up=FALSE
      '"Scroll up - zoom out"
      zoomoutpan
      window (wx1,wy1)-(wx2,wy2)

   EndIf
   If myfltkimage_mouse_scroll_down=TRUE Then
      myfltkimage_mouse_scroll_down=FALSE
      '"Scroll down - zoom in"
      zoominpan
      window (wx1,wy1)-(wx2,wy2)
   EndIf

   drawlines
   drawcircles
   myfbgfxtofltkimg(box)
   ScreenUnLock

   
   
End Sub

Sub escapeme()
   mouse_clicks=0
   If drawingline=TRUE Then
      drawingline=FALSE
      linec=linec-1
   EndIf         
   If drawingcircle=TRUE Then
      drawingcircle=FALSE
      circlec-=1
   EndIf         
End Sub

Sub zoomin()
   If wx2-wx1<maxzoomin Then Exit Sub
   wzoom=(wx2-wx1)/wzoomt
   wx1=wx1+wzoom
   wy1=wy1+wzoom
   wx2=wx2-wzoom
   wy2=wy2-wzoom

End Sub
Sub zoomout()
   wzoom=(wx2-wx1)/wzoomt
   wx1=wx1-wzoom
   wy1=wy1-wzoom
   wx2=wx2+wzoom
   wy2=wy2+wzoom
End Sub
Sub zoominpan()
   If wx2-wx1<maxzoomin Then Exit Sub
   Dim As Double panxf,panyf,panx,pany
   panxf=(myfltkimage_mouse_x-wx1)/(wx2-wx1)
   panyf=(myfltkimage_mouse_y-wy1)/(wy2-wy1)
   wx1=wx1+wzoom
   wy1=wy1+wzoom
   wx2=wx2-wzoom
   wy2=wy2-wzoom
   panx=wx1+int((wx2-wx1)*panxf)
   pany=wy1+Int((wy2-wy1)*panyf)
   wx1=wx1+(myfltkimage_mouse_x-panx)
   wx2=wx2+(myfltkimage_mouse_x-panx)
   wy1=wy1+(myfltkimage_mouse_y-pany)
   wy2=wy2+(myfltkimage_mouse_y-pany)
   wzoom=(wx2-wx1)/wzoomt
   If wzoom<1 Then wzoom=1
End Sub
Sub zoomoutpan()
   Dim As Double panxf,panyf,panx,pany
   panxf=(myfltkimage_mouse_x-wx1)/(wx2-wx1)
   panyf=(myfltkimage_mouse_y-wy1)/(wy2-wy1)
   wx1=wx1-wzoom
   wy1=wy1-wzoom
   wx2=wx2+wzoom
   wy2=wy2+wzoom
   panx=wx1+((wx2-wx1)*panxf)
   pany=wy1+((wy2-wy1)*panyf)
   wx1=wx1+(myfltkimage_mouse_x-panx)
   wx2=wx2+(myfltkimage_mouse_x-panx)
   wy1=wy1+(myfltkimage_mouse_y-pany)
   wy2=wy2+(myfltkimage_mouse_y-pany)
   wzoom=(wx2-wx1)/wzoomt
End Sub


Sub drawlines
   Dim As Integer i
   For i = 1 To linec
      If i=linec Then
         If drawingline=TRUE Then Exit For
      EndIf
      Line(lines(i,1),lines(i,2))-(lines(i,3),lines(i,4))
   Next
End Sub

Sub drawcircles
   Dim As Integer i
   For i = 1 To circlec
      If i=circlec Then
         If drawingcircle=TRUE Then Exit For
      EndIf
      circle(circles(i,1),circles(i,2)),circles(i,3)
   Next
End Sub



Sub button_draw_line()
   escapeme
   drawing_entity="line"
End Sub

Sub button_draw_circle()
   escapeme
   drawing_entity="circle"
End Sub



Sub myfbgfxtofltkimg Cdecl (byval UserData as any ptr)
   Dim As Integer i,x,y
   Dim as ubyte ptr rs=screenptr()  ' row source
   Dim as ubyte ptr ri=rgb_img      ' row image
   Dim as ulong     r,g,b
   For y = 0 to h-1
      i=0
      For x = 0 to w-1
         Palette get rs[x],r,g,b
         ri[i+0]=r: ri[i+1]=g : ri[i+2]=b : i+=3
      Next
      rs+=pitch_src
      ri+=pitch_img
   Next
   Fl_ImageDelete img
   img = Fl_RGB_ImageNew(rgb_img,w,h,bytes_img,pitch_img)
   Fl_WidgetSetImage box,img
   Fl_WidgetRedraw box
End Sub



[owen]

modification to:
draw lines and circles
zoom in and out with the mouse wheel

Using Fl_BoxEX instead of FL_Box
Fl_BoxExSetHandleCB box,@myboxHandleCB
Notice Function myboxHandleCB return 1 not return 0

Code: Select all

#Include once "fltk-c.bi"

'Declare Function Box_Event cdecl (me as any ptr, event as FL_EVENT) as Integer
Declare Sub Create_Window_Main ()
Declare Sub draw_lines Cdecl (widget As FL_Widget Ptr)
Declare Sub draw_circles Cdecl (widget As FL_Widget Ptr)
Declare Sub myfbgfxtofltkimg Cdecl (byval UserData as any ptr)
Declare Function calcd(cd1 as Double,cd2 as Double,cd3 as Double,cd4 as Double,cd5 as Double,cd6 as Double) as double
Declare Function myboxHandleCB cdecl (self as any ptr,event as Fl_Event) as integer
Declare Sub mymain()
Declare Sub drawlines
Declare Sub drawcircles
Declare Sub zoomin()
Declare Sub zoomout()
Declare Sub zoominpan()
Declare Sub zoomoutpan()
Declare Sub escapeme()

'Windows and widgets:
Dim Shared As Fl_Window Ptr win
Dim Shared As Fl_BoxEX Ptr box
Dim Shared As Fl_Button Ptr btn_draw_line
Dim Shared As Fl_Button Ptr btn_draw_circle
Dim Shared As Fl_Image Ptr img
'Dim Shared As Fl_EventNumber Ptr en


Dim Shared mywidth As Integer
Dim Shared myheight As Integer
Dim Shared As Integer myfltkimage_mouse_x, myfltkimage_mouse_y
Dim Shared As BOOLEAN mbp,mousebuttondown, mousebuttonup,myfltkimage_mouse_scroll_up,myfltkimage_mouse_scroll_down
Dim Shared As Integer mswp
Dim Shared As BOOLEAN drawingline=FALSE, drawingcircle=FALSE
Dim Shared As Integer linec,circlec
Dim Shared As Double lines(100,4), circles(100,3)
Dim Shared As String drawing_entity
drawing_entity="line"
Dim Shared As Integer mouse_clicks
Dim Shared As Integer wx1,wy1,wx2,wy2,wzoom,wzoomt,maxzoomin,maxzoomout

mywidth=580
myheight=580
'ScreenRes mywidth,myheight,,,fb.GFX_NULL
wx1=0
wy1=0
wx2=mywidth-1
wy2=myheight-1
wzoomt=10
maxzoomin=10
maxzoomout=10000



Dim Shared As Integer w,h,pitch_src
Dim Shared As Integer bytes_img=3 ' RGB
ScreenRes mywidth,myheight,,,-1
ScreenInfo w,h,,,pitch_src
Dim Shared As Integer pitch_img
pitch_img=w*bytes_img
Dim Shared As UByte Ptr rgb_img
rgb_img=allocate(h*pitch_img)

window (wx1,wy1)-(wx2,wy2)


Create_Window_Main ()
Fl_WidgetSetCallback0 btn_draw_line, @draw_lines
Fl_WidgetSetCallback0 btn_draw_circle, @draw_circles
Fl_BoxExSetHandleCB box,@myboxHandleCB

Fl_AddIdle @mymain, box

Fl_WindowShow(win)
Fl_Run
DeAllocate rgb_img

End


Sub draw_lines Cdecl (widget As FL_Widget Ptr)
   drawing_entity="line"
End Sub
Sub draw_circles Cdecl (widget As FL_Widget Ptr)
   drawing_entity="circle"
End Sub


Sub Create_Window_Main ()
   win = Fl_WindowNew (800, 600, "my_fbgfx_to_fltk_image_test-5")
   box = Fl_BoxExNew(120, 0, 580, 580)
   btn_draw_line = Fl_ButtonNew (10, 10, 100, 20, "Draw lines")
   btn_draw_circle = Fl_ButtonNew (10, 40, 100, 20, "Draw circles")

End Sub


function myboxHandleCB cdecl (self as any ptr,event as Fl_Event) as integer
   Select Case event
      Case 1 'mouse button pressed
         'Print "push"
         Select Case Fl_EventButton
            Case 1
               mousebuttondown=TRUE
            Case 2
               'middle button
            Case 3
               escapeme
         End Select
      Case 11 'mouse moved
         'Print "move"
         'Print Fl_EventX();" ";Fl_EventY()
         myfltkimage_mouse_x=Fl_EventX()-Fl_WidgetGetX(box)
         myfltkimage_mouse_y=Fl_EventY()'-Fl_WidgetGetY(box)
         'change the mousey to increase from bottom up
         myfltkimage_mouse_y=579-myfltkimage_mouse_y
         myfltkimage_mouse_x=wx1+(wx2-wx1)*(myfltkimage_mouse_x/(580))
         myfltkimage_mouse_y=wy1+(wy2-wy1)*(myfltkimage_mouse_y/(580))
      Case 19 'mouse scrollwheel
         'Print "mousewheel"
         Select Case Fl_EventDY()
            Case Is > 0
               'zoom out
               myfltkimage_mouse_scroll_up=TRUE
            Case Is < 0
               'zoom in
               myfltkimage_mouse_scroll_down=TRUE
         End Select
   End Select
   Return 1
End Function

Function calcd(cd1 as Double,cd2 As Double,cd3 as Double,cd4 as Double,cd5 as Double,cd6 as Double) as double
   calcd = sqr((cd1-cd4)^2 + (cd2-cd5)^2 + (cd3-cd6)^2)
end function



Sub mymain()
   Sleep 50
   ScreenLock
   Cls
   
   If mousebuttondown=TRUE Then
      mousebuttondown=FALSE
      mouse_clicks+=1
   EndIf
   Select Case mouse_clicks
      Case 1
         Select Case drawing_entity
            Case "line"
               If drawingline=FALSE Then
                  drawingline=TRUE
                  linec=linec+1
                  lines(linec,1)=myfltkimage_mouse_x
                  lines(linec,2)=myfltkimage_mouse_y
               EndIf
            Case "circle"
               If drawingcircle=FALSE Then
                  drawingcircle=TRUE
                  circlec=circlec+1
                  circles(circlec,1)=myfltkimage_mouse_x
                  circles(circlec,2)=myfltkimage_mouse_y
               EndIf            
         End Select
      Case 2
         Select Case drawing_entity
            Case "line"
               If drawingline=TRUE Then
                  drawingline=FALSE
                  mouse_clicks=0
                  lines(linec,3)=myfltkimage_mouse_x
                  lines(linec,4)=myfltkimage_mouse_y
               EndIf         
            Case "circle"
               If drawingcircle=TRUE Then
                  drawingcircle=FALSE
                  mouse_clicks=0
                  Dim r As Double
                  r=calcd( circles(circlec,1) , circles(circlec,2) ,0, CDbl(myfltkimage_mouse_x), CDbl(myfltkimage_mouse_y),0)
                  circles(circlec,3)=r
               EndIf         
         End Select
   End Select

   If drawingline=TRUE Then Line(lines(linec,1),lines(linec,2))-(myfltkimage_mouse_x,myfltkimage_mouse_y)
   If drawingcircle=TRUE Then
         Dim r As Double
         r=calcd( circles(circlec,1) , circles(circlec,2) ,0, CDbl(myfltkimage_mouse_x), CDbl(myfltkimage_mouse_y),0)
         Circle( circles(circlec,1),circles(circlec,2) ),r
   EndIf
   
   If myfltkimage_mouse_scroll_up=TRUE Then
      myfltkimage_mouse_scroll_up=FALSE
      '"Scroll up - zoom out"
      zoomoutpan
      window (wx1,wy1)-(wx2,wy2)

   EndIf
   If myfltkimage_mouse_scroll_down=TRUE Then
      myfltkimage_mouse_scroll_down=FALSE
      '"Scroll down - zoom in"
      zoominpan
      window (wx1,wy1)-(wx2,wy2)
   EndIf

   drawlines
   drawcircles
   myfbgfxtofltkimg(box)
   ScreenUnLock

   
   
End Sub

Sub escapeme()
   mouse_clicks=0
   If drawingline=TRUE Then
      drawingline=FALSE
      linec=linec-1
   EndIf         
   If drawingcircle=TRUE Then
      drawingcircle=FALSE
      circlec-=1
   EndIf         
End Sub

Sub zoomin()
   If wx2-wx1<maxzoomin Then Exit Sub
   wzoom=(wx2-wx1)/wzoomt
   wx1=wx1+wzoom
   wy1=wy1+wzoom
   wx2=wx2-wzoom
   wy2=wy2-wzoom

End Sub
Sub zoomout()
   wzoom=(wx2-wx1)/wzoomt
   wx1=wx1-wzoom
   wy1=wy1-wzoom
   wx2=wx2+wzoom
   wy2=wy2+wzoom
End Sub
Sub zoominpan()
   If wx2-wx1<maxzoomin Then Exit Sub
   Dim As Double panxf,panyf,panx,pany
   panxf=(myfltkimage_mouse_x-wx1)/(wx2-wx1)
   panyf=(myfltkimage_mouse_y-wy1)/(wy2-wy1)
   wx1=wx1+wzoom
   wy1=wy1+wzoom
   wx2=wx2-wzoom
   wy2=wy2-wzoom
   panx=wx1+int((wx2-wx1)*panxf)
   pany=wy1+Int((wy2-wy1)*panyf)
   wx1=wx1+(myfltkimage_mouse_x-panx)
   wx2=wx2+(myfltkimage_mouse_x-panx)
   wy1=wy1+(myfltkimage_mouse_y-pany)
   wy2=wy2+(myfltkimage_mouse_y-pany)
   wzoom=(wx2-wx1)/wzoomt
   If wzoom<1 Then wzoom=1
End Sub
Sub zoomoutpan()
   Dim As Double panxf,panyf,panx,pany
   panxf=(myfltkimage_mouse_x-wx1)/(wx2-wx1)
   panyf=(myfltkimage_mouse_y-wy1)/(wy2-wy1)
   wx1=wx1-wzoom
   wy1=wy1-wzoom
   wx2=wx2+wzoom
   wy2=wy2+wzoom
   panx=wx1+((wx2-wx1)*panxf)
   pany=wy1+((wy2-wy1)*panyf)
   wx1=wx1+(myfltkimage_mouse_x-panx)
   wx2=wx2+(myfltkimage_mouse_x-panx)
   wy1=wy1+(myfltkimage_mouse_y-pany)
   wy2=wy2+(myfltkimage_mouse_y-pany)
   wzoom=(wx2-wx1)/wzoomt
End Sub


Sub drawlines
   Dim As Integer i
   For i = 1 To linec
      If i=linec Then
         If drawingline=TRUE Then Exit For
      EndIf
      Line(lines(i,1),lines(i,2))-(lines(i,3),lines(i,4))
   Next
End Sub

Sub drawcircles
   Dim As Integer i
   For i = 1 To circlec
      If i=circlec Then
         If drawingcircle=TRUE Then Exit For
      EndIf
      circle(circles(i,1),circles(i,2)),circles(i,3)
   Next
End Sub



Sub button_draw_line()
   escapeme
   drawing_entity="line"
End Sub

Sub button_draw_circle()
   escapeme
   drawing_entity="circle"
End Sub



Sub myfbgfxtofltkimg Cdecl (byval UserData as any ptr)
   Dim As Integer i,x,y
   Dim as ubyte ptr rs=screenptr()  ' row source
   Dim as ubyte ptr ri=rgb_img      ' row image
   Dim as ulong     r,g,b
   For y = 0 to h-1
      i=0
      For x = 0 to w-1
         Palette get rs[x],r,g,b
         ri[i+0]=r: ri[i+1]=g : ri[i+2]=b : i+=3
      Next
      rs+=pitch_src
      ri+=pitch_img
   Next
   Fl_ImageDelete img
   img = Fl_RGB_ImageNew(rgb_img,w,h,bytes_img,pitch_img)
   Fl_WidgetSetImage box,img
   Fl_WidgetRedraw box
End Sub



[owen]

is there a way to set vertical scroll bar only for FL_Scroll
for example a browser you can use
Fl_Browser_SetHasScrollbar brwsr, FL_SCROLL_VERTICAL
i would think it would be something like
Fl_Scroll_SetHasScrollbar scr,FL_SCROLL_VERTICAL

[jdebord]

Try this:

Code: Select all

Fl_WidgetSetType scr, FL_SCROLL_VERTICAL


See the other FL_SCROLL_... constants in fltk-main.bi

[owen]

thanks jdebord that works

[owen]

in an effort to use fltk for the fbcad project and to give credit where credit is due. ie. both gtk and fltk are great contributions to us all so i give cudos to the programmers of both gui libraries and to joshy for helping bind fltk for freebasic.

today i am going to focus on building an expander for fltk similar to gtk's expander. the fbcad / gtk project uses multiple expanders wrapped in a scroll area.

in order to achieve this goal i wanted to first ask the freebasic.net community how they think this might be done in fltk.

naturally i have the idea that an expander would be made up using two fl_box. 1st box contains an alternating image (expand / collapse). 2nd box contains by buttons (icons). When 1st box (collapse) is clicked, 2nd box is hidden. When 1st box (expand) is clicked, 2nd box is shown.

since there are multiple expanders wrapped in a scroll area, the scroll area will need to be adjusted accordingly (as each expander is collapsed / expanded)

just trying to understand the layout / positioning concept of fltk
last night i experimented with this:

Code: Select all

#include once "fltk-c.bi"
Dim As Fl_Window Ptr win
win = Fl_WindowNew (800, 600, "layout test")
Dim as Fl_Pack ptr pack1 = Fl_PackNew(30,30,270,400)
Dim Shared As Fl_Button Ptr btn1(4,44)
Dim Shared As Fl_Button Ptr btn2(4,44)

Fl_GroupBegin pack1
var scr1 = Fl_ScrollNew(0,0,200,400)
Fl_WidgetSetType scr1, FL_SCROLL_VERTICAL
Dim Shared As Fl_Button Ptr btn(4,44)

' create some buttons with random background and selection color
for x1 as integer = 0 to 4
   For y1 as integer = 0 to 44
    dim as string label1 = "[" & 1 + y1*40 + x1 & "]"
    btn1(x1,y1) = Fl_ButtonNew(x1*50,y1*50,45,45)
    Fl_WidgetCopyLabel btn1(x1,y1), label1
    Fl_WidgetSetColorSel(btn1(x1,y1),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                             Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
  next
next
Fl_GroupEnd pack1

Dim as Fl_Pack ptr pack2 = Fl_PackNew(400,30,270,300)

Fl_GroupBegin pack2
var scr2 = Fl_ScrollNew(0,0,222,322)
Fl_WidgetSetType scr2, FL_SCROLL_VERTICAL

' create some buttons with random background and selection color
for x2 as integer = 0 to 4
   For y2 as integer = 0 to 44
    dim as string label2 = "[" & 1 + y2*40 + x2 & "]"
    btn2(x2,y2) = Fl_ButtonNew(x2*50,y2*50,45,45)
    Fl_WidgetCopyLabel btn2(x2,y2), label2
    Fl_WidgetSetColorSel(btn2(x2,y2),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                             Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
  next
next
Fl_GroupEnd pack2



Fl_WindowShow(win)
Fl_Run

End



an noticed some oddities.
first thing is:
If I place the dim statements for the fl_pack (s) one after the other ie.

Dim as Fl_Pack ptr pack1 = Fl_PackNew(30,30,270,400)
Dim as Fl_Pack ptr pack2 = Fl_PackNew(400,30,270,300)

it produces an undesirable result:

Code: Select all

#include once "fltk-c.bi"
Dim As Fl_Window Ptr win
win = Fl_WindowNew (800, 600, "layout test")
Dim as Fl_Pack ptr pack1 = Fl_PackNew(30,30,270,400)
Dim as Fl_Pack ptr pack2 = Fl_PackNew(400,30,270,300)
Dim Shared As Fl_Button Ptr btn1(4,44)
Dim Shared As Fl_Button Ptr btn2(4,44)

Fl_GroupBegin pack1
var scr1 = Fl_ScrollNew(0,0,200,400)
Fl_WidgetSetType scr1, FL_SCROLL_VERTICAL
Dim Shared As Fl_Button Ptr btn(4,44)

' create some buttons with random background and selection color
for x1 as integer = 0 to 4
   For y1 as integer = 0 to 44
    dim as string label1 = "[" & 1 + y1*40 + x1 & "]"
    btn1(x1,y1) = Fl_ButtonNew(x1*50,y1*50,45,45)
    Fl_WidgetCopyLabel btn1(x1,y1), label1
    Fl_WidgetSetColorSel(btn1(x1,y1),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                             Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
  next
next
Fl_GroupEnd pack1


Fl_GroupBegin pack2
var scr2 = Fl_ScrollNew(0,0,222,322)
Fl_WidgetSetType scr2, FL_SCROLL_VERTICAL

' create some buttons with random background and selection color
for x2 as integer = 0 to 4
   For y2 as integer = 0 to 44
    dim as string label2 = "[" & 1 + y2*40 + x2 & "]"
    btn2(x2,y2) = Fl_ButtonNew(x2*50,y2*50,45,45)
    Fl_WidgetCopyLabel btn2(x2,y2), label2
    Fl_WidgetSetColorSel(btn2(x2,y2),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                             Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
  next
next
Fl_GroupEnd pack2



Fl_WindowShow(win)
Fl_Run

End


i am not sure why it matters where the dim statement for fl_pack are placed but it does.

any how, my goal is to focus on building an expander for fltk for my fbcad project and we'll see how it goes today.

[D.J.Peters]

If you create any kind of a Fl_Group widget like a Fl_Window or other containers for any widgets
FLTK opens for you the newly created container so you can add direktly new child widgets to it's parent the last created container widget.

var win = Fl_WindowNew (800, 600, "layout test")
is the same as :
var win = Fl_WindowNew (800, 600, "layout test") : Fl_WindowBegin(win)

var pack1 = Fl_PackNew(30,30,270,400)
is the same as:
var pack1 = Fl_PackNew(30,30,270,400) : Fl_PackBegin(pack1)

Joshy

read the comments:

Code: Select all

#include once "fltk-c.bi"

Dim Shared As Fl_Button Ptr btn1(4,44)
Dim Shared As Fl_Button Ptr btn2(4,44)

var win = Fl_WindowNew (800, 600, "layout test")
Fl_WindowBegin(win) ' !!! not needed Fl_WindowNew() will open the group for you

  var pack1 = Fl_PackNew( 30,30,270,400)
  Fl_PackBegin(pack1) ' !!! not needed Fl_PackNew() will open the group for you
  ' ...
  Fl_PackEnd(pack1) ' !!! needed if you won't add pack2 to it
 
  var pack2 = Fl_PackNew(400,30,270,300)
  Fl_PackBegin(pack2) ' !!! not needed Fl_PackNew() will open the group for you
  ' ...
  Fl_PackEnd(pack2) ' !!! needed close the newly created group

  Fl_PackBegin(pack1) ' !!! needed
    var scr1 = Fl_ScrollNew(0,0,200,400)
    Fl_WidgetSetType scr1, FL_SCROLL_VERTICAL
    ' create some buttons with random background and selection color
    for x1 as integer = 0 to 4
      For y1 as integer = 0 to 44
        dim as string label1 = "[" & 1 + y1*40 + x1 & "]"
        btn1(x1,y1) = Fl_ButtonNew(x1*50,y1*50,45,45)
        Fl_WidgetCopyLabel(btn1(x1,y1), label1)
        Fl_WidgetSetColorSel(btn1(x1,y1),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                                         Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
      next
    next
  Fl_PackEnd(pack1) ' !!! needed
 
 
  Fl_PackBegin(pack2) ' !!! needed
    var scr2 = Fl_ScrollNew(0,0,222,322)
    Fl_WidgetSetType scr2, FL_SCROLL_VERTICAL
    ' create some buttons with random background and selection color
    for x2 as integer = 0 to 4
      For y2 as integer = 0 to 44
        dim as string label2 = "[" & 1 + y2*40 + x2 & "]"
        btn2(x2,y2) = Fl_ButtonNew(x2*50,y2*50,45,45)
        Fl_WidgetCopyLabel(btn2(x2,y2), label2)
        Fl_WidgetSetColorSel(btn2(x2,y2),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                                         Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
      next
    next
  Fl_PackEnd(pack2) ' !!! needed

Fl_WindowEnd(win) ' not needed Fl_WindowShow will close the group for you

Fl_WindowShow(win)
Fl_Run()

[owen]

Ok, i removed
Fl_GroupBegin pack1
Fl_GroupBegin pack2

and this works:

Code: Select all

#include once "fltk-c.bi"
Dim As Fl_Window Ptr win
win = Fl_WindowNew (800, 600, "layout test")
Dim as Fl_Pack ptr pack1 = Fl_PackNew(30,30,270,400)
Dim Shared As Fl_Button Ptr btn1(4,44)
Dim Shared As Fl_Button Ptr btn2(4,44)

var scr1 = Fl_ScrollNew(0,0,200,400)
Fl_WidgetSetType scr1, FL_SCROLL_VERTICAL
Dim Shared As Fl_Button Ptr btn(4,44)

' create some buttons with random background and selection color
for x1 as integer = 0 to 4
   For y1 as integer = 0 to 44
    dim as string label1 = "[" & 1 + y1*40 + x1 & "]"
    btn1(x1,y1) = Fl_ButtonNew(x1*50,y1*50,45,45)
    Fl_WidgetCopyLabel btn1(x1,y1), label1
    Fl_WidgetSetColorSel(btn1(x1,y1),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                             Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
  next
next
Fl_GroupEnd pack1

Dim as Fl_Pack ptr pack2 = Fl_PackNew(400,30,270,300)

var scr2 = Fl_ScrollNew(0,0,222,322)
Fl_WidgetSetType scr2, FL_SCROLL_VERTICAL

' create some buttons with random background and selection color
for x2 as integer = 0 to 4
   For y2 as integer = 0 to 44
    dim as string label2 = "[" & 1 + y2*40 + x2 & "]"
    btn2(x2,y2) = Fl_ButtonNew(x2*50,y2*50,45,45)
    Fl_WidgetCopyLabel btn2(x2,y2), label2
    Fl_WidgetSetColorSel(btn2(x2,y2),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                             Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
  next
next
Fl_GroupEnd pack2



Fl_WindowShow(win)
Fl_Run

End



and this does not work:

Code: Select all

#include once "fltk-c.bi"
Dim As Fl_Window Ptr win
win = Fl_WindowNew (800, 600, "layout test")
Dim as Fl_Pack ptr pack1 = Fl_PackNew(30,30,270,400)
Dim as Fl_Pack ptr pack2 = Fl_PackNew(400,30,270,300)

Dim Shared As Fl_Button Ptr btn1(4,44)
Dim Shared As Fl_Button Ptr btn2(4,44)

var scr1 = Fl_ScrollNew(0,0,200,400)
Fl_WidgetSetType scr1, FL_SCROLL_VERTICAL
Dim Shared As Fl_Button Ptr btn(4,44)

' create some buttons with random background and selection color
for x1 as integer = 0 to 4
   For y1 as integer = 0 to 44
    dim as string label1 = "[" & 1 + y1*40 + x1 & "]"
    btn1(x1,y1) = Fl_ButtonNew(x1*50,y1*50,45,45)
    Fl_WidgetCopyLabel btn1(x1,y1), label1
    Fl_WidgetSetColorSel(btn1(x1,y1),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                             Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
  next
next
Fl_GroupEnd pack1


var scr2 = Fl_ScrollNew(0,0,222,322)
Fl_WidgetSetType scr2, FL_SCROLL_VERTICAL

' create some buttons with random background and selection color
for x2 as integer = 0 to 4
   For y2 as integer = 0 to 44
    dim as string label2 = "[" & 1 + y2*40 + x2 & "]"
    btn2(x2,y2) = Fl_ButtonNew(x2*50,y2*50,45,45)
    Fl_WidgetCopyLabel btn2(x2,y2), label2
    Fl_WidgetSetColorSel(btn2(x2,y2),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                             Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
  next
next
Fl_GroupEnd pack2



Fl_WindowShow(win)
Fl_Run

End


the only difference is where the dim statement is located.

[owen]

the only thing i was trying to point out was that placement of objects into other objects is dependent on the order in which they are in the code. that is if i am correct or not.

[owen]

using show and hide on the scrolls and redraw on the packs. it kinda works.

Code: Select all

#include once "fltk-c.bi"

Declare function Button1HandleCB cdecl (self as any ptr,event as Fl_Event) as Integer
Declare function Button2HandleCB cdecl (self as any ptr,event as Fl_Event) as Integer

Dim Shared As BOOLEAN showhide(2)
showhide(1)=FALSE
showhide(2)=FALSE
dim as string label

Dim As Fl_Window Ptr win
Dim As Fl_ButtonEx Ptr btn0,btn1,btn2
Dim As Fl_Button Ptr btns1(4,44),btns2(4,44)
Dim Shared As Fl_Scroll Ptr scr0,scr1,scr2
Dim Shared As FL_Pack Ptr pack0,pack1,pack2

win = Fl_WindowNew (800, 600, "layout test")

pack0 = Fl_PackNew(0,0,270,200)

   pack1 = Fl_PackNew(0,50,270,200)
      'Note: this button's width of 50 adjusts to pack1's width of 270
      'Note: this button's height is not dependent on pack's height
      btn1= Fl_ButtonExNew(0,0,50,30,"click me 1")
      Fl_ButtonExSetHandleCB btn1,@Button1HandleCB
   
      'Note: this scroll's width of 50 adjusts to pack1's width of 270
      'Note: this scroll's height is not dependent on pack's height
      scr1 = Fl_ScrollNew(0,0,50,200)
      Fl_WidgetSetType scr1, FL_SCROLL_VERTICAL
      
      ' create some buttons with random background and selection color
      For x as integer = 0 to 4
         For y as integer = 0 to 44
          label = "1"
          btns1(x,y) = Fl_ButtonNew(x*50,y*50,45,45)
          Fl_WidgetCopyLabel btns1(x,y), label
          Fl_WidgetSetColorSel(btns1(x,y),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                                   Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
         next
      Next
   Fl_GroupEnd pack1

   pack2 = Fl_PackNew(0,0,270,200)
      'Note: this button's width of 50 adjusts to pack1's width of 270
      'Note: this button's height is not dependent on pack's height
      btn2= Fl_ButtonExNew(0,0,50,30,"click me 2")
      Fl_ButtonExSetHandleCB btn2,@Button2HandleCB
   
      'Note: this scroll's width of 50 adjusts to pack1's width of 270
      'Note: this scroll's height is not dependent on pack's height
      scr2 = Fl_ScrollNew(0,0,50,200)
      Fl_WidgetSetType scr2, FL_SCROLL_VERTICAL
      
      ' create some buttons with random background and selection color
      For x as integer = 0 to 4
         For y as integer = 0 to 44
          label = "2"
          btns2(x,y) = Fl_ButtonNew(x*50,y*50,45,45)
          Fl_WidgetCopyLabel btns2(x,y), label
          Fl_WidgetSetColorSel(btns2(x,y),Fl_RGB_Color(rnd*255,rnd*255,rnd*255), _
                                   Fl_RGB_Color(rnd*255,rnd*255,rnd*255))
         next
      Next
   Fl_GroupEnd pack2

Fl_GroupEnd pack0


Fl_WindowShow(win)
Fl_Run

End


function Button1HandleCB cdecl (self as any ptr,event as Fl_Event) as integer
   Select case event
      Case 1
         If showhide(1)=FALSE Then
            showhide(1)=TRUE
            Fl_WidgetHide(scr1)
         Else
            showhide(1)=FALSE
            Fl_WidgetShow(scr1)
         EndIf
         Fl_WidgetRedraw(pack0)
         'Fl_WidgetRedraw(pack1)
         'Fl_WidgetRedraw(pack2)
   End Select
   Return 1
end function

Function Button2HandleCB cdecl (self as any ptr,event as Fl_Event) as integer
   Select case event
      Case 1
         If showhide(2)=FALSE Then
            showhide(2)=TRUE
            Fl_WidgetHide(scr2)
         Else
            showhide(2)=FALSE
            Fl_WidgetShow(scr2)
         EndIf
         Fl_WidgetRedraw(pack0)
         'Fl_WidgetRedraw(pack1)
         'Fl_WidgetRedraw(pack2)
   End Select
   Return 1
end function



[D.J.Peters]

if do this:
' create pack1 as child of Fl_Window
Dim as Fl_Pack ptr pack1 = Fl_PackNew(30,30,270,400)
' craete pack2 as child of pack1
Dim as Fl_Pack ptr pack2 = Fl_PackNew(400,30,270,300)

that means you create pack2 as child of pack1

this is the right order
' create pack1 as child of Fl_Window
var pack1 = Fl_PackNew(30,30,270,400)
Fl_PackEnd(pack1) ' close the childlist of pack1

' create pack2 as child of Fl_Window
var pack2 = Fl_PackNew(400,30,270,300)

Is it too complicated ?

why do not like to use var ?
dim as what_was_the_right_pointer_type = Fl_SomeThingNew()
var simple = Fl_SomeThingNew()

why you don't use code indentation (may be TAB's or spaces)
it's helpfull to see what are childs and what not

I posted your code with some improvments before.

[owen]

using var or dim to hide a box

this doesn't work

Code: Select all

#include once "fltk-c.bi"

Declare function ButtonHandleCB cdecl (self as any ptr,event as Fl_Event) as integer

Var win = Fl_WindowNew (800, 600, "test")
Var box= Fl_BoxNew(0,0,100,100,"a box")
Var btn= Fl_ButtonExNew(0,0,100,20,"click me")
Fl_ButtonExSetHandleCB btn,@ButtonHandleCB
Fl_WindowShow(win)
Fl_Run

End
function ButtonHandleCB cdecl (self as any ptr,event as Fl_Event) as integer
   Select case event
      Case 1
         Fl_WidgetHide(box)
   End Select
   Return 1
end function


my solution is:

Code: Select all

#include once "fltk-c.bi"

Declare function ButtonHandleCB cdecl (self as any ptr,event as Fl_Event) as integer

Dim Shared As Fl_Box Ptr box

Var win = Fl_WindowNew (800, 600, "test")
box= Fl_BoxNew(0,0,100,100,"a box")
Var btn= Fl_ButtonExNew(0,0,100,20,"click me")
Fl_ButtonExSetHandleCB btn,@ButtonHandleCB
Fl_WindowShow(win)
Fl_Run

End
function ButtonHandleCB cdecl (self as any ptr,event as Fl_Event) as integer
   Select case event
      Case 1
         Fl_WidgetHide(box)
   End Select
   Return 1
end function


[D.J.Peters]

Here are your first try without any shared var :-)

Joshy

Code: Select all

#include once "fltk-c.bi"

Declare function ButtonHandleCB cdecl (self as any ptr,event as Fl_Event) as integer

Var win = Fl_WindowNew (800, 600, "test")
Var box= Fl_BoxNew(0,0,100,100,"a box")
Var btn= Fl_ButtonExNew(0,0,100,20,"click me")
Fl_WidgetSetUserData(btn,box)
Fl_ButtonExSetHandleCB(btn,@ButtonHandleCB)
Fl_WindowShow(win)
Fl_Run

' End <--- no once need this :-)
function ButtonHandleCB cdecl (self as any ptr,event as Fl_Event) as integer
   Select case event
      Case 1
         Fl_WidgetHide(Fl_WidgetGetUserData(self))
   End Select
   Return 1
end function