def control_callback(self, pobj, pvdata):
     ldata = xfl.fls_convert_ptrvoid_to_ptrlongc(pvdata).contents.value
     if xfl.fl_is_same_object(pobj, self.psizeobj):
         self.cursize = int(40 * xfl.fl_get_slider_value(self.psizeobj))
     elif xfl.fl_is_same_object(pobj, self.pexitobj):
         xfl.fl_finish()
         sys.exit(0)
def main(lsysarg, sysargv):

    xfl.fl_initialize(lsysarg, sysargv, "FormDemo", None, 0)

    pform = xfl.fl_bgn_form(xfl.FL_UP_BOX, 300, 300)
    psl = xfl.fl_add_slider(xfl.FL_VERT_SLIDER, 40, 40, 60, 220, "X")
    psl.contents.radio = 1
    pbut1 = xfl.fl_add_lightbutton(xfl.FL_RADIO_BUTTON, 140, 220, \
            120, 40, "0.0")
    pbut2 = xfl.fl_add_lightbutton(xfl.FL_RADIO_BUTTON, 140, 160, \
            120, 40, "0.5")
    pbut3 = xfl.fl_add_lightbutton(xfl.FL_RADIO_BUTTON, 140, 100, \
            120, 40, "1.0")
    pexitbut = xfl.fl_add_button(xfl.FL_NORMAL_BUTTON, 140, 40, \
            120, 40, "Exit")
    xfl.fl_end_form()

    xfl.fl_show_form(pform, xfl.FL_PLACE_CENTER, xfl.FL_NOBORDER, "slRadio")

    while True:
        pobj = xfl.fl_do_forms()
        if xfl.fl_is_same_object(pobj, pbut1):
            xfl.fl_set_slider_value(psl, 0.0)
        elif xfl.fl_is_same_object(pobj, pbut2):
            xfl.fl_set_slider_value(psl, 0.5)
        elif xfl.fl_is_same_object(pobj, pbut3):
            xfl.fl_set_slider_value(psl, 1.0)
        elif xfl.fl_is_same_object(pobj, pexitbut):
            break

    xfl.fl_finish()
    return 0
