summaryrefslogtreecommitdiffstats
path: root/Modules/flmodule.c
diff options
context:
space:
mode:
Diffstat (limited to 'Modules/flmodule.c')
-rw-r--r--Modules/flmodule.c58
1 files changed, 40 insertions, 18 deletions
diff --git a/Modules/flmodule.c b/Modules/flmodule.c
index 89d055c..876a88a 100644
--- a/Modules/flmodule.c
+++ b/Modules/flmodule.c
@@ -1918,6 +1918,26 @@ forms_make_form(dummy, args)
return newformobject(form);
}
+static object *
+forms_activate_all_forms(f, args)
+ object *f;
+ object *args;
+{
+ fl_activate_all_forms();
+ INCREF(None);
+ return None;
+}
+
+static object *
+forms_deactivate_all_forms(f, args)
+ object *f;
+ object *args;
+{
+ fl_deactivate_all_forms();
+ INCREF(None);
+ return None;
+}
+
static object *my_event_callback = NULL;
static object *
@@ -2247,8 +2267,8 @@ forms_tie(self, args)
static object *
forms_show_message(f, args)
- object *f;
- object *args;
+ object *f;
+ object *args;
{
char *a, *b, *c;
@@ -2262,8 +2282,8 @@ forms_show_message(f, args)
static object *
forms_show_choice(f, args)
- object *f;
- object *args;
+ object *f;
+ object *args;
{
char *m1, *m2, *m3, *b1, *b2, *b3;
int nb;
@@ -2300,8 +2320,8 @@ forms_show_choice(f, args)
static object *
forms_show_question(f, args)
- object *f;
- object *args;
+ object *f;
+ object *args;
{
int ret;
char *a, *b, *c;
@@ -2315,8 +2335,8 @@ forms_show_question(f, args)
static object *
forms_show_input(f, args)
- object *f;
- object *args;
+ object *f;
+ object *args;
{
char *str;
char *a, *b;
@@ -2334,8 +2354,8 @@ forms_show_input(f, args)
static object *
forms_file_selector(f, args)
- object *f;
- object *args;
+ object *f;
+ object *args;
{
char *str;
char *a, *b, *c, *d;
@@ -2354,8 +2374,8 @@ forms_file_selector(f, args)
static object *
forms_file_selector_func(args, func)
- object *args;
- char *(*func)();
+ object *args;
+ char *(*func)();
{
char *str;
@@ -2370,24 +2390,24 @@ forms_file_selector_func(args, func)
static object *
forms_get_directory(f, args)
- object *f;
- object *args;
+ object *f;
+ object *args;
{
return forms_file_selector_func(args, fl_get_directory);
}
static object *
forms_get_pattern(f, args)
- object *f;
- object *args;
+ object *f;
+ object *args;
{
return forms_file_selector_func(args, fl_get_pattern);
}
static object *
forms_get_filename(f, args)
- object *f;
- object *args;
+ object *f;
+ object *args;
{
return forms_file_selector_func(args, fl_get_filename);
}
@@ -2395,6 +2415,8 @@ forms_get_filename(f, args)
static struct methodlist forms_methods[] = {
/* adm */
{"make_form", forms_make_form},
+ {"activate_all_forms", forms_activate_all_forms},
+ {"deactivate_all_forms",forms_deactivate_all_forms},
/* gl support wrappers */
{"qdevice", forms_qdevice},
{"unqdevice", forms_unqdevice},