# data file for the Fltk User Interface Designer (fluid)
version 1.0303
header_name {.h}
code_name {.cxx}
Function {button_cb((Parent a Button) => Ref Output -> Ref a -> IO ())} {open return_type {cb_info b}
} {
code {do {
bl <- getLabel (safeCast b :: Ref Button);
bv <- getValue (safeCast b :: Ref Button);
let { msg = "Label: '" ++ bl ++ "'Value: " ++ (show bv) };
setValue cb_info msg Nothing;
redraw cb_info;
}} {selected
}
}
Function {make_window(IO (Ref Window))} {open
} {
Fl_Window window {open
xywh {461 67 365 210} type Double visible
} {
Fl_Button button_A1 {
label {&Fl_Button A1}
tooltip {Normal button (callback called only when released)} xywh {20 10 160 30} labelsize 13
}
Fl_Button button_A2 {
label {Fl_Button &A2}
tooltip {Normal button with callback called when changed (push and released)} xywh {20 44 160 30} labelsize 13 when 1
}
Fl_Return_Button button_B {
label {Fl_Return_Button &B}
tooltip {Button with Return key as default shortcut} xywh {20 78 160 30} labelsize 13
}
Fl_Light_Button button_C {
label {Fl_Light_Button &C}
tooltip {Button with toggle state and a visual indicator of the current state} xywh {20 113 160 30} labelsize 13
}
Fl_Check_Button button_D {
label {Fl_Check_Button &D}
tooltip {Check button with toggle state} xywh {20 148 160 30} down_box DOWN_BOX labelsize 13
}
Fl_Round_Button button_E {
label {Fl_Round_Button &E}
tooltip {Round Button with toggle state} xywh {20 178 160 30} down_box ROUND_DOWN_BOX labelsize 13
}
Fl_Group {} {open
xywh {190 10 70 120} box THIN_UP_FRAME
} {
Fl_Round_Button button_1 {
label {radio &1}
tooltip {Radio button, only one button is set at a time, in the corresponding group.} xywh {190 10 70 30} type Radio down_box ROUND_DOWN_BOX
}
Fl_Round_Button button_2 {
label {radio &2}
tooltip {Radio button, only one button is set at a time, in the corresponding group.} xywh {190 40 70 30} type Radio down_box ROUND_DOWN_BOX
}
Fl_Round_Button button_3 {
label {radio &3}
tooltip {Radio button, only one button is set at a time, in the corresponding group.} xywh {190 70 70 30} type Radio down_box ROUND_DOWN_BOX
}
Fl_Round_Button button_4 {
label {radio &4}
tooltip {Radio button, only one button is set at a time, in the corresponding group.} xywh {190 100 70 30} type Radio down_box ROUND_DOWN_BOX
}
}
Fl_Group {} {open
xywh {270 10 90 120} box THIN_UP_BOX
} {
Fl_Button button_radio_1 {
label radio
tooltip {Custom look button, only one button is set at a time, in the corresponding group.} xywh {280 20 20 20} type Radio selection_color 1 align 8
}
Fl_Button button_radio_2 {
label radio
tooltip {Custom look button, only one button is set at a time, in the corresponding group.} xywh {280 45 20 20} type Radio selection_color 1 align 8
}
Fl_Button button_radio_3 {
label radio
tooltip {Custom look button, only one button is set at a time, in the corresponding group.} xywh {280 70 20 20} type Radio selection_color 1 align 8
}
Fl_Button button_radio_4 {
label radio
tooltip {Custom look button, only one button is set at a time, in the corresponding group.} xywh {280 95 20 20} type Radio selection_color 1 align 8
}
}
Fl_Output cb_info {
label {callback:}
xywh {190 148 170 62} type Multiline align 133 textsize 12
}
}
code {setCallback button_A1 (button_cb cb_info);
setCallback button_A2 (button_cb cb_info);
setCallback button_B (button_cb cb_info);
setCallback button_C (button_cb cb_info);
setCallback button_D (button_cb cb_info);
setCallback button_E (button_cb cb_info);
setCallback button_1 (button_cb cb_info);
setCallback button_2 (button_cb cb_info);
setCallback button_3 (button_cb cb_info);
setCallback button_4 (button_cb cb_info);
setCallback button_radio_1 (button_cb cb_info);
setCallback button_radio_2 (button_cb cb_info);
setCallback button_radio_3 (button_cb cb_info);
setCallback button_radio_4 (button_cb cb_info);} {}
code {return window} {}
}