def main(lsysargv, sysargv):
    sc = 1.0
    xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
    ui = create_form_form()
    strng = "%.2f" % sc
    xfl.fl_set_input(ui.pscaleobj, strng)
    xfl.fl_show_form(ui.pform, xfl.FL_PLACE_CENTER | xfl.FL_FREE_SIZE, xfl.FL_FULLBORDER, "Scaling")
    while True:
        oldsc = sc
        pobj = xfl.fl_do_forms()
        if xfl.fl_is_same_object(pobj, ui.pexitobj):
            sys.exit(0)
        elif xfl.fl_is_same_object(pobj, ui.psmallerobj):
            sc = sc * 0.8
        elif xfl.fl_is_same_object(pobj, ui.plargerobj):
            sc = sc / 0.8
        elif xfl.fl_is_same_object(pobj, ui.pscaleobj):
            sc = float(xfl.fl_get_input(ui.pscaleobj))
        if sc < 0.50:
            sc = 0.50
        elif sc > 3:
            sc = 3
        if sc != oldsc:
            xfl.fl_scale_form(ui.pform, sc / oldsc, sc / oldsc)
            xfl.fl_redraw_form(ui.pform)  # to avoid garbage on screen
            strng = "%.2f" % sc
            xfl.fl_set_input(ui.pscaleobj, strng)
 def __init__(self, lsysargv, sysargv):
     xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
     pform = xfl.fl_bgn_form(xfl.FL_UP_BOX, 130, 100)
     self.pbr = xfl.fl_add_browser(xfl.FL_NORMAL_BROWSER, 5, 5, 95, 90, \
             "")
     pbut = xfl.fl_add_button(xfl.FL_NORMAL_BUTTON, 105, 5, 20, 8, \
             "Exit")
     pobj = xfl.fl_add_button(xfl.FL_NORMAL_BUTTON, 105, 75, 20, 8, \
             "Load")
     xfl.fl_set_object_callback(pobj, self.load_file, 0)
     pobj = xfl.fl_add_lightbutton(xfl.FL_RADIO_BUTTON, 105, 60, 20, 8, \
             "Small")
     xfl.fl_set_object_callback(pobj, self.set_size, xfl.FL_SMALL_SIZE)
     xfl.fl_call_object_callback(pobj)
     xfl.fl_set_button(pobj, 1)
     pobj = xfl.fl_add_lightbutton(xfl.FL_RADIO_BUTTON, 105, 50, 20, 8, \
             "Normal")
     xfl.fl_set_object_callback(pobj, self.set_size, xfl.FL_NORMAL_SIZE)
     pobj = xfl.fl_add_lightbutton(xfl.FL_RADIO_BUTTON, 105, 40, 20, 8, \
             "Large")
     xfl.fl_set_object_callback(pobj, self.set_size, xfl.FL_LARGE_SIZE)
     xfl.fl_end_form()
     xfl.fl_scale_form(pform, 4.0, 4.0)
     xfl.fl_adjust_form_size(pform)
     xfl.fl_clear_browser(self.pbr)
     xfl.fl_add_browser_line(self.pbr, "LOAD A FILE.")
     xfl.fl_show_form(pform, xfl.FL_PLACE_FREE, xfl.FL_FULLBORDER, \
             "Browser")
     while True:
         pobj = xfl.fl_do_forms()
         if xfl.fl_is_same_object(pobj, pbut):
             break
     xfl.fl_hide_form(pform)
     xfl.fl_finish()
 def __init__(self, lsysargv, sysargv):
     self.INTERVAL = 800      # wait this long before show tip
     xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
     self.fd_form0 = self.create_form_form0()
     # Fill-in form initialization code
     xfl.fl_set_button(self.fd_form0.peek, 1)
     xfl.fl_set_button(self.fd_form0.enter, 1)
     xfl.fl_set_button(self.fd_form0.leave, 1)
     xfl.fl_set_button(self.fd_form0.push, 1)
     xfl.fl_set_button(self.fd_form0.release, 1)
     xfl.fl_set_object_prehandler(self.fd_form0.butt, \
             self.preemptive_handler)
     self.set_tip(self.fd_form0.done, "Want to quit ?\nPress me")
     self.set_tip(self.fd_form0.peek, "Turn preempting off")
     self.set_tip(self.fd_form0.override, "Turn preempting on")
     #xfl.fl_set_object_helper(self.fd_form0.done, \
     #       "Want to quit ?\nPress me")
     #xfl.fl_set_object_helper(self.fd_form0.peek, "Turn preempting off")
     #xfl.fl_set_object_helper(self.fd_form0.override, \
     #       "Turn preempting on")
     # Show the first form
     xfl.fl_show_form(self.fd_form0.form0, xfl.FL_PLACE_CENTER, \
             xfl.FL_TRANSIENT, "Preemptive")
     while not xfl.fl_is_same_object(xfl.fl_do_forms(), \
             self.fd_form0.done):
         pass        # empty
     xfl.fl_finish()
 def __init__(self, lsysargv, sysargv):
     xfl.fl_flip_yorigin()
     xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
     self.create_form()
     xfl.fl_show_form(self.pform, xfl.FL_PLACE_CENTER | xfl.FL_FREE_SIZE, \
             xfl.FL_TRANSIENT, "Select Object Demo")
     while True:
         pobj = xfl.fl_do_forms()
         if xfl.fl_is_same_object(pobj, self.preadyobj):
             break
 def __init__(self, lsysargv, sysargv):
     xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
     self.create_form()
     xfl.fl_show_form(self.pform, xfl.FL_PLACE_CENTER, \
             xfl.FL_TRANSIENT, "Browser Op")
     while not xfl.fl_is_same_object(xfl.fl_do_forms(), self.pexitobj):
         pass
     #xfl.fl_hide_form(self.pform)
     xfl.fl_finish()
     sys.exit(0)
 def __init__(self, lsysargv, sysargv):
     xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
     self.make_form1()
     xfl.fl_show_form(self.pform, xfl.FL_PLACE_CENTER, xfl.FL_NOBORDER, \
             "Demo06")
     while True:
         pobj = xfl.fl_do_forms()
         if xfl.fl_is_same_object(pobj, self.pbut):
             if xfl.fl_show_question("Do you really want to Quit?", 0):
                 break
     xfl.fl_finish()
     sys.exit(0)
 def __init__(self, lsysargv, sysargv):
     xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
     self.create_form_0()
     xfl.fl_show_form(self.pform, xfl.FL_PLACE_CENTER, xfl.FL_NOBORDER, \
             "Labels")
     while True:
         pobj = xfl.fl_do_forms()
         if xfl.fl_is_same_object(pobj, self.preadyobj):
             break
     xfl.fl_hide_form(self.pform)
     xfl.fl_finish()
     sys.exit(0)
 def __init__(self, lsysargv, sysargv):
     xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
     self.makeform()
     xfl.fl_scale_form(self.pform, 4.0, 4.0)
     xfl.fl_show_form(self.pform, xfl.FL_PLACE_FREE, \
             xfl.FL_TRANSIENT, "colsel")
     while True:
         pret = xfl.fl_do_forms()
         if xfl.fl_is_same_object(pret, self.ptopbox):
             break
     xfl.fl_hide_form(self.pform)
     xfl.fl_finish()
     sys.exit(0)
    def __init__(self, lsysargv, sysargv):

        xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
        self.create_form_form()

        xfl.fl_show_form(self.pform, xfl.FL_PLACE_CENTER | xfl.FL_FREE_SIZE, \
                xfl.FL_FULLBORDER, "All Sliders")

        while True:
            pobj = xfl.fl_do_forms()
            if xfl.fl_is_same_object(pobj, self.pexitobj):
                break

        xfl.fl_hide_form(self.pform)
        xfl.fl_finish()
