Back to index

plt-scheme  4.2.1
Classes | Defines | Typedefs | Functions | Variables
wxs_misc.cxx File Reference
#include "wx_obj.h"
#include "wx_win.h"
#include "wx_timer.h"
#include "wx_types.h"
#include "wx_stdev.h"
#include "wx_dc.h"
#include "wx_dcps.h"
#include "wx_clipb.h"
#include "wxscheme.h"
#include "wxs_misc.h"

Go to the source code of this file.

Classes

class  os_wxTimer
class  os_wxClipboard
class  os_wxClipboardClient
class  os_wxPrintSetupData

Defines

#define BM_IN_USE(map)   ((map)->selectedIntoDC)
#define ESCAPE_NO_RET_VAL   /*empty*/
#define NEWEST_TYPES   1

Typedefs

typedef Scheme_ObjectScheme_Object_Ptr

Functions

voidwxsCheckEventspace (char *)
os_wxTimer::os_wxTimer CONSTRUCTOR_ARGS (())
static Scheme_Objectos_wxTimerNotify (int n, Scheme_Object *p[])
static Scheme_Objectos_wxTimerStop (int n, Scheme_Object *p[])
static Scheme_Objectos_wxTimerStart (int n, Scheme_Object *p[])
static Scheme_Objectos_wxTimerInterval (int n, Scheme_Object *p[])
static Scheme_Objectos_wxTimer_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxTimer (Scheme_Env *env)
int objscheme_istype_wxTimer (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxTimer (class wxTimer *realobj)
class wxTimerobjscheme_unbundle_wxTimer (Scheme_Object *obj, const char *where, int nullOK)
void AddType (wxClipboardClient *c, char *s)
Scheme_ObjectGetTypes (wxClipboardClient *c)
static int SameClipboardClientEventspace (wxClipboardClient *c, Scheme_Object *es)
static int SameClipboardClient (wxClipboard *cb, wxClipboardClient *cc)
static Scheme_Objectos_wxClipboardSameClipboardClient (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardGetClipboardBitmap (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardSetClipboardBitmap (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardGetClipboardData (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardGetClipboardString (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardSetClipboardString (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardSetClipboardClient (int n, Scheme_Object *p[])
void objscheme_setup_wxClipboard (Scheme_Env *env)
int objscheme_istype_wxClipboard (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxClipboard (class wxClipboard *realobj)
class wxClipboardobjscheme_unbundle_wxClipboard (Scheme_Object *obj, const char *where, int nullOK)
static wxClipboardwxGetTheClipboard ()
static wxClipboardwxGetTheXSelection ()
static Scheme_ObjectwxClipboardGlobalwxGetTheXSelection (int n, Scheme_Object *p[])
static Scheme_ObjectwxClipboardGlobalwxGetTheClipboard (int n, Scheme_Object *p[])
void objscheme_setup_wxClipboardGlobal (Scheme_Env *env)
static Scheme_Objectos_wxClipboardClientGetData (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardClientBeingReplaced (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardClientSameClipboardClientEventspace (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardClientGetTypes (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardClientAddType (int n, Scheme_Object *p[])
static Scheme_Objectos_wxClipboardClient_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxClipboardClient (Scheme_Env *env)
int objscheme_istype_wxClipboardClient (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxClipboardClient (class wxClipboardClient *realobj)
class wxClipboardClientobjscheme_unbundle_wxClipboardClient (Scheme_Object *obj, const char *where, int nullOK)
static void init_symset_psMode (void)
static int unbundle_symset_psMode (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_psMode (int v)
static void init_symset_psOrientation (void)
static int unbundle_symset_psOrientation (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_psOrientation (int v)
void check_ps_mode (int v, Scheme_Object *p)
static Scheme_Objectos_wxPrintSetupDatacopy (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetMargin (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetEditorMargin (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetLevel2 (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetPaperName (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetPrinterTranslation (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetPrinterScaling (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetPrinterOrientation (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetPrinterMode (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetPrintPreviewCommand (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetPrinterFile (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataSetPrinterCommand (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetMargin (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetEditorMargin (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetLevel2 (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetPaperName (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetPrinterTranslation (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetPrinterScaling (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetPrinterOrientation (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetPrinterMode (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetPrintPreviewCommand (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetPrinterFile (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupDataGetPrinterCommand (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPrintSetupData_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxPrintSetupData (Scheme_Env *env)
int objscheme_istype_wxPrintSetupData (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxPrintSetupData (class wxPrintSetupData *realobj)
class wxPrintSetupData * objscheme_unbundle_wxPrintSetupData (Scheme_Object *obj, const char *where, int nullOK)
static Bool wxCanShowNative ()
static Bool wxShowNative (wxWindow *w)
static Scheme_ObjectwxPrintSetupGlobalwxShowNative (int n, Scheme_Object *p[])
static Scheme_ObjectwxPrintSetupGlobalwxCanShowNative (int n, Scheme_Object *p[])
void objscheme_setup_wxPrintSetupGlobal (Scheme_Env *env)

Variables

static Scheme_Objectos_wxTimer_class
static Scheme_Objectos_wxClipboard_class
static Scheme_Objectos_wxClipboard_interface
static Scheme_Objectos_wxClipboardClient_class
static Scheme_ObjectpsMode_PS_PREVIEW_sym = NULL
static Scheme_ObjectpsMode_PS_FILE_sym = NULL
static Scheme_ObjectpsMode_PS_PRINTER_sym = NULL
static Scheme_ObjectpsOrientation_PS_PORTRAIT_sym = NULL
static Scheme_ObjectpsOrientation_PS_LANDSCAPE_sym = NULL
static Scheme_Objectos_wxPrintSetupData_class

Define Documentation

#define BM_IN_USE (   map)    ((map)->selectedIntoDC)

Definition at line 30 of file wxs_misc.cxx.

#define ESCAPE_NO_RET_VAL   /*empty*/

Definition at line 35 of file wxs_misc.cxx.

#define NEWEST_TYPES   1

Definition at line 46 of file wxs_misc.cxx.


Typedef Documentation

Definition at line 359 of file wxs_misc.cxx.


Function Documentation

void AddType ( wxClipboardClient c,
char *  s 
)

Definition at line 325 of file wxs_misc.cxx.

{ 
  c->formats->Add(s); 
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* bundle_symset_psMode ( int  v) [static]

Definition at line 1102 of file wxs_misc.cxx.

                                                  {
  if (!psMode_PS_PRINTER_sym) init_symset_psMode();
  switch (v) {
  case PS_PREVIEW: return psMode_PS_PREVIEW_sym;
  case PS_FILE: return psMode_PS_FILE_sym;
  case PS_PRINTER: return psMode_PS_PRINTER_sym;
  default: return NULL;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1136 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

void check_ps_mode ( int  v,
Scheme_Object p 
)

Definition at line 1149 of file wxs_misc.cxx.

{
  if ((v == PS_PREVIEW) || (v == PS_PRINTER)) {
    scheme_arg_mismatch(METHODNAME("ps-setup%","set-mode"), 
       "only file mode is allowed for this platform, given: ",
       p);
  }
}

Here is the caller graph for this function:

os_wxTimer::os_wxTimer CONSTRUCTOR_ARGS ( ()  )

Definition at line 81 of file wxs_misc.cxx.

                 : wxTimer())
{
}

Definition at line 330 of file wxs_misc.cxx.

{
  wxNode *n = NULL;
  Scheme_Object *first = scheme_null, *last = NULL;
  Scheme_Object *p = NULL, *s = NULL;
    
  SETUP_VAR_STACK(5);
  VAR_STACK_PUSH(0, n);
  VAR_STACK_PUSH(1, first);
  VAR_STACK_PUSH(2, last);
  VAR_STACK_PUSH(3, p);
  VAR_STACK_PUSH(4, s);

  n = WITH_VAR_STACK(c->formats->First());
  for (; n; n = WITH_VAR_STACK(n->Next())) {
    s = WITH_VAR_STACK(scheme_make_utf8_string((char *)n->Data()));
    p = WITH_VAR_STACK(scheme_make_pair(s, scheme_null));
    if (last)
      SCHEME_CDR(last) = p;
    else
      first = p;
    last = p;
  }
  
  READY_TO_RETURN;

  return first;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void init_symset_psMode ( void  ) [static]
static void init_symset_psOrientation ( void  ) [static]

Definition at line 619 of file wxs_misc.cxx.

{
  Scheme_Class_Object *obj INIT_NULLED_OUT;
  Scheme_Object *sobj INIT_NULLED_OUT;

  if (!realobj) return XC_SCHEME_NULL;

  if (realobj->__gc_external)
    return (Scheme_Object *)realobj->__gc_external;

  SETUP_VAR_STACK(2);
  VAR_STACK_PUSH(0, obj);
  VAR_STACK_PUSH(1, realobj);

  if ((sobj = WITH_VAR_STACK(objscheme_bundle_by_type(realobj, realobj->__type))))
    { READY_TO_RETURN; return sobj; }
  obj = (Scheme_Class_Object *)WITH_VAR_STACK(scheme_make_uninited_object(os_wxClipboard_class));

  obj->primdata = realobj;
  WITH_VAR_STACK(objscheme_register_primpointer(obj, &obj->primdata));
  obj->primflag = 0;

  realobj->__gc_external = (void *)obj;
  READY_TO_RETURN;
  return (Scheme_Object *)obj;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1031 of file wxs_misc.cxx.

{
  Scheme_Class_Object *obj INIT_NULLED_OUT;
  Scheme_Object *sobj INIT_NULLED_OUT;

  if (!realobj) return XC_SCHEME_NULL;

  if (realobj->__gc_external)
    return (Scheme_Object *)realobj->__gc_external;

  SETUP_VAR_STACK(2);
  VAR_STACK_PUSH(0, obj);
  VAR_STACK_PUSH(1, realobj);

  if ((sobj = WITH_VAR_STACK(objscheme_bundle_by_type(realobj, realobj->__type))))
    { READY_TO_RETURN; return sobj; }
  obj = (Scheme_Class_Object *)WITH_VAR_STACK(scheme_make_uninited_object(os_wxClipboardClient_class));

  obj->primdata = realobj;
  WITH_VAR_STACK(objscheme_register_primpointer(obj, &obj->primdata));
  obj->primflag = 0;

  realobj->__gc_external = (void *)obj;
  READY_TO_RETURN;
  return (Scheme_Object *)obj;
}

Here is the call graph for this function:

Scheme_Object* objscheme_bundle_wxPrintSetupData ( class wxPrintSetupData *  realobj)

Definition at line 1833 of file wxs_misc.cxx.

{
  Scheme_Class_Object *obj INIT_NULLED_OUT;
  Scheme_Object *sobj INIT_NULLED_OUT;

  if (!realobj) return XC_SCHEME_NULL;

  if (realobj->__gc_external)
    return (Scheme_Object *)realobj->__gc_external;

  SETUP_VAR_STACK(2);
  VAR_STACK_PUSH(0, obj);
  VAR_STACK_PUSH(1, realobj);

  if ((sobj = WITH_VAR_STACK(objscheme_bundle_by_type(realobj, realobj->__type))))
    { READY_TO_RETURN; return sobj; }
  obj = (Scheme_Class_Object *)WITH_VAR_STACK(scheme_make_uninited_object(os_wxPrintSetupData_class));

  obj->primdata = realobj;
  WITH_VAR_STACK(objscheme_register_primpointer(obj, &obj->primdata));
  obj->primflag = 0;

  realobj->__gc_external = (void *)obj;
  READY_TO_RETURN;
  return (Scheme_Object *)obj;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 281 of file wxs_misc.cxx.

{
  Scheme_Class_Object *obj INIT_NULLED_OUT;
  Scheme_Object *sobj INIT_NULLED_OUT;

  if (!realobj) return XC_SCHEME_NULL;

  if (realobj->__gc_external)
    return (Scheme_Object *)realobj->__gc_external;

  SETUP_VAR_STACK(2);
  VAR_STACK_PUSH(0, obj);
  VAR_STACK_PUSH(1, realobj);

  if ((sobj = WITH_VAR_STACK(objscheme_bundle_by_type(realobj, realobj->__type))))
    { READY_TO_RETURN; return sobj; }
  obj = (Scheme_Class_Object *)WITH_VAR_STACK(scheme_make_uninited_object(os_wxTimer_class));

  obj->primdata = realobj;
  WITH_VAR_STACK(objscheme_register_primpointer(obj, &obj->primdata));
  obj->primflag = 0;

  realobj->__gc_external = (void *)obj;
  READY_TO_RETURN;
  return (Scheme_Object *)obj;
}

Here is the call graph for this function:

int objscheme_istype_wxClipboard ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 605 of file wxs_misc.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxClipboard_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "clipboard% object or " XC_NULL_STR: "clipboard% object", -1, 0, &obj));
    return 0;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

int objscheme_istype_wxClipboardClient ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 1017 of file wxs_misc.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxClipboardClient_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "clipboard-client% object or " XC_NULL_STR: "clipboard-client% object", -1, 0, &obj));
    return 0;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

int objscheme_istype_wxPrintSetupData ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 1819 of file wxs_misc.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxPrintSetupData_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "ps-setup% object or " XC_NULL_STR: "ps-setup% object", -1, 0, &obj));
    return 0;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

int objscheme_istype_wxTimer ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 267 of file wxs_misc.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxTimer_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "timer% object or " XC_NULL_STR: "timer% object", -1, 0, &obj));
    return 0;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 577 of file wxs_misc.cxx.

{
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, env);

  wxREGGLOB(os_wxClipboard_class);
  wxREGGLOB(os_wxClipboard_interface);

  os_wxClipboard_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "clipboard%", "object%", NULL, 7));

  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxClipboard_class, "same-clipboard-client?" " method", (Scheme_Method_Prim *)os_wxClipboardSameClipboardClient, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxClipboard_class, "get-clipboard-bitmap" " method", (Scheme_Method_Prim *)os_wxClipboardGetClipboardBitmap, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxClipboard_class, "set-clipboard-bitmap" " method", (Scheme_Method_Prim *)os_wxClipboardSetClipboardBitmap, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxClipboard_class, "get-clipboard-data" " method", (Scheme_Method_Prim *)os_wxClipboardGetClipboardData, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxClipboard_class, "get-clipboard-string" " method", (Scheme_Method_Prim *)os_wxClipboardGetClipboardString, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxClipboard_class, "set-clipboard-string" " method", (Scheme_Method_Prim *)os_wxClipboardSetClipboardString, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxClipboard_class, "set-clipboard-client" " method", (Scheme_Method_Prim *)os_wxClipboardSetClipboardClient, 2, 2));


  WITH_VAR_STACK(scheme_made_class(os_wxClipboard_class));

  os_wxClipboard_interface = WITH_VAR_STACK(scheme_class_to_interface(os_wxClipboard_class, "clipboard" "<%>"));

  WITH_VAR_STACK(objscheme_add_global_interface(os_wxClipboard_interface, "clipboard" "<%>", env));

  READY_TO_RETURN;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 716 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1779 of file wxs_misc.cxx.

{
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, env);

  wxREGGLOB(os_wxPrintSetupData_class);

  os_wxPrintSetupData_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "ps-setup%", "object%", (Scheme_Method_Prim *)os_wxPrintSetupData_ConstructScheme, 23));

  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "copy-from" " method", (Scheme_Method_Prim *)os_wxPrintSetupDatacopy, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-margin" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetMargin, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-editor-margin" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetEditorMargin, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-level-2" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetLevel2, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-paper-name" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetPaperName, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-translation" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetPrinterTranslation, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-scaling" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetPrinterScaling, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-orientation" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetPrinterOrientation, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-mode" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetPrinterMode, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-preview-command" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetPrintPreviewCommand, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-file" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetPrinterFile, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "set-command" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataSetPrinterCommand, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-margin" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetMargin, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-editor-margin" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetEditorMargin, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-level-2" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetLevel2, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-paper-name" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetPaperName, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-translation" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetPrinterTranslation, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-scaling" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetPrinterScaling, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-orientation" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetPrinterOrientation, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-mode" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetPrinterMode, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-preview-command" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetPrintPreviewCommand, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-file" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetPrinterFile, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPrintSetupData_class, "get-command" " method", (Scheme_Method_Prim *)os_wxPrintSetupDataGetPrinterCommand, 0, 0));


  WITH_VAR_STACK(scheme_made_class(os_wxPrintSetupData_class));


  READY_TO_RETURN;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1943 of file wxs_misc.cxx.

{
  Scheme_Object *functmp INIT_NULLED_OUT;
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, env);
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxPrintSetupGlobalwxShowNative, "show-print-setup", 0, 1));
  WITH_VAR_STACK(scheme_install_xc_global("show-print-setup", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxPrintSetupGlobalwxCanShowNative, "can-show-print-setup?", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("can-show-print-setup?", functmp, env));
  READY_TO_RETURN;
}

Here is the call graph for this function:

Here is the caller graph for this function:

class wxClipboard* objscheme_unbundle_wxClipboard ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 646 of file wxs_misc.cxx.

{
  if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxClipboard(obj, where, nullOK);
  Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
  WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
  if (o->primflag)
    return (os_wxClipboard *)o->primdata;
  else
    return (wxClipboard *)o->primdata;
}

Here is the call graph for this function:

class wxClipboardClient * objscheme_unbundle_wxClipboardClient ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 1058 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

class wxPrintSetupData * objscheme_unbundle_wxPrintSetupData ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 1860 of file wxs_misc.cxx.

{
  if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxPrintSetupData(obj, where, nullOK);
  Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
  WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
  if (o->primflag)
    return (os_wxPrintSetupData *)o->primdata;
  else
    return (wxPrintSetupData *)o->primdata;
}

Here is the call graph for this function:

Here is the caller graph for this function:

class wxTimer* objscheme_unbundle_wxTimer ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 308 of file wxs_misc.cxx.

{
  if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxTimer(obj, where, nullOK);
  Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
  WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
  if (o->primflag)
    return (os_wxTimer *)o->primdata;
  else
    return (wxTimer *)o->primdata;
}

Here is the call graph for this function:

Definition at line 965 of file wxs_misc.cxx.

{
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  os_wxClipboardClient *realobj INIT_NULLED_OUT;
  REMEMBER_VAR_STACK();

  SETUP_VAR_STACK_PRE_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, realobj);

  
  if (n != (POFFSET+0)) 
    WITH_VAR_STACK(scheme_wrong_count_m("initialization in clipboard-client%", POFFSET+0, POFFSET+0, n, p, 1));

  
  realobj = WITH_VAR_STACK(new os_wxClipboardClient CONSTRUCTOR_ARGS(()));
#ifdef MZ_PRECISE_GC
  WITH_VAR_STACK(realobj->gcInit_wxClipboardClient());
#endif
  realobj->__gc_external = (void *)p[0];
  
  
  READY_TO_RETURN;
  ((Scheme_Class_Object *)p[0])->primdata = realobj;
  ((Scheme_Class_Object *)p[0])->primflag = 1;
  WITH_REMEMBERED_STACK(objscheme_register_primpointer(p[0], &((Scheme_Class_Object *)p[0])->primdata));
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxClipboardClientAddType ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 890 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object * os_wxClipboardClientBeingReplaced ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 942 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxClipboardClient_class, "on-replaced in clipboard-client%", n, p);

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  

  
  if (((Scheme_Class_Object *)p[0])->primflag)
    {}
  else
    WITH_VAR_STACK(((wxClipboardClient *)((Scheme_Class_Object *)p[0])->primdata)->BeingReplaced());

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object * os_wxClipboardClientGetData ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 913 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  nbstring r;
  objscheme_check_valid(os_wxClipboardClient_class, "get-data in clipboard-client%", n, p);
  string x0 INIT_NULLED_OUT;
  long _x1;
  long* x1 = &_x1;

  SETUP_VAR_STACK_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);

  
  x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+0], "get-data in clipboard-client%"));

  
  if (((Scheme_Class_Object *)p[0])->primflag)
    r =  NULL;
  else
    r = WITH_VAR_STACK(((wxClipboardClient *)((Scheme_Class_Object *)p[0])->primdata)->GetData(x0, x1));

  
  
  READY_TO_RETURN;
  return WITH_REMEMBERED_STACK(objscheme_bundle_bstring((char *)r));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxClipboardClientGetTypes ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 869 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 845 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxClipboardGetClipboardBitmap ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 428 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  class wxBitmap* r;
  objscheme_check_valid(os_wxClipboard_class, "get-clipboard-bitmap in clipboard<%>", n, p);
  ExactLong x0;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+0], "get-clipboard-bitmap in clipboard<%>"));

  
  r = WITH_VAR_STACK(((wxClipboard *)((Scheme_Class_Object *)p[0])->primdata)->GetClipboardBitmap(x0));

  
  
  READY_TO_RETURN;
  return WITH_REMEMBERED_STACK(objscheme_bundle_wxBitmap(r));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxClipboardGetClipboardData ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 476 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  nbstring r;
  objscheme_check_valid(os_wxClipboard_class, "get-clipboard-data in clipboard<%>", n, p);
  string x0 INIT_NULLED_OUT;
  long _x1;
  long* x1 = &_x1;
  ExactLong x2;

  SETUP_VAR_STACK_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);

  
  x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+0], "get-clipboard-data in clipboard<%>"));
  x2 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+1], "get-clipboard-data in clipboard<%>"));

  
  r = WITH_VAR_STACK(((wxClipboard *)((Scheme_Class_Object *)p[0])->primdata)->GetClipboardData(x0, x1, x2));

  
  
  READY_TO_RETURN;
  return (r ? scheme_make_sized_byte_string(r, _x1, 1) : XC_SCHEME_NULL);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxClipboardGetClipboardString ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 504 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  nstring r;
  objscheme_check_valid(os_wxClipboard_class, "get-clipboard-string in clipboard<%>", n, p);
  ExactLong x0;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+0], "get-clipboard-string in clipboard<%>"));

  
  r = WITH_VAR_STACK(((wxClipboard *)((Scheme_Class_Object *)p[0])->primdata)->GetClipboardString(x0));

  
  
  READY_TO_RETURN;
  return WITH_REMEMBERED_STACK(objscheme_bundle_string((char *)r));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 404 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxClipboardSetClipboardBitmap ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 451 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxClipboard_class, "set-clipboard-bitmap in clipboard<%>", n, p);
  class wxBitmap* x0 INIT_NULLED_OUT;
  ExactLong x1;

  SETUP_VAR_STACK_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_wxBitmap(p[POFFSET+0], "set-clipboard-bitmap in clipboard<%>", 0));
  x1 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+1], "set-clipboard-bitmap in clipboard<%>"));

  
  WITH_VAR_STACK(((wxClipboard *)((Scheme_Class_Object *)p[0])->primdata)->SetClipboardBitmap(x0, x1));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxClipboardSetClipboardClient ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 552 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxClipboard_class, "set-clipboard-client in clipboard<%>", n, p);
  class wxClipboardClient* x0 INIT_NULLED_OUT;
  ExactLong x1;

  SETUP_VAR_STACK_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_wxClipboardClient(p[POFFSET+0], "set-clipboard-client in clipboard<%>", 0));
  x1 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+1], "set-clipboard-client in clipboard<%>"));

  
  WITH_VAR_STACK(((wxClipboard *)((Scheme_Class_Object *)p[0])->primdata)->SetClipboardClient(x0, x1));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxClipboardSetClipboardString ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 527 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxClipboard_class, "set-clipboard-string in clipboard<%>", n, p);
  string x0 INIT_NULLED_OUT;
  ExactLong x1;

  SETUP_VAR_STACK_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);

  
  x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+0], "set-clipboard-string in clipboard<%>"));
  x1 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[POFFSET+1], "set-clipboard-string in clipboard<%>"));

  
  WITH_VAR_STACK(((wxClipboard *)((Scheme_Class_Object *)p[0])->primdata)->SetClipboardString(x0, x1));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1749 of file wxs_misc.cxx.

