Back to index

plt-scheme  4.2.1
wxs_evnt.cxx
Go to the documentation of this file.
00001 /* DO NOT EDIT THIS FILE. */
00002 /* This file was generated by xctocc from "wxs_evnt.xc". */
00003 
00004 
00005 #if defined(_MSC_VER)
00006 # include "wx.h"
00007 #endif
00008 #if defined(OS_X)
00009 # include "common.h"
00010 #endif
00011 
00012 #include "wx_stdev.h"
00013 
00014 class wxEvent_ext : public wxEvent {
00015  public: wxEvent_ext(long ts);
00016 };
00017 
00018 wxEvent_ext::wxEvent_ext(long ts)
00019 : wxEvent() 
00020 {             
00021   timeStamp = ts;
00022 }
00023 
00024 class wxCommandEvent_ext : public wxCommandEvent {
00025  public: wxCommandEvent_ext(int at, long ts);
00026 };
00027 
00028 wxCommandEvent_ext::wxCommandEvent_ext(int at, long ts)
00029 : wxCommandEvent(at) 
00030 {
00031   timeStamp = ts;
00032 }
00033 
00034 class wxScrollEvent_ext : public wxScrollEvent {
00035  public: wxScrollEvent_ext(int et, int d, int p, long ts);
00036 };
00037 
00038 wxScrollEvent_ext::wxScrollEvent_ext(int et, int d, int p, long ts)
00039 : wxScrollEvent()
00040 {
00041   moveType = et;
00042   direction = d;
00043   pos = p;
00044   timeStamp = ts;
00045 }
00046 
00047 class wxKeyEvent_ext : public wxKeyEvent {
00048  public: wxKeyEvent_ext(int kc, int sd, int cd, int md, int ad, int xv, int yv, long ts, int caps);
00049 };
00050 
00051 wxKeyEvent_ext::wxKeyEvent_ext(int kc, int sd, int cd, int md, int ad, int xv, int yv, long ts, int caps) 
00052 : wxKeyEvent(wxEVENT_TYPE_CHAR) 
00053 {
00054   keyCode = kc;
00055   shiftDown = sd;
00056   controlDown = cd;
00057   metaDown = md;
00058   altDown = ad;
00059   capsDown = caps;
00060   x = xv;
00061   y = yv;
00062   timeStamp = ts;
00063 }
00064 
00065 class wxMouseEvent_ext : public wxMouseEvent {
00066  public: wxMouseEvent_ext(int et, int ld, int mdd, int rd, int xv, int yv, int sd, int cd, int md, int ad, long ts, int caps);
00067 };
00068 
00069 wxMouseEvent_ext::wxMouseEvent_ext(int et, int ld, int mdd, int rd, int xv, int yv, int sd, int cd, int md, int ad, long ts, int caps) 
00070 : wxMouseEvent(et)
00071 {
00072   leftDown = ld;
00073   middleDown = mdd;
00074   rightDown = rd;
00075   x = xv;
00076   y = yv;
00077   shiftDown = sd;
00078   controlDown = cd;
00079   metaDown = md;
00080   altDown = ad;
00081   capsDown = caps;
00082   timeStamp = ts;
00083 }
00084 
00085 
00086 
00087 
00088 #ifdef wx_x
00089 # define BM_SELECTED(map) ((map)->selectedTo)
00090 #endif
00091 #if defined(wx_mac) || defined(wx_msw)
00092 # define BM_SELECTED(map) ((map)->selectedInto)
00093 #endif
00094 # define BM_IN_USE(map) ((map)->selectedIntoDC)
00095 
00096 
00097 
00098 
00099 #define ESCAPE_NO_RET_VAL /*empty*/
00100 
00101 
00102 #include "wxscheme.h"
00103 #include "wxs_evnt.h"
00104 
00105 #ifdef MZ_PRECISE_GC
00106 START_XFORM_SKIP;
00107 #endif
00108 
00109 
00110 
00111 
00112 class os_wxEvent : public wxEvent_ext {
00113  public:
00114 
00115   os_wxEvent CONSTRUCTOR_ARGS((ExactLong x0 = 0));
00116   ~os_wxEvent();
00117 #ifdef MZ_PRECISE_GC
00118   void gcMark();
00119   void gcFixup();
00120 #endif
00121 };
00122 
00123 #ifdef MZ_PRECISE_GC
00124 void os_wxEvent::gcMark() {
00125   wxEvent_ext::gcMark();
00126 }
00127 void os_wxEvent::gcFixup() {
00128   wxEvent_ext::gcFixup();
00129 }
00130 #endif
00131 
00132 static Scheme_Object *os_wxEvent_class;
00133 
00134 os_wxEvent::os_wxEvent CONSTRUCTOR_ARGS((ExactLong x0))
00135 CONSTRUCTOR_INIT(: wxEvent_ext(x0))
00136 {
00137 }
00138 
00139 os_wxEvent::~os_wxEvent()
00140 {
00141     objscheme_destroy(this, (Scheme_Object *) __gc_external);
00142 }
00143 
00144 static Scheme_Object *objscheme_wxEvent_GettimeStamp(int n,  Scheme_Object *p[])
00145 {
00146   Scheme_Class_Object *cobj INIT_NULLED_OUT;
00147   ExactLong v;
00148   REMEMBER_VAR_STACK();
00149 
00150   objscheme_check_valid(os_wxEvent_class, "get-time-stamp in event%", n, p);
00151   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-time-stamp in event%", POFFSET, POFFSET, n, p, 1));
00152   cobj = (Scheme_Class_Object *)p[0];
00153   if (cobj->primflag)
00154     v = ((os_wxEvent *)cobj->primdata)->wxEvent::timeStamp;
00155   else
00156     v = ((wxEvent *)cobj->primdata)->timeStamp;
00157 
00158   return WITH_REMEMBERED_STACK(scheme_make_integer_value(v));
00159 }
00160 
00161 static Scheme_Object *objscheme_wxEvent_SettimeStamp(int n,  Scheme_Object *p[])
00162 {
00163   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
00164   ExactLong v;
00165   SETUP_VAR_STACK(1);
00166   VAR_STACK_PUSH(0, cobj);
00167 
00168   WITH_VAR_STACK(objscheme_check_valid(os_wxEvent_class, "set-time-stamp in event%", n, p));
00169   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-time-stamp in event%", POFFSET+1, POFFSET+1, n, p, 1));
00170 
00171   v = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET], "set-time-stamp in event%"));
00172   ((wxEvent *)cobj->primdata)->timeStamp = v;
00173 
00174   READY_TO_RETURN;
00175   return scheme_void;
00176 }
00177 
00178 static Scheme_Object *os_wxEvent_ConstructScheme(int n,  Scheme_Object *p[])
00179 {
00180   SETUP_PRE_VAR_STACK(1);
00181   PRE_VAR_STACK_PUSH(0, p);
00182   os_wxEvent *realobj INIT_NULLED_OUT;
00183   REMEMBER_VAR_STACK();
00184   ExactLong x0;
00185 
00186   SETUP_VAR_STACK_PRE_REMEMBERED(2);
00187   VAR_STACK_PUSH(0, p);
00188   VAR_STACK_PUSH(1, realobj);
00189 
00190   
00191   if ((n > (POFFSET+1))) 
00192     WITH_VAR_STACK(scheme_wrong_count_m("initialization in event%", POFFSET+POFFSET, POFFSET+1, n, p, 1));
00193   if (n > (POFFSET+0)) {
00194     x0 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+0], "initialization in event%"));
00195   } else
00196     x0 = 0;
00197 
00198   
00199   realobj = WITH_VAR_STACK(new os_wxEvent CONSTRUCTOR_ARGS((x0)));
00200 #ifdef MZ_PRECISE_GC
00201   WITH_VAR_STACK(realobj->gcInit_wxEvent_ext(x0));
00202 #endif
00203   realobj->__gc_external = (void *)p[0];
00204   
00205   
00206   READY_TO_RETURN;
00207   ((Scheme_Class_Object *)p[0])->primdata = realobj;
00208   ((Scheme_Class_Object *)p[0])->primflag = 1;
00209   return scheme_void;
00210 }
00211 
00212 void objscheme_setup_wxEvent(Scheme_Env *env)
00213 {
00214   SETUP_VAR_STACK(1);
00215   VAR_STACK_PUSH(0, env);
00216 
00217   wxREGGLOB(os_wxEvent_class);
00218 
00219   os_wxEvent_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "event%", "object%", (Scheme_Method_Prim *)os_wxEvent_ConstructScheme, 2));
00220 
00221 
00222   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxEvent_class,"get-time-stamp" " method", (Scheme_Method_Prim *)objscheme_wxEvent_GettimeStamp, 0, 0));
00223   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxEvent_class,"set-time-stamp" " method", (Scheme_Method_Prim *)objscheme_wxEvent_SettimeStamp, 1, 1));
00224 
00225   WITH_VAR_STACK(scheme_made_class(os_wxEvent_class));
00226 
00227 
00228   READY_TO_RETURN;
00229 }
00230 
00231 int objscheme_istype_wxEvent(Scheme_Object *obj, const char *stop, int nullOK)
00232 {
00233   REMEMBER_VAR_STACK();
00234   if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
00235   if (objscheme_is_a(obj,  os_wxEvent_class))
00236     return 1;
00237   else {
00238     if (!stop)
00239        return 0;
00240     WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "event% object or " XC_NULL_STR: "event% object", -1, 0, &obj));
00241     return 0;
00242   }
00243 }
00244 
00245 Scheme_Object *objscheme_bundle_wxEvent(class wxEvent *realobj)
00246 {
00247   Scheme_Class_Object *obj INIT_NULLED_OUT;
00248   Scheme_Object *sobj INIT_NULLED_OUT;
00249 
00250   if (!realobj) return XC_SCHEME_NULL;
00251 
00252   if (realobj->__gc_external)
00253     return (Scheme_Object *)realobj->__gc_external;
00254 
00255   SETUP_VAR_STACK(2);
00256   VAR_STACK_PUSH(0, obj);
00257   VAR_STACK_PUSH(1, realobj);
00258 
00259   if ((sobj = WITH_VAR_STACK(objscheme_bundle_by_type(realobj, realobj->__type))))
00260     { READY_TO_RETURN; return sobj; }
00261   obj = (Scheme_Class_Object *)WITH_VAR_STACK(scheme_make_uninited_object(os_wxEvent_class));
00262 
00263   obj->primdata = realobj;
00264   obj->primflag = 0;
00265 
00266   realobj->__gc_external = (void *)obj;
00267   READY_TO_RETURN;
00268   return (Scheme_Object *)obj;
00269 }
00270 
00271 class wxEvent *objscheme_unbundle_wxEvent(Scheme_Object *obj, const char *where, int nullOK)
00272 {
00273   if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;
00274 
00275   REMEMBER_VAR_STACK();
00276 
00277   (void)objscheme_istype_wxEvent(obj, where, nullOK);
00278   Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
00279   WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
00280   if (o->primflag)
00281     return (os_wxEvent *)o->primdata;
00282   else
00283     return (wxEvent *)o->primdata;
00284 }
00285 
00286 
00287 static Scheme_Object *actionType_wxEVENT_TYPE_BUTTON_COMMAND_sym = NULL;
00288 static Scheme_Object *actionType_wxEVENT_TYPE_CHECKBOX_COMMAND_sym = NULL;
00289 static Scheme_Object *actionType_wxEVENT_TYPE_CHOICE_COMMAND_sym = NULL;
00290 static Scheme_Object *actionType_wxEVENT_TYPE_LISTBOX_COMMAND_sym = NULL;
00291 static Scheme_Object *actionType_wxEVENT_TYPE_LISTBOX_DCLICK_COMMAND_sym = NULL;
00292 static Scheme_Object *actionType_wxEVENT_TYPE_TEXT_COMMAND_sym = NULL;
00293 static Scheme_Object *actionType_wxEVENT_TYPE_SLIDER_COMMAND_sym = NULL;
00294 static Scheme_Object *actionType_wxEVENT_TYPE_RADIOBOX_COMMAND_sym = NULL;
00295 static Scheme_Object *actionType_wxEVENT_TYPE_TEXT_ENTER_COMMAND_sym = NULL;
00296 static Scheme_Object *actionType_wxEVENT_TYPE_TAB_CHOICE_COMMAND_sym = NULL;
00297 static Scheme_Object *actionType_wxEVENT_TYPE_MENU_SELECT_sym = NULL;
00298 static Scheme_Object *actionType_wxEVENT_TYPE_MENU_POPDOWN_sym = NULL;
00299 static Scheme_Object *actionType_wxEVENT_TYPE_MENU_POPDOWN_NONE_sym = NULL;
00300 
00301 static void init_symset_actionType(void) {
00302   REMEMBER_VAR_STACK();
00303   wxREGGLOB(actionType_wxEVENT_TYPE_BUTTON_COMMAND_sym);
00304   actionType_wxEVENT_TYPE_BUTTON_COMMAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("button"));
00305   wxREGGLOB(actionType_wxEVENT_TYPE_CHECKBOX_COMMAND_sym);
00306   actionType_wxEVENT_TYPE_CHECKBOX_COMMAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("check-box"));
00307   wxREGGLOB(actionType_wxEVENT_TYPE_CHOICE_COMMAND_sym);
00308   actionType_wxEVENT_TYPE_CHOICE_COMMAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("choice"));
00309   wxREGGLOB(actionType_wxEVENT_TYPE_LISTBOX_COMMAND_sym);
00310   actionType_wxEVENT_TYPE_LISTBOX_COMMAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("list-box"));
00311   wxREGGLOB(actionType_wxEVENT_TYPE_LISTBOX_DCLICK_COMMAND_sym);
00312   actionType_wxEVENT_TYPE_LISTBOX_DCLICK_COMMAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("list-box-dclick"));
00313   wxREGGLOB(actionType_wxEVENT_TYPE_TEXT_COMMAND_sym);
00314   actionType_wxEVENT_TYPE_TEXT_COMMAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("text-field"));
00315   wxREGGLOB(actionType_wxEVENT_TYPE_SLIDER_COMMAND_sym);
00316   actionType_wxEVENT_TYPE_SLIDER_COMMAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("slider"));
00317   wxREGGLOB(actionType_wxEVENT_TYPE_RADIOBOX_COMMAND_sym);
00318   actionType_wxEVENT_TYPE_RADIOBOX_COMMAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("radio-box"));
00319   wxREGGLOB(actionType_wxEVENT_TYPE_TEXT_ENTER_COMMAND_sym);
00320   actionType_wxEVENT_TYPE_TEXT_ENTER_COMMAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("text-field-enter"));
00321   wxREGGLOB(actionType_wxEVENT_TYPE_TAB_CHOICE_COMMAND_sym);
00322   actionType_wxEVENT_TYPE_TAB_CHOICE_COMMAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("tab-panel"));
00323   wxREGGLOB(actionType_wxEVENT_TYPE_MENU_SELECT_sym);
00324   actionType_wxEVENT_TYPE_MENU_SELECT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("menu"));
00325   wxREGGLOB(actionType_wxEVENT_TYPE_MENU_POPDOWN_sym);
00326   actionType_wxEVENT_TYPE_MENU_POPDOWN_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("menu-popdown"));
00327   wxREGGLOB(actionType_wxEVENT_TYPE_MENU_POPDOWN_NONE_sym);
00328   actionType_wxEVENT_TYPE_MENU_POPDOWN_NONE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("menu-popdown-none"));
00329 }
00330 
00331 static int unbundle_symset_actionType(Scheme_Object *v, const char *where) {
00332   SETUP_VAR_STACK(1);
00333   VAR_STACK_PUSH(0, v);
00334   if (!actionType_wxEVENT_TYPE_MENU_POPDOWN_NONE_sym) WITH_VAR_STACK(init_symset_actionType());
00335   if (0) { }
00336   else if (v == actionType_wxEVENT_TYPE_BUTTON_COMMAND_sym) { READY_TO_RETURN; return wxEVENT_TYPE_BUTTON_COMMAND; }
00337   else if (v == actionType_wxEVENT_TYPE_CHECKBOX_COMMAND_sym) { READY_TO_RETURN; return wxEVENT_TYPE_CHECKBOX_COMMAND; }
00338   else if (v == actionType_wxEVENT_TYPE_CHOICE_COMMAND_sym) { READY_TO_RETURN; return wxEVENT_TYPE_CHOICE_COMMAND; }
00339   else if (v == actionType_wxEVENT_TYPE_LISTBOX_COMMAND_sym) { READY_TO_RETURN; return wxEVENT_TYPE_LISTBOX_COMMAND; }
00340   else if (v == actionType_wxEVENT_TYPE_LISTBOX_DCLICK_COMMAND_sym) { READY_TO_RETURN; return wxEVENT_TYPE_LISTBOX_DCLICK_COMMAND; }
00341   else if (v == actionType_wxEVENT_TYPE_TEXT_COMMAND_sym) { READY_TO_RETURN; return wxEVENT_TYPE_TEXT_COMMAND; }
00342   else if (v == actionType_wxEVENT_TYPE_SLIDER_COMMAND_sym) { READY_TO_RETURN; return wxEVENT_TYPE_SLIDER_COMMAND; }
00343   else if (v == actionType_wxEVENT_TYPE_RADIOBOX_COMMAND_sym) { READY_TO_RETURN; return wxEVENT_TYPE_RADIOBOX_COMMAND; }
00344   else if (v == actionType_wxEVENT_TYPE_TEXT_ENTER_COMMAND_sym) { READY_TO_RETURN; return wxEVENT_TYPE_TEXT_ENTER_COMMAND; }
00345   else if (v == actionType_wxEVENT_TYPE_TAB_CHOICE_COMMAND_sym) { READY_TO_RETURN; return wxEVENT_TYPE_TAB_CHOICE_COMMAND; }
00346   else if (v == actionType_wxEVENT_TYPE_MENU_SELECT_sym) { READY_TO_RETURN; return wxEVENT_TYPE_MENU_SELECT; }
00347   else if (v == actionType_wxEVENT_TYPE_MENU_POPDOWN_sym) { READY_TO_RETURN; return wxEVENT_TYPE_MENU_POPDOWN; }
00348   else if (v == actionType_wxEVENT_TYPE_MENU_POPDOWN_NONE_sym) { READY_TO_RETURN; return wxEVENT_TYPE_MENU_POPDOWN_NONE; }
00349   if (where) WITH_VAR_STACK(scheme_wrong_type(where, "actionType symbol", -1, 0, &v));
00350   READY_TO_RETURN;
00351   return 0;
00352 }
00353 
00354 static Scheme_Object *bundle_symset_actionType(int v) {
00355   if (!actionType_wxEVENT_TYPE_MENU_POPDOWN_NONE_sym) init_symset_actionType();
00356   switch (v) {
00357   case wxEVENT_TYPE_BUTTON_COMMAND: return actionType_wxEVENT_TYPE_BUTTON_COMMAND_sym;
00358   case wxEVENT_TYPE_CHECKBOX_COMMAND: return actionType_wxEVENT_TYPE_CHECKBOX_COMMAND_sym;
00359   case wxEVENT_TYPE_CHOICE_COMMAND: return actionType_wxEVENT_TYPE_CHOICE_COMMAND_sym;
00360   case wxEVENT_TYPE_LISTBOX_COMMAND: return actionType_wxEVENT_TYPE_LISTBOX_COMMAND_sym;
00361   case wxEVENT_TYPE_LISTBOX_DCLICK_COMMAND: return actionType_wxEVENT_TYPE_LISTBOX_DCLICK_COMMAND_sym;
00362   case wxEVENT_TYPE_TEXT_COMMAND: return actionType_wxEVENT_TYPE_TEXT_COMMAND_sym;
00363   case wxEVENT_TYPE_SLIDER_COMMAND: return actionType_wxEVENT_TYPE_SLIDER_COMMAND_sym;
00364   case wxEVENT_TYPE_RADIOBOX_COMMAND: return actionType_wxEVENT_TYPE_RADIOBOX_COMMAND_sym;
00365   case wxEVENT_TYPE_TEXT_ENTER_COMMAND: return actionType_wxEVENT_TYPE_TEXT_ENTER_COMMAND_sym;
00366   case wxEVENT_TYPE_TAB_CHOICE_COMMAND: return actionType_wxEVENT_TYPE_TAB_CHOICE_COMMAND_sym;
00367   case wxEVENT_TYPE_MENU_SELECT: return actionType_wxEVENT_TYPE_MENU_SELECT_sym;
00368   case wxEVENT_TYPE_MENU_POPDOWN: return actionType_wxEVENT_TYPE_MENU_POPDOWN_sym;
00369   case wxEVENT_TYPE_MENU_POPDOWN_NONE: return actionType_wxEVENT_TYPE_MENU_POPDOWN_NONE_sym;
00370   default: return NULL;
00371   }
00372 }
00373 
00374 
00375 
00376 
00377 
00378 class os_wxCommandEvent : public wxCommandEvent_ext {
00379  public:
00380 
00381   os_wxCommandEvent CONSTRUCTOR_ARGS((int x0, ExactLong x1 = 0));
00382   ~os_wxCommandEvent();
00383 #ifdef MZ_PRECISE_GC
00384   void gcMark();
00385   void gcFixup();
00386 #endif
00387 };
00388 
00389 #ifdef MZ_PRECISE_GC
00390 void os_wxCommandEvent::gcMark() {
00391   wxCommandEvent_ext::gcMark();
00392 }
00393 void os_wxCommandEvent::gcFixup() {
00394   wxCommandEvent_ext::gcFixup();
00395 }
00396 #endif
00397 
00398 static Scheme_Object *os_wxCommandEvent_class;
00399 
00400 os_wxCommandEvent::os_wxCommandEvent CONSTRUCTOR_ARGS((int x0, ExactLong x1))
00401 CONSTRUCTOR_INIT(: wxCommandEvent_ext(x0, x1))
00402 {
00403 }
00404 
00405 os_wxCommandEvent::~os_wxCommandEvent()
00406 {
00407     objscheme_destroy(this, (Scheme_Object *) __gc_external);
00408 }
00409 
00410 static Scheme_Object *objscheme_wxCommandEvent_GeteventType(int n,  Scheme_Object *p[])
00411 {
00412   Scheme_Class_Object *cobj INIT_NULLED_OUT;
00413   int v;
00414   REMEMBER_VAR_STACK();
00415 
00416   objscheme_check_valid(os_wxCommandEvent_class, "get-event-type in control-event%", n, p);
00417   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-event-type in control-event%", POFFSET, POFFSET, n, p, 1));
00418   cobj = (Scheme_Class_Object *)p[0];
00419   if (cobj->primflag)
00420     v = ((os_wxCommandEvent *)cobj->primdata)->wxCommandEvent::eventType;
00421   else
00422     v = ((wxCommandEvent *)cobj->primdata)->eventType;
00423 
00424   return WITH_REMEMBERED_STACK(bundle_symset_actionType(v));
00425 }
00426 
00427 static Scheme_Object *objscheme_wxCommandEvent_SeteventType(int n,  Scheme_Object *p[])
00428 {
00429   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
00430   int v;
00431   SETUP_VAR_STACK(1);
00432   VAR_STACK_PUSH(0, cobj);
00433 
00434   WITH_VAR_STACK(objscheme_check_valid(os_wxCommandEvent_class, "set-event-type in control-event%", n, p));
00435   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-event-type in control-event%", POFFSET+1, POFFSET+1, n, p, 1));
00436 
00437   v = WITH_VAR_STACK(unbundle_symset_actionType(p[POFFSET], "set-event-type in control-event%"));
00438   ((wxCommandEvent *)cobj->primdata)->eventType = v;
00439 
00440   READY_TO_RETURN;
00441   return scheme_void;
00442 }
00443 
00444 static Scheme_Object *os_wxCommandEvent_ConstructScheme(int n,  Scheme_Object *p[])
00445 {
00446   SETUP_PRE_VAR_STACK(1);
00447   PRE_VAR_STACK_PUSH(0, p);
00448   os_wxCommandEvent *realobj INIT_NULLED_OUT;
00449   REMEMBER_VAR_STACK();
00450   int x0;
00451   ExactLong x1;
00452 
00453   SETUP_VAR_STACK_PRE_REMEMBERED(2);
00454   VAR_STACK_PUSH(0, p);
00455   VAR_STACK_PUSH(1, realobj);
00456 
00457   
00458   if ((n < (POFFSET+1)) || (n > (POFFSET+2))) 
00459     WITH_VAR_STACK(scheme_wrong_count_m("initialization in control-event%", POFFSET+1, POFFSET+2, n, p, 1));
00460   x0 = WITH_VAR_STACK(unbundle_symset_actionType(p[POFFSET+0], "initialization in control-event%"));
00461   if (n > (POFFSET+1)) {
00462     x1 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+1], "initialization in control-event%"));
00463   } else
00464     x1 = 0;
00465 
00466   
00467   realobj = WITH_VAR_STACK(new os_wxCommandEvent CONSTRUCTOR_ARGS((x0, x1)));
00468 #ifdef MZ_PRECISE_GC
00469   WITH_VAR_STACK(realobj->gcInit_wxCommandEvent_ext(x0, x1));
00470 #endif
00471   realobj->__gc_external = (void *)p[0];
00472   
00473   
00474   READY_TO_RETURN;
00475   ((Scheme_Class_Object *)p[0])->primdata = realobj;
00476   ((Scheme_Class_Object *)p[0])->primflag = 1;
00477   return scheme_void;
00478 }
00479 
00480 void objscheme_setup_wxCommandEvent(Scheme_Env *env)
00481 {
00482   SETUP_VAR_STACK(1);
00483   VAR_STACK_PUSH(0, env);
00484 
00485   wxREGGLOB(os_wxCommandEvent_class);
00486 
00487   os_wxCommandEvent_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "control-event%", "event%", (Scheme_Method_Prim *)os_wxCommandEvent_ConstructScheme, 2));
00488 
00489 
00490   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxCommandEvent_class,"get-event-type" " method", (Scheme_Method_Prim *)objscheme_wxCommandEvent_GeteventType, 0, 0));
00491   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxCommandEvent_class,"set-event-type" " method", (Scheme_Method_Prim *)objscheme_wxCommandEvent_SeteventType, 1, 1));
00492 
00493   WITH_VAR_STACK(scheme_made_class(os_wxCommandEvent_class));
00494 
00495 
00496   READY_TO_RETURN;
00497 }
00498 
00499 int objscheme_istype_wxCommandEvent(Scheme_Object *obj, const char *stop, int nullOK)
00500 {
00501   REMEMBER_VAR_STACK();
00502   if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
00503   if (objscheme_is_a(obj,  os_wxCommandEvent_class))
00504     return 1;
00505   else {
00506     if (!stop)
00507        return 0;
00508     WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "control-event% object or " XC_NULL_STR: "control-event% object", -1, 0, &obj));
00509     return 0;
00510   }
00511 }
00512 
00513 Scheme_Object *objscheme_bundle_wxCommandEvent(class wxCommandEvent *realobj)
00514 {
00515   Scheme_Class_Object *obj INIT_NULLED_OUT;
00516   Scheme_Object *sobj INIT_NULLED_OUT;
00517 
00518   if (!realobj) return XC_SCHEME_NULL;
00519 
00520   if (realobj->__gc_external)
00521     return (Scheme_Object *)realobj->__gc_external;
00522 
00523   SETUP_VAR_STACK(2);
00524   VAR_STACK_PUSH(0, obj);
00525   VAR_STACK_PUSH(1, realobj);
00526 
00527   if ((sobj = WITH_VAR_STACK(objscheme_bundle_by_type(realobj, realobj->__type))))
00528     { READY_TO_RETURN; return sobj; }
00529   obj = (Scheme_Class_Object *)WITH_VAR_STACK(scheme_make_uninited_object(os_wxCommandEvent_class));
00530 
00531   obj->primdata = realobj;
00532   obj->primflag = 0;
00533 
00534   realobj->__gc_external = (void *)obj;
00535   READY_TO_RETURN;
00536   return (Scheme_Object *)obj;
00537 }
00538 
00539 class wxCommandEvent *objscheme_unbundle_wxCommandEvent(Scheme_Object *obj, const char *where, int nullOK)
00540 {
00541   if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;
00542 
00543   REMEMBER_VAR_STACK();
00544 
00545   (void)objscheme_istype_wxCommandEvent(obj, where, nullOK);
00546   Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
00547   WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
00548   if (o->primflag)
00549     return (os_wxCommandEvent *)o->primdata;
00550   else
00551     return (wxCommandEvent *)o->primdata;
00552 }
00553 
00554 
00555 
00556 // This class is not instantiated from Scheme; it is only
00557 // instantiated to send info to mred.ss:
00558 
00559 
00560 
00561 
00562 class os_wxPopupEvent : public wxPopupEvent {
00563  public:
00564 
00565   os_wxPopupEvent CONSTRUCTOR_ARGS(());
00566   ~os_wxPopupEvent();
00567 #ifdef MZ_PRECISE_GC
00568   void gcMark();
00569   void gcFixup();
00570 #endif
00571 };
00572 
00573 #ifdef MZ_PRECISE_GC
00574 void os_wxPopupEvent::gcMark() {
00575   wxPopupEvent::gcMark();
00576 }
00577 void os_wxPopupEvent::gcFixup() {
00578   wxPopupEvent::gcFixup();
00579 }
00580 #endif
00581 
00582 static Scheme_Object *os_wxPopupEvent_class;
00583 
00584 os_wxPopupEvent::os_wxPopupEvent CONSTRUCTOR_ARGS(())
00585 CONSTRUCTOR_INIT(: wxPopupEvent())
00586 {
00587 }
00588 
00589 os_wxPopupEvent::~os_wxPopupEvent()
00590 {
00591     objscheme_destroy(this, (Scheme_Object *) __gc_external);
00592 }
00593 
00594 static Scheme_Object *objscheme_wxPopupEvent_GetmenuId(int n,  Scheme_Object *p[])
00595 {
00596   Scheme_Class_Object *cobj INIT_NULLED_OUT;
00597   ExactLong v;
00598   REMEMBER_VAR_STACK();
00599 
00600   objscheme_check_valid(os_wxPopupEvent_class, "get-menu-id in popup-event%", n, p);
00601   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-menu-id in popup-event%", POFFSET, POFFSET, n, p, 1));
00602   cobj = (Scheme_Class_Object *)p[0];
00603   if (cobj->primflag)
00604     v = ((os_wxPopupEvent *)cobj->primdata)->wxPopupEvent::menuId;
00605   else
00606     v = ((wxPopupEvent *)cobj->primdata)->menuId;
00607 
00608   return WITH_REMEMBERED_STACK(scheme_make_integer_value(v));
00609 }
00610 
00611 static Scheme_Object *objscheme_wxPopupEvent_SetmenuId(int n,  Scheme_Object *p[])
00612 {
00613   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
00614   ExactLong v;
00615   SETUP_VAR_STACK(1);
00616   VAR_STACK_PUSH(0, cobj);
00617 
00618   WITH_VAR_STACK(objscheme_check_valid(os_wxPopupEvent_class, "set-menu-id in popup-event%", n, p));
00619   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-menu-id in popup-event%", POFFSET+1, POFFSET+1, n, p, 1));
00620 
00621   v = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET], "set-menu-id in popup-event%"));
00622   ((wxPopupEvent *)cobj->primdata)->menuId = v;
00623 
00624   READY_TO_RETURN;
00625   return scheme_void;
00626 }
00627 
00628 static Scheme_Object *os_wxPopupEvent_ConstructScheme(int n,  Scheme_Object *p[])
00629 {
00630   SETUP_PRE_VAR_STACK(1);
00631   PRE_VAR_STACK_PUSH(0, p);
00632   os_wxPopupEvent *realobj INIT_NULLED_OUT;
00633   REMEMBER_VAR_STACK();
00634 
00635   SETUP_VAR_STACK_PRE_REMEMBERED(2);
00636   VAR_STACK_PUSH(0, p);
00637   VAR_STACK_PUSH(1, realobj);
00638 
00639   
00640   if (n != (POFFSET+0)) 
00641     WITH_VAR_STACK(scheme_wrong_count_m("initialization in popup-event%", POFFSET+0, POFFSET+0, n, p, 1));
00642 
00643   
00644   realobj = WITH_VAR_STACK(new os_wxPopupEvent CONSTRUCTOR_ARGS(()));
00645 #ifdef MZ_PRECISE_GC
00646   WITH_VAR_STACK(realobj->gcInit_wxPopupEvent());
00647 #endif
00648   realobj->__gc_external = (void *)p[0];
00649   
00650   
00651   READY_TO_RETURN;
00652   ((Scheme_Class_Object *)p[0])->primdata = realobj;
00653   ((Scheme_Class_Object *)p[0])->primflag = 1;
00654   return scheme_void;
00655 }
00656 
00657 void objscheme_setup_wxPopupEvent(Scheme_Env *env)
00658 {
00659   SETUP_VAR_STACK(1);
00660   VAR_STACK_PUSH(0, env);
00661 
00662   wxREGGLOB(os_wxPopupEvent_class);
00663 
00664   os_wxPopupEvent_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "popup-event%", "control-event%", (Scheme_Method_Prim *)os_wxPopupEvent_ConstructScheme, 2));
00665 
00666 
00667   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPopupEvent_class,"get-menu-id" " method", (Scheme_Method_Prim *)objscheme_wxPopupEvent_GetmenuId, 0, 0));
00668   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPopupEvent_class,"set-menu-id" " method", (Scheme_Method_Prim *)objscheme_wxPopupEvent_SetmenuId, 1, 1));
00669 
00670   WITH_VAR_STACK(scheme_made_class(os_wxPopupEvent_class));
00671 
00672   WITH_VAR_STACK(objscheme_install_bundler((Objscheme_Bundler)objscheme_bundle_wxPopupEvent, wxTYPE_POPUP_EVENT));
00673 
00674   READY_TO_RETURN;
00675 }
00676 
00677 int objscheme_istype_wxPopupEvent(Scheme_Object *obj, const char *stop, int nullOK)
00678 {
00679   REMEMBER_VAR_STACK();
00680   if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
00681   if (objscheme_is_a(obj,  os_wxPopupEvent_class))
00682     return 1;
00683   else {
00684     if (!stop)
00685        return 0;
00686     WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "popup-event% object or " XC_NULL_STR: "popup-event% object", -1, 0, &obj));
00687     return 0;
00688   }
00689 }
00690 
00691 Scheme_Object *objscheme_bundle_wxPopupEvent(class wxPopupEvent *realobj)
00692 {
00693   Scheme_Class_Object *obj INIT_NULLED_OUT;
00694   Scheme_Object *sobj INIT_NULLED_OUT;
00695 
00696   if (!realobj) return XC_SCHEME_NULL;
00697 
00698   if (realobj->__gc_external)
00699     return (Scheme_Object *)realobj->__gc_external;
00700 
00701   SETUP_VAR_STACK(2);
00702   VAR_STACK_PUSH(0, obj);
00703   VAR_STACK_PUSH(1, realobj);
00704 
00705   if ((realobj->__type != wxTYPE_POPUP_EVENT) && (sobj = WITH_VAR_STACK(objscheme_bundle_by_type(realobj, realobj->__type))))
00706     { READY_TO_RETURN; return sobj; }
00707   obj = (Scheme_Class_Object *)WITH_VAR_STACK(scheme_make_uninited_object(os_wxPopupEvent_class));
00708 
00709   obj->primdata = realobj;
00710   obj->primflag = 0;
00711 
00712   realobj->__gc_external = (void *)obj;
00713   READY_TO_RETURN;
00714   return (Scheme_Object *)obj;
00715 }
00716 
00717 class wxPopupEvent *objscheme_unbundle_wxPopupEvent(Scheme_Object *obj, const char *where, int nullOK)
00718 {
00719   if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;
00720 
00721   REMEMBER_VAR_STACK();
00722 
00723   (void)objscheme_istype_wxPopupEvent(obj, where, nullOK);
00724   Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
00725   WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
00726   if (o->primflag)
00727     return (os_wxPopupEvent *)o->primdata;
00728   else
00729     return (wxPopupEvent *)o->primdata;
00730 }
00731 
00732 
00733 static Scheme_Object *scrollMoveType_wxEVENT_TYPE_SCROLL_TOP_sym = NULL;
00734 static Scheme_Object *scrollMoveType_wxEVENT_TYPE_SCROLL_BOTTOM_sym = NULL;
00735 static Scheme_Object *scrollMoveType_wxEVENT_TYPE_SCROLL_LINEUP_sym = NULL;
00736 static Scheme_Object *scrollMoveType_wxEVENT_TYPE_SCROLL_LINEDOWN_sym = NULL;
00737 static Scheme_Object *scrollMoveType_wxEVENT_TYPE_SCROLL_PAGEUP_sym = NULL;
00738 static Scheme_Object *scrollMoveType_wxEVENT_TYPE_SCROLL_PAGEDOWN_sym = NULL;
00739 static Scheme_Object *scrollMoveType_wxEVENT_TYPE_SCROLL_THUMBTRACK_sym = NULL;
00740 
00741 static void init_symset_scrollMoveType(void) {
00742   REMEMBER_VAR_STACK();
00743   wxREGGLOB(scrollMoveType_wxEVENT_TYPE_SCROLL_TOP_sym);
00744   scrollMoveType_wxEVENT_TYPE_SCROLL_TOP_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("top"));
00745   wxREGGLOB(scrollMoveType_wxEVENT_TYPE_SCROLL_BOTTOM_sym);
00746   scrollMoveType_wxEVENT_TYPE_SCROLL_BOTTOM_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("bottom"));
00747   wxREGGLOB(scrollMoveType_wxEVENT_TYPE_SCROLL_LINEUP_sym);
00748   scrollMoveType_wxEVENT_TYPE_SCROLL_LINEUP_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("line-up"));
00749   wxREGGLOB(scrollMoveType_wxEVENT_TYPE_SCROLL_LINEDOWN_sym);
00750   scrollMoveType_wxEVENT_TYPE_SCROLL_LINEDOWN_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("line-down"));
00751   wxREGGLOB(scrollMoveType_wxEVENT_TYPE_SCROLL_PAGEUP_sym);
00752   scrollMoveType_wxEVENT_TYPE_SCROLL_PAGEUP_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("page-up"));
00753   wxREGGLOB(scrollMoveType_wxEVENT_TYPE_SCROLL_PAGEDOWN_sym);
00754   scrollMoveType_wxEVENT_TYPE_SCROLL_PAGEDOWN_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("page-down"));
00755   wxREGGLOB(scrollMoveType_wxEVENT_TYPE_SCROLL_THUMBTRACK_sym);
00756   scrollMoveType_wxEVENT_TYPE_SCROLL_THUMBTRACK_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("thumb"));
00757 }
00758 
00759 static int unbundle_symset_scrollMoveType(Scheme_Object *v, const char *where) {
00760   SETUP_VAR_STACK(1);
00761   VAR_STACK_PUSH(0, v);
00762   if (!scrollMoveType_wxEVENT_TYPE_SCROLL_THUMBTRACK_sym) WITH_VAR_STACK(init_symset_scrollMoveType());
00763   if (0) { }
00764   else if (v == scrollMoveType_wxEVENT_TYPE_SCROLL_TOP_sym) { READY_TO_RETURN; return wxEVENT_TYPE_SCROLL_TOP; }
00765   else if (v == scrollMoveType_wxEVENT_TYPE_SCROLL_BOTTOM_sym) { READY_TO_RETURN; return wxEVENT_TYPE_SCROLL_BOTTOM; }
00766   else if (v == scrollMoveType_wxEVENT_TYPE_SCROLL_LINEUP_sym) { READY_TO_RETURN; return wxEVENT_TYPE_SCROLL_LINEUP; }
00767   else if (v == scrollMoveType_wxEVENT_TYPE_SCROLL_LINEDOWN_sym) { READY_TO_RETURN; return wxEVENT_TYPE_SCROLL_LINEDOWN; }
00768   else if (v == scrollMoveType_wxEVENT_TYPE_SCROLL_PAGEUP_sym) { READY_TO_RETURN; return wxEVENT_TYPE_SCROLL_PAGEUP; }
00769   else if (v == scrollMoveType_wxEVENT_TYPE_SCROLL_PAGEDOWN_sym) { READY_TO_RETURN; return wxEVENT_TYPE_SCROLL_PAGEDOWN; }
00770   else if (v == scrollMoveType_wxEVENT_TYPE_SCROLL_THUMBTRACK_sym) { READY_TO_RETURN; return wxEVENT_TYPE_SCROLL_THUMBTRACK; }
00771   if (where) WITH_VAR_STACK(scheme_wrong_type(where, "scrollMoveType symbol", -1, 0, &v));
00772   READY_TO_RETURN;
00773   return 0;
00774 }
00775 
00776 static Scheme_Object *bundle_symset_scrollMoveType(int v) {
00777   if (!scrollMoveType_wxEVENT_TYPE_SCROLL_THUMBTRACK_sym) init_symset_scrollMoveType();
00778   switch (v) {
00779   case wxEVENT_TYPE_SCROLL_TOP: return scrollMoveType_wxEVENT_TYPE_SCROLL_TOP_sym;
00780   case wxEVENT_TYPE_SCROLL_BOTTOM: return scrollMoveType_wxEVENT_TYPE_SCROLL_BOTTOM_sym;
00781   case wxEVENT_TYPE_SCROLL_LINEUP: return scrollMoveType_wxEVENT_TYPE_SCROLL_LINEUP_sym;
00782   case wxEVENT_TYPE_SCROLL_LINEDOWN: return scrollMoveType_wxEVENT_TYPE_SCROLL_LINEDOWN_sym;
00783   case wxEVENT_TYPE_SCROLL_PAGEUP: return scrollMoveType_wxEVENT_TYPE_SCROLL_PAGEUP_sym;
00784   case wxEVENT_TYPE_SCROLL_PAGEDOWN: return scrollMoveType_wxEVENT_TYPE_SCROLL_PAGEDOWN_sym;
00785   case wxEVENT_TYPE_SCROLL_THUMBTRACK: return scrollMoveType_wxEVENT_TYPE_SCROLL_THUMBTRACK_sym;
00786   default: return NULL;
00787   }
00788 }
00789 
00790 
00791 
00792 static Scheme_Object *orientation_wxVERTICAL_sym = NULL;
00793 static Scheme_Object *orientation_wxHORIZONTAL_sym = NULL;
00794 
00795 static void init_symset_orientation(void) {
00796   REMEMBER_VAR_STACK();
00797   wxREGGLOB(orientation_wxVERTICAL_sym);
00798   orientation_wxVERTICAL_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("vertical"));
00799   wxREGGLOB(orientation_wxHORIZONTAL_sym);
00800   orientation_wxHORIZONTAL_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("horizontal"));
00801 }
00802 
00803 static int unbundle_symset_orientation(Scheme_Object *v, const char *where) {
00804   SETUP_VAR_STACK(1);
00805   VAR_STACK_PUSH(0, v);
00806   if (!orientation_wxHORIZONTAL_sym) WITH_VAR_STACK(init_symset_orientation());
00807   if (0) { }
00808   else if (v == orientation_wxVERTICAL_sym) { READY_TO_RETURN; return wxVERTICAL; }
00809   else if (v == orientation_wxHORIZONTAL_sym) { READY_TO_RETURN; return wxHORIZONTAL; }
00810   if (where) WITH_VAR_STACK(scheme_wrong_type(where, "orientation symbol", -1, 0, &v));
00811   READY_TO_RETURN;
00812   return 0;
00813 }
00814 
00815 static Scheme_Object *bundle_symset_orientation(int v) {
00816   if (!orientation_wxHORIZONTAL_sym) init_symset_orientation();
00817   switch (v) {
00818   case wxVERTICAL: return orientation_wxVERTICAL_sym;
00819   case wxHORIZONTAL: return orientation_wxHORIZONTAL_sym;
00820   default: return NULL;
00821   }
00822 }
00823 
00824 
00825 
00826 
00827 
00828 class os_wxScrollEvent : public wxScrollEvent_ext {
00829  public:
00830 
00831   os_wxScrollEvent CONSTRUCTOR_ARGS((int x0 = wxEVENT_TYPE_SCROLL_THUMBTRACK, int x1 = wxVERTICAL, int x2 = 0, ExactLong x3 = 0));
00832   ~os_wxScrollEvent();
00833 #ifdef MZ_PRECISE_GC
00834   void gcMark();
00835   void gcFixup();
00836 #endif
00837 };
00838 
00839 #ifdef MZ_PRECISE_GC
00840 void os_wxScrollEvent::gcMark() {
00841   wxScrollEvent_ext::gcMark();
00842 }
00843 void os_wxScrollEvent::gcFixup() {
00844   wxScrollEvent_ext::gcFixup();
00845 }
00846 #endif
00847 
00848 static Scheme_Object *os_wxScrollEvent_class;
00849 
00850 os_wxScrollEvent::os_wxScrollEvent CONSTRUCTOR_ARGS((int x0, int x1, int x2, ExactLong x3))
00851 CONSTRUCTOR_INIT(: wxScrollEvent_ext(x0, x1, x2, x3))
00852 {
00853 }
00854 
00855 os_wxScrollEvent::~os_wxScrollEvent()
00856 {
00857     objscheme_destroy(this, (Scheme_Object *) __gc_external);
00858 }
00859 
00860 static Scheme_Object *objscheme_wxScrollEvent_GetmoveType(int n,  Scheme_Object *p[])
00861 {
00862   Scheme_Class_Object *cobj INIT_NULLED_OUT;
00863   int v;
00864   REMEMBER_VAR_STACK();
00865 
00866   objscheme_check_valid(os_wxScrollEvent_class, "get-event-type in scroll-event%", n, p);
00867   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-event-type in scroll-event%", POFFSET, POFFSET, n, p, 1));
00868   cobj = (Scheme_Class_Object *)p[0];
00869   if (cobj->primflag)
00870     v = ((os_wxScrollEvent *)cobj->primdata)->wxScrollEvent::moveType;
00871   else
00872     v = ((wxScrollEvent *)cobj->primdata)->moveType;
00873 
00874   return WITH_REMEMBERED_STACK(bundle_symset_scrollMoveType(v));
00875 }
00876 
00877 static Scheme_Object *objscheme_wxScrollEvent_SetmoveType(int n,  Scheme_Object *p[])
00878 {
00879   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
00880   int v;
00881   SETUP_VAR_STACK(1);
00882   VAR_STACK_PUSH(0, cobj);
00883 
00884   WITH_VAR_STACK(objscheme_check_valid(os_wxScrollEvent_class, "set-event-type in scroll-event%", n, p));
00885   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-event-type in scroll-event%", POFFSET+1, POFFSET+1, n, p, 1));
00886 
00887   v = WITH_VAR_STACK(unbundle_symset_scrollMoveType(p[POFFSET], "set-event-type in scroll-event%"));
00888   ((wxScrollEvent *)cobj->primdata)->moveType = v;
00889 
00890   READY_TO_RETURN;
00891   return scheme_void;
00892 }
00893 
00894 static Scheme_Object *objscheme_wxScrollEvent_Getdirection(int n,  Scheme_Object *p[])
00895 {
00896   Scheme_Class_Object *cobj INIT_NULLED_OUT;
00897   int v;
00898   REMEMBER_VAR_STACK();
00899 
00900   objscheme_check_valid(os_wxScrollEvent_class, "get-direction in scroll-event%", n, p);
00901   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-direction in scroll-event%", POFFSET, POFFSET, n, p, 1));
00902   cobj = (Scheme_Class_Object *)p[0];
00903   if (cobj->primflag)
00904     v = ((os_wxScrollEvent *)cobj->primdata)->wxScrollEvent::direction;
00905   else
00906     v = ((wxScrollEvent *)cobj->primdata)->direction;
00907 
00908   return WITH_REMEMBERED_STACK(bundle_symset_orientation(v));
00909 }
00910 
00911 static Scheme_Object *objscheme_wxScrollEvent_Setdirection(int n,  Scheme_Object *p[])
00912 {
00913   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
00914   int v;
00915   SETUP_VAR_STACK(1);
00916   VAR_STACK_PUSH(0, cobj);
00917 
00918   WITH_VAR_STACK(objscheme_check_valid(os_wxScrollEvent_class, "set-direction in scroll-event%", n, p));
00919   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-direction in scroll-event%", POFFSET+1, POFFSET+1, n, p, 1));
00920 
00921   v = WITH_VAR_STACK(unbundle_symset_orientation(p[POFFSET], "set-direction in scroll-event%"));
00922   ((wxScrollEvent *)cobj->primdata)->direction = v;
00923 
00924   READY_TO_RETURN;
00925   return scheme_void;
00926 }
00927 
00928 static Scheme_Object *objscheme_wxScrollEvent_Getpos(int n,  Scheme_Object *p[])
00929 {
00930   Scheme_Class_Object *cobj INIT_NULLED_OUT;
00931   int v;
00932   REMEMBER_VAR_STACK();
00933 
00934   objscheme_check_valid(os_wxScrollEvent_class, "get-position in scroll-event%", n, p);
00935   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-position in scroll-event%", POFFSET, POFFSET, n, p, 1));
00936   cobj = (Scheme_Class_Object *)p[0];
00937   if (cobj->primflag)
00938     v = ((os_wxScrollEvent *)cobj->primdata)->wxScrollEvent::pos;
00939   else
00940     v = ((wxScrollEvent *)cobj->primdata)->pos;
00941 
00942   return scheme_make_integer(v);
00943 }
00944 
00945 static Scheme_Object *objscheme_wxScrollEvent_Setpos(int n,  Scheme_Object *p[])
00946 {
00947   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
00948   int v;
00949   SETUP_VAR_STACK(1);
00950   VAR_STACK_PUSH(0, cobj);
00951 
00952   WITH_VAR_STACK(objscheme_check_valid(os_wxScrollEvent_class, "set-position in scroll-event%", n, p));
00953   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-position in scroll-event%", POFFSET+1, POFFSET+1, n, p, 1));
00954 
00955   v = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET], 0, 10000, "set-position in scroll-event%"));
00956   ((wxScrollEvent *)cobj->primdata)->pos = v;
00957 
00958   READY_TO_RETURN;
00959   return scheme_void;
00960 }
00961 
00962 static Scheme_Object *os_wxScrollEvent_ConstructScheme(int n,  Scheme_Object *p[])
00963 {
00964   SETUP_PRE_VAR_STACK(1);
00965   PRE_VAR_STACK_PUSH(0, p);
00966   os_wxScrollEvent *realobj INIT_NULLED_OUT;
00967   REMEMBER_VAR_STACK();
00968   int x0;
00969   int x1;
00970   int x2;
00971   ExactLong x3;
00972 
00973   SETUP_VAR_STACK_PRE_REMEMBERED(2);
00974   VAR_STACK_PUSH(0, p);
00975   VAR_STACK_PUSH(1, realobj);
00976 
00977   
00978   if ((n > (POFFSET+4))) 
00979     WITH_VAR_STACK(scheme_wrong_count_m("initialization in scroll-event%", POFFSET+POFFSET, POFFSET+4, n, p, 1));
00980   if (n > (POFFSET+0)) {
00981     x0 = WITH_VAR_STACK(unbundle_symset_scrollMoveType(p[POFFSET+0], "initialization in scroll-event%"));
00982   } else
00983     x0 = wxEVENT_TYPE_SCROLL_THUMBTRACK;
00984   if (n > (POFFSET+1)) {
00985     x1 = WITH_VAR_STACK(unbundle_symset_orientation(p[POFFSET+1], "initialization in scroll-event%"));
00986   } else
00987     x1 = wxVERTICAL;
00988   if (n > (POFFSET+2)) {
00989     x2 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+2], 0, 10000, "initialization in scroll-event%"));
00990   } else
00991     x2 = 0;
00992   if (n > (POFFSET+3)) {
00993     x3 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+3], "initialization in scroll-event%"));
00994   } else
00995     x3 = 0;
00996 
00997   
00998   realobj = WITH_VAR_STACK(new os_wxScrollEvent CONSTRUCTOR_ARGS((x0, x1, x2, x3)));
00999 #ifdef MZ_PRECISE_GC
01000   WITH_VAR_STACK(realobj->gcInit_wxScrollEvent_ext(x0, x1, x2, x3));
01001 #endif
01002   realobj->__gc_external = (void *)p[0];
01003   
01004   
01005   READY_TO_RETURN;
01006   ((Scheme_Class_Object *)p[0])->primdata = realobj;
01007   ((Scheme_Class_Object *)p[0])->primflag = 1;
01008   return scheme_void;
01009 }
01010 
01011 void objscheme_setup_wxScrollEvent(Scheme_Env *env)
01012 {
01013   SETUP_VAR_STACK(1);
01014   VAR_STACK_PUSH(0, env);
01015 
01016   wxREGGLOB(os_wxScrollEvent_class);
01017 
01018   os_wxScrollEvent_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "scroll-event%", "event%", (Scheme_Method_Prim *)os_wxScrollEvent_ConstructScheme, 6));
01019 
01020 
01021   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxScrollEvent_class,"get-event-type" " method", (Scheme_Method_Prim *)objscheme_wxScrollEvent_GetmoveType, 0, 0));
01022   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxScrollEvent_class,"set-event-type" " method", (Scheme_Method_Prim *)objscheme_wxScrollEvent_SetmoveType, 1, 1));
01023   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxScrollEvent_class,"get-direction" " method", (Scheme_Method_Prim *)objscheme_wxScrollEvent_Getdirection, 0, 0));
01024   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxScrollEvent_class,"set-direction" " method", (Scheme_Method_Prim *)objscheme_wxScrollEvent_Setdirection, 1, 1));
01025   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxScrollEvent_class,"get-position" " method", (Scheme_Method_Prim *)objscheme_wxScrollEvent_Getpos, 0, 0));
01026   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxScrollEvent_class,"set-position" " method", (Scheme_Method_Prim *)objscheme_wxScrollEvent_Setpos, 1, 1));
01027 
01028   WITH_VAR_STACK(scheme_made_class(os_wxScrollEvent_class));
01029 
01030 
01031   READY_TO_RETURN;
01032 }
01033 
01034 int objscheme_istype_wxScrollEvent(Scheme_Object *obj, const char *stop, int nullOK)
01035 {
01036   REMEMBER_VAR_STACK();
01037   if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
01038   if (objscheme_is_a(obj,  os_wxScrollEvent_class))
01039     return 1;
01040   else {
01041     if (!stop)
01042        return 0;
01043     WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "scroll-event% object or " XC_NULL_STR: "scroll-event% object", -1, 0, &obj));
01044     return 0;
01045   }
01046 }
01047 
01048 Scheme_Object *objscheme_bundle_wxScrollEvent(class wxScrollEvent *realobj)
01049 {
01050   Scheme_Class_Object *obj INIT_NULLED_OUT;
01051   Scheme_Object *sobj INIT_NULLED_OUT;
01052 
01053   if (!realobj) return XC_SCHEME_NULL;
01054 
01055   if (realobj->__gc_external)
01056     return (Scheme_Object *)realobj->__gc_external;
01057 
01058   SETUP_VAR_STACK(2);
01059   VAR_STACK_PUSH(0, obj);
01060   VAR_STACK_PUSH(1, realobj);
01061 
01062   if ((sobj = WITH_VAR_STACK(objscheme_bundle_by_type(realobj, realobj->__type))))
01063     { READY_TO_RETURN; return sobj; }
01064   obj = (Scheme_Class_Object *)WITH_VAR_STACK(scheme_make_uninited_object(os_wxScrollEvent_class));
01065 
01066   obj->primdata = realobj;
01067   obj->primflag = 0;
01068 
01069   realobj->__gc_external = (void *)obj;
01070   READY_TO_RETURN;
01071   return (Scheme_Object *)obj;
01072 }
01073 
01074 class wxScrollEvent *objscheme_unbundle_wxScrollEvent(Scheme_Object *obj, const char *where, int nullOK)
01075 {
01076   if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;
01077 
01078   REMEMBER_VAR_STACK();
01079 
01080   (void)objscheme_istype_wxScrollEvent(obj, where, nullOK);
01081   Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
01082   WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
01083   if (o->primflag)
01084     return (os_wxScrollEvent *)o->primdata;
01085   else
01086     return (wxScrollEvent *)o->primdata;
01087 }
01088 
01089 
01090 
01091 static Scheme_Object *keyCode_WXK_ESCAPE_sym = NULL;
01092 static Scheme_Object *keyCode_WXK_START_sym = NULL;
01093 static Scheme_Object *keyCode_WXK_CANCEL_sym = NULL;
01094 static Scheme_Object *keyCode_WXK_CLEAR_sym = NULL;
01095 static Scheme_Object *keyCode_WXK_SHIFT_sym = NULL;
01096 static Scheme_Object *keyCode_WXK_CONTROL_sym = NULL;
01097 static Scheme_Object *keyCode_WXK_MENU_sym = NULL;
01098 static Scheme_Object *keyCode_WXK_PAUSE_sym = NULL;
01099 static Scheme_Object *keyCode_WXK_CAPITAL_sym = NULL;
01100 static Scheme_Object *keyCode_WXK_PRIOR_sym = NULL;
01101 static Scheme_Object *keyCode_WXK_NEXT_sym = NULL;
01102 static Scheme_Object *keyCode_WXK_END_sym = NULL;
01103 static Scheme_Object *keyCode_WXK_HOME_sym = NULL;
01104 static Scheme_Object *keyCode_WXK_LEFT_sym = NULL;
01105 static Scheme_Object *keyCode_WXK_UP_sym = NULL;
01106 static Scheme_Object *keyCode_WXK_RIGHT_sym = NULL;
01107 static Scheme_Object *keyCode_WXK_DOWN_sym = NULL;
01108 static Scheme_Object *keyCode_WXK_SELECT_sym = NULL;
01109 static Scheme_Object *keyCode_WXK_PRINT_sym = NULL;
01110 static Scheme_Object *keyCode_WXK_EXECUTE_sym = NULL;
01111 static Scheme_Object *keyCode_WXK_SNAPSHOT_sym = NULL;
01112 static Scheme_Object *keyCode_WXK_INSERT_sym = NULL;
01113 static Scheme_Object *keyCode_WXK_HELP_sym = NULL;
01114 static Scheme_Object *keyCode_WXK_NUMPAD0_sym = NULL;
01115 static Scheme_Object *keyCode_WXK_NUMPAD1_sym = NULL;
01116 static Scheme_Object *keyCode_WXK_NUMPAD2_sym = NULL;
01117 static Scheme_Object *keyCode_WXK_NUMPAD3_sym = NULL;
01118 static Scheme_Object *keyCode_WXK_NUMPAD4_sym = NULL;
01119 static Scheme_Object *keyCode_WXK_NUMPAD5_sym = NULL;
01120 static Scheme_Object *keyCode_WXK_NUMPAD6_sym = NULL;
01121 static Scheme_Object *keyCode_WXK_NUMPAD7_sym = NULL;
01122 static Scheme_Object *keyCode_WXK_NUMPAD8_sym = NULL;
01123 static Scheme_Object *keyCode_WXK_NUMPAD9_sym = NULL;
01124 static Scheme_Object *keyCode_3_sym = NULL;
01125 static Scheme_Object *keyCode_WXK_MULTIPLY_sym = NULL;
01126 static Scheme_Object *keyCode_WXK_ADD_sym = NULL;
01127 static Scheme_Object *keyCode_WXK_SEPARATOR_sym = NULL;
01128 static Scheme_Object *keyCode_WXK_SUBTRACT_sym = NULL;
01129 static Scheme_Object *keyCode_WXK_DECIMAL_sym = NULL;
01130 static Scheme_Object *keyCode_WXK_DIVIDE_sym = NULL;
01131 static Scheme_Object *keyCode_WXK_F1_sym = NULL;
01132 static Scheme_Object *keyCode_WXK_F2_sym = NULL;
01133 static Scheme_Object *keyCode_WXK_F3_sym = NULL;
01134 static Scheme_Object *keyCode_WXK_F4_sym = NULL;
01135 static Scheme_Object *keyCode_WXK_F5_sym = NULL;
01136 static Scheme_Object *keyCode_WXK_F6_sym = NULL;
01137 static Scheme_Object *keyCode_WXK_F7_sym = NULL;
01138 static Scheme_Object *keyCode_WXK_F8_sym = NULL;
01139 static Scheme_Object *keyCode_WXK_F9_sym = NULL;
01140 static Scheme_Object *keyCode_WXK_F10_sym = NULL;
01141 static Scheme_Object *keyCode_WXK_F11_sym = NULL;
01142 static Scheme_Object *keyCode_WXK_F12_sym = NULL;
01143 static Scheme_Object *keyCode_WXK_F13_sym = NULL;
01144 static Scheme_Object *keyCode_WXK_F14_sym = NULL;
01145 static Scheme_Object *keyCode_WXK_F15_sym = NULL;
01146 static Scheme_Object *keyCode_WXK_F16_sym = NULL;
01147 static Scheme_Object *keyCode_WXK_F17_sym = NULL;
01148 static Scheme_Object *keyCode_WXK_F18_sym = NULL;
01149 static Scheme_Object *keyCode_WXK_F19_sym = NULL;
01150 static Scheme_Object *keyCode_WXK_F20_sym = NULL;
01151 static Scheme_Object *keyCode_WXK_F21_sym = NULL;
01152 static Scheme_Object *keyCode_WXK_F22_sym = NULL;
01153 static Scheme_Object *keyCode_WXK_F23_sym = NULL;
01154 static Scheme_Object *keyCode_WXK_F24_sym = NULL;
01155 static Scheme_Object *keyCode_WXK_NUMLOCK_sym = NULL;
01156 static Scheme_Object *keyCode_WXK_SCROLL_sym = NULL;
01157 static Scheme_Object *keyCode_WXK_WHEEL_UP_sym = NULL;
01158 static Scheme_Object *keyCode_WXK_WHEEL_DOWN_sym = NULL;
01159 static Scheme_Object *keyCode_WXK_PRESS_sym = NULL;
01160 static Scheme_Object *keyCode_WXK_RELEASE_sym = NULL;
01161 
01162 static void init_symset_keyCode(void) {
01163   REMEMBER_VAR_STACK();
01164   wxREGGLOB(keyCode_WXK_ESCAPE_sym);
01165   keyCode_WXK_ESCAPE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("escape"));
01166   wxREGGLOB(keyCode_WXK_START_sym);
01167   keyCode_WXK_START_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("start"));
01168   wxREGGLOB(keyCode_WXK_CANCEL_sym);
01169   keyCode_WXK_CANCEL_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("cancel"));
01170   wxREGGLOB(keyCode_WXK_CLEAR_sym);
01171   keyCode_WXK_CLEAR_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("clear"));
01172   wxREGGLOB(keyCode_WXK_SHIFT_sym);
01173   keyCode_WXK_SHIFT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("shift"));
01174   wxREGGLOB(keyCode_WXK_CONTROL_sym);
01175   keyCode_WXK_CONTROL_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("control"));
01176   wxREGGLOB(keyCode_WXK_MENU_sym);
01177   keyCode_WXK_MENU_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("menu"));
01178   wxREGGLOB(keyCode_WXK_PAUSE_sym);
01179   keyCode_WXK_PAUSE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("pause"));
01180   wxREGGLOB(keyCode_WXK_CAPITAL_sym);
01181   keyCode_WXK_CAPITAL_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("capital"));
01182   wxREGGLOB(keyCode_WXK_PRIOR_sym);
01183   keyCode_WXK_PRIOR_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("prior"));
01184   wxREGGLOB(keyCode_WXK_NEXT_sym);
01185   keyCode_WXK_NEXT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("next"));
01186   wxREGGLOB(keyCode_WXK_END_sym);
01187   keyCode_WXK_END_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("end"));
01188   wxREGGLOB(keyCode_WXK_HOME_sym);
01189   keyCode_WXK_HOME_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("home"));
01190   wxREGGLOB(keyCode_WXK_LEFT_sym);
01191   keyCode_WXK_LEFT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("left"));
01192   wxREGGLOB(keyCode_WXK_UP_sym);
01193   keyCode_WXK_UP_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("up"));
01194   wxREGGLOB(keyCode_WXK_RIGHT_sym);
01195   keyCode_WXK_RIGHT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("right"));
01196   wxREGGLOB(keyCode_WXK_DOWN_sym);
01197   keyCode_WXK_DOWN_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("down"));
01198   wxREGGLOB(keyCode_WXK_SELECT_sym);
01199   keyCode_WXK_SELECT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("select"));
01200   wxREGGLOB(keyCode_WXK_PRINT_sym);
01201   keyCode_WXK_PRINT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("print"));
01202   wxREGGLOB(keyCode_WXK_EXECUTE_sym);
01203   keyCode_WXK_EXECUTE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("execute"));
01204   wxREGGLOB(keyCode_WXK_SNAPSHOT_sym);
01205   keyCode_WXK_SNAPSHOT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("snapshot"));
01206   wxREGGLOB(keyCode_WXK_INSERT_sym);
01207   keyCode_WXK_INSERT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("insert"));
01208   wxREGGLOB(keyCode_WXK_HELP_sym);
01209   keyCode_WXK_HELP_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("help"));
01210   wxREGGLOB(keyCode_WXK_NUMPAD0_sym);
01211   keyCode_WXK_NUMPAD0_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad0"));
01212   wxREGGLOB(keyCode_WXK_NUMPAD1_sym);
01213   keyCode_WXK_NUMPAD1_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad1"));
01214   wxREGGLOB(keyCode_WXK_NUMPAD2_sym);
01215   keyCode_WXK_NUMPAD2_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad2"));
01216   wxREGGLOB(keyCode_WXK_NUMPAD3_sym);
01217   keyCode_WXK_NUMPAD3_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad3"));
01218   wxREGGLOB(keyCode_WXK_NUMPAD4_sym);
01219   keyCode_WXK_NUMPAD4_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad4"));
01220   wxREGGLOB(keyCode_WXK_NUMPAD5_sym);
01221   keyCode_WXK_NUMPAD5_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad5"));
01222   wxREGGLOB(keyCode_WXK_NUMPAD6_sym);
01223   keyCode_WXK_NUMPAD6_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad6"));
01224   wxREGGLOB(keyCode_WXK_NUMPAD7_sym);
01225   keyCode_WXK_NUMPAD7_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad7"));
01226   wxREGGLOB(keyCode_WXK_NUMPAD8_sym);
01227   keyCode_WXK_NUMPAD8_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad8"));
01228   wxREGGLOB(keyCode_WXK_NUMPAD9_sym);
01229   keyCode_WXK_NUMPAD9_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad9"));
01230   wxREGGLOB(keyCode_3_sym);
01231   keyCode_3_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numpad-enter"));
01232   wxREGGLOB(keyCode_WXK_MULTIPLY_sym);
01233   keyCode_WXK_MULTIPLY_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("multiply"));
01234   wxREGGLOB(keyCode_WXK_ADD_sym);
01235   keyCode_WXK_ADD_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("add"));
01236   wxREGGLOB(keyCode_WXK_SEPARATOR_sym);
01237   keyCode_WXK_SEPARATOR_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("separator"));
01238   wxREGGLOB(keyCode_WXK_SUBTRACT_sym);
01239   keyCode_WXK_SUBTRACT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("subtract"));
01240   wxREGGLOB(keyCode_WXK_DECIMAL_sym);
01241   keyCode_WXK_DECIMAL_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("decimal"));
01242   wxREGGLOB(keyCode_WXK_DIVIDE_sym);
01243   keyCode_WXK_DIVIDE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("divide"));
01244   wxREGGLOB(keyCode_WXK_F1_sym);
01245   keyCode_WXK_F1_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f1"));
01246   wxREGGLOB(keyCode_WXK_F2_sym);
01247   keyCode_WXK_F2_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f2"));
01248   wxREGGLOB(keyCode_WXK_F3_sym);
01249   keyCode_WXK_F3_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f3"));
01250   wxREGGLOB(keyCode_WXK_F4_sym);
01251   keyCode_WXK_F4_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f4"));
01252   wxREGGLOB(keyCode_WXK_F5_sym);
01253   keyCode_WXK_F5_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f5"));
01254   wxREGGLOB(keyCode_WXK_F6_sym);
01255   keyCode_WXK_F6_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f6"));
01256   wxREGGLOB(keyCode_WXK_F7_sym);
01257   keyCode_WXK_F7_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f7"));
01258   wxREGGLOB(keyCode_WXK_F8_sym);
01259   keyCode_WXK_F8_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f8"));
01260   wxREGGLOB(keyCode_WXK_F9_sym);
01261   keyCode_WXK_F9_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f9"));
01262   wxREGGLOB(keyCode_WXK_F10_sym);
01263   keyCode_WXK_F10_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f10"));
01264   wxREGGLOB(keyCode_WXK_F11_sym);
01265   keyCode_WXK_F11_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f11"));
01266   wxREGGLOB(keyCode_WXK_F12_sym);
01267   keyCode_WXK_F12_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f12"));
01268   wxREGGLOB(keyCode_WXK_F13_sym);
01269   keyCode_WXK_F13_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f13"));
01270   wxREGGLOB(keyCode_WXK_F14_sym);
01271   keyCode_WXK_F14_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f14"));
01272   wxREGGLOB(keyCode_WXK_F15_sym);
01273   keyCode_WXK_F15_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f15"));
01274   wxREGGLOB(keyCode_WXK_F16_sym);
01275   keyCode_WXK_F16_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f16"));
01276   wxREGGLOB(keyCode_WXK_F17_sym);
01277   keyCode_WXK_F17_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f17"));
01278   wxREGGLOB(keyCode_WXK_F18_sym);
01279   keyCode_WXK_F18_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f18"));
01280   wxREGGLOB(keyCode_WXK_F19_sym);
01281   keyCode_WXK_F19_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f19"));
01282   wxREGGLOB(keyCode_WXK_F20_sym);
01283   keyCode_WXK_F20_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f20"));
01284   wxREGGLOB(keyCode_WXK_F21_sym);
01285   keyCode_WXK_F21_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f21"));
01286   wxREGGLOB(keyCode_WXK_F22_sym);
01287   keyCode_WXK_F22_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f22"));
01288   wxREGGLOB(keyCode_WXK_F23_sym);
01289   keyCode_WXK_F23_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f23"));
01290   wxREGGLOB(keyCode_WXK_F24_sym);
01291   keyCode_WXK_F24_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("f24"));
01292   wxREGGLOB(keyCode_WXK_NUMLOCK_sym);
01293   keyCode_WXK_NUMLOCK_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("numlock"));
01294   wxREGGLOB(keyCode_WXK_SCROLL_sym);
01295   keyCode_WXK_SCROLL_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("scroll"));
01296   wxREGGLOB(keyCode_WXK_WHEEL_UP_sym);
01297   keyCode_WXK_WHEEL_UP_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("wheel-up"));
01298   wxREGGLOB(keyCode_WXK_WHEEL_DOWN_sym);
01299   keyCode_WXK_WHEEL_DOWN_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("wheel-down"));
01300   wxREGGLOB(keyCode_WXK_PRESS_sym);
01301   keyCode_WXK_PRESS_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("press"));
01302   wxREGGLOB(keyCode_WXK_RELEASE_sym);
01303   keyCode_WXK_RELEASE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("release"));
01304 }
01305 
01306 static int unbundle_symset_keyCode(Scheme_Object *v, const char *where) {
01307   SETUP_VAR_STACK(1);
01308   VAR_STACK_PUSH(0, v);
01309   if (!keyCode_WXK_RELEASE_sym) WITH_VAR_STACK(init_symset_keyCode());
01310   if (0) { }
01311   else if (SCHEME_CHARP(v)) { READY_TO_RETURN; return SCHEME_CHAR_VAL(v); }
01312   else if (v == keyCode_WXK_ESCAPE_sym) { READY_TO_RETURN; return WXK_ESCAPE; }
01313   else if (v == keyCode_WXK_START_sym) { READY_TO_RETURN; return WXK_START; }
01314   else if (v == keyCode_WXK_CANCEL_sym) { READY_TO_RETURN; return WXK_CANCEL; }
01315   else if (v == keyCode_WXK_CLEAR_sym) { READY_TO_RETURN; return WXK_CLEAR; }
01316   else if (v == keyCode_WXK_SHIFT_sym) { READY_TO_RETURN; return WXK_SHIFT; }
01317   else if (v == keyCode_WXK_CONTROL_sym) { READY_TO_RETURN; return WXK_CONTROL; }
01318   else if (v == keyCode_WXK_MENU_sym) { READY_TO_RETURN; return WXK_MENU; }
01319   else if (v == keyCode_WXK_PAUSE_sym) { READY_TO_RETURN; return WXK_PAUSE; }
01320   else if (v == keyCode_WXK_CAPITAL_sym) { READY_TO_RETURN; return WXK_CAPITAL; }
01321   else if (v == keyCode_WXK_PRIOR_sym) { READY_TO_RETURN; return WXK_PRIOR; }
01322   else if (v == keyCode_WXK_NEXT_sym) { READY_TO_RETURN; return WXK_NEXT; }
01323   else if (v == keyCode_WXK_END_sym) { READY_TO_RETURN; return WXK_END; }
01324   else if (v == keyCode_WXK_HOME_sym) { READY_TO_RETURN; return WXK_HOME; }
01325   else if (v == keyCode_WXK_LEFT_sym) { READY_TO_RETURN; return WXK_LEFT; }
01326   else if (v == keyCode_WXK_UP_sym) { READY_TO_RETURN; return WXK_UP; }
01327   else if (v == keyCode_WXK_RIGHT_sym) { READY_TO_RETURN; return WXK_RIGHT; }
01328   else if (v == keyCode_WXK_DOWN_sym) { READY_TO_RETURN; return WXK_DOWN; }
01329   else if (v == keyCode_WXK_SELECT_sym) { READY_TO_RETURN; return WXK_SELECT; }
01330   else if (v == keyCode_WXK_PRINT_sym) { READY_TO_RETURN; return WXK_PRINT; }
01331   else if (v == keyCode_WXK_EXECUTE_sym) { READY_TO_RETURN; return WXK_EXECUTE; }
01332   else if (v == keyCode_WXK_SNAPSHOT_sym) { READY_TO_RETURN; return WXK_SNAPSHOT; }
01333   else if (v == keyCode_WXK_INSERT_sym) { READY_TO_RETURN; return WXK_INSERT; }
01334   else if (v == keyCode_WXK_HELP_sym) { READY_TO_RETURN; return WXK_HELP; }
01335   else if (v == keyCode_WXK_NUMPAD0_sym) { READY_TO_RETURN; return WXK_NUMPAD0; }
01336   else if (v == keyCode_WXK_NUMPAD1_sym) { READY_TO_RETURN; return WXK_NUMPAD1; }
01337   else if (v == keyCode_WXK_NUMPAD2_sym) { READY_TO_RETURN; return WXK_NUMPAD2; }
01338   else if (v == keyCode_WXK_NUMPAD3_sym) { READY_TO_RETURN; return WXK_NUMPAD3; }
01339   else if (v == keyCode_WXK_NUMPAD4_sym) { READY_TO_RETURN; return WXK_NUMPAD4; }
01340   else if (v == keyCode_WXK_NUMPAD5_sym) { READY_TO_RETURN; return WXK_NUMPAD5; }
01341   else if (v == keyCode_WXK_NUMPAD6_sym) { READY_TO_RETURN; return WXK_NUMPAD6; }
01342   else if (v == keyCode_WXK_NUMPAD7_sym) { READY_TO_RETURN; return WXK_NUMPAD7; }
01343   else if (v == keyCode_WXK_NUMPAD8_sym) { READY_TO_RETURN; return WXK_NUMPAD8; }
01344   else if (v == keyCode_WXK_NUMPAD9_sym) { READY_TO_RETURN; return WXK_NUMPAD9; }
01345   else if (v == keyCode_3_sym) { READY_TO_RETURN; return 3; }
01346   else if (v == keyCode_WXK_MULTIPLY_sym) { READY_TO_RETURN; return WXK_MULTIPLY; }
01347   else if (v == keyCode_WXK_ADD_sym) { READY_TO_RETURN; return WXK_ADD; }
01348   else if (v == keyCode_WXK_SEPARATOR_sym) { READY_TO_RETURN; return WXK_SEPARATOR; }
01349   else if (v == keyCode_WXK_SUBTRACT_sym) { READY_TO_RETURN; return WXK_SUBTRACT; }
01350   else if (v == keyCode_WXK_DECIMAL_sym) { READY_TO_RETURN; return WXK_DECIMAL; }
01351   else if (v == keyCode_WXK_DIVIDE_sym) { READY_TO_RETURN; return WXK_DIVIDE; }
01352   else if (v == keyCode_WXK_F1_sym) { READY_TO_RETURN; return WXK_F1; }
01353   else if (v == keyCode_WXK_F2_sym) { READY_TO_RETURN; return WXK_F2; }
01354   else if (v == keyCode_WXK_F3_sym) { READY_TO_RETURN; return WXK_F3; }
01355   else if (v == keyCode_WXK_F4_sym) { READY_TO_RETURN; return WXK_F4; }
01356   else if (v == keyCode_WXK_F5_sym) { READY_TO_RETURN; return WXK_F5; }
01357   else if (v == keyCode_WXK_F6_sym) { READY_TO_RETURN; return WXK_F6; }
01358   else if (v == keyCode_WXK_F7_sym) { READY_TO_RETURN; return WXK_F7; }
01359   else if (v == keyCode_WXK_F8_sym) { READY_TO_RETURN; return WXK_F8; }
01360   else if (v == keyCode_WXK_F9_sym) { READY_TO_RETURN; return WXK_F9; }
01361   else if (v == keyCode_WXK_F10_sym) { READY_TO_RETURN; return WXK_F10; }
01362   else if (v == keyCode_WXK_F11_sym) { READY_TO_RETURN; return WXK_F11; }
01363   else if (v == keyCode_WXK_F12_sym) { READY_TO_RETURN; return WXK_F12; }
01364   else if (v == keyCode_WXK_F13_sym) { READY_TO_RETURN; return WXK_F13; }
01365   else if (v == keyCode_WXK_F14_sym) { READY_TO_RETURN; return WXK_F14; }
01366   else if (v == keyCode_WXK_F15_sym) { READY_TO_RETURN; return WXK_F15; }
01367   else if (v == keyCode_WXK_F16_sym) { READY_TO_RETURN; return WXK_F16; }
01368   else if (v == keyCode_WXK_F17_sym) { READY_TO_RETURN; return WXK_F17; }
01369   else if (v == keyCode_WXK_F18_sym) { READY_TO_RETURN; return WXK_F18; }
01370   else if (v == keyCode_WXK_F19_sym) { READY_TO_RETURN; return WXK_F19; }
01371   else if (v == keyCode_WXK_F20_sym) { READY_TO_RETURN; return WXK_F20; }
01372   else if (v == keyCode_WXK_F21_sym) { READY_TO_RETURN; return WXK_F21; }
01373   else if (v == keyCode_WXK_F22_sym) { READY_TO_RETURN; return WXK_F22; }
01374   else if (v == keyCode_WXK_F23_sym) { READY_TO_RETURN; return WXK_F23; }
01375   else if (v == keyCode_WXK_F24_sym) { READY_TO_RETURN; return WXK_F24; }
01376   else if (v == keyCode_WXK_NUMLOCK_sym) { READY_TO_RETURN; return WXK_NUMLOCK; }
01377   else if (v == keyCode_WXK_SCROLL_sym) { READY_TO_RETURN; return WXK_SCROLL; }
01378   else if (v == keyCode_WXK_WHEEL_UP_sym) { READY_TO_RETURN; return WXK_WHEEL_UP; }
01379   else if (v == keyCode_WXK_WHEEL_DOWN_sym) { READY_TO_RETURN; return WXK_WHEEL_DOWN; }
01380   else if (v == keyCode_WXK_PRESS_sym) { READY_TO_RETURN; return WXK_PRESS; }
01381   else if (v == keyCode_WXK_RELEASE_sym) { READY_TO_RETURN; return WXK_RELEASE; }
01382   if (where) WITH_VAR_STACK(scheme_wrong_type(where, "keyCode symbol", -1, 0, &v));
01383   READY_TO_RETURN;
01384   return 0;
01385 }
01386 
01387 static Scheme_Object *bundle_symset_keyCode(int v) {
01388   if (!keyCode_WXK_RELEASE_sym) init_symset_keyCode();
01389   switch (v) {
01390   case WXK_ESCAPE: return keyCode_WXK_ESCAPE_sym;
01391   case WXK_START: return keyCode_WXK_START_sym;
01392   case WXK_CANCEL: return keyCode_WXK_CANCEL_sym;
01393   case WXK_CLEAR: return keyCode_WXK_CLEAR_sym;
01394   case WXK_SHIFT: return keyCode_WXK_SHIFT_sym;
01395   case WXK_CONTROL: return keyCode_WXK_CONTROL_sym;
01396   case WXK_MENU: return keyCode_WXK_MENU_sym;
01397   case WXK_PAUSE: return keyCode_WXK_PAUSE_sym;
01398   case WXK_CAPITAL: return keyCode_WXK_CAPITAL_sym;
01399   case WXK_PRIOR: return keyCode_WXK_PRIOR_sym;
01400   case WXK_NEXT: return keyCode_WXK_NEXT_sym;
01401   case WXK_END: return keyCode_WXK_END_sym;
01402   case WXK_HOME: return keyCode_WXK_HOME_sym;
01403   case WXK_LEFT: return keyCode_WXK_LEFT_sym;
01404   case WXK_UP: return keyCode_WXK_UP_sym;
01405   case WXK_RIGHT: return keyCode_WXK_RIGHT_sym;
01406   case WXK_DOWN: return keyCode_WXK_DOWN_sym;
01407   case WXK_SELECT: return keyCode_WXK_SELECT_sym;
01408   case WXK_PRINT: return keyCode_WXK_PRINT_sym;
01409   case WXK_EXECUTE: return keyCode_WXK_EXECUTE_sym;
01410   case WXK_SNAPSHOT: return keyCode_WXK_SNAPSHOT_sym;
01411   case WXK_INSERT: return keyCode_WXK_INSERT_sym;
01412   case WXK_HELP: return keyCode_WXK_HELP_sym;
01413   case WXK_NUMPAD0: return keyCode_WXK_NUMPAD0_sym;
01414   case WXK_NUMPAD1: return keyCode_WXK_NUMPAD1_sym;
01415   case WXK_NUMPAD2: return keyCode_WXK_NUMPAD2_sym;
01416   case WXK_NUMPAD3: return keyCode_WXK_NUMPAD3_sym;
01417   case WXK_NUMPAD4: return keyCode_WXK_NUMPAD4_sym;
01418   case WXK_NUMPAD5: return keyCode_WXK_NUMPAD5_sym;
01419   case WXK_NUMPAD6: return keyCode_WXK_NUMPAD6_sym;
01420   case WXK_NUMPAD7: return keyCode_WXK_NUMPAD7_sym;
01421   case WXK_NUMPAD8: return keyCode_WXK_NUMPAD8_sym;
01422   case WXK_NUMPAD9: return keyCode_WXK_NUMPAD9_sym;
01423   case 3: return keyCode_3_sym;
01424   case WXK_MULTIPLY: return keyCode_WXK_MULTIPLY_sym;
01425   case WXK_ADD: return keyCode_WXK_ADD_sym;
01426   case WXK_SEPARATOR: return keyCode_WXK_SEPARATOR_sym;
01427   case WXK_SUBTRACT: return keyCode_WXK_SUBTRACT_sym;
01428   case WXK_DECIMAL: return keyCode_WXK_DECIMAL_sym;
01429   case WXK_DIVIDE: return keyCode_WXK_DIVIDE_sym;
01430   case WXK_F1: return keyCode_WXK_F1_sym;
01431   case WXK_F2: return keyCode_WXK_F2_sym;
01432   case WXK_F3: return keyCode_WXK_F3_sym;
01433   case WXK_F4: return keyCode_WXK_F4_sym;
01434   case WXK_F5: return keyCode_WXK_F5_sym;
01435   case WXK_F6: return keyCode_WXK_F6_sym;
01436   case WXK_F7: return keyCode_WXK_F7_sym;
01437   case WXK_F8: return keyCode_WXK_F8_sym;
01438   case WXK_F9: return keyCode_WXK_F9_sym;
01439   case WXK_F10: return keyCode_WXK_F10_sym;
01440   case WXK_F11: return keyCode_WXK_F11_sym;
01441   case WXK_F12: return keyCode_WXK_F12_sym;
01442   case WXK_F13: return keyCode_WXK_F13_sym;
01443   case WXK_F14: return keyCode_WXK_F14_sym;
01444   case WXK_F15: return keyCode_WXK_F15_sym;
01445   case WXK_F16: return keyCode_WXK_F16_sym;
01446   case WXK_F17: return keyCode_WXK_F17_sym;
01447   case WXK_F18: return keyCode_WXK_F18_sym;
01448   case WXK_F19: return keyCode_WXK_F19_sym;
01449   case WXK_F20: return keyCode_WXK_F20_sym;
01450   case WXK_F21: return keyCode_WXK_F21_sym;
01451   case WXK_F22: return keyCode_WXK_F22_sym;
01452   case WXK_F23: return keyCode_WXK_F23_sym;
01453   case WXK_F24: return keyCode_WXK_F24_sym;
01454   case WXK_NUMLOCK: return keyCode_WXK_NUMLOCK_sym;
01455   case WXK_SCROLL: return keyCode_WXK_SCROLL_sym;
01456   case WXK_WHEEL_UP: return keyCode_WXK_WHEEL_UP_sym;
01457   case WXK_WHEEL_DOWN: return keyCode_WXK_WHEEL_DOWN_sym;
01458   case WXK_PRESS: return keyCode_WXK_PRESS_sym;
01459   case WXK_RELEASE: return keyCode_WXK_RELEASE_sym;
01460   default: return scheme_make_char_or_nul(v);
01461   }
01462 }
01463 
01464 
01465 static long GetOtherKey(wxKeyEvent *k) { return k->otherKeyCode; }
01466 static void SetOtherKey(wxKeyEvent *k, long c) { k->otherKeyCode = c; }
01467 static long GetAltKey(wxKeyEvent *k) { return k->altKeyCode; }
01468 static void SetAltKey(wxKeyEvent *k, long c) { k->altKeyCode = c; }
01469 static long GetOtherAltKey(wxKeyEvent *k) { return k->otherAltKeyCode; }
01470 static void SetOtherAltKey(wxKeyEvent *k, long c) { k->otherAltKeyCode = c; }
01471 static long GetCapsKey(wxKeyEvent *k) { return k->capsKeyCode; }
01472 static void SetCapsKey(wxKeyEvent *k, long c) { k->capsKeyCode = c; }
01473 
01474 
01475 
01476 
01477 
01478 
01479 class os_wxKeyEvent : public wxKeyEvent_ext {
01480  public:
01481 
01482   os_wxKeyEvent CONSTRUCTOR_ARGS((int x0 = 0, Bool x1 = 0, Bool x2 = 0, Bool x3 = 0, Bool x4 = 0, int x5 = 0, int x6 = 0, ExactLong x7 = 0, Bool x8 = 0));
01483   ~os_wxKeyEvent();
01484 #ifdef MZ_PRECISE_GC
01485   void gcMark();
01486   void gcFixup();
01487 #endif
01488 };
01489 
01490 #ifdef MZ_PRECISE_GC
01491 void os_wxKeyEvent::gcMark() {
01492   wxKeyEvent_ext::gcMark();
01493 }
01494 void os_wxKeyEvent::gcFixup() {
01495   wxKeyEvent_ext::gcFixup();
01496 }
01497 #endif
01498 
01499 static Scheme_Object *os_wxKeyEvent_class;
01500 
01501 os_wxKeyEvent::os_wxKeyEvent CONSTRUCTOR_ARGS((int x0, Bool x1, Bool x2, Bool x3, Bool x4, int x5, int x6, ExactLong x7, Bool x8))
01502 CONSTRUCTOR_INIT(: wxKeyEvent_ext(x0, x1, x2, x3, x4, x5, x6, x7, x8))
01503 {
01504 }
01505 
01506 os_wxKeyEvent::~os_wxKeyEvent()
01507 {
01508     objscheme_destroy(this, (Scheme_Object *) __gc_external);
01509 }
01510 
01511 static Scheme_Object *os_wxKeyEventSetCapsKey(int n,  Scheme_Object *p[])
01512 {
01513   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
01514   REMEMBER_VAR_STACK();
01515   objscheme_check_valid(os_wxKeyEvent_class, "set-other-caps-key-code in key-event%", n, p);
01516   long x0 INIT_NULLED_OUT;
01517 
01518   SETUP_VAR_STACK_REMEMBERED(2);
01519   VAR_STACK_PUSH(0, p);
01520   VAR_STACK_PUSH(1, x0);
01521 
01522   
01523   x0 = (SCHEME_FALSEP(p[POFFSET+0]) ? 0 : unbundle_symset_keyCode(p[POFFSET+0], METHODNAME("key-event%","set-other-caps-key-code")));
01524 
01525   
01526   WITH_VAR_STACK(SetCapsKey(((wxKeyEvent *)((Scheme_Class_Object *)p[0])->primdata), x0));
01527 
01528   
01529   
01530   READY_TO_RETURN;
01531   return scheme_void;
01532 }
01533 
01534 static Scheme_Object *os_wxKeyEventGetCapsKey(int n,  Scheme_Object *p[])
01535 {
01536   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
01537   REMEMBER_VAR_STACK();
01538   long r;
01539   objscheme_check_valid(os_wxKeyEvent_class, "get-other-caps-key-code in key-event%", n, p);
01540 
01541   SETUP_VAR_STACK_REMEMBERED(1);
01542   VAR_STACK_PUSH(0, p);
01543 
01544   
01545 
01546   
01547   r = WITH_VAR_STACK(GetCapsKey(((wxKeyEvent *)((Scheme_Class_Object *)p[0])->primdata)));
01548 
01549   
01550   
01551   READY_TO_RETURN;
01552   return (r ? bundle_symset_keyCode(r) : scheme_false);
01553 }
01554 
01555 static Scheme_Object *os_wxKeyEventSetOtherAltKey(int n,  Scheme_Object *p[])
01556 {
01557   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
01558   REMEMBER_VAR_STACK();
01559   objscheme_check_valid(os_wxKeyEvent_class, "set-other-shift-altgr-key-code in key-event%", n, p);
01560   long x0 INIT_NULLED_OUT;
01561 
01562   SETUP_VAR_STACK_REMEMBERED(2);
01563   VAR_STACK_PUSH(0, p);
01564   VAR_STACK_PUSH(1, x0);
01565 
01566   
01567   x0 = (SCHEME_FALSEP(p[POFFSET+0]) ? 0 : unbundle_symset_keyCode(p[POFFSET+0], METHODNAME("key-event%","set-other-shift-altgr-key-code")));
01568 
01569   
01570   WITH_VAR_STACK(SetOtherAltKey(((wxKeyEvent *)((Scheme_Class_Object *)p[0])->primdata), x0));
01571 
01572   
01573   
01574   READY_TO_RETURN;
01575   return scheme_void;
01576 }
01577 
01578 static Scheme_Object *os_wxKeyEventGetOtherAltKey(int n,  Scheme_Object *p[])
01579 {
01580   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
01581   REMEMBER_VAR_STACK();
01582   long r;
01583   objscheme_check_valid(os_wxKeyEvent_class, "get-other-shift-altgr-key-code in key-event%", n, p);
01584 
01585   SETUP_VAR_STACK_REMEMBERED(1);
01586   VAR_STACK_PUSH(0, p);
01587 
01588   
01589 
01590   
01591   r = WITH_VAR_STACK(GetOtherAltKey(((wxKeyEvent *)((Scheme_Class_Object *)p[0])->primdata)));
01592 
01593   
01594   
01595   READY_TO_RETURN;
01596   return (r ? bundle_symset_keyCode(r) : scheme_false);
01597 }
01598 
01599 static Scheme_Object *os_wxKeyEventSetAltKey(int n,  Scheme_Object *p[])
01600 {
01601   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
01602   REMEMBER_VAR_STACK();
01603   objscheme_check_valid(os_wxKeyEvent_class, "set-other-altgr-key-code in key-event%", n, p);
01604   long x0 INIT_NULLED_OUT;
01605 
01606   SETUP_VAR_STACK_REMEMBERED(2);
01607   VAR_STACK_PUSH(0, p);
01608   VAR_STACK_PUSH(1, x0);
01609 
01610   
01611   x0 = (SCHEME_FALSEP(p[POFFSET+0]) ? 0 : unbundle_symset_keyCode(p[POFFSET+0], METHODNAME("key-event%","set-other-altgr-key-code")));
01612 
01613   
01614   WITH_VAR_STACK(SetAltKey(((wxKeyEvent *)((Scheme_Class_Object *)p[0])->primdata), x0));
01615 
01616   
01617   
01618   READY_TO_RETURN;
01619   return scheme_void;
01620 }
01621 
01622 static Scheme_Object *os_wxKeyEventGetAltKey(int n,  Scheme_Object *p[])
01623 {
01624   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
01625   REMEMBER_VAR_STACK();
01626   long r;
01627   objscheme_check_valid(os_wxKeyEvent_class, "get-other-altgr-key-code in key-event%", n, p);
01628 
01629   SETUP_VAR_STACK_REMEMBERED(1);
01630   VAR_STACK_PUSH(0, p);
01631 
01632   
01633 
01634   
01635   r = WITH_VAR_STACK(GetAltKey(((wxKeyEvent *)((Scheme_Class_Object *)p[0])->primdata)));
01636 
01637   
01638   
01639   READY_TO_RETURN;
01640   return (r ? bundle_symset_keyCode(r) : scheme_false);
01641 }
01642 
01643 static Scheme_Object *os_wxKeyEventSetOtherKey(int n,  Scheme_Object *p[])
01644 {
01645   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
01646   REMEMBER_VAR_STACK();
01647   objscheme_check_valid(os_wxKeyEvent_class, "set-other-shift-key-code in key-event%", n, p);
01648   long x0 INIT_NULLED_OUT;
01649 
01650   SETUP_VAR_STACK_REMEMBERED(2);
01651   VAR_STACK_PUSH(0, p);
01652   VAR_STACK_PUSH(1, x0);
01653 
01654   
01655   x0 = (SCHEME_FALSEP(p[POFFSET+0]) ? 0 : unbundle_symset_keyCode(p[POFFSET+0], METHODNAME("key-event%","set-other-shift-key-code")));
01656 
01657   
01658   WITH_VAR_STACK(SetOtherKey(((wxKeyEvent *)((Scheme_Class_Object *)p[0])->primdata), x0));
01659 
01660   
01661   
01662   READY_TO_RETURN;
01663   return scheme_void;
01664 }
01665 
01666 static Scheme_Object *os_wxKeyEventGetOtherKey(int n,  Scheme_Object *p[])
01667 {
01668   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
01669   REMEMBER_VAR_STACK();
01670   long r;
01671   objscheme_check_valid(os_wxKeyEvent_class, "get-other-shift-key-code in key-event%", n, p);
01672 
01673   SETUP_VAR_STACK_REMEMBERED(1);
01674   VAR_STACK_PUSH(0, p);
01675 
01676   
01677 
01678   
01679   r = WITH_VAR_STACK(GetOtherKey(((wxKeyEvent *)((Scheme_Class_Object *)p[0])->primdata)));
01680 
01681   
01682   
01683   READY_TO_RETURN;
01684   return (r ? bundle_symset_keyCode(r) : scheme_false);
01685 }
01686 
01687 static Scheme_Object *objscheme_wxKeyEvent_GetkeyCode(int n,  Scheme_Object *p[])
01688 {
01689   Scheme_Class_Object *cobj INIT_NULLED_OUT;
01690   int v;
01691   REMEMBER_VAR_STACK();
01692 
01693   objscheme_check_valid(os_wxKeyEvent_class, "get-key-code in key-event%", n, p);
01694   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-key-code in key-event%", POFFSET, POFFSET, n, p, 1));
01695   cobj = (Scheme_Class_Object *)p[0];
01696   if (cobj->primflag)
01697     v = ((os_wxKeyEvent *)cobj->primdata)->wxKeyEvent::keyCode;
01698   else
01699     v = ((wxKeyEvent *)cobj->primdata)->keyCode;
01700 
01701   return WITH_REMEMBERED_STACK(bundle_symset_keyCode(v));
01702 }
01703 
01704 static Scheme_Object *objscheme_wxKeyEvent_SetkeyCode(int n,  Scheme_Object *p[])
01705 {
01706   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
01707   int v;
01708   SETUP_VAR_STACK(1);
01709   VAR_STACK_PUSH(0, cobj);
01710 
01711   WITH_VAR_STACK(objscheme_check_valid(os_wxKeyEvent_class, "set-key-code in key-event%", n, p));
01712   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-key-code in key-event%", POFFSET+1, POFFSET+1, n, p, 1));
01713 
01714   v = WITH_VAR_STACK(unbundle_symset_keyCode(p[POFFSET], "set-key-code in key-event%"));
01715   ((wxKeyEvent *)cobj->primdata)->keyCode = v;
01716 
01717   READY_TO_RETURN;
01718   return scheme_void;
01719 }
01720 
01721 static Scheme_Object *objscheme_wxKeyEvent_GetkeyUpCode(int n,  Scheme_Object *p[])
01722 {
01723   Scheme_Class_Object *cobj INIT_NULLED_OUT;
01724   int v;
01725   REMEMBER_VAR_STACK();
01726 
01727   objscheme_check_valid(os_wxKeyEvent_class, "get-key-release-code in key-event%", n, p);
01728   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-key-release-code in key-event%", POFFSET, POFFSET, n, p, 1));
01729   cobj = (Scheme_Class_Object *)p[0];
01730   if (cobj->primflag)
01731     v = ((os_wxKeyEvent *)cobj->primdata)->wxKeyEvent::keyUpCode;
01732   else
01733     v = ((wxKeyEvent *)cobj->primdata)->keyUpCode;
01734 
01735   return WITH_REMEMBERED_STACK(bundle_symset_keyCode(v));
01736 }
01737 
01738 static Scheme_Object *objscheme_wxKeyEvent_SetkeyUpCode(int n,  Scheme_Object *p[])
01739 {
01740   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
01741   int v;
01742   SETUP_VAR_STACK(1);
01743   VAR_STACK_PUSH(0, cobj);
01744 
01745   WITH_VAR_STACK(objscheme_check_valid(os_wxKeyEvent_class, "set-key-release-code in key-event%", n, p));
01746   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-key-release-code in key-event%", POFFSET+1, POFFSET+1, n, p, 1));
01747 
01748   v = WITH_VAR_STACK(unbundle_symset_keyCode(p[POFFSET], "set-key-release-code in key-event%"));
01749   ((wxKeyEvent *)cobj->primdata)->keyUpCode = v;
01750 
01751   READY_TO_RETURN;
01752   return scheme_void;
01753 }
01754 
01755 static Scheme_Object *objscheme_wxKeyEvent_GetshiftDown(int n,  Scheme_Object *p[])
01756 {
01757   Scheme_Class_Object *cobj INIT_NULLED_OUT;
01758   Bool v;
01759   REMEMBER_VAR_STACK();
01760 
01761   objscheme_check_valid(os_wxKeyEvent_class, "get-shift-down in key-event%", n, p);
01762   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-shift-down in key-event%", POFFSET, POFFSET, n, p, 1));
01763   cobj = (Scheme_Class_Object *)p[0];
01764   if (cobj->primflag)
01765     v = ((os_wxKeyEvent *)cobj->primdata)->wxKeyEvent::shiftDown;
01766   else
01767     v = ((wxKeyEvent *)cobj->primdata)->shiftDown;
01768 
01769   return (v ? scheme_true : scheme_false);
01770 }
01771 
01772 static Scheme_Object *objscheme_wxKeyEvent_SetshiftDown(int n,  Scheme_Object *p[])
01773 {
01774   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
01775   Bool v;
01776   SETUP_VAR_STACK(1);
01777   VAR_STACK_PUSH(0, cobj);
01778 
01779   WITH_VAR_STACK(objscheme_check_valid(os_wxKeyEvent_class, "set-shift-down in key-event%", n, p));
01780   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-shift-down in key-event%", POFFSET+1, POFFSET+1, n, p, 1));
01781 
01782   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-shift-down in key-event%"));
01783   ((wxKeyEvent *)cobj->primdata)->shiftDown = v;
01784 
01785   READY_TO_RETURN;
01786   return scheme_void;
01787 }
01788 
01789 static Scheme_Object *objscheme_wxKeyEvent_GetcontrolDown(int n,  Scheme_Object *p[])
01790 {
01791   Scheme_Class_Object *cobj INIT_NULLED_OUT;
01792   Bool v;
01793   REMEMBER_VAR_STACK();
01794 
01795   objscheme_check_valid(os_wxKeyEvent_class, "get-control-down in key-event%", n, p);
01796   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-control-down in key-event%", POFFSET, POFFSET, n, p, 1));
01797   cobj = (Scheme_Class_Object *)p[0];
01798   if (cobj->primflag)
01799     v = ((os_wxKeyEvent *)cobj->primdata)->wxKeyEvent::controlDown;
01800   else
01801     v = ((wxKeyEvent *)cobj->primdata)->controlDown;
01802 
01803   return (v ? scheme_true : scheme_false);
01804 }
01805 
01806 static Scheme_Object *objscheme_wxKeyEvent_SetcontrolDown(int n,  Scheme_Object *p[])
01807 {
01808   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
01809   Bool v;
01810   SETUP_VAR_STACK(1);
01811   VAR_STACK_PUSH(0, cobj);
01812 
01813   WITH_VAR_STACK(objscheme_check_valid(os_wxKeyEvent_class, "set-control-down in key-event%", n, p));
01814   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-control-down in key-event%", POFFSET+1, POFFSET+1, n, p, 1));
01815 
01816   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-control-down in key-event%"));
01817   ((wxKeyEvent *)cobj->primdata)->controlDown = v;
01818 
01819   READY_TO_RETURN;
01820   return scheme_void;
01821 }
01822 
01823 static Scheme_Object *objscheme_wxKeyEvent_GetmetaDown(int n,  Scheme_Object *p[])
01824 {
01825   Scheme_Class_Object *cobj INIT_NULLED_OUT;
01826   Bool v;
01827   REMEMBER_VAR_STACK();
01828 
01829   objscheme_check_valid(os_wxKeyEvent_class, "get-meta-down in key-event%", n, p);
01830   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-meta-down in key-event%", POFFSET, POFFSET, n, p, 1));
01831   cobj = (Scheme_Class_Object *)p[0];
01832   if (cobj->primflag)
01833     v = ((os_wxKeyEvent *)cobj->primdata)->wxKeyEvent::metaDown;
01834   else
01835     v = ((wxKeyEvent *)cobj->primdata)->metaDown;
01836 
01837   return (v ? scheme_true : scheme_false);
01838 }
01839 
01840 static Scheme_Object *objscheme_wxKeyEvent_SetmetaDown(int n,  Scheme_Object *p[])
01841 {
01842   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
01843   Bool v;
01844   SETUP_VAR_STACK(1);
01845   VAR_STACK_PUSH(0, cobj);
01846 
01847   WITH_VAR_STACK(objscheme_check_valid(os_wxKeyEvent_class, "set-meta-down in key-event%", n, p));
01848   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-meta-down in key-event%", POFFSET+1, POFFSET+1, n, p, 1));
01849 
01850   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-meta-down in key-event%"));
01851   ((wxKeyEvent *)cobj->primdata)->metaDown = v;
01852 
01853   READY_TO_RETURN;
01854   return scheme_void;
01855 }
01856 
01857 static Scheme_Object *objscheme_wxKeyEvent_GetaltDown(int n,  Scheme_Object *p[])
01858 {
01859   Scheme_Class_Object *cobj INIT_NULLED_OUT;
01860   Bool v;
01861   REMEMBER_VAR_STACK();
01862 
01863   objscheme_check_valid(os_wxKeyEvent_class, "get-alt-down in key-event%", n, p);
01864   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-alt-down in key-event%", POFFSET, POFFSET, n, p, 1));
01865   cobj = (Scheme_Class_Object *)p[0];
01866   if (cobj->primflag)
01867     v = ((os_wxKeyEvent *)cobj->primdata)->wxKeyEvent::altDown;
01868   else
01869     v = ((wxKeyEvent *)cobj->primdata)->altDown;
01870 
01871   return (v ? scheme_true : scheme_false);
01872 }
01873 
01874 static Scheme_Object *objscheme_wxKeyEvent_SetaltDown(int n,  Scheme_Object *p[])
01875 {
01876   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
01877   Bool v;
01878   SETUP_VAR_STACK(1);
01879   VAR_STACK_PUSH(0, cobj);
01880 
01881   WITH_VAR_STACK(objscheme_check_valid(os_wxKeyEvent_class, "set-alt-down in key-event%", n, p));
01882   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-alt-down in key-event%", POFFSET+1, POFFSET+1, n, p, 1));
01883 
01884   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-alt-down in key-event%"));
01885   ((wxKeyEvent *)cobj->primdata)->altDown = v;
01886 
01887   READY_TO_RETURN;
01888   return scheme_void;
01889 }
01890 
01891 static Scheme_Object *objscheme_wxKeyEvent_GetcapsDown(int n,  Scheme_Object *p[])
01892 {
01893   Scheme_Class_Object *cobj INIT_NULLED_OUT;
01894   Bool v;
01895   REMEMBER_VAR_STACK();
01896 
01897   objscheme_check_valid(os_wxKeyEvent_class, "get-caps-down in key-event%", n, p);
01898   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-caps-down in key-event%", POFFSET, POFFSET, n, p, 1));
01899   cobj = (Scheme_Class_Object *)p[0];
01900   if (cobj->primflag)
01901     v = ((os_wxKeyEvent *)cobj->primdata)->wxKeyEvent::capsDown;
01902   else
01903     v = ((wxKeyEvent *)cobj->primdata)->capsDown;
01904 
01905   return (v ? scheme_true : scheme_false);
01906 }
01907 
01908 static Scheme_Object *objscheme_wxKeyEvent_SetcapsDown(int n,  Scheme_Object *p[])
01909 {
01910   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
01911   Bool v;
01912   SETUP_VAR_STACK(1);
01913   VAR_STACK_PUSH(0, cobj);
01914 
01915   WITH_VAR_STACK(objscheme_check_valid(os_wxKeyEvent_class, "set-caps-down in key-event%", n, p));
01916   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-caps-down in key-event%", POFFSET+1, POFFSET+1, n, p, 1));
01917 
01918   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-caps-down in key-event%"));
01919   ((wxKeyEvent *)cobj->primdata)->capsDown = v;
01920 
01921   READY_TO_RETURN;
01922   return scheme_void;
01923 }
01924 
01925 static Scheme_Object *objscheme_wxKeyEvent_Getx(int n,  Scheme_Object *p[])
01926 {
01927   Scheme_Class_Object *cobj INIT_NULLED_OUT;
01928   int v;
01929   REMEMBER_VAR_STACK();
01930 
01931   objscheme_check_valid(os_wxKeyEvent_class, "get-x in key-event%", n, p);
01932   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-x in key-event%", POFFSET, POFFSET, n, p, 1));
01933   cobj = (Scheme_Class_Object *)p[0];
01934   if (cobj->primflag)
01935     v = ((os_wxKeyEvent *)cobj->primdata)->wxKeyEvent::x;
01936   else
01937     v = ((wxKeyEvent *)cobj->primdata)->x;
01938 
01939   return scheme_make_integer(v);
01940 }
01941 
01942 static Scheme_Object *objscheme_wxKeyEvent_Setx(int n,  Scheme_Object *p[])
01943 {
01944   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
01945   int v;
01946   SETUP_VAR_STACK(1);
01947   VAR_STACK_PUSH(0, cobj);
01948 
01949   WITH_VAR_STACK(objscheme_check_valid(os_wxKeyEvent_class, "set-x in key-event%", n, p));
01950   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-x in key-event%", POFFSET+1, POFFSET+1, n, p, 1));
01951 
01952   v = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET], "set-x in key-event%"));
01953   ((wxKeyEvent *)cobj->primdata)->x = v;
01954 
01955   READY_TO_RETURN;
01956   return scheme_void;
01957 }
01958 
01959 static Scheme_Object *objscheme_wxKeyEvent_Gety(int n,  Scheme_Object *p[])
01960 {
01961   Scheme_Class_Object *cobj INIT_NULLED_OUT;
01962   int v;
01963   REMEMBER_VAR_STACK();
01964 
01965   objscheme_check_valid(os_wxKeyEvent_class, "get-y in key-event%", n, p);
01966   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-y in key-event%", POFFSET, POFFSET, n, p, 1));
01967   cobj = (Scheme_Class_Object *)p[0];
01968   if (cobj->primflag)
01969     v = ((os_wxKeyEvent *)cobj->primdata)->wxKeyEvent::y;
01970   else
01971     v = ((wxKeyEvent *)cobj->primdata)->y;
01972 
01973   return scheme_make_integer(v);
01974 }
01975 
01976 static Scheme_Object *objscheme_wxKeyEvent_Sety(int n,  Scheme_Object *p[])
01977 {
01978   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
01979   int v;
01980   SETUP_VAR_STACK(1);
01981   VAR_STACK_PUSH(0, cobj);
01982 
01983   WITH_VAR_STACK(objscheme_check_valid(os_wxKeyEvent_class, "set-y in key-event%", n, p));
01984   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-y in key-event%", POFFSET+1, POFFSET+1, n, p, 1));
01985 
01986   v = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET], "set-y in key-event%"));
01987   ((wxKeyEvent *)cobj->primdata)->y = v;
01988 
01989   READY_TO_RETURN;
01990   return scheme_void;
01991 }
01992 
01993 static Scheme_Object *os_wxKeyEvent_ConstructScheme(int n,  Scheme_Object *p[])
01994 {
01995   SETUP_PRE_VAR_STACK(1);
01996   PRE_VAR_STACK_PUSH(0, p);
01997   os_wxKeyEvent *realobj INIT_NULLED_OUT;
01998   REMEMBER_VAR_STACK();
01999   int x0;
02000   Bool x1;
02001   Bool x2;
02002   Bool x3;
02003   Bool x4;
02004   int x5;
02005   int x6;
02006   ExactLong x7;
02007   Bool x8;
02008 
02009   SETUP_VAR_STACK_PRE_REMEMBERED(2);
02010   VAR_STACK_PUSH(0, p);
02011   VAR_STACK_PUSH(1, realobj);
02012 
02013   
02014   if ((n > (POFFSET+9))) 
02015     WITH_VAR_STACK(scheme_wrong_count_m("initialization in key-event%", POFFSET+POFFSET, POFFSET+9, n, p, 1));
02016   if (n > (POFFSET+0)) {
02017     x0 = WITH_VAR_STACK(unbundle_symset_keyCode(p[POFFSET+0], "initialization in key-event%"));
02018   } else
02019     x0 = 0;
02020   if (n > (POFFSET+1)) {
02021     x1 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+1], "initialization in key-event%"));
02022   } else
02023     x1 = 0;
02024   if (n > (POFFSET+2)) {
02025     x2 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+2], "initialization in key-event%"));
02026   } else
02027     x2 = 0;
02028   if (n > (POFFSET+3)) {
02029     x3 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+3], "initialization in key-event%"));
02030   } else
02031     x3 = 0;
02032   if (n > (POFFSET+4)) {
02033     x4 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+4], "initialization in key-event%"));
02034   } else
02035     x4 = 0;
02036   if (n > (POFFSET+5)) {
02037     x5 = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET+5], "initialization in key-event%"));
02038   } else
02039     x5 = 0;
02040   if (n > (POFFSET+6)) {
02041     x6 = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET+6], "initialization in key-event%"));
02042   } else
02043     x6 = 0;
02044   if (n > (POFFSET+7)) {
02045     x7 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+7], "initialization in key-event%"));
02046   } else
02047     x7 = 0;
02048   if (n > (POFFSET+8)) {
02049     x8 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+8], "initialization in key-event%"));
02050   } else
02051     x8 = 0;
02052 
02053   
02054   realobj = WITH_VAR_STACK(new os_wxKeyEvent CONSTRUCTOR_ARGS((x0, x1, x2, x3, x4, x5, x6, x7, x8)));
02055 #ifdef MZ_PRECISE_GC
02056   WITH_VAR_STACK(realobj->gcInit_wxKeyEvent_ext(x0, x1, x2, x3, x4, x5, x6, x7, x8));
02057 #endif
02058   realobj->__gc_external = (void *)p[0];
02059   
02060   
02061   READY_TO_RETURN;
02062   ((Scheme_Class_Object *)p[0])->primdata = realobj;
02063   ((Scheme_Class_Object *)p[0])->primflag = 1;
02064   return scheme_void;
02065 }
02066 
02067 void objscheme_setup_wxKeyEvent(Scheme_Env *env)
02068 {
02069   SETUP_VAR_STACK(1);
02070   VAR_STACK_PUSH(0, env);
02071 
02072   wxREGGLOB(os_wxKeyEvent_class);
02073 
02074   os_wxKeyEvent_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "key-event%", "event%", (Scheme_Method_Prim *)os_wxKeyEvent_ConstructScheme, 26));
02075 
02076   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class, "set-other-caps-key-code" " method", (Scheme_Method_Prim *)os_wxKeyEventSetCapsKey, 1, 1));
02077   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class, "get-other-caps-key-code" " method", (Scheme_Method_Prim *)os_wxKeyEventGetCapsKey, 0, 0));
02078   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class, "set-other-shift-altgr-key-code" " method", (Scheme_Method_Prim *)os_wxKeyEventSetOtherAltKey, 1, 1));
02079   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class, "get-other-shift-altgr-key-code" " method", (Scheme_Method_Prim *)os_wxKeyEventGetOtherAltKey, 0, 0));
02080   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class, "set-other-altgr-key-code" " method", (Scheme_Method_Prim *)os_wxKeyEventSetAltKey, 1, 1));
02081   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class, "get-other-altgr-key-code" " method", (Scheme_Method_Prim *)os_wxKeyEventGetAltKey, 0, 0));
02082   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class, "set-other-shift-key-code" " method", (Scheme_Method_Prim *)os_wxKeyEventSetOtherKey, 1, 1));
02083   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class, "get-other-shift-key-code" " method", (Scheme_Method_Prim *)os_wxKeyEventGetOtherKey, 0, 0));
02084 
02085   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"get-key-code" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_GetkeyCode, 0, 0));
02086   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"set-key-code" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_SetkeyCode, 1, 1));
02087   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"get-key-release-code" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_GetkeyUpCode, 0, 0));
02088   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"set-key-release-code" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_SetkeyUpCode, 1, 1));
02089   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"get-shift-down" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_GetshiftDown, 0, 0));
02090   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"set-shift-down" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_SetshiftDown, 1, 1));
02091   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"get-control-down" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_GetcontrolDown, 0, 0));
02092   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"set-control-down" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_SetcontrolDown, 1, 1));
02093   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"get-meta-down" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_GetmetaDown, 0, 0));
02094   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"set-meta-down" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_SetmetaDown, 1, 1));
02095   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"get-alt-down" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_GetaltDown, 0, 0));
02096   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"set-alt-down" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_SetaltDown, 1, 1));
02097   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"get-caps-down" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_GetcapsDown, 0, 0));
02098   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"set-caps-down" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_SetcapsDown, 1, 1));
02099   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"get-x" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_Getx, 0, 0));
02100   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"set-x" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_Setx, 1, 1));
02101   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"get-y" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_Gety, 0, 0));
02102   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxKeyEvent_class,"set-y" " method", (Scheme_Method_Prim *)objscheme_wxKeyEvent_Sety, 1, 1));
02103 
02104   WITH_VAR_STACK(scheme_made_class(os_wxKeyEvent_class));
02105 
02106 
02107   READY_TO_RETURN;
02108 }
02109 
02110 int objscheme_istype_wxKeyEvent(Scheme_Object *obj, const char *stop, int nullOK)
02111 {
02112   REMEMBER_VAR_STACK();
02113   if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
02114   if (objscheme_is_a(obj,  os_wxKeyEvent_class))
02115     return 1;
02116   else {
02117     if (!stop)
02118        return 0;
02119     WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "key-event% object or " XC_NULL_STR: "key-event% object", -1, 0, &obj));
02120     return 0;
02121   }
02122 }
02123 
02124 Scheme_Object *objscheme_bundle_wxKeyEvent(class wxKeyEvent *realobj)
02125 {
02126   Scheme_Class_Object *obj INIT_NULLED_OUT;
02127   Scheme_Object *sobj INIT_NULLED_OUT;
02128 
02129   if (!realobj) return XC_SCHEME_NULL;
02130 
02131   if (realobj->__gc_external)
02132     return (Scheme_Object *)realobj->__gc_external;
02133 
02134   SETUP_VAR_STACK(2);
02135   VAR_STACK_PUSH(0, obj);
02136   VAR_STACK_PUSH(1, realobj);
02137 
02138   if ((sobj = WITH_VAR_STACK(objscheme_bundle_by_type(realobj, realobj->__type))))
02139     { READY_TO_RETURN; return sobj; }
02140   obj = (Scheme_Class_Object *)WITH_VAR_STACK(scheme_make_uninited_object(os_wxKeyEvent_class));
02141 
02142   obj->primdata = realobj;
02143   obj->primflag = 0;
02144 
02145   realobj->__gc_external = (void *)obj;
02146   READY_TO_RETURN;
02147   return (Scheme_Object *)obj;
02148 }
02149 
02150 class wxKeyEvent *objscheme_unbundle_wxKeyEvent(Scheme_Object *obj, const char *where, int nullOK)
02151 {
02152   if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;
02153 
02154   REMEMBER_VAR_STACK();
02155 
02156   (void)objscheme_istype_wxKeyEvent(obj, where, nullOK);
02157   Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
02158   WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
02159   if (o->primflag)
02160     return (os_wxKeyEvent *)o->primdata;
02161   else
02162     return (wxKeyEvent *)o->primdata;
02163 }
02164 
02165 
02166 static int wxKeySymbolToInteger(int v) { return v; }
02167 
02168 
02169 
02170 static Scheme_Object *wxKeyEventGlobalwxKeySymbolToInteger(int n,  Scheme_Object *p[])
02171 {
02172   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
02173   REMEMBER_VAR_STACK();
02174   int r;
02175   int x0;
02176 
02177   SETUP_VAR_STACK_REMEMBERED(1);
02178   VAR_STACK_PUSH(0, p);
02179 
02180   
02181   x0 = WITH_VAR_STACK(unbundle_symset_keyCode(p[0+0], NULL));
02182 
02183   
02184   r = WITH_VAR_STACK(wxKeySymbolToInteger(x0));
02185 
02186   
02187   
02188   READY_TO_RETURN;
02189   return scheme_make_integer(r);
02190 }
02191 
02192 void objscheme_setup_wxKeyEventGlobal(Scheme_Env *env)
02193 {
02194   Scheme_Object *functmp INIT_NULLED_OUT;
02195   SETUP_VAR_STACK(1);
02196   VAR_STACK_PUSH(0, env);
02197   functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxKeyEventGlobalwxKeySymbolToInteger, "key-symbol-to-integer", 1, 1));
02198   WITH_VAR_STACK(scheme_install_xc_global("key-symbol-to-integer", functmp, env));
02199   READY_TO_RETURN;
02200 }
02201 
02202 
02203 static Scheme_Object *mouseEventType_wxEVENT_TYPE_LEFT_DOWN_sym = NULL;
02204 static Scheme_Object *mouseEventType_wxEVENT_TYPE_LEFT_UP_sym = NULL;
02205 static Scheme_Object *mouseEventType_wxEVENT_TYPE_MIDDLE_DOWN_sym = NULL;
02206 static Scheme_Object *mouseEventType_wxEVENT_TYPE_MIDDLE_UP_sym = NULL;
02207 static Scheme_Object *mouseEventType_wxEVENT_TYPE_RIGHT_DOWN_sym = NULL;
02208 static Scheme_Object *mouseEventType_wxEVENT_TYPE_RIGHT_UP_sym = NULL;
02209 static Scheme_Object *mouseEventType_wxEVENT_TYPE_MOTION_sym = NULL;
02210 static Scheme_Object *mouseEventType_wxEVENT_TYPE_ENTER_WINDOW_sym = NULL;
02211 static Scheme_Object *mouseEventType_wxEVENT_TYPE_LEAVE_WINDOW_sym = NULL;
02212 
02213 static void init_symset_mouseEventType(void) {
02214   REMEMBER_VAR_STACK();
02215   wxREGGLOB(mouseEventType_wxEVENT_TYPE_LEFT_DOWN_sym);
02216   mouseEventType_wxEVENT_TYPE_LEFT_DOWN_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("left-down"));
02217   wxREGGLOB(mouseEventType_wxEVENT_TYPE_LEFT_UP_sym);
02218   mouseEventType_wxEVENT_TYPE_LEFT_UP_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("left-up"));
02219   wxREGGLOB(mouseEventType_wxEVENT_TYPE_MIDDLE_DOWN_sym);
02220   mouseEventType_wxEVENT_TYPE_MIDDLE_DOWN_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("middle-down"));
02221   wxREGGLOB(mouseEventType_wxEVENT_TYPE_MIDDLE_UP_sym);
02222   mouseEventType_wxEVENT_TYPE_MIDDLE_UP_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("middle-up"));
02223   wxREGGLOB(mouseEventType_wxEVENT_TYPE_RIGHT_DOWN_sym);
02224   mouseEventType_wxEVENT_TYPE_RIGHT_DOWN_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("right-down"));
02225   wxREGGLOB(mouseEventType_wxEVENT_TYPE_RIGHT_UP_sym);
02226   mouseEventType_wxEVENT_TYPE_RIGHT_UP_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("right-up"));
02227   wxREGGLOB(mouseEventType_wxEVENT_TYPE_MOTION_sym);
02228   mouseEventType_wxEVENT_TYPE_MOTION_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("motion"));
02229   wxREGGLOB(mouseEventType_wxEVENT_TYPE_ENTER_WINDOW_sym);
02230   mouseEventType_wxEVENT_TYPE_ENTER_WINDOW_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("enter"));
02231   wxREGGLOB(mouseEventType_wxEVENT_TYPE_LEAVE_WINDOW_sym);
02232   mouseEventType_wxEVENT_TYPE_LEAVE_WINDOW_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("leave"));
02233 }
02234 
02235 static int unbundle_symset_mouseEventType(Scheme_Object *v, const char *where) {
02236   SETUP_VAR_STACK(1);
02237   VAR_STACK_PUSH(0, v);
02238   if (!mouseEventType_wxEVENT_TYPE_LEAVE_WINDOW_sym) WITH_VAR_STACK(init_symset_mouseEventType());
02239   if (0) { }
02240   else if (v == mouseEventType_wxEVENT_TYPE_LEFT_DOWN_sym) { READY_TO_RETURN; return wxEVENT_TYPE_LEFT_DOWN; }
02241   else if (v == mouseEventType_wxEVENT_TYPE_LEFT_UP_sym) { READY_TO_RETURN; return wxEVENT_TYPE_LEFT_UP; }
02242   else if (v == mouseEventType_wxEVENT_TYPE_MIDDLE_DOWN_sym) { READY_TO_RETURN; return wxEVENT_TYPE_MIDDLE_DOWN; }
02243   else if (v == mouseEventType_wxEVENT_TYPE_MIDDLE_UP_sym) { READY_TO_RETURN; return wxEVENT_TYPE_MIDDLE_UP; }
02244   else if (v == mouseEventType_wxEVENT_TYPE_RIGHT_DOWN_sym) { READY_TO_RETURN; return wxEVENT_TYPE_RIGHT_DOWN; }
02245   else if (v == mouseEventType_wxEVENT_TYPE_RIGHT_UP_sym) { READY_TO_RETURN; return wxEVENT_TYPE_RIGHT_UP; }
02246   else if (v == mouseEventType_wxEVENT_TYPE_MOTION_sym) { READY_TO_RETURN; return wxEVENT_TYPE_MOTION; }
02247   else if (v == mouseEventType_wxEVENT_TYPE_ENTER_WINDOW_sym) { READY_TO_RETURN; return wxEVENT_TYPE_ENTER_WINDOW; }
02248   else if (v == mouseEventType_wxEVENT_TYPE_LEAVE_WINDOW_sym) { READY_TO_RETURN; return wxEVENT_TYPE_LEAVE_WINDOW; }
02249   if (where) WITH_VAR_STACK(scheme_wrong_type(where, "mouseEventType symbol", -1, 0, &v));
02250   READY_TO_RETURN;
02251   return 0;
02252 }
02253 
02254 static Scheme_Object *bundle_symset_mouseEventType(int v) {
02255   if (!mouseEventType_wxEVENT_TYPE_LEAVE_WINDOW_sym) init_symset_mouseEventType();
02256   switch (v) {
02257   case wxEVENT_TYPE_LEFT_DOWN: return mouseEventType_wxEVENT_TYPE_LEFT_DOWN_sym;
02258   case wxEVENT_TYPE_LEFT_UP: return mouseEventType_wxEVENT_TYPE_LEFT_UP_sym;
02259   case wxEVENT_TYPE_MIDDLE_DOWN: return mouseEventType_wxEVENT_TYPE_MIDDLE_DOWN_sym;
02260   case wxEVENT_TYPE_MIDDLE_UP: return mouseEventType_wxEVENT_TYPE_MIDDLE_UP_sym;
02261   case wxEVENT_TYPE_RIGHT_DOWN: return mouseEventType_wxEVENT_TYPE_RIGHT_DOWN_sym;
02262   case wxEVENT_TYPE_RIGHT_UP: return mouseEventType_wxEVENT_TYPE_RIGHT_UP_sym;
02263   case wxEVENT_TYPE_MOTION: return mouseEventType_wxEVENT_TYPE_MOTION_sym;
02264   case wxEVENT_TYPE_ENTER_WINDOW: return mouseEventType_wxEVENT_TYPE_ENTER_WINDOW_sym;
02265   case wxEVENT_TYPE_LEAVE_WINDOW: return mouseEventType_wxEVENT_TYPE_LEAVE_WINDOW_sym;
02266   default: return NULL;
02267   }
02268 }
02269 
02270 
02271 #define NEGATIVE_ONE (-1)
02272 static Scheme_Object *buttonId_NEGATIVE_ONE_sym = NULL;
02273 static Scheme_Object *buttonId_1_sym = NULL;
02274 static Scheme_Object *buttonId_2_sym = NULL;
02275 static Scheme_Object *buttonId_3_sym = NULL;
02276 
02277 static void init_symset_buttonId(void) {
02278   REMEMBER_VAR_STACK();
02279   wxREGGLOB(buttonId_NEGATIVE_ONE_sym);
02280   buttonId_NEGATIVE_ONE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("any"));
02281   wxREGGLOB(buttonId_1_sym);
02282   buttonId_1_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("left"));
02283   wxREGGLOB(buttonId_2_sym);
02284   buttonId_2_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("middle"));
02285   wxREGGLOB(buttonId_3_sym);
02286   buttonId_3_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("right"));
02287 }
02288 
02289 static int unbundle_symset_buttonId(Scheme_Object *v, const char *where) {
02290   SETUP_VAR_STACK(1);
02291   VAR_STACK_PUSH(0, v);
02292   if (!buttonId_3_sym) WITH_VAR_STACK(init_symset_buttonId());
02293   if (0) { }
02294   else if (v == buttonId_NEGATIVE_ONE_sym) { READY_TO_RETURN; return NEGATIVE_ONE; }
02295   else if (v == buttonId_1_sym) { READY_TO_RETURN; return 1; }
02296   else if (v == buttonId_2_sym) { READY_TO_RETURN; return 2; }
02297   else if (v == buttonId_3_sym) { READY_TO_RETURN; return 3; }
02298   if (where) WITH_VAR_STACK(scheme_wrong_type(where, "buttonId symbol", -1, 0, &v));
02299   READY_TO_RETURN;
02300   return 0;
02301 }
02302 
02303 
02304 
02305 
02306 
02307 
02308 class os_wxMouseEvent : public wxMouseEvent_ext {
02309  public:
02310 
02311   os_wxMouseEvent CONSTRUCTOR_ARGS((int x0, Bool x1 = 0, Bool x2 = 0, Bool x3 = 0, int x4 = 0, int x5 = 0, Bool x6 = 0, Bool x7 = 0, Bool x8 = 0, Bool x9 = 0, ExactLong x10 = 0, Bool x11 = 0));
02312   ~os_wxMouseEvent();
02313 #ifdef MZ_PRECISE_GC
02314   void gcMark();
02315   void gcFixup();
02316 #endif
02317 };
02318 
02319 #ifdef MZ_PRECISE_GC
02320 void os_wxMouseEvent::gcMark() {
02321   wxMouseEvent_ext::gcMark();
02322 }
02323 void os_wxMouseEvent::gcFixup() {
02324   wxMouseEvent_ext::gcFixup();
02325 }
02326 #endif
02327 
02328 static Scheme_Object *os_wxMouseEvent_class;
02329 
02330 os_wxMouseEvent::os_wxMouseEvent CONSTRUCTOR_ARGS((int x0, Bool x1, Bool x2, Bool x3, int x4, int x5, Bool x6, Bool x7, Bool x8, Bool x9, ExactLong x10, Bool x11))
02331 CONSTRUCTOR_INIT(: wxMouseEvent_ext(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11))
02332 {
02333 }
02334 
02335 os_wxMouseEvent::~os_wxMouseEvent()
02336 {
02337     objscheme_destroy(this, (Scheme_Object *) __gc_external);
02338 }
02339 
02340 static Scheme_Object *os_wxMouseEventMoving(int n,  Scheme_Object *p[])
02341 {
02342   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
02343   REMEMBER_VAR_STACK();
02344   Bool r;
02345   objscheme_check_valid(os_wxMouseEvent_class, "moving? in mouse-event%", n, p);
02346 
02347   SETUP_VAR_STACK_REMEMBERED(1);
02348   VAR_STACK_PUSH(0, p);
02349 
02350   
02351 
02352   
02353   r = WITH_VAR_STACK(((wxMouseEvent *)((Scheme_Class_Object *)p[0])->primdata)->Moving());
02354 
02355   
02356   
02357   READY_TO_RETURN;
02358   return (r ? scheme_true : scheme_false);
02359 }
02360 
02361 static Scheme_Object *os_wxMouseEventLeaving(int n,  Scheme_Object *p[])
02362 {
02363   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
02364   REMEMBER_VAR_STACK();
02365   Bool r;
02366   objscheme_check_valid(os_wxMouseEvent_class, "leaving? in mouse-event%", n, p);
02367 
02368   SETUP_VAR_STACK_REMEMBERED(1);
02369   VAR_STACK_PUSH(0, p);
02370 
02371   
02372 
02373   
02374   r = WITH_VAR_STACK(((wxMouseEvent *)((Scheme_Class_Object *)p[0])->primdata)->Leaving());
02375 
02376   
02377   
02378   READY_TO_RETURN;
02379   return (r ? scheme_true : scheme_false);
02380 }
02381 
02382 static Scheme_Object *os_wxMouseEventEntering(int n,  Scheme_Object *p[])
02383 {
02384   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
02385   REMEMBER_VAR_STACK();
02386   Bool r;
02387   objscheme_check_valid(os_wxMouseEvent_class, "entering? in mouse-event%", n, p);
02388 
02389   SETUP_VAR_STACK_REMEMBERED(1);
02390   VAR_STACK_PUSH(0, p);
02391 
02392   
02393 
02394   
02395   r = WITH_VAR_STACK(((wxMouseEvent *)((Scheme_Class_Object *)p[0])->primdata)->Entering());
02396 
02397   
02398   
02399   READY_TO_RETURN;
02400   return (r ? scheme_true : scheme_false);
02401 }
02402 
02403 static Scheme_Object *os_wxMouseEventDragging(int n,  Scheme_Object *p[])
02404 {
02405   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
02406   REMEMBER_VAR_STACK();
02407   Bool r;
02408   objscheme_check_valid(os_wxMouseEvent_class, "dragging? in mouse-event%", n, p);
02409 
02410   SETUP_VAR_STACK_REMEMBERED(1);
02411   VAR_STACK_PUSH(0, p);
02412 
02413   
02414 
02415   
02416   r = WITH_VAR_STACK(((wxMouseEvent *)((Scheme_Class_Object *)p[0])->primdata)->Dragging());
02417 
02418   
02419   
02420   READY_TO_RETURN;
02421   return (r ? scheme_true : scheme_false);
02422 }
02423 
02424 static Scheme_Object *os_wxMouseEventButtonUp(int n,  Scheme_Object *p[])
02425 {
02426   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
02427   REMEMBER_VAR_STACK();
02428   Bool r;
02429   objscheme_check_valid(os_wxMouseEvent_class, "button-up? in mouse-event%", n, p);
02430   int x0;
02431 
02432   SETUP_VAR_STACK_REMEMBERED(1);
02433   VAR_STACK_PUSH(0, p);
02434 
02435   
02436   if (n > (POFFSET+0)) {
02437     x0 = WITH_VAR_STACK(unbundle_symset_buttonId(p[POFFSET+0], "button-up? in mouse-event%"));
02438   } else
02439     x0 = -1;
02440 
02441   
02442   r = WITH_VAR_STACK(((wxMouseEvent *)((Scheme_Class_Object *)p[0])->primdata)->ButtonUp(x0));
02443 
02444   
02445   
02446   READY_TO_RETURN;
02447   return (r ? scheme_true : scheme_false);
02448 }
02449 
02450 static Scheme_Object *os_wxMouseEventButtonDown(int n,  Scheme_Object *p[])
02451 {
02452   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
02453   REMEMBER_VAR_STACK();
02454   Bool r;
02455   objscheme_check_valid(os_wxMouseEvent_class, "button-down? in mouse-event%", n, p);
02456   int x0;
02457 
02458   SETUP_VAR_STACK_REMEMBERED(1);
02459   VAR_STACK_PUSH(0, p);
02460 
02461   
02462   if (n > (POFFSET+0)) {
02463     x0 = WITH_VAR_STACK(unbundle_symset_buttonId(p[POFFSET+0], "button-down? in mouse-event%"));
02464   } else
02465     x0 = -1;
02466 
02467   
02468   r = WITH_VAR_STACK(((wxMouseEvent *)((Scheme_Class_Object *)p[0])->primdata)->ButtonDown(x0));
02469 
02470   
02471   
02472   READY_TO_RETURN;
02473   return (r ? scheme_true : scheme_false);
02474 }
02475 
02476 static Scheme_Object *os_wxMouseEventButton(int n,  Scheme_Object *p[])
02477 {
02478   WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
02479   REMEMBER_VAR_STACK();
02480   Bool r;
02481   objscheme_check_valid(os_wxMouseEvent_class, "button-changed? in mouse-event%", n, p);
02482   int x0;
02483 
02484   SETUP_VAR_STACK_REMEMBERED(1);
02485   VAR_STACK_PUSH(0, p);
02486 
02487   
02488   if (n > (POFFSET+0)) {
02489     x0 = WITH_VAR_STACK(unbundle_symset_buttonId(p[POFFSET+0], "button-changed? in mouse-event%"));
02490   } else
02491     x0 = -1;
02492 
02493   
02494   r = WITH_VAR_STACK(((wxMouseEvent *)((Scheme_Class_Object *)p[0])->primdata)->Button(x0));
02495 
02496   
02497   
02498   READY_TO_RETURN;
02499   return (r ? scheme_true : scheme_false);
02500 }
02501 
02502 static Scheme_Object *objscheme_wxMouseEvent_GeteventType(int n,  Scheme_Object *p[])
02503 {
02504   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02505   int v;
02506   REMEMBER_VAR_STACK();
02507 
02508   objscheme_check_valid(os_wxMouseEvent_class, "get-event-type in mouse-event%", n, p);
02509   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-event-type in mouse-event%", POFFSET, POFFSET, n, p, 1));
02510   cobj = (Scheme_Class_Object *)p[0];
02511   if (cobj->primflag)
02512     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::eventType;
02513   else
02514     v = ((wxMouseEvent *)cobj->primdata)->eventType;
02515 
02516   return WITH_REMEMBERED_STACK(bundle_symset_mouseEventType(v));
02517 }
02518 
02519 static Scheme_Object *objscheme_wxMouseEvent_SeteventType(int n,  Scheme_Object *p[])
02520 {
02521   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02522   int v;
02523   SETUP_VAR_STACK(1);
02524   VAR_STACK_PUSH(0, cobj);
02525 
02526   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-event-type in mouse-event%", n, p));
02527   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-event-type in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02528 
02529   v = WITH_VAR_STACK(unbundle_symset_mouseEventType(p[POFFSET], "set-event-type in mouse-event%"));
02530   ((wxMouseEvent *)cobj->primdata)->eventType = v;
02531 
02532   READY_TO_RETURN;
02533   return scheme_void;
02534 }
02535 
02536 static Scheme_Object *objscheme_wxMouseEvent_GetleftDown(int n,  Scheme_Object *p[])
02537 {
02538   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02539   Bool v;
02540   REMEMBER_VAR_STACK();
02541 
02542   objscheme_check_valid(os_wxMouseEvent_class, "get-left-down in mouse-event%", n, p);
02543   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-left-down in mouse-event%", POFFSET, POFFSET, n, p, 1));
02544   cobj = (Scheme_Class_Object *)p[0];
02545   if (cobj->primflag)
02546     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::leftDown;
02547   else
02548     v = ((wxMouseEvent *)cobj->primdata)->leftDown;
02549 
02550   return (v ? scheme_true : scheme_false);
02551 }
02552 
02553 static Scheme_Object *objscheme_wxMouseEvent_SetleftDown(int n,  Scheme_Object *p[])
02554 {
02555   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02556   Bool v;
02557   SETUP_VAR_STACK(1);
02558   VAR_STACK_PUSH(0, cobj);
02559 
02560   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-left-down in mouse-event%", n, p));
02561   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-left-down in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02562 
02563   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-left-down in mouse-event%"));
02564   ((wxMouseEvent *)cobj->primdata)->leftDown = v;
02565 
02566   READY_TO_RETURN;
02567   return scheme_void;
02568 }
02569 
02570 static Scheme_Object *objscheme_wxMouseEvent_GetmiddleDown(int n,  Scheme_Object *p[])
02571 {
02572   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02573   Bool v;
02574   REMEMBER_VAR_STACK();
02575 
02576   objscheme_check_valid(os_wxMouseEvent_class, "get-middle-down in mouse-event%", n, p);
02577   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-middle-down in mouse-event%", POFFSET, POFFSET, n, p, 1));
02578   cobj = (Scheme_Class_Object *)p[0];
02579   if (cobj->primflag)
02580     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::middleDown;
02581   else
02582     v = ((wxMouseEvent *)cobj->primdata)->middleDown;
02583 
02584   return (v ? scheme_true : scheme_false);
02585 }
02586 
02587 static Scheme_Object *objscheme_wxMouseEvent_SetmiddleDown(int n,  Scheme_Object *p[])
02588 {
02589   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02590   Bool v;
02591   SETUP_VAR_STACK(1);
02592   VAR_STACK_PUSH(0, cobj);
02593 
02594   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-middle-down in mouse-event%", n, p));
02595   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-middle-down in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02596 
02597   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-middle-down in mouse-event%"));
02598   ((wxMouseEvent *)cobj->primdata)->middleDown = v;
02599 
02600   READY_TO_RETURN;
02601   return scheme_void;
02602 }
02603 
02604 static Scheme_Object *objscheme_wxMouseEvent_GetrightDown(int n,  Scheme_Object *p[])
02605 {
02606   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02607   Bool v;
02608   REMEMBER_VAR_STACK();
02609 
02610   objscheme_check_valid(os_wxMouseEvent_class, "get-right-down in mouse-event%", n, p);
02611   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-right-down in mouse-event%", POFFSET, POFFSET, n, p, 1));
02612   cobj = (Scheme_Class_Object *)p[0];
02613   if (cobj->primflag)
02614     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::rightDown;
02615   else
02616     v = ((wxMouseEvent *)cobj->primdata)->rightDown;
02617 
02618   return (v ? scheme_true : scheme_false);
02619 }
02620 
02621 static Scheme_Object *objscheme_wxMouseEvent_SetrightDown(int n,  Scheme_Object *p[])
02622 {
02623   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02624   Bool v;
02625   SETUP_VAR_STACK(1);
02626   VAR_STACK_PUSH(0, cobj);
02627 
02628   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-right-down in mouse-event%", n, p));
02629   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-right-down in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02630 
02631   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-right-down in mouse-event%"));
02632   ((wxMouseEvent *)cobj->primdata)->rightDown = v;
02633 
02634   READY_TO_RETURN;
02635   return scheme_void;
02636 }
02637 
02638 static Scheme_Object *objscheme_wxMouseEvent_GetshiftDown(int n,  Scheme_Object *p[])
02639 {
02640   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02641   Bool v;
02642   REMEMBER_VAR_STACK();
02643 
02644   objscheme_check_valid(os_wxMouseEvent_class, "get-shift-down in mouse-event%", n, p);
02645   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-shift-down in mouse-event%", POFFSET, POFFSET, n, p, 1));
02646   cobj = (Scheme_Class_Object *)p[0];
02647   if (cobj->primflag)
02648     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::shiftDown;
02649   else
02650     v = ((wxMouseEvent *)cobj->primdata)->shiftDown;
02651 
02652   return (v ? scheme_true : scheme_false);
02653 }
02654 
02655 static Scheme_Object *objscheme_wxMouseEvent_SetshiftDown(int n,  Scheme_Object *p[])
02656 {
02657   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02658   Bool v;
02659   SETUP_VAR_STACK(1);
02660   VAR_STACK_PUSH(0, cobj);
02661 
02662   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-shift-down in mouse-event%", n, p));
02663   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-shift-down in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02664 
02665   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-shift-down in mouse-event%"));
02666   ((wxMouseEvent *)cobj->primdata)->shiftDown = v;
02667 
02668   READY_TO_RETURN;
02669   return scheme_void;
02670 }
02671 
02672 static Scheme_Object *objscheme_wxMouseEvent_GetcontrolDown(int n,  Scheme_Object *p[])
02673 {
02674   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02675   Bool v;
02676   REMEMBER_VAR_STACK();
02677 
02678   objscheme_check_valid(os_wxMouseEvent_class, "get-control-down in mouse-event%", n, p);
02679   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-control-down in mouse-event%", POFFSET, POFFSET, n, p, 1));
02680   cobj = (Scheme_Class_Object *)p[0];
02681   if (cobj->primflag)
02682     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::controlDown;
02683   else
02684     v = ((wxMouseEvent *)cobj->primdata)->controlDown;
02685 
02686   return (v ? scheme_true : scheme_false);
02687 }
02688 
02689 static Scheme_Object *objscheme_wxMouseEvent_SetcontrolDown(int n,  Scheme_Object *p[])
02690 {
02691   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02692   Bool v;
02693   SETUP_VAR_STACK(1);
02694   VAR_STACK_PUSH(0, cobj);
02695 
02696   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-control-down in mouse-event%", n, p));
02697   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-control-down in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02698 
02699   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-control-down in mouse-event%"));
02700   ((wxMouseEvent *)cobj->primdata)->controlDown = v;
02701 
02702   READY_TO_RETURN;
02703   return scheme_void;
02704 }
02705 
02706 static Scheme_Object *objscheme_wxMouseEvent_GetmetaDown(int n,  Scheme_Object *p[])
02707 {
02708   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02709   Bool v;
02710   REMEMBER_VAR_STACK();
02711 
02712   objscheme_check_valid(os_wxMouseEvent_class, "get-meta-down in mouse-event%", n, p);
02713   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-meta-down in mouse-event%", POFFSET, POFFSET, n, p, 1));
02714   cobj = (Scheme_Class_Object *)p[0];
02715   if (cobj->primflag)
02716     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::metaDown;
02717   else
02718     v = ((wxMouseEvent *)cobj->primdata)->metaDown;
02719 
02720   return (v ? scheme_true : scheme_false);
02721 }
02722 
02723 static Scheme_Object *objscheme_wxMouseEvent_SetmetaDown(int n,  Scheme_Object *p[])
02724 {
02725   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02726   Bool v;
02727   SETUP_VAR_STACK(1);
02728   VAR_STACK_PUSH(0, cobj);
02729 
02730   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-meta-down in mouse-event%", n, p));
02731   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-meta-down in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02732 
02733   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-meta-down in mouse-event%"));
02734   ((wxMouseEvent *)cobj->primdata)->metaDown = v;
02735 
02736   READY_TO_RETURN;
02737   return scheme_void;
02738 }
02739 
02740 static Scheme_Object *objscheme_wxMouseEvent_GetaltDown(int n,  Scheme_Object *p[])
02741 {
02742   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02743   Bool v;
02744   REMEMBER_VAR_STACK();
02745 
02746   objscheme_check_valid(os_wxMouseEvent_class, "get-alt-down in mouse-event%", n, p);
02747   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-alt-down in mouse-event%", POFFSET, POFFSET, n, p, 1));
02748   cobj = (Scheme_Class_Object *)p[0];
02749   if (cobj->primflag)
02750     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::altDown;
02751   else
02752     v = ((wxMouseEvent *)cobj->primdata)->altDown;
02753 
02754   return (v ? scheme_true : scheme_false);
02755 }
02756 
02757 static Scheme_Object *objscheme_wxMouseEvent_SetaltDown(int n,  Scheme_Object *p[])
02758 {
02759   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02760   Bool v;
02761   SETUP_VAR_STACK(1);
02762   VAR_STACK_PUSH(0, cobj);
02763 
02764   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-alt-down in mouse-event%", n, p));
02765   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-alt-down in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02766 
02767   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-alt-down in mouse-event%"));
02768   ((wxMouseEvent *)cobj->primdata)->altDown = v;
02769 
02770   READY_TO_RETURN;
02771   return scheme_void;
02772 }
02773 
02774 static Scheme_Object *objscheme_wxMouseEvent_GetcapsDown(int n,  Scheme_Object *p[])
02775 {
02776   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02777   Bool v;
02778   REMEMBER_VAR_STACK();
02779 
02780   objscheme_check_valid(os_wxMouseEvent_class, "get-caps-down in mouse-event%", n, p);
02781   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-caps-down in mouse-event%", POFFSET, POFFSET, n, p, 1));
02782   cobj = (Scheme_Class_Object *)p[0];
02783   if (cobj->primflag)
02784     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::capsDown;
02785   else
02786     v = ((wxMouseEvent *)cobj->primdata)->capsDown;
02787 
02788   return (v ? scheme_true : scheme_false);
02789 }
02790 
02791 static Scheme_Object *objscheme_wxMouseEvent_SetcapsDown(int n,  Scheme_Object *p[])
02792 {
02793   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02794   Bool v;
02795   SETUP_VAR_STACK(1);
02796   VAR_STACK_PUSH(0, cobj);
02797 
02798   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-caps-down in mouse-event%", n, p));
02799   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-caps-down in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02800 
02801   v = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET], "set-caps-down in mouse-event%"));
02802   ((wxMouseEvent *)cobj->primdata)->capsDown = v;
02803 
02804   READY_TO_RETURN;
02805   return scheme_void;
02806 }
02807 
02808 static Scheme_Object *objscheme_wxMouseEvent_Getx(int n,  Scheme_Object *p[])
02809 {
02810   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02811   int v;
02812   REMEMBER_VAR_STACK();
02813 
02814   objscheme_check_valid(os_wxMouseEvent_class, "get-x in mouse-event%", n, p);
02815   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-x in mouse-event%", POFFSET, POFFSET, n, p, 1));
02816   cobj = (Scheme_Class_Object *)p[0];
02817   if (cobj->primflag)
02818     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::x;
02819   else
02820     v = ((wxMouseEvent *)cobj->primdata)->x;
02821 
02822   return scheme_make_integer(v);
02823 }
02824 
02825 static Scheme_Object *objscheme_wxMouseEvent_Setx(int n,  Scheme_Object *p[])
02826 {
02827   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02828   int v;
02829   SETUP_VAR_STACK(1);
02830   VAR_STACK_PUSH(0, cobj);
02831 
02832   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-x in mouse-event%", n, p));
02833   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-x in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02834 
02835   v = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET], "set-x in mouse-event%"));
02836   ((wxMouseEvent *)cobj->primdata)->x = v;
02837 
02838   READY_TO_RETURN;
02839   return scheme_void;
02840 }
02841 
02842 static Scheme_Object *objscheme_wxMouseEvent_Gety(int n,  Scheme_Object *p[])
02843 {
02844   Scheme_Class_Object *cobj INIT_NULLED_OUT;
02845   int v;
02846   REMEMBER_VAR_STACK();
02847 
02848   objscheme_check_valid(os_wxMouseEvent_class, "get-y in mouse-event%", n, p);
02849   if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-y in mouse-event%", POFFSET, POFFSET, n, p, 1));
02850   cobj = (Scheme_Class_Object *)p[0];
02851   if (cobj->primflag)
02852     v = ((os_wxMouseEvent *)cobj->primdata)->wxMouseEvent::y;
02853   else
02854     v = ((wxMouseEvent *)cobj->primdata)->y;
02855 
02856   return scheme_make_integer(v);
02857 }
02858 
02859 static Scheme_Object *objscheme_wxMouseEvent_Sety(int n,  Scheme_Object *p[])
02860 {
02861   Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
02862   int v;
02863   SETUP_VAR_STACK(1);
02864   VAR_STACK_PUSH(0, cobj);
02865 
02866   WITH_VAR_STACK(objscheme_check_valid(os_wxMouseEvent_class, "set-y in mouse-event%", n, p));
02867   if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-y in mouse-event%", POFFSET+1, POFFSET+1, n, p, 1));
02868 
02869   v = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET], "set-y in mouse-event%"));
02870   ((wxMouseEvent *)cobj->primdata)->y = v;
02871 
02872   READY_TO_RETURN;
02873   return scheme_void;
02874 }
02875 
02876 static Scheme_Object *os_wxMouseEvent_ConstructScheme(int n,  Scheme_Object *p[])
02877 {
02878   SETUP_PRE_VAR_STACK(1);
02879   PRE_VAR_STACK_PUSH(0, p);
02880   os_wxMouseEvent *realobj INIT_NULLED_OUT;
02881   REMEMBER_VAR_STACK();
02882   int x0;
02883   Bool x1;
02884   Bool x2;
02885   Bool x3;
02886   int x4;
02887   int x5;
02888   Bool x6;
02889   Bool x7;
02890   Bool x8;
02891   Bool x9;
02892   ExactLong x10;
02893   Bool x11;
02894 
02895   SETUP_VAR_STACK_PRE_REMEMBERED(2);
02896   VAR_STACK_PUSH(0, p);
02897   VAR_STACK_PUSH(1, realobj);
02898 
02899   
02900   if ((n < (POFFSET+1)) || (n > (POFFSET+12))) 
02901     WITH_VAR_STACK(scheme_wrong_count_m("initialization in mouse-event%", POFFSET+1, POFFSET+12, n, p, 1));
02902   x0 = WITH_VAR_STACK(unbundle_symset_mouseEventType(p[POFFSET+0], "initialization in mouse-event%"));
02903   if (n > (POFFSET+1)) {
02904     x1 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+1], "initialization in mouse-event%"));
02905   } else
02906     x1 = 0;
02907   if (n > (POFFSET+2)) {
02908     x2 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+2], "initialization in mouse-event%"));
02909   } else
02910     x2 = 0;
02911   if (n > (POFFSET+3)) {
02912     x3 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+3], "initialization in mouse-event%"));
02913   } else
02914     x3 = 0;
02915   if (n > (POFFSET+4)) {
02916     x4 = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET+4], "initialization in mouse-event%"));
02917   } else
02918     x4 = 0;
02919   if (n > (POFFSET+5)) {
02920     x5 = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET+5], "initialization in mouse-event%"));
02921   } else
02922     x5 = 0;
02923   if (n > (POFFSET+6)) {
02924     x6 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+6], "initialization in mouse-event%"));
02925   } else
02926     x6 = 0;
02927   if (n > (POFFSET+7)) {
02928     x7 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+7], "initialization in mouse-event%"));
02929   } else
02930     x7 = 0;
02931   if (n > (POFFSET+8)) {
02932     x8 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+8], "initialization in mouse-event%"));
02933   } else
02934     x8 = 0;
02935   if (n > (POFFSET+9)) {
02936     x9 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+9], "initialization in mouse-event%"));
02937   } else
02938     x9 = 0;
02939   if (n > (POFFSET+10)) {
02940     x10 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+10], "initialization in mouse-event%"));
02941   } else
02942     x10 = 0;
02943   if (n > (POFFSET+11)) {
02944     x11 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+11], "initialization in mouse-event%"));
02945   } else
02946     x11 = 0;
02947 
02948   
02949   realobj = WITH_VAR_STACK(new os_wxMouseEvent CONSTRUCTOR_ARGS((x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11)));
02950 #ifdef MZ_PRECISE_GC
02951   WITH_VAR_STACK(realobj->gcInit_wxMouseEvent_ext(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11));
02952 #endif
02953   realobj->__gc_external = (void *)p[0];
02954   
02955   
02956   READY_TO_RETURN;
02957   ((Scheme_Class_Object *)p[0])->primdata = realobj;
02958   ((Scheme_Class_Object *)p[0])->primflag = 1;
02959   return scheme_void;
02960 }
02961 
02962 void objscheme_setup_wxMouseEvent(Scheme_Env *env)
02963 {
02964   SETUP_VAR_STACK(1);
02965   VAR_STACK_PUSH(0, env);
02966 
02967   wxREGGLOB(os_wxMouseEvent_class);
02968 
02969   os_wxMouseEvent_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "mouse-event%", "event%", (Scheme_Method_Prim *)os_wxMouseEvent_ConstructScheme, 29));
02970 
02971   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class, "moving?" " method", (Scheme_Method_Prim *)os_wxMouseEventMoving, 0, 0));
02972   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class, "leaving?" " method", (Scheme_Method_Prim *)os_wxMouseEventLeaving, 0, 0));
02973   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class, "entering?" " method", (Scheme_Method_Prim *)os_wxMouseEventEntering, 0, 0));
02974   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class, "dragging?" " method", (Scheme_Method_Prim *)os_wxMouseEventDragging, 0, 0));
02975   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class, "button-up?" " method", (Scheme_Method_Prim *)os_wxMouseEventButtonUp, 0, 1));
02976   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class, "button-down?" " method", (Scheme_Method_Prim *)os_wxMouseEventButtonDown, 0, 1));
02977   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class, "button-changed?" " method", (Scheme_Method_Prim *)os_wxMouseEventButton, 0, 1));
02978 
02979   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-event-type" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_GeteventType, 0, 0));
02980   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-event-type" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_SeteventType, 1, 1));
02981   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-left-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_GetleftDown, 0, 0));
02982   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-left-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_SetleftDown, 1, 1));
02983   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-middle-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_GetmiddleDown, 0, 0));
02984   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-middle-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_SetmiddleDown, 1, 1));
02985   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-right-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_GetrightDown, 0, 0));
02986   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-right-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_SetrightDown, 1, 1));
02987   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-shift-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_GetshiftDown, 0, 0));
02988   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-shift-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_SetshiftDown, 1, 1));
02989   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-control-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_GetcontrolDown, 0, 0));
02990   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-control-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_SetcontrolDown, 1, 1));
02991   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-meta-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_GetmetaDown, 0, 0));
02992   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-meta-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_SetmetaDown, 1, 1));
02993   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-alt-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_GetaltDown, 0, 0));
02994   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-alt-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_SetaltDown, 1, 1));
02995   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-caps-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_GetcapsDown, 0, 0));
02996   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-caps-down" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_SetcapsDown, 1, 1));
02997   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-x" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_Getx, 0, 0));
02998   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-x" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_Setx, 1, 1));
02999   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"get-y" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_Gety, 0, 0));
03000   WITH_VAR_STACK(scheme_add_method_w_arity(os_wxMouseEvent_class,"set-y" " method", (Scheme_Method_Prim *)objscheme_wxMouseEvent_Sety, 1, 1));
03001 
03002   WITH_VAR_STACK(scheme_made_class(os_wxMouseEvent_class));
03003 
03004 
03005   READY_TO_RETURN;
03006 }
03007 
03008 int objscheme_istype_wxMouseEvent(Scheme_Object *obj, const char *stop, int nullOK)
03009 {
03010   REMEMBER_VAR_STACK();
03011   if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
03012   if (objscheme_is_a(obj,  os_wxMouseEvent_class))
03013     return 1;
03014   else {
03015     if (!stop)
03016        return 0;
03017     WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "mouse-event% object or " XC_NULL_STR: "mouse-event% object", -1, 0, &obj));
03018     return 0;
03019   }
03020 }
03021 
03022 Scheme_Object *objscheme_bundle_wxMouseEvent(class wxMouseEvent *realobj)
03023 {
03024   Scheme_Class_Object *obj INIT_NULLED_OUT;
03025   Scheme_Object *sobj INIT_NULLED_OUT;
03026 
03027   if (!realobj) return XC_SCHEME_NULL;
03028 
03029   if (realobj->__gc_external)
03030     return (Scheme_Object *)realobj->__gc_external;
03031 
03032   SETUP_VAR_STACK(2);
03033   VAR_STACK_PUSH(0, obj);
03034   VAR_STACK_PUSH(1, realobj);
03035 
03036   if ((sobj = WITH_VAR_STACK(objscheme_bundle_by_type(realobj, realobj->__type))))
03037     { READY_TO_RETURN; return sobj; }
03038   obj = (Scheme_Class_Object *)WITH_VAR_STACK(scheme_make_uninited_object(os_wxMouseEvent_class));
03039 
03040   obj->primdata = realobj;
03041   obj->primflag = 0;
03042 
03043   realobj->__gc_external = (void *)obj;
03044   READY_TO_RETURN;
03045   return (Scheme_Object *)obj;
03046 }
03047 
03048 class wxMouseEvent *objscheme_unbundle_wxMouseEvent(Scheme_Object *obj, const char *where, int nullOK)
03049 {
03050   if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;
03051 
03052   REMEMBER_VAR_STACK();
03053 
03054   (void)objscheme_istype_wxMouseEvent(obj, where, nullOK);
03055   Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
03056   WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
03057   if (o->primflag)
03058     return (os_wxMouseEvent *)o->primdata;
03059   else
03060     return (wxMouseEvent *)o->primdata;
03061 }
03062