def main(lsysargv, sysargv):
    global fd_objsform
    xfl.fl_initialize(lsysargv, sysargv, "", None, 0)
    fd_objsform = create_form_objsform()
    init_gui(fd_objsform)
    # fill-in form initialization code
    xfl.fl_set_button(fd_objsform.button[0], 1)
    show_group(0, 0)
    # show the first form
    xfl.fl_show_form(fd_objsform.objsform, xfl.FL_PLACE_CENTER, \
            xfl.FL_FULLBORDER, "objsform")
    while True:
        if xfl.fl_is_same_object(xfl.fl_do_forms(), fd_objsform.quit):
            break
    xfl.fl_finish()
    return 0
def main(lsysargv, sysargv):
    xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
    pform = xfl.fl_bgn_form(xfl.FL_UP_BOX, 400, 450)
    pobj1 = xfl.fl_add_input(xfl.FL_MULTILINE_INPUT, 30, 270, 340, 150, "")
    xfl.fl_set_object_callback(pobj1, input2_cb, 0)
    pobj2 = xfl.fl_add_input(xfl.FL_MULTILINE_INPUT, 30, 90, 340, 150, "")
    xfl.fl_set_object_lsize(pobj2, xfl.FL_NORMAL_SIZE)
    xfl.fl_set_object_callback(pobj2, input_cb, 0)
    pbut = xfl.fl_add_button(xfl.FL_NORMAL_BUTTON, 160, 30, 80, 30, "Exit")
    xfl.fl_end_form()
    xfl.fl_show_form(pform, xfl.FL_PLACE_CENTERFREE, xfl.FL_FULLBORDER, "MultiLineInput")
    while True:
        pobj = xfl.fl_do_forms()
        if xfl.fl_is_same_object(pobj, pbut):
            break
    xfl.fl_finish()
    return 0
 def __init__(self, lsysargv, sysargv):
     xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
     self.pform = xfl.fl_bgn_form(xfl.FL_UP_BOX, 400, 300)
     ppassword1 = xfl.fl_add_input(xfl.FL_SECRET_INPUT, 140, 40, \
             160, 40, "Password 1:")
     xfl.fl_set_object_return(ppassword1, xfl.FL_RETURN_CHANGED)
     ppassword2 = xfl.fl_add_input(xfl.FL_SECRET_INPUT, 140, 100, \
             160, 40, "Password 2:")
     xfl.fl_set_object_return(ppassword2, xfl.FL_RETURN_CHANGED)
     pinfo = xfl.fl_add_box(xfl.FL_SHADOW_BOX, 20, 160, 360, 40, "")
     pbut = xfl.fl_add_button(xfl.FL_NORMAL_BUTTON, 280, 240, \
             100, 40, "Quit")
     xfl.fl_end_form()
     xfl.fl_show_form(self.pform, xfl.FL_PLACE_MOUSE, \
             xfl.FL_FULLBORDER, "Secret input demo")
     while not xfl.fl_is_same_object(xfl.fl_do_forms(), pbut):
         strng = "Password 1 is: %s , Password 2 is: %s" % \
                 (xfl.fl_get_input(ppassword1), \
                 xfl.fl_get_input(ppassword2))
         xfl.fl_set_object_label(pinfo, strng)
     xfl.fl_finish()
     sys.exit(0)