{
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  os_wxPrintSetupData *realobj INIT_NULLED_OUT;
  REMEMBER_VAR_STACK();

  SETUP_VAR_STACK_PRE_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, realobj);

  
  if (n != (POFFSET+0)) 
    WITH_VAR_STACK(scheme_wrong_count_m("initialization in ps-setup%", POFFSET+0, POFFSET+0, n, p, 1));

  
  realobj = WITH_VAR_STACK(new os_wxPrintSetupData CONSTRUCTOR_ARGS(()));
#ifdef MZ_PRECISE_GC
  WITH_VAR_STACK(realobj->gcInit_wxPrintSetupData());
#endif
  realobj->__gc_external = (void *)p[0];
  
  
  READY_TO_RETURN;
  ((Scheme_Class_Object *)p[0])->primdata = realobj;
  ((Scheme_Class_Object *)p[0])->primflag = 1;
  WITH_REMEMBERED_STACK(objscheme_register_primpointer(p[0], &((Scheme_Class_Object *)p[0])->primdata));
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxPrintSetupDatacopy ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1201 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "copy-from in ps-setup%", n, p);
  class wxPrintSetupData* x0 INIT_NULLED_OUT;

  SETUP_VAR_STACK_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_wxPrintSetupData(p[POFFSET+0], "copy-from in ps-setup%", 0));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->copy(x0));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1509 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "get-editor-margin in ps-setup%", n, p);
  nnlong _x0;
  nnlong* x0 = &_x0;
  nnlong _x1;
  nnlong* x1 = &_x1;
  Scheme_Object *sbox_tmp;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
      *x0 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[POFFSET+0], "get-editor-margin in ps-setup%")), WITH_VAR_STACK(objscheme_unbundle_nonnegative_integer(sbox_tmp, "get-editor-margin in ps-setup%"", extracting boxed argument")));
      *x1 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[POFFSET+1], "get-editor-margin in ps-setup%")), WITH_VAR_STACK(objscheme_unbundle_nonnegative_integer(sbox_tmp, "get-editor-margin in ps-setup%"", extracting boxed argument")));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->GetEditorMargin(x0, x1));

  
  if (n > (POFFSET+0))
    { Scheme_Object *sbv_ = scheme_make_integer(_x0); WITH_VAR_STACK(objscheme_set_box(p[POFFSET+0], sbv_)); } 
  if (n > (POFFSET+1))
    { Scheme_Object *sbv_ = scheme_make_integer(_x1); WITH_VAR_STACK(objscheme_set_box(p[POFFSET+1], sbv_)); } 
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxPrintSetupDataGetLevel2 ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1540 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxPrintSetupDataGetMargin ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1478 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "get-margin in ps-setup%", n, p);
  nndouble _x0;
  nndouble* x0 = &_x0;
  nndouble _x1;
  nndouble* x1 = &_x1;
  Scheme_Object *sbox_tmp;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
      *x0 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[POFFSET+0], "get-margin in ps-setup%")), WITH_VAR_STACK(objscheme_unbundle_nonnegative_double(sbox_tmp, "get-margin in ps-setup%"", extracting boxed argument")));
      *x1 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[POFFSET+1], "get-margin in ps-setup%")), WITH_VAR_STACK(objscheme_unbundle_nonnegative_double(sbox_tmp, "get-margin in ps-setup%"", extracting boxed argument")));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->GetMargin(x0, x1));

  
  if (n > (POFFSET+0))
    { Scheme_Object *sbv_ = WITH_VAR_STACK(scheme_make_double(_x0)); WITH_VAR_STACK(objscheme_set_box(p[POFFSET+0], sbv_)); } 
  if (n > (POFFSET+1))
    { Scheme_Object *sbv_ = WITH_VAR_STACK(scheme_make_double(_x1)); WITH_VAR_STACK(objscheme_set_box(p[POFFSET+1], sbv_)); } 
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxPrintSetupDataGetPaperName ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1561 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1728 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  string r;
  objscheme_check_valid(os_wxPrintSetupData_class, "get-command in ps-setup%", n, p);

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  

  
  r = WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->GetPrinterCommand());

  
  
  READY_TO_RETURN;
  return WITH_REMEMBERED_STACK(objscheme_bundle_string((char *)r));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1707 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1665 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1644 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1613 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "get-scaling in ps-setup%", n, p);
  nndouble _x0;
  nndouble* x0 = &_x0;
  nndouble _x1;
  nndouble* x1 = &_x1;
  Scheme_Object *sbox_tmp;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
      *x0 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[POFFSET+0], "get-scaling in ps-setup%")), WITH_VAR_STACK(objscheme_unbundle_nonnegative_double(sbox_tmp, "get-scaling in ps-setup%"", extracting boxed argument")));
      *x1 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[POFFSET+1], "get-scaling in ps-setup%")), WITH_VAR_STACK(objscheme_unbundle_nonnegative_double(sbox_tmp, "get-scaling in ps-setup%"", extracting boxed argument")));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->GetPrinterScaling(x0, x1));

  
  if (n > (POFFSET+0))
    { Scheme_Object *sbv_ = WITH_VAR_STACK(scheme_make_double(_x0)); WITH_VAR_STACK(objscheme_set_box(p[POFFSET+0], sbv_)); } 
  if (n > (POFFSET+1))
    { Scheme_Object *sbv_ = WITH_VAR_STACK(scheme_make_double(_x1)); WITH_VAR_STACK(objscheme_set_box(p[POFFSET+1], sbv_)); } 
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1582 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "get-translation in ps-setup%", n, p);
  double _x0;
  double* x0 = &_x0;
  double _x1;
  double* x1 = &_x1;
  Scheme_Object *sbox_tmp;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
      *x0 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[POFFSET+0], "get-translation in ps-setup%")), WITH_VAR_STACK(objscheme_unbundle_double(sbox_tmp, "get-translation in ps-setup%"", extracting boxed argument")));
      *x1 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[POFFSET+1], "get-translation in ps-setup%")), WITH_VAR_STACK(objscheme_unbundle_double(sbox_tmp, "get-translation in ps-setup%"", extracting boxed argument")));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->GetPrinterTranslation(x0, x1));

  
  if (n > (POFFSET+0))
    { Scheme_Object *sbv_ = WITH_VAR_STACK(scheme_make_double(_x0)); WITH_VAR_STACK(objscheme_set_box(p[POFFSET+0], sbv_)); } 
  if (n > (POFFSET+1))
    { Scheme_Object *sbv_ = WITH_VAR_STACK(scheme_make_double(_x1)); WITH_VAR_STACK(objscheme_set_box(p[POFFSET+1], sbv_)); } 
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1686 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  string r;
  objscheme_check_valid(os_wxPrintSetupData_class, "get-preview-command in ps-setup%", n, p);

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  

  
  r = WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->GetPrintPreviewCommand());

  
  
  READY_TO_RETURN;
  return WITH_REMEMBERED_STACK(objscheme_bundle_string((char *)r));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1248 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "set-editor-margin in ps-setup%", n, p);
  nnlong x0;
  nnlong x1;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_nonnegative_integer(p[POFFSET+0], "set-editor-margin in ps-setup%"));
  x1 = WITH_VAR_STACK(objscheme_unbundle_nonnegative_integer(p[POFFSET+1], "set-editor-margin in ps-setup%"));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->SetEditorMargin(x0, x1));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxPrintSetupDataSetLevel2 ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1272 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxPrintSetupDataSetMargin ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1224 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "set-margin in ps-setup%", n, p);
  nndouble x0;
  nndouble x1;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_nonnegative_double(p[POFFSET+0], "set-margin in ps-setup%"));
  x1 = WITH_VAR_STACK(objscheme_unbundle_nonnegative_double(p[POFFSET+1], "set-margin in ps-setup%"));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->SetMargin(x0, x1));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxPrintSetupDataSetPaperName ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1294 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1455 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "set-command in ps-setup%", n, p);
  string x0 INIT_NULLED_OUT;

  SETUP_VAR_STACK_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);

  
  x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+0], "set-command in ps-setup%"));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->SetPrinterCommand(x0));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1432 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1387 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "set-mode in ps-setup%", n, p);
  int x0;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
  x0 = WITH_VAR_STACK(unbundle_symset_psMode(p[POFFSET+0], "set-mode in ps-setup%"));

  WITH_VAR_STACK(check_ps_mode(x0, p[POFFSET+0]));
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->SetPrinterMode(x0));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1365 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "set-orientation in ps-setup%", n, p);
  int x0;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
  x0 = WITH_VAR_STACK(unbundle_symset_psOrientation(p[POFFSET+0], "set-orientation in ps-setup%"));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->SetPrinterOrientation(x0));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1341 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "set-scaling in ps-setup%", n, p);
  nndouble x0;
  nndouble x1;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_nonnegative_double(p[POFFSET+0], "set-scaling in ps-setup%"));
  x1 = WITH_VAR_STACK(objscheme_unbundle_nonnegative_double(p[POFFSET+1], "set-scaling in ps-setup%"));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->SetPrinterScaling(x0, x1));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1317 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "set-translation in ps-setup%", n, p);
  double x0;
  double x1;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_double(p[POFFSET+0], "set-translation in ps-setup%"));
  x1 = WITH_VAR_STACK(objscheme_unbundle_double(p[POFFSET+1], "set-translation in ps-setup%"));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->SetPrinterTranslation(x0, x1));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 1409 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxPrintSetupData_class, "set-preview-command in ps-setup%", n, p);
  string x0 INIT_NULLED_OUT;

  SETUP_VAR_STACK_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);

  
  x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+0], "set-preview-command in ps-setup%"));

  
  WITH_VAR_STACK(((wxPrintSetupData *)((Scheme_Class_Object *)p[0])->primdata)->SetPrintPreviewCommand(x0));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxTimer_ConstructScheme ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 216 of file wxs_misc.cxx.

