commit 2bac4d33683bb16050908a875b5b67818e167aa4
author Guido van Rossum <guido@python.org> Fri Mar 27 17:20:21 1992 +0000
committer Guido van Rossum <guido@python.org> Fri Mar 27 17:20:21 1992 +0000
tree 59d7a57bd98aca05583d051c50486be2fec13e77
parent 26e67b0db84c834b1d69d3b90899904b773a1d4c

Added forms_(de)activate_all_forms functions; minor lay-out fixes.

Modules/flmodule.c

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 @@
 	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 @@
 
 static object *
 forms_show_message(f, args)
-     object *f;
-     object *args;
+	object *f;
+	object *args;
 {
 	char *a, *b, *c;
 
@@ -2262,8 +2282,8 @@
 
 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 @@
 
 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 @@
 
 static object *
 forms_show_input(f, args)
-     object *f;
-     object *args;
+	object *f;
+	object *args;
 {
         char *str;
 	char *a, *b;
@@ -2334,8 +2354,8 @@
 
 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 @@
 
 static object *
 forms_file_selector_func(args, func)
-     object *args;
-     char *(*func)();
+	object *args;
+	char *(*func)();
 {
 	char *str;
 
@@ -2370,24 +2390,24 @@
 
 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 @@
 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},