--- "j.w.c.a. lokin" <lokin@signaal.nl> wrote:
> T.C. Zhao wrote:
> >
> > Hi,
> > I fixed the deletion/detach problem over the weekend.
> > V0.89 for Solaris is updated. Please let me know how
> > it goes.
> > -TC
> Detaching a form works, but strange
> frames
> sometimes appear in the other forms. Returning the form seems to mix
> things up
> some more. I still haven't managed to display a detached form in a
> window of
> it's own.
What kind problems ? Anyway to reproduce it with a given
sequence of actions ? Aside from needing a fl_hide_form()
before adding to the tabfolder in your push_func(), everything
looks and works fine.
> -+- Jan Willem Lokin -+-> #include "forms.h"
>
> #define butnH 18
> #define pageH (12 * butnH)
> #define butnW (4 * butnH)
> #define pageW (5 * butnW)
>
> #define NTABS 12
>
> #define POP 1 /* pop a form into its own window (won't work yet!) */
>
> #if POP
> static FL_FORM *fs[NTABS];
> static int fsp;
>
> static void pop_func (FL_OBJECT *obj, long n)
> {
> FL_OBJECT *tabfolder = (FL_OBJECT *) n;
> FL_FORM *form = fl_get_active_folder (tabfolder);
> fs[fsp++] = form;
> fl_delete_folder (tabfolder, form);
> //fl_show_form (form, FL_PLACE_FREE, FL_TRANSIENT, "XXX");
> }
> static void push_func (FL_OBJECT *obj, long n)
> {
> FL_OBJECT *tabfolder = (FL_OBJECT *) n;
> if (fsp > 0)
> fl_addto_tabfolder (tabfolder, "?", fs[--fsp]);
> }
> #endif
>
> static void create_tab (FL_OBJECT *folder, char *title)
> {
> FL_FORM *form = fl_bgn_form (FL_FLAT_BOX, pageW + 6, pageH + 6);
> fl_add_text (FL_NORMAL_TEXT, 0, 0, butnW, butnH, title);
> fl_end_form ();
> fl_addto_tabfolder (folder, title, form);
> }
>
>
> static FL_OBJECT *create_and (void)
> {
> const int andW = pageW + 10, andH = pageH + 31;
> FL_FORM *form;
> FL_OBJECT *obj, *tabfolder;
> int i;
>
> form = fl_bgn_form (FL_FLAT_BOX, andW, andH);
> fl_set_form_minsize (form, andW, andH);
> fl_set_form_maxsize (form, andW, DisplayHeight (fl_display,
> fl_screen) - 25 - 5);
>
> tabfolder = fl_add_tabfolder (FL_TOP_TABFOLDER, 0, 0, andW, andH,
> 0);
> // fl_set_object_prehandler (tabfolder, tabfolder_resize_func);
> // fl_set_object_callback (tabfolder, tabfolder_func, 0);
>
> #if POP
> obj = fl_add_button (FL_NORMAL_BUTTON, andW - 2 *butnH, 0, butnH,
> butnH, "-");
> fl_set_object_callback (obj, pop_func, (long) tabfolder);
> obj = fl_add_button (FL_NORMAL_BUTTON, andW - butnH, 0, butnH,
> butnH, "+");
> fl_set_object_callback (obj, push_func, (long) tabfolder);
> #endif
>
> fl_end_form ();
>
> for (i = 0; i < NTABS; i++)
> {
> char tab[8];
>
> sprintf (tab, "%d", i);
> create_tab (tabfolder, tab);
> }
> fl_show_form (form, FL_PLACE_FREE, FL_FULLBORDER, "tabf");
>
> return tabfolder;
> }
>
> int main (int argc, char *argv[])
> {
> FL_OBJECT *tabfolder;
>
> fl_initialize (&argc, argv, 0, 0, 0);
>
>
> tabfolder = create_and ();
>
> /* State initialization */
>
> fl_set_folder_byname (tabfolder, "3");
>
> fl_do_forms ();
>
> fprintf (stderr, " *** Unexpected fallthru ***\n");
> return 0;
> }
>
=====
__________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com
_________________________________________________
To unsubscribe, send the message "unsubscribe" to
xforms-request@bob.usuhs.mil or see
http://bob.usuhs.mil/mailserv/xforms.html
XForms Home Page: http://bragg.phys.uwm.edu/xforms
List Archive: http://bob.usuhs.mil/mailserv/list-archives/