Steve Lamont wrote:
>
> # To subscribers of the xforms list from spl@szechuan.ucsd.edu (Steve Lamont) :
>
> > I 've got a problem with fl_delete_object()
>
> Example code?
>
> spl
sorry...
#include "forms.h"
typedef struct {
FL_FORM *fl_form;
FL_OBJECT *fl_directory;
FL_OBJECT *fl_browser;
FL_OBJECT *fl_close;
FL_OBJECT *fl_fileSelector;
void *vdata;
char *cdata;
long ldata;
} FD_listeForm;
FD_listeForm *create_form_listeForm(void)
{
FL_OBJECT *obj;
FD_listeForm *fdui = (FD_listeForm *) fl_calloc(1, sizeof(*fdui));
fdui->fl_form = fl_bgn_form(FL_NO_BOX, 250, 270);
fdui->fl_directory = obj =
fl_add_input(FL_NORMAL_INPUT,20,30,170,20,"Directory");
fl_set_input_return(obj,FL_RETURN_CHANGED);
fl_set_object_lalign(obj,FL_ALIGN_TOP);
fdui->fl_browser=obj =
fl_add_browser(FL_MULTI_BROWSER,20,60,210,170,"");
fl_set_object_color(obj,FL_COL1,FL_MCOL);
fl_set_browser_fontsize(obj,12);
fl_set_browser_fontstyle(obj,FL_TIMESBOLD_STYLE);
fdui->fl_fileSelector = obj =
fl_add_button(FL_NORMAL_BUTTON,200,30,30,20,"...");
fl_set_object_lalign(obj,FL_ALIGN_CENTER);
fdui->fl_close = obj =
fl_add_button(FL_NORMAL_BUTTON,85,245,80,20,"Close");
fl_add_box(FL_UP_BOX,0,0,250,270,"");
fl_add_frame(FL_ENGRAVED_FRAME,10,10,230,230,"");
fl_end_form();
fdui->fl_form->fdui = fdui;
fl_set_form_position(fdui->fl_form,195,600);
return fdui;
}
/*---------------------------------------*/
int main(int argc, char *argv[])
{
Display *dpy;
FD_listeForm *liste;
FL_OBJECT *obj1;
FL_OBJECT *obj2;
dpy=fl_initialize(&argc, argv, "first", 0,0);
liste=create_form_listeForm();
obj1=liste->fl_form->first;
{
while(obj1->next!=NULL)
{
obj2=obj1->next;
fl_delete_object(obj1);
fl_free_object(obj1);
obj1=obj2;
}
}
}
_________________________________________________
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/