def main(lsysargv, sysargv):

    xfl.fl_initialize(lsysargv, sysargv, "FormDemo", 0, 0 )

    pform = xfl.fl_bgn_form(xfl.FL_UP_BOX, 320, 120)

    xfl.fl_add_box(xfl.FL_NO_BOX, 0, 10, 320, 40, "Do you want to quit?")
    pyes = xfl.fl_add_button(xfl.FL_NORMAL_BUTTON, 40, 70, 80, 30," Yes")
    xfl.fl_add_button(xfl.FL_NORMAL_BUTTON, 200, 70, 80, 30, "No")

    xfl.fl_end_form()

    xfl.fl_show_form(pform, xfl.FL_PLACE_MOUSE, xfl.FL_TRANSIENT, "Question")

    while True:
        pobj = xfl.fl_do_forms()
        if xfl.fl_is_same_object(pobj, pyes):
            print("\"Yes\" has been pushed")
            xfl.fl_hide_form(pform)
            sys.exit(0)

    xfl.fl_finish()

    return 0
 def __init__(self, lsysargv, sysargv):
     strng = ""
     xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)
     self.makeform()
     xfl.fl_show_form(self.pform, xfl.FL_PLACE_MOUSE, \
             xfl.FL_TRANSIENT, "A Form")
     r = xfl.fl_get_dial_value(self.pred) + 0.001
     g = xfl.fl_get_dial_value(self.pgreen) + 0.001
     b = xfl.fl_get_dial_value(self.pblue) + 0.001
     xfl.fl_freeze_form(self.pform)
     xfl.fl_mapcolor(xfl.FL_FREE_COL1, r, g, b)
     strng = "%d" % r
     xfl.fl_set_object_label(self.predtext, strng)
     strng = "%d" % g
     xfl.fl_set_object_label(self.pgreentext, strng)
     strng = "%d" % b
     xfl.fl_set_object_label(self.pbluetext, strng)
     xfl.fl_unfreeze_form(self.pform)
     while True:
         if xfl.fl_is_same_object(xfl.fl_do_forms(), self.pbutton):
             break
         r = xfl.fl_get_dial_value(self.pred) + 0.001
         g = xfl.fl_get_dial_value(self.pgreen) + 0.001
         b = xfl.fl_get_dial_value(self.pblue) + 0.001
         xfl.fl_freeze_form(self.pform)
         xfl.fl_mapcolor(xfl.FL_FREE_COL1, r, g, b)
         strng = "%d" % r
         xfl.fl_set_object_label(self.predtext, strng)
         strng = "%d" % g
         xfl.fl_set_object_label(self.pgreentext, strng)
         strng = "%d" % b
         xfl.fl_set_object_label(self.pbluetext, strng)
         xfl.fl_unfreeze_form(self.pform)
     xfl.fl_hide_form(self.pform)
     xfl.fl_finish()
     sys.exit(0)
    def __init__(self, lsysargv, sysargv):
        self.pform = self.pexitob = self.pbtypeob = self.pmodeob = None

        c = xfl.FL_BLACK
        # 	char **p;
        # 	VN_struct *vn;
        # 	VN_struct *g = gmode,
        # 		      *gs = g + sizeof gmode / sizeof *gmode;

        xfl.fl_initialize(lsysargv, sysargv, "FormDemo", None, 0)

        self.create_form()

        sorceress_width, sorceress_height, sorceress_bits = xfl.fls_import_xbmdata_from_file("srs.xbm")
        xfl.fl_set_bitmap_data(tobj[2], sorceress_width, sorceress_height, sorceress_bits)

        xfl.fl_add_chart_value(tobj[3], 15, "Item 1", c)
        c += 1
        xfl.fl_add_chart_value(tobj[3], 5, "Item 2", c)
        c += 1
        xfl.fl_add_chart_value(tobj[3], -10, "Item 3", c)
        c += 1
        xfl.fl_add_chart_value(tobj[3], 25, "Item 4", c)
        c += 1

        xfl.fl_add_nmenu_items(tobj[14], "Item 1|Item 2|Item 3|Item 4|item 5")

        xfl.fl_add_select_items(tobj[15], "Item 1")
        xfl.fl_add_select_items(tobj[15], "Item 2")
        xfl.fl_add_select_items(tobj[15], "Item 3")
        xfl.fl_add_select_items(tobj[15], "Item 4")
        xfl.fl_add_select_items(tobj[15], "Item 5")

        xfl.fl_set_timer(tobj[16], 1000.0)

        # for ( p = browserlines; *p; p++ )
        for p in browserlines:
            xfl.fl_add_browser_line(tobj[17], p)

        # 	for ( vn = btypes; vn->val >= 0; vn++ )
        for vn in btypes:
            xfl.fl_add_select_items(self.pbtypeob, vn["name"])

        # 	for ( i = 1; g < gs; g++, i++ )
        for g in range(0, len(gmode)):
            pitem = xfl.fl_add_select_items(self.pmodeob, gmode[g]["name"])

            if not xfl.fl_mode_capable(gmode[g]["val"], 0):
                xfl.fl_popup_entry_set_state(pitem, xfl.FL_POPUP_DISABLED)

        # xfl.fl_vmode not working??
        xfl.fl_set_select_item(
            self.pmodeob, xfl.fl_get_select_item_by_value(self.pmodeob, xfl.fl_get_vclass())
        )  # 5 xfl.fl_get_vclass()))  #xfl.fl_vmode.value))

        xfl.fl_set_select_item(self.pbtypeob, xfl.fl_get_select_item_by_value(self.pbtypeob, 1))
        self.boxtype_cb(self.pbtypeob, 0)

        xfl.fl_show_form(self.pform, xfl.FL_PLACE_MOUSE, border, "Box types")

        while True:
            if xfl.fl_is_same_object(xfl.fl_do_forms(), self.pexitob):
                break

        xfl.fl_finish()