Fl_ButtonEx04.nim

import fltk_main

#~ ' tests of:
#~ ' Fl_WidgetGetLabel
#~ ' Fl_WidgetSetLabelColor
#~ ' Fl_RGB_Color
#~ ' Fl_WidgetDeactivate
#~ ' Fl_WidgetSetTooltip


proc HandleCB  (self: pointer, event: Fl_Event): long {.cdecl.} =
    var msg = $Fl_WidgetGetLabel(self) & " "
    case int(event):
        of FL_EVENT_PUSH, FL_EVENT_RELEASE:
            if event == FL_EVENT_PUSH:
                msg &= "pushed with MouseButton"
                case Fl_EventButtons():
                    of FL_BUTTON1 :
                        msg &= "(1)"
                    of FL_BUTTON2 :
                        msg &= "(2)"
                    of FL_BUTTON3 :
                        msg &= "(3)"
                    else:
                        discard

            else:
                msg &= "released"

            msg &= " at position " & $Fl_EventX() & ", " & $Fl_EventY()
            echo msg
        else:
            discard

    return Fl_ButtonExHandleBase(self, event) # don't eat the event


var Win = Fl_WindowNew2(100, 100, 320, 130, "ButtonEx04")

var Btn = Fl_ButtonExNew( 10, 10, 300, 30, "Button A")
Fl_ButtonExSetHandleCB Btn, HandleCB
Fl_WidgetSetTooltip Btn, "I'm Buttun A"

Btn = Fl_ButtonExNew( 10, 50, 300, 30, "Button B")
Fl_ButtonExSetHandleCB Btn, HandleCB
Fl_WidgetSetTooltip Btn, "I'm Buttun B"

Btn = Fl_ButtonExNew( 10, 90, 90, 30, "Button C")
Fl_ButtonExSetHandleCB Btn, HandleCB
Fl_WidgetSetLabelColor Btn, FL_RED
Fl_WidgetSetTooltip Btn, "I'm red"

Btn = Fl_ButtonExNew(110, 90, 100, 30, "Button D")
Fl_ButtonExSetHandleCB Btn, HandleCB
Fl_WidgetSetTooltip Btn, "I'm Buttun D"

Btn = Fl_ButtonExNew(220, 90, 90, 30, "Button E")
Fl_WidgetSetLabelColor Btn, Fl_RGB_Color(160, 80, 0)
Fl_WidgetDeactivate Btn
Fl_WidgetSetTooltip Btn, "I'm deactived"

Fl_WindowShow Win
Fl_Run()