# define lv_cnt integer code #include #include #include #define WINCODE 'w' #define INTEGERCODE 'f' #define IDCODE 'i' endcode function form_is_open(lv_form) define lv_form INTEGER define lv_ok INTEGER if lv_form is null then return 0 end if code { GList *list; int a; lv_ok=0; list=gtk_window_list_toplevels(); for (a=0;a