{
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  os_wxTimer *realobj INIT_NULLED_OUT;
  REMEMBER_VAR_STACK();

  SETUP_VAR_STACK_PRE_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, realobj);

  
  if (n != (POFFSET+0)) 
    WITH_VAR_STACK(scheme_wrong_count_m("initialization in timer%", POFFSET+0, POFFSET+0, n, p, 1));

  WITH_VAR_STACK(wxsCheckEventspace(METHODNAME("timer%","initialization")));
  realobj = WITH_VAR_STACK(new os_wxTimer CONSTRUCTOR_ARGS(()));
#ifdef MZ_PRECISE_GC
  WITH_VAR_STACK(realobj->gcInit_wxTimer());
#endif
  realobj->__gc_external = (void *)p[0];
  
  
  READY_TO_RETURN;
  ((Scheme_Class_Object *)p[0])->primdata = realobj;
  ((Scheme_Class_Object *)p[0])->primflag = 1;
  WITH_REMEMBERED_STACK(objscheme_register_primpointer(p[0], &((Scheme_Class_Object *)p[0])->primdata));
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxTimerInterval ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 195 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object * os_wxTimerNotify ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 172 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxTimerStart ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 145 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxTimer_class, "start in timer%", n, p);
  int x0;
  Bool x1;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+0], 0, 1000000000, "start in timer%"));
  if (n > (POFFSET+1)) {
    x1 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+1], "start in timer%"));
  } else
    x1 = FALSE;

  
  WITH_VAR_STACK(((wxTimer *)((Scheme_Class_Object *)p[0])->primdata)->Start(x0, x1));

  
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* os_wxTimerStop ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 125 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static int SameClipboardClient ( wxClipboard cb,
wxClipboardClient cc 
) [static]

