mirrors/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-12-08 10:21:13 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 9

Fixed almost all list errors.

Browse source
This commit is contained in:
Guido van Rossum 1991-08-08 12:34:44 +00:00
parent 0374711fb3
commit abe5835b4f
1 changed files with 20 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

36
Modules/flmodule.c
View file

@ -313,7 +313,7 @@ newgenericobject(generic, methods)
/* void func (object, float) */ /* void func (object, float) */
static object * static object *
call_forms_INf (func, obj, args) call_forms_INf (func, obj, args)
void *(*func)(FL_OBJECT *, float); void (*func)(FL_OBJECT *, float);
FL_OBJECT *obj; FL_OBJECT *obj;
object *args; object *args;
{ {
@ -330,7 +330,7 @@ call_forms_INf (func, obj, args)
/* void func (object, float) */ /* void func (object, float) */
static object * static object *
call_forms_INfINf (func, obj, args) call_forms_INfINf (func, obj, args)
void *(*func)(FL_OBJECT *, float, float); void (*func)(FL_OBJECT *, float, float);
FL_OBJECT *obj; FL_OBJECT *obj;
object *args; object *args;
{ {
@ -347,7 +347,7 @@ call_forms_INfINf (func, obj, args)
/* void func (object, int) */ /* void func (object, int) */
static object * static object *
call_forms_INi (func, obj, args) call_forms_INi (func, obj, args)
void *(*func)(FL_OBJECT *, int); void (*func)(FL_OBJECT *, int);
FL_OBJECT *obj; FL_OBJECT *obj;
object *args; object *args;
{ {
@ -364,7 +364,7 @@ call_forms_INi (func, obj, args)
/* void func (object, string) */ /* void func (object, string) */
static object * static object *
call_forms_INstr (func, obj, args) call_forms_INstr (func, obj, args)
void *(*func)(FL_OBJECT *, char *); void (*func)(FL_OBJECT *, char *);
FL_OBJECT *obj; FL_OBJECT *obj;
object *args; object *args;
{ {
@ -382,7 +382,7 @@ call_forms_INstr (func, obj, args)
/* voide func (object, int, string) */ /* voide func (object, int, string) */
static object * static object *
call_forms_INiINstr (func, obj, args) call_forms_INiINstr (func, obj, args)
void *(*func)(FL_OBJECT *, int, char *); void (*func)(FL_OBJECT *, int, char *);
FL_OBJECT *obj; FL_OBJECT *obj;
object *args; object *args;
{ {
@ -401,7 +401,7 @@ call_forms_INiINstr (func, obj, args)
/* void func (object, float) */ /* void func (object, float) */
static object * static object *
call_forms_INiINi (func, obj, args) call_forms_INiINi (func, obj, args)
void *(*func)(FL_OBJECT *, float, float); void (*func)(FL_OBJECT *, float, float);
FL_OBJECT *obj; FL_OBJECT *obj;
object *args; object *args;
{ {
@ -466,7 +466,7 @@ call_forms_Rf (func, obj, args)
static object * static object *
call_forms_OUTfOUTf (func, obj, args) call_forms_OUTfOUTf (func, obj, args)
void *(*func)(FL_OBJECT *, float *, float *); void (*func)(FL_OBJECT *, float *, float *);
FL_OBJECT *obj; FL_OBJECT *obj;
object *args; object *args;
{ {
@ -488,7 +488,7 @@ call_forms_OUTfOUTf (func, obj, args)
#ifdef UNUSED #ifdef UNUSED
static object * static object *
call_forms_OUTf (func, obj, args) call_forms_OUTf (func, obj, args)
void *(*func)(FL_OBJECT *, float *); void (*func)(FL_OBJECT *, float *);
FL_OBJECT *obj; FL_OBJECT *obj;
object *args; object *args;
{ {
@ -584,6 +584,8 @@ load_browser (g, args)
genericobject *g; genericobject *g;
object *args; object *args;
{ {
/* XXX strictly speaking this is wrong since fl_load_browser
XXX returns int, not void */
return call_forms_INstr (fl_load_browser, g-> ob_generic, args); return call_forms_INstr (fl_load_browser, g-> ob_generic, args);
} }
@ -1000,7 +1002,7 @@ set_menu (g, args)
genericobject *g; genericobject *g;
object *args; object *args;
{ {
return call_forms_INstr (fl_set_menu, g-> ob_generic, args); return call_forms_INstr (fl_set_menu, g-> ob_generic, args);
} }
static object * static object *
@ -1008,7 +1010,9 @@ get_menu (g, args)
genericobject *g; genericobject *g;
object *args; object *args;
{ {
return call_forms_Ri (fl_get_menu, g-> ob_generic, args); /* XXX strictly speaking this is wrong since fl_get_menu
XXX returns long, not int */
return call_forms_Ri (fl_get_menu, g-> ob_generic, args);
} }
static object * static object *
@ -1016,7 +1020,7 @@ addto_menu (g, args)
genericobject *g; genericobject *g;
object *args; object *args;
{ {
return call_forms_INstr (fl_addto_menu, g-> ob_generic, args); return call_forms_INstr (fl_addto_menu, g-> ob_generic, args);
} }
static struct methodlist menu_methods[] = { static struct methodlist menu_methods[] = {
@ -1301,20 +1305,20 @@ generic_add_object (f, args, func, internal_methods)
int type; int type;
float x, y, w, h; float x, y, w, h;
object *name; object *name;
FL_OBJECT *genobj; FL_OBJECT *obj;
if (!getintfloatfloatfloatfloatstrarg (args,&type,&x,&y,&w,&h,&name)) if (!getintfloatfloatfloatfloatstrarg (args,&type,&x,&y,&w,&h,&name))
return NULL; return NULL;
fl_addto_form (f-> ob_form); fl_addto_form (f-> ob_form);
genobj = (*func) (type, x, y, w, h, getstringvalue (name)); obj = (*func) (type, x, y, w, h, getstringvalue (name));
fl_end_form (); fl_end_form ();
if (genobj == NULL) { err_nomem(); return NULL; } if (obj == NULL) { err_nomem(); return NULL; }
return newgenericobject (genobj, internal_methods); return newgenericobject (obj, internal_methods);
} }
static object * static object *
@ -1746,7 +1750,7 @@ forms_do_or_check_forms(dummy, args, func)
} }
arg = newtupleobject(2); arg = newtupleobject(2);
INCREF(g); INCREF(g);
settupleitem(arg, 0, g); settupleitem(arg, 0, (object *)g);
INCREF(g->ob_callback_arg); INCREF(g->ob_callback_arg);
settupleitem(arg, 1, g->ob_callback_arg); settupleitem(arg, 1, g->ob_callback_arg);
res = call_object(g->ob_callback, arg); res = call_object(g->ob_callback, arg);