Definition at line 365 of file wxs_misc.cxx.

{
  return (cb->GetClipboardClient() == cc);
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 360 of file wxs_misc.cxx.

{
  return (c->context == es);
}

Here is the caller graph for this function:

static int unbundle_symset_psMode ( Scheme_Object v,
const char *  where 
) [static]

Definition at line 1089 of file wxs_misc.cxx.

                                                                       {
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, v);
  if (!psMode_PS_PRINTER_sym) WITH_VAR_STACK(init_symset_psMode());
  if (0) { }
  else if (v == psMode_PS_PREVIEW_sym) { READY_TO_RETURN; return PS_PREVIEW; }
  else if (v == psMode_PS_FILE_sym) { READY_TO_RETURN; return PS_FILE; }
  else if (v == psMode_PS_PRINTER_sym) { READY_TO_RETURN; return PS_PRINTER; }
  if (where) WITH_VAR_STACK(scheme_wrong_type(where, "psMode symbol", -1, 0, &v));
  READY_TO_RETURN;
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static int unbundle_symset_psOrientation ( Scheme_Object v,
const char *  where 
) [static]

Definition at line 1124 of file wxs_misc.cxx.

                                                                              {
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, v);
  if (!psOrientation_PS_LANDSCAPE_sym) WITH_VAR_STACK(init_symset_psOrientation());
  if (0) { }
  else if (v == psOrientation_PS_PORTRAIT_sym) { READY_TO_RETURN; return PS_PORTRAIT; }
  else if (v == psOrientation_PS_LANDSCAPE_sym) { READY_TO_RETURN; return PS_LANDSCAPE; }
  if (where) WITH_VAR_STACK(scheme_wrong_type(where, "psOrientation symbol", -1, 0, &v));
  READY_TO_RETURN;
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Bool wxCanShowNative ( ) [static]

Definition at line 1879 of file wxs_misc.cxx.

{
  wxPrintSetupData *pss;
  pss = wxGetThePrintSetupData();
  return pss->CanShowNative();
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 696 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 676 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static wxClipboard* wxGetTheClipboard ( ) [static]

Definition at line 662 of file wxs_misc.cxx.

{
  return wxTheClipboard;
}

Here is the caller graph for this function:

static wxClipboard* wxGetTheXSelection ( ) [static]

Definition at line 667 of file wxs_misc.cxx.

{
#ifdef wx_xt
  return wxTheSelection;
#else
  return wxTheClipboard;
#endif
}

Here is the caller graph for this function:

Definition at line 1923 of file wxs_misc.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxPrintSetupGlobalwxShowNative ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1897 of file wxs_misc.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  Bool r;
  class wxWindow* x0 INIT_NULLED_OUT;

  SETUP_VAR_STACK_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);

  
  if (n > (0+0)) {
    x0 = WITH_VAR_STACK(objscheme_unbundle_wxWindow(p[0+0], "show-print-setup in ps-setup%", 1));
  } else
    x0 = NULL;

  if (x0 && !wxSubType(((wxObject *)x0)->__type, wxTYPE_FRAME) && !wxSubType(((wxObject *)x0)->__type, wxTYPE_DIALOG_BOX)) scheme_wrong_type(METHODNAME("ps-setup","show-native"), "frame or dialog box", POFFSET+0, n, p);
  r = WITH_VAR_STACK(wxShowNative(x0));

  
  
  READY_TO_RETURN;
  return (r ? scheme_true : scheme_false);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void* wxsCheckEventspace ( char *  )

Definition at line 578 of file mred.cxx.

{
  MrEdContext *c;
  c = (MrEdContext *)wxGetContextForFrame();

  if (c->killed)
    scheme_signal_error("%s: the current eventspace has been shutdown", who);

  return (void *)c;
}
static Bool wxShowNative ( wxWindow w) [static]

Definition at line 1885 of file wxs_misc.cxx.

{
  wxPrintSetupData *pss;
  pss = wxGetThePrintSetupData();
  return pss->ShowNative(w);
}

Here is the call graph for this function:

Here is the caller graph for this function:


Variable Documentation

Definition at line 396 of file wxs_misc.cxx.

Definition at line 397 of file wxs_misc.cxx.

Definition at line 758 of file wxs_misc.cxx.

Definition at line 1189 of file wxs_misc.cxx.

Definition at line 79 of file wxs_misc.cxx.

Definition at line 1076 of file wxs_misc.cxx.

Definition at line 1075 of file wxs_misc.cxx.

Definition at line 1077 of file wxs_misc.cxx.

Definition at line 1114 of file wxs_misc.cxx.

Definition at line 1113 of file wxs_misc.cxx.