Back to index

plt-scheme  4.2.1
Classes | Defines | Functions | Variables
wxs_gdi.cxx File Reference
#include "wx_obj.h"
#include "wx_list.h"
#include "wx_gdi.h"
#include "wx_rgn.h"
#include "wxscheme.h"
#include "wxs_gdi.h"

Go to the source code of this file.

Classes

class  os_wxFont
class  os_wxFontList
class  os_wxColour
class  os_wxColourDatabase
class  os_wxPoint
class  os_wxBrush
class  os_wxBrushList
class  os_wxPen
class  os_wxPenList
class  os_wxCursor
class  os_wxRegion
class  os_wxPath
class  os_wxFontNameDirectory

Defines

#define BM_IN_USE(map)   ((map)->selectedIntoDC)
#define ESCAPE_NO_RET_VAL   /*empty*/
#define COLORMAP_CREATE   1
#define _KEY_TYPE   int
#define l_ADDRESS   &
#define l_DEREF   *
#define l_NEWATOMIC   (AtomicGC)
#define l_NULLOK   0
#define l_TEST   , l_NULLOK
#define l_POINT
#define l_EXTRA   0
#define l_TERMINATE
#define l_COPY   l_COPYDEST.x=l_COPYSRC.x; l_COPYDEST.y=l_COPYSRC.y;
#define l_OKTEST
#define l_INTTYPE   int
#define l_DIRECTMALLOC   1
#define l_TYPE   wxPoint
#define l_LIST_ITEM_BUNDLE   objscheme_bundle_wxPoint
#define l_LIST_ITEM_UNBUNDLE   objscheme_unbundle_wxPoint
#define l_MAKE_LIST   __MakewxPointList
#define l_MAKE_ARRAY   __MakewxPointArray
#define l_COPYDEST   f[i]
#define l_COPYSRC   (l_DEREF WITH_VAR_STACK(l_LIST_ITEM_UNBUNDLE(SCHEME_CAR(l), who l_TEST)))

Functions

static void init_symset_family (void)
static int unbundle_symset_family (Scheme_Object *v, const char *where)
static int istype_symset_family (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_family (int v)
static void init_symset_weight (void)
static int unbundle_symset_weight (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_weight (int v)
static void init_symset_style (void)
static int unbundle_symset_style (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_style (int v)
static void init_symset_smoothing (void)
static int unbundle_symset_smoothing (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_smoothing (int v)
os_wxFont::os_wxFont CONSTRUCTOR_ARGS (())
os_wxFont::os_wxFont CONSTRUCTOR_ARGS ((int x0, int x1, int x2, int x3, Bool x4, int x5, Bool x6))
os_wxFont::os_wxFont CONSTRUCTOR_ARGS ((int x0, cstring x1, int x2, int x3, int x4, Bool x5, int x6, Bool x7))
static Scheme_Objectos_wxFontScreenGlyphAvailable (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontGetFontId (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontGetSizeInPixels (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontGetUnderlined (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontGetSmoothing (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontGetWeight (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontGetPointSize (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontGetStyle (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontGetFaceString (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontGetFamily (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFont_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxFont (Scheme_Env *env)
int objscheme_istype_wxFont (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxFont (class wxFont *realobj)
class wxFontobjscheme_unbundle_wxFont (Scheme_Object *obj, const char *where, int nullOK)
static Scheme_Objectos_wxFontListFindOrCreateFont (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontList_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxFontList (Scheme_Env *env)
int objscheme_istype_wxFontList (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxFontList (class wxFontList *realobj)
class wxFontListobjscheme_unbundle_wxFontList (Scheme_Object *obj, const char *where, int nullOK)
os_wxColour::os_wxColour CONSTRUCTOR_ARGS ((ubyte x0, ubyte x1, ubyte x2))
os_wxColour::os_wxColour CONSTRUCTOR_ARGS ((string x0))
os_wxColour::os_wxColour CONSTRUCTOR_ARGS ((class wxColour *x0))
static Scheme_Objectos_wxColourBlue (int n, Scheme_Object *p[])
static Scheme_Objectos_wxColourGreen (int n, Scheme_Object *p[])
static Scheme_Objectos_wxColourRed (int n, Scheme_Object *p[])
static Scheme_Objectos_wxColourSet (int n, Scheme_Object *p[])
static Scheme_Objectos_wxColourOk (int n, Scheme_Object *p[])
static Scheme_Objectos_wxColourCopyFrom (int n, Scheme_Object *p[])
static Scheme_Objectos_wxColour_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxColour (Scheme_Env *env)
int objscheme_istype_wxColour (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxColour (class wxColour *realobj)
class wxColourobjscheme_unbundle_wxColour (Scheme_Object *obj, const char *where, int nullOK)
static Scheme_Objectos_wxColourDatabaseFindColour (int n, Scheme_Object *p[])
void objscheme_setup_wxColourDatabase (Scheme_Env *env)
int objscheme_istype_wxColourDatabase (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxColourDatabase (class wxColourDatabase *realobj)
class wxColourDatabaseobjscheme_unbundle_wxColourDatabase (Scheme_Object *obj, const char *where, int nullOK)
os_wxPoint::os_wxPoint CONSTRUCTOR_ARGS ((double x0, double x1))
static Scheme_Objectobjscheme_wxPoint_Getx (int n, Scheme_Object *p[])
static Scheme_Objectobjscheme_wxPoint_Setx (int n, Scheme_Object *p[])
static Scheme_Objectobjscheme_wxPoint_Gety (int n, Scheme_Object *p[])
static Scheme_Objectobjscheme_wxPoint_Sety (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPoint_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxPoint (Scheme_Env *env)
int objscheme_istype_wxPoint (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxPoint (class wxPoint *realobj)
class wxPointobjscheme_unbundle_wxPoint (Scheme_Object *obj, const char *where, int nullOK)
static void init_symset_brushStyle (void)
static int unbundle_symset_brushStyle (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_brushStyle (int v)
static void init_symset_penStyle (void)
static int unbundle_symset_penStyle (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_penStyle (int v)
os_wxBrush::os_wxBrush CONSTRUCTOR_ARGS ((class wxColour *x0, int x1))
os_wxBrush::os_wxBrush CONSTRUCTOR_ARGS ((string x0, int x1))
static Scheme_Objectos_wxBrushSetStyle (int n, Scheme_Object *p[])
static Scheme_Objectos_wxBrushGetStyle (int n, Scheme_Object *p[])
static Scheme_Objectos_wxBrushSetStipple (int n, Scheme_Object *p[])
static Scheme_Objectos_wxBrushGetStipple (int n, Scheme_Object *p[])
static Scheme_Objectos_wxBrushSetColour (int n, Scheme_Object *p[])
static Scheme_Objectos_wxBrushGetColour (int n, Scheme_Object *p[])
static Scheme_Objectos_wxBrush_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxBrush (Scheme_Env *env)
int objscheme_istype_wxBrush (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxBrush (class wxBrush *realobj)
class wxBrushobjscheme_unbundle_wxBrush (Scheme_Object *obj, const char *where, int nullOK)
static Scheme_Objectos_wxBrushListFindOrCreateBrush (int n, Scheme_Object *p[])
static Scheme_Objectos_wxBrushList_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxBrushList (Scheme_Env *env)
int objscheme_istype_wxBrushList (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxBrushList (class wxBrushList *realobj)
class wxBrushListobjscheme_unbundle_wxBrushList (Scheme_Object *obj, const char *where, int nullOK)
static void init_symset_join (void)
static int unbundle_symset_join (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_join (int v)
static void init_symset_cap (void)
static int unbundle_symset_cap (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_cap (int v)
os_wxPen::os_wxPen CONSTRUCTOR_ARGS ((class wxColour *x0, double x1, int x2))
os_wxPen::os_wxPen CONSTRUCTOR_ARGS ((string x0, double x1, int x2))
static Scheme_Objectos_wxPenSetStyle (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenGetStyle (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenSetStipple (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenGetStipple (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenSetColour (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenGetColour (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenSetJoin (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenGetJoin (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenSetCap (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenGetCap (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenSetWidth (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenGetWidthF (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPen_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxPen (Scheme_Env *env)
int objscheme_istype_wxPen (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxPen (class wxPen *realobj)
class wxPenobjscheme_unbundle_wxPen (Scheme_Object *obj, const char *where, int nullOK)
static Scheme_Objectos_wxPenListFindOrCreatePen (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPenList_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxPenList (Scheme_Env *env)
int objscheme_istype_wxPenList (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxPenList (class wxPenList *realobj)
class wxPenListobjscheme_unbundle_wxPenList (Scheme_Object *obj, const char *where, int nullOK)
static void init_symset_cursor (void)
static int unbundle_symset_cursor (Scheme_Object *v, const char *where)
static int istype_symset_cursor (Scheme_Object *v, const char *where)
os_wxCursor::os_wxCursor CONSTRUCTOR_ARGS ((int x0))
os_wxCursor::os_wxCursor CONSTRUCTOR_ARGS ((class wxBitmap *x0, class wxBitmap *x1, int x2, int x3))
static Scheme_Objectos_wxCursorOk (int n, Scheme_Object *p[])
static Scheme_Objectos_wxCursor_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxCursor (Scheme_Env *env)
int objscheme_istype_wxCursor (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxCursor (class wxCursor *realobj)
class wxCursorobjscheme_unbundle_wxCursor (Scheme_Object *obj, const char *where, int nullOK)
static voidRgnBoundingBox (wxRegion *r)
static Scheme_Objectl_MAKE_LIST (l_TYPE l_POINT *f, l_INTTYPE c)
static l_TYPE l_POINTl_MAKE_ARRAY (Scheme_Object *l, l_INTTYPE *c, char *who)
static void init_symset_fillKind (void)
static int unbundle_symset_fillKind (Scheme_Object *v, const char *where)
static void init_symset_smoothingMode (void)
static int unbundle_symset_smoothingMode (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_smoothingMode (int v)
os_wxRegion::os_wxRegion CONSTRUCTOR_ARGS ((class wxDC *x0))
static Scheme_Objectos_wxRegionIsInRegion (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionEmpty (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionRgnBoundingBox (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionXor (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionSubtract (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionIntersect (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionUnion (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionSetPath (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionSetArc (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionSetPolygon (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionSetEllipse (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionSetRoundedRectangle (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionSetRectangle (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegionGetDC (int n, Scheme_Object *p[])
static Scheme_Objectos_wxRegion_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxRegion (Scheme_Env *env)
int objscheme_istype_wxRegion (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxRegion (class wxRegion *realobj)
class wxRegionobjscheme_unbundle_wxRegion (Scheme_Object *obj, const char *where, int nullOK)
static voidPathBoundingBox (wxPath *r)
static Scheme_Objectos_wxPathPathBoundingBox (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathAddPath (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathReverse (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathRotate (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathScale (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathTranslate (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathLines (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathEllipse (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathRoundedRectangle (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathRectangle (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathCurveTo (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathArc (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathLineTo (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathMoveTo (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathIsOpen (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathClose (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPathReset (int n, Scheme_Object *p[])
static Scheme_Objectos_wxPath_ConstructScheme (int n, Scheme_Object *p[])
void objscheme_setup_wxPath (Scheme_Env *env)
int objscheme_istype_wxPath (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxPath (class wxPath *realobj)
class wxPathobjscheme_unbundle_wxPath (Scheme_Object *obj, const char *where, int nullOK)
static int Identity (wxFontNameDirectory *, int v)
static Scheme_Objectos_wxFontNameDirectoryIdentity (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontNameDirectoryFindOrCreateFontId (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontNameDirectoryGetFamily (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontNameDirectoryGetFontName (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontNameDirectoryGetFontId (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontNameDirectorySetPostScriptName (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontNameDirectorySetScreenName (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontNameDirectoryGetPostScriptName (int n, Scheme_Object *p[])
static Scheme_Objectos_wxFontNameDirectoryGetScreenName (int n, Scheme_Object *p[])
void objscheme_setup_wxFontNameDirectory (Scheme_Env *env)
int objscheme_istype_wxFontNameDirectory (Scheme_Object *obj, const char *stop, int nullOK)
Scheme_Objectobjscheme_bundle_wxFontNameDirectory (class wxFontNameDirectory *realobj)
class wxFontNameDirectoryobjscheme_unbundle_wxFontNameDirectory (Scheme_Object *obj, const char *where, int nullOK)
static wxColourDatabasewxGetTheColourDatabase ()
static wxBrushListwxGetTheBrushList ()
static wxPenListwxGetThePenList ()
static wxFontListwxGetTheFontList ()
static wxFontNameDirectorywxGetTheFontNameDirectory ()
static Scheme_ObjectwxGDIGlobalwxGetControlFontSize (int n, Scheme_Object *p[])
static Scheme_ObjectwxGDIGlobalwxGetTheFontNameDirectory (int n, Scheme_Object *p[])
static Scheme_ObjectwxGDIGlobalwxGetTheFontList (int n, Scheme_Object *p[])
static Scheme_ObjectwxGDIGlobalwxGetThePenList (int n, Scheme_Object *p[])
static Scheme_ObjectwxGDIGlobalwxGetTheBrushList (int n, Scheme_Object *p[])
static Scheme_ObjectwxGDIGlobalwxGetTheColourDatabase (int n, Scheme_Object *p[])
void objscheme_setup_wxGDIGlobal (Scheme_Env *env)

Variables

static Scheme_Objectfamily_wxDEFAULT_sym = NULL
static Scheme_Objectfamily_wxDECORATIVE_sym = NULL
static Scheme_Objectfamily_wxROMAN_sym = NULL
static Scheme_Objectfamily_wxSCRIPT_sym = NULL
static Scheme_Objectfamily_wxSWISS_sym = NULL
static Scheme_Objectfamily_wxMODERN_sym = NULL
static Scheme_Objectfamily_wxSYSTEM_sym = NULL
static Scheme_Objectfamily_wxSYMBOL_sym = NULL
static Scheme_Objectweight_wxNORMAL_sym = NULL
static Scheme_Objectweight_wxLIGHT_sym = NULL
static Scheme_Objectweight_wxBOLD_sym = NULL
static Scheme_Objectstyle_wxNORMAL_sym = NULL
static Scheme_Objectstyle_wxITALIC_sym = NULL
static Scheme_Objectstyle_wxSLANT_sym = NULL
static Scheme_Objectsmoothing_wxSMOOTHING_DEFAULT_sym = NULL
static Scheme_Objectsmoothing_wxSMOOTHING_PARTIAL_sym = NULL
static Scheme_Objectsmoothing_wxSMOOTHING_ON_sym = NULL
static Scheme_Objectsmoothing_wxSMOOTHING_OFF_sym = NULL
static Scheme_Objectos_wxFont_class
static Scheme_Objectos_wxFontList_class
static Scheme_Objectos_wxColour_class
static Scheme_Objectos_wxColourDatabase_class
static Scheme_Objectos_wxColourDatabase_interface
static Scheme_Objectos_wxPoint_class
static Scheme_ObjectbrushStyle_wxTRANSPARENT_sym = NULL
static Scheme_ObjectbrushStyle_wxSOLID_sym = NULL
static Scheme_ObjectbrushStyle_wxSTIPPLE_sym = NULL
static Scheme_ObjectbrushStyle_wxXOR_sym = NULL
static Scheme_ObjectbrushStyle_wxCOLOR_sym = NULL
static Scheme_ObjectbrushStyle_wxBDIAGONAL_HATCH_sym = NULL
static Scheme_ObjectbrushStyle_wxCROSSDIAG_HATCH_sym = NULL
static Scheme_ObjectbrushStyle_wxFDIAGONAL_HATCH_sym = NULL
static Scheme_ObjectbrushStyle_wxCROSS_HATCH_sym = NULL
static Scheme_ObjectbrushStyle_wxHORIZONTAL_HATCH_sym = NULL
static Scheme_ObjectbrushStyle_wxVERTICAL_HATCH_sym = NULL
static Scheme_ObjectbrushStyle_wxPANEL_PATTERN_sym = NULL
static Scheme_ObjectpenStyle_wxTRANSPARENT_sym = NULL
static Scheme_ObjectpenStyle_wxSOLID_sym = NULL
static Scheme_ObjectpenStyle_wxXOR_sym = NULL
static Scheme_ObjectpenStyle_wxCOLOR_sym = NULL
static Scheme_ObjectpenStyle_wxDOT_sym = NULL
static Scheme_ObjectpenStyle_wxLONG_DASH_sym = NULL
static Scheme_ObjectpenStyle_wxSHORT_DASH_sym = NULL
static Scheme_ObjectpenStyle_wxDOT_DASH_sym = NULL
static Scheme_ObjectpenStyle_wxXOR_DOT_sym = NULL
static Scheme_ObjectpenStyle_wxXOR_LONG_DASH_sym = NULL
static Scheme_ObjectpenStyle_wxXOR_SHORT_DASH_sym = NULL
static Scheme_ObjectpenStyle_wxXOR_DOT_DASH_sym = NULL
static Scheme_Objectos_wxBrush_class
static Scheme_Objectos_wxBrushList_class
static Scheme_Objectjoin_wxJOIN_BEVEL_sym = NULL
static Scheme_Objectjoin_wxJOIN_MITER_sym = NULL
static Scheme_Objectjoin_wxJOIN_ROUND_sym = NULL
static Scheme_Objectcap_wxCAP_ROUND_sym = NULL
static Scheme_Objectcap_wxCAP_PROJECTING_sym = NULL
static Scheme_Objectcap_wxCAP_BUTT_sym = NULL
static Scheme_Objectos_wxPen_class
static Scheme_Objectos_wxPenList_class
static Scheme_Objectcursor_wxCURSOR_ARROW_sym = NULL
static Scheme_Objectcursor_wxCURSOR_BULLSEYE_sym = NULL
static Scheme_Objectcursor_wxCURSOR_CROSS_sym = NULL
static Scheme_Objectcursor_wxCURSOR_HAND_sym = NULL
static Scheme_Objectcursor_wxCURSOR_IBEAM_sym = NULL
static Scheme_Objectcursor_wxCURSOR_SIZENS_sym = NULL
static Scheme_Objectcursor_wxCURSOR_SIZEWE_sym = NULL
static Scheme_Objectcursor_wxCURSOR_SIZENESW_sym = NULL
static Scheme_Objectcursor_wxCURSOR_SIZENWSE_sym = NULL
static Scheme_Objectcursor_wxCURSOR_WAIT_sym = NULL
static Scheme_Objectcursor_wxCURSOR_WATCH_sym = NULL
static Scheme_Objectcursor_wxCURSOR_BLANK_sym = NULL
static Scheme_Objectos_wxCursor_class
static Scheme_ObjectfillKind_wxODDEVEN_RULE_sym = NULL
static Scheme_ObjectfillKind_wxWINDING_RULE_sym = NULL
static Scheme_ObjectsmoothingMode_0_sym = NULL
static Scheme_ObjectsmoothingMode_1_sym = NULL
static Scheme_ObjectsmoothingMode_2_sym = NULL
static Scheme_Objectos_wxRegion_class
static Scheme_Objectos_wxPath_class
static Scheme_Objectos_wxFontNameDirectory_class
static Scheme_Objectos_wxFontNameDirectory_interface

Define Documentation

#define _KEY_TYPE   int

Definition at line 1376 of file wxs_gdi.cxx.

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

Definition at line 29 of file wxs_gdi.cxx.

#define COLORMAP_CREATE   1

Definition at line 248 of file wxs_gdi.cxx.

#define ESCAPE_NO_RET_VAL   /*empty*/

Definition at line 34 of file wxs_gdi.cxx.

#define l_ADDRESS   &

Definition at line 3673 of file wxs_gdi.cxx.

Definition at line 3681 of file wxs_gdi.cxx.

#define l_COPYDEST   f[i]
#define l_DEREF   *

Definition at line 3674 of file wxs_gdi.cxx.

#define l_DIRECTMALLOC   1

Definition at line 3684 of file wxs_gdi.cxx.

#define l_EXTRA   0

Definition at line 3679 of file wxs_gdi.cxx.

#define l_INTTYPE   int

Definition at line 3683 of file wxs_gdi.cxx.

Definition at line 3687 of file wxs_gdi.cxx.

Definition at line 3688 of file wxs_gdi.cxx.

#define l_MAKE_ARRAY   __MakewxPointArray

Definition at line 3690 of file wxs_gdi.cxx.

#define l_MAKE_LIST   __MakewxPointList

Definition at line 3689 of file wxs_gdi.cxx.

#define l_NEWATOMIC   (AtomicGC)

Definition at line 3675 of file wxs_gdi.cxx.

#define l_NULLOK   0

Definition at line 3676 of file wxs_gdi.cxx.

#define l_OKTEST

Definition at line 3682 of file wxs_gdi.cxx.

#define l_POINT

Definition at line 3678 of file wxs_gdi.cxx.

#define l_TERMINATE

Definition at line 3680 of file wxs_gdi.cxx.

#define l_TEST   , l_NULLOK

Definition at line 3677 of file wxs_gdi.cxx.

#define l_TYPE   wxPoint

Definition at line 3686 of file wxs_gdi.cxx.


Function Documentation

static Scheme_Object* bundle_symset_brushStyle ( int  v) [static]
static Scheme_Object* bundle_symset_cap ( int  v) [static]

Definition at line 2580 of file wxs_gdi.cxx.

                                               {
  if (!cap_wxCAP_BUTT_sym) init_symset_cap();
  switch (v) {
  case wxCAP_ROUND: return cap_wxCAP_ROUND_sym;
  case wxCAP_PROJECTING: return cap_wxCAP_PROJECTING_sym;
  case wxCAP_BUTT: return cap_wxCAP_BUTT_sym;
  default: return NULL;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* bundle_symset_family ( int  v) [static]

Definition at line 109 of file wxs_gdi.cxx.

                                                  {
  if (!family_wxSYMBOL_sym) init_symset_family();
  switch (v) {
  case wxDEFAULT: return family_wxDEFAULT_sym;
  case wxDECORATIVE: return family_wxDECORATIVE_sym;
  case wxROMAN: return family_wxROMAN_sym;
  case wxSCRIPT: return family_wxSCRIPT_sym;
  case wxSWISS: return family_wxSWISS_sym;
  case wxMODERN: return family_wxMODERN_sym;
  case wxSYSTEM: return family_wxSYSTEM_sym;
  case wxSYMBOL: return family_wxSYMBOL_sym;
  default: return NULL;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* bundle_symset_join ( int  v) [static]

Definition at line 2542 of file wxs_gdi.cxx.

                                                {
  if (!join_wxJOIN_ROUND_sym) init_symset_join();
  switch (v) {
  case wxJOIN_BEVEL: return join_wxJOIN_BEVEL_sym;
  case wxJOIN_MITER: return join_wxJOIN_MITER_sym;
  case wxJOIN_ROUND: return join_wxJOIN_ROUND_sym;
  default: return NULL;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* bundle_symset_penStyle ( int  v) [static]

Definition at line 1904 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* bundle_symset_smoothing ( int  v) [static]

Definition at line 232 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 3819 of file wxs_gdi.cxx.

                                                         {
  if (!smoothingMode_2_sym) init_symset_smoothingMode();
  switch (v) {
  case 0: return smoothingMode_0_sym;
  case 1: return smoothingMode_1_sym;
  case 2: return smoothingMode_2_sym;
  default: return NULL;
  }
}

Here is the call graph for this function:

static Scheme_Object* bundle_symset_style ( int  v) [static]

Definition at line 190 of file wxs_gdi.cxx.

                                                 {
  if (!style_wxSLANT_sym) init_symset_style();
  switch (v) {
  case wxNORMAL: return style_wxNORMAL_sym;
  case wxITALIC: return style_wxITALIC_sym;
  case wxSLANT: return style_wxSLANT_sym;
  default: return NULL;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* bundle_symset_weight ( int  v) [static]

Definition at line 152 of file wxs_gdi.cxx.

                                                  {
  if (!weight_wxBOLD_sym) init_symset_weight();
  switch (v) {
  case wxNORMAL: return weight_wxNORMAL_sym;
  case wxLIGHT: return weight_wxLIGHT_sym;
  case wxBOLD: return weight_wxBOLD_sym;
  default: return NULL;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

os_wxFont::os_wxFont CONSTRUCTOR_ARGS ( ()  )

Definition at line 285 of file wxs_gdi.cxx.

                 : wxFont())
{
}
os_wxFont::os_wxFont CONSTRUCTOR_ARGS ( (int x0, int x1, int x2, int x3, Bool x4, int x5, Bool x6)  )

Definition at line 291 of file wxs_gdi.cxx.

                 : wxFont(x0, x1, x2, x3, x4, x5, x6))
{
}
os_wxFont::os_wxFont CONSTRUCTOR_ARGS ( (int x0, cstring x1, int x2, int x3, int x4, Bool x5, int x6, Bool x7)  )

Definition at line 298 of file wxs_gdi.cxx.

                 : wxFont(x0, x1, x2, x3, x4, x5, x6, x7))
{
}
os_wxColour::os_wxColour CONSTRUCTOR_ARGS ( (ubyte x0, ubyte x1, ubyte x2)  )

Definition at line 1031 of file wxs_gdi.cxx.

                 : wxColour(x0, x1, x2))
{
}
os_wxColour::os_wxColour CONSTRUCTOR_ARGS ( (string x0)  )

Definition at line 1038 of file wxs_gdi.cxx.

                 : wxColour(x0))
{
}
os_wxColour::os_wxColour CONSTRUCTOR_ARGS ( (class wxColour *x0)  )

Definition at line 1045 of file wxs_gdi.cxx.

                 : wxColour(x0))
{
}
os_wxPoint::os_wxPoint CONSTRUCTOR_ARGS ( (double x0, double x1)  )

Definition at line 1546 of file wxs_gdi.cxx.

                 : wxPoint(x0, x1))
{
}
os_wxBrush::os_wxBrush CONSTRUCTOR_ARGS ( (class wxColour *x0, int x1)  )

Definition at line 1964 of file wxs_gdi.cxx.

                 : wxBrush(x0, x1))
{
}
os_wxBrush::os_wxBrush CONSTRUCTOR_ARGS ( (string x0, int x1)  )

Definition at line 1971 of file wxs_gdi.cxx.

                 : wxBrush(x0, x1))
{
}
os_wxPen::os_wxPen CONSTRUCTOR_ARGS ( (class wxColour *x0, double x1, int x2)  )

Definition at line 2632 of file wxs_gdi.cxx.

                 : wxPen(x0, x1, x2))
{
}
os_wxPen::os_wxPen CONSTRUCTOR_ARGS ( (string x0, double x1, int x2)  )

Definition at line 2639 of file wxs_gdi.cxx.

                 : wxPen(x0, x1, x2))
{
}
os_wxCursor::os_wxCursor CONSTRUCTOR_ARGS ( (int x0)  )

Definition at line 3455 of file wxs_gdi.cxx.

                 : wxCursor(x0))
{
}
os_wxCursor::os_wxCursor CONSTRUCTOR_ARGS ( (class wxBitmap *x0, class wxBitmap *x1, int x2, int x3)  )

Definition at line 3461 of file wxs_gdi.cxx.

                 : wxCursor(x0, x1, x2, x3))
{
}
os_wxRegion::os_wxRegion CONSTRUCTOR_ARGS ( (class wxDC *x0)  )

Definition at line 3861 of file wxs_gdi.cxx.

                 : wxRegion(x0))
{
}
static int Identity ( wxFontNameDirectory ,
int  v 
) [inline, static]

Definition at line 4988 of file wxs_gdi.cxx.

{
  return v;
}

Here is the caller graph for this function:

static void init_symset_brushStyle ( void  ) [static]

Definition at line 1771 of file wxs_gdi.cxx.

                                         {
  REMEMBER_VAR_STACK();
  wxREGGLOB(brushStyle_wxTRANSPARENT_sym);
  brushStyle_wxTRANSPARENT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("transparent"));
  wxREGGLOB(brushStyle_wxSOLID_sym);
  brushStyle_wxSOLID_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("solid"));
  wxREGGLOB(brushStyle_wxSTIPPLE_sym);
  brushStyle_wxSTIPPLE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("opaque"));
  wxREGGLOB(brushStyle_wxXOR_sym);
  brushStyle_wxXOR_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("xor"));
  wxREGGLOB(brushStyle_wxCOLOR_sym);
  brushStyle_wxCOLOR_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("hilite"));
  wxREGGLOB(brushStyle_wxBDIAGONAL_HATCH_sym);
  brushStyle_wxBDIAGONAL_HATCH_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("bdiagonal-hatch"));
  wxREGGLOB(brushStyle_wxCROSSDIAG_HATCH_sym);
  brushStyle_wxCROSSDIAG_HATCH_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("crossdiag-hatch"));
  wxREGGLOB(brushStyle_wxFDIAGONAL_HATCH_sym);
  brushStyle_wxFDIAGONAL_HATCH_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("fdiagonal-hatch"));
  wxREGGLOB(brushStyle_wxCROSS_HATCH_sym);
  brushStyle_wxCROSS_HATCH_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("cross-hatch"));
  wxREGGLOB(brushStyle_wxHORIZONTAL_HATCH_sym);
  brushStyle_wxHORIZONTAL_HATCH_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("horizontal-hatch"));
  wxREGGLOB(brushStyle_wxVERTICAL_HATCH_sym);
  brushStyle_wxVERTICAL_HATCH_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("vertical-hatch"));
  wxREGGLOB(brushStyle_wxPANEL_PATTERN_sym);
  brushStyle_wxPANEL_PATTERN_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("panel"));
}

Here is the caller graph for this function:

static void init_symset_cap ( void  ) [static]
static void init_symset_cursor ( void  ) [static]

Definition at line 3353 of file wxs_gdi.cxx.

                                     {
  REMEMBER_VAR_STACK();
  wxREGGLOB(cursor_wxCURSOR_ARROW_sym);
  cursor_wxCURSOR_ARROW_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("arrow"));
  wxREGGLOB(cursor_wxCURSOR_BULLSEYE_sym);
  cursor_wxCURSOR_BULLSEYE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("bullseye"));
  wxREGGLOB(cursor_wxCURSOR_CROSS_sym);
  cursor_wxCURSOR_CROSS_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("cross"));
  wxREGGLOB(cursor_wxCURSOR_HAND_sym);
  cursor_wxCURSOR_HAND_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("hand"));
  wxREGGLOB(cursor_wxCURSOR_IBEAM_sym);
  cursor_wxCURSOR_IBEAM_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("ibeam"));
  wxREGGLOB(cursor_wxCURSOR_SIZENS_sym);
  cursor_wxCURSOR_SIZENS_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("size-n/s"));
  wxREGGLOB(cursor_wxCURSOR_SIZEWE_sym);
  cursor_wxCURSOR_SIZEWE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("size-e/w"));
  wxREGGLOB(cursor_wxCURSOR_SIZENESW_sym);
  cursor_wxCURSOR_SIZENESW_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("size-ne/sw"));
  wxREGGLOB(cursor_wxCURSOR_SIZENWSE_sym);
  cursor_wxCURSOR_SIZENWSE_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("size-nw/se"));
  wxREGGLOB(cursor_wxCURSOR_WAIT_sym);
  cursor_wxCURSOR_WAIT_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("arrow+watch"));
  wxREGGLOB(cursor_wxCURSOR_WATCH_sym);
  cursor_wxCURSOR_WATCH_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("watch"));
  wxREGGLOB(cursor_wxCURSOR_BLANK_sym);
  cursor_wxCURSOR_BLANK_sym = WITH_REMEMBERED_STACK(scheme_intern_symbol("blank"));
}

Here is the caller graph for this function:

static void init_symset_family ( void  ) [static]
static void init_symset_fillKind ( void  ) [static]
static void init_symset_join ( void  ) [static]
static void init_symset_penStyle ( void  ) [static]

Definition at line 1854 of file wxs_gdi.cxx.

Here is the caller graph for this function:

static void init_symset_smoothing ( void  ) [static]
static void init_symset_smoothingMode ( void  ) [static]
static void init_symset_style ( void  ) [static]
static void init_symset_weight ( void  ) [static]
static int istype_symset_cursor ( Scheme_Object v,
const char *  where 
) [static]

Definition at line 3403 of file wxs_gdi.cxx.

                                                                     {
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, v);
  if (!cursor_wxCURSOR_BLANK_sym) WITH_VAR_STACK(init_symset_cursor());
  if (0) { }
  else if (v == cursor_wxCURSOR_ARROW_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_BULLSEYE_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_CROSS_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_HAND_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_IBEAM_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_SIZENS_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_SIZEWE_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_SIZENESW_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_SIZENWSE_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_WAIT_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_WATCH_sym) { READY_TO_RETURN; return 1; }
  else if (v == cursor_wxCURSOR_BLANK_sym) { READY_TO_RETURN; return 1; }
  if (where) WITH_VAR_STACK(scheme_wrong_type(where, "cursor symbol", -1, 0, &v));
  READY_TO_RETURN;
  return 0;
}

Here is the call graph for this function:

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

Definition at line 91 of file wxs_gdi.cxx.

                                                                     {
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, v);
  if (!family_wxSYMBOL_sym) WITH_VAR_STACK(init_symset_family());
  if (0) { }
  else if (v == family_wxDEFAULT_sym) { READY_TO_RETURN; return 1; }
  else if (v == family_wxDECORATIVE_sym) { READY_TO_RETURN; return 1; }
  else if (v == family_wxROMAN_sym) { READY_TO_RETURN; return 1; }
  else if (v == family_wxSCRIPT_sym) { READY_TO_RETURN; return 1; }
  else if (v == family_wxSWISS_sym) { READY_TO_RETURN; return 1; }
  else if (v == family_wxMODERN_sym) { READY_TO_RETURN; return 1; }
  else if (v == family_wxSYSTEM_sym) { READY_TO_RETURN; return 1; }
  else if (v == family_wxSYMBOL_sym) { READY_TO_RETURN; return 1; }
  if (where) WITH_VAR_STACK(scheme_wrong_type(where, "family 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 l_TYPE l_POINT* l_MAKE_ARRAY ( Scheme_Object l,
l_INTTYPE c,
char *  who 
) [static]

Definition at line 3712 of file wxs_gdi.cxx.

{
  Scheme_Object *orig_l = l;
  int i = 0;
  long len;
  l_TYPE l_POINT *f = NULL;

  SETUP_VAR_STACK(3);
  VAR_STACK_PUSH(0, l);
  VAR_STACK_PUSH(1, orig_l);
  VAR_STACK_PUSH(2, f);

  len = WITH_VAR_STACK(scheme_proper_list_length(l));
  if (len < 0) WITH_VAR_STACK(scheme_wrong_type(who, "proper-list", -1, 0, &l));
  if (c) *c = len;

  if (!(len + l_EXTRA)) {
    READY_TO_RETURN;
    return NULL;
  }

#if l_DIRECTMALLOC
  f = (l_TYPE l_POINT *)WITH_VAR_STACK(GC_malloc_atomic(sizeof(l_TYPE l_POINT) * (len + l_EXTRA)));
#else
  f = WITH_VAR_STACK(new l_NEWATOMIC l_TYPE l_POINT[len + l_EXTRA]);
#endif

  while (!SCHEME_NULLP(l)) {
    if (!SCHEME_LISTP(l)) {
      WITH_VAR_STACK(scheme_arg_mismatch(who, "expected a proper list: ", orig_l));
      READY_TO_RETURN;
      return NULL;
    }

#define l_COPYDEST f[i]
#define l_COPYSRC (l_DEREF WITH_VAR_STACK(l_LIST_ITEM_UNBUNDLE(SCHEME_CAR(l), who l_TEST)))

    l_COPY

    l_OKTEST

    i++;

    l = SCHEME_CDR(l);
  }
  l_TERMINATE

  READY_TO_RETURN;

  return f;
}
static Scheme_Object* l_MAKE_LIST ( l_TYPE l_POINT f,
l_INTTYPE  c 
) [static]

Definition at line 3696 of file wxs_gdi.cxx.

Definition at line 2277 of file wxs_gdi.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_wxBrush_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 2472 of file wxs_gdi.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_wxBrushList_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 1329 of file wxs_gdi.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_wxColour_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 1468 of file wxs_gdi.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_wxColourDatabase_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 3595 of file wxs_gdi.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_wxCursor_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 699 of file wxs_gdi.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_wxFont_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 945 of file wxs_gdi.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_wxFontList_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 5302 of file wxs_gdi.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_wxFontNameDirectory_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 4944 of file wxs_gdi.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_wxPath_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:

Definition at line 3084 of file wxs_gdi.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_wxPen_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 3284 of file wxs_gdi.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_wxPenList_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 1715 of file wxs_gdi.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_wxPoint_class));

  obj->primdata = realobj;
  obj->primflag = 0;

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

Here is the call graph for this function:

Definition at line 4327 of file wxs_gdi.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_wxRegion_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:

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

Definition at line 2263 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxBrush_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "brush% object or " XC_NULL_STR: "brush% 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_wxBrushList ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 2458 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxBrushList_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "brush-list% object or " XC_NULL_STR: "brush-list% 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_wxColour ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 1315 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxColour_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "color% object or " XC_NULL_STR: "color% 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_wxColourDatabase ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 1454 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxColourDatabase_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "color-database% object or " XC_NULL_STR: "color-database% 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_wxCursor ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 3581 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxCursor_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "cursor% object or " XC_NULL_STR: "cursor% 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_wxFont ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 685 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxFont_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "font% object or " XC_NULL_STR: "font% 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_wxFontList ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 931 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxFontList_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "font-list% object or " XC_NULL_STR: "font-list% 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_wxFontNameDirectory ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 5288 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxFontNameDirectory_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "font-name-directory% object or " XC_NULL_STR: "font-name-directory% 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_wxPath ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 4930 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxPath_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "dc-path% object or " XC_NULL_STR: "dc-path% 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_wxPen ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 3070 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxPen_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "pen% object or " XC_NULL_STR: "pen% 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_wxPenList ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 3270 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxPenList_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "pen-list% object or " XC_NULL_STR: "pen-list% 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_wxPoint ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 1701 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxPoint_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "point% object or " XC_NULL_STR: "point% 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_wxRegion ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 4313 of file wxs_gdi.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxRegion_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "region% object or " XC_NULL_STR: "region% 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 2440 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 3563 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 658 of file wxs_gdi.cxx.

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

  wxREGGLOB(os_wxFont_class);

  os_wxFont_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "font%", "object%", (Scheme_Method_Prim *)os_wxFont_ConstructScheme, 10));

  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFont_class, "screen-glyph-exists?" " method", (Scheme_Method_Prim *)os_wxFontScreenGlyphAvailable, 1, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFont_class, "get-font-id" " method", (Scheme_Method_Prim *)os_wxFontGetFontId, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFont_class, "get-size-in-pixels" " method", (Scheme_Method_Prim *)os_wxFontGetSizeInPixels, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFont_class, "get-underlined" " method", (Scheme_Method_Prim *)os_wxFontGetUnderlined, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFont_class, "get-smoothing" " method", (Scheme_Method_Prim *)os_wxFontGetSmoothing, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFont_class, "get-weight" " method", (Scheme_Method_Prim *)os_wxFontGetWeight, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFont_class, "get-point-size" " method", (Scheme_Method_Prim *)os_wxFontGetPointSize, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFont_class, "get-style" " method", (Scheme_Method_Prim *)os_wxFontGetStyle, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFont_class, "get-face" " method", (Scheme_Method_Prim *)os_wxFontGetFaceString, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFont_class, "get-family" " method", (Scheme_Method_Prim *)os_wxFontGetFamily, 0, 0));


  WITH_VAR_STACK(scheme_made_class(os_wxFont_class));


  READY_TO_RETURN;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 913 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 5258 of file wxs_gdi.cxx.

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

  wxREGGLOB(os_wxFontNameDirectory_class);
  wxREGGLOB(os_wxFontNameDirectory_interface);

  os_wxFontNameDirectory_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "font-name-directory%", "object%", NULL, 9));

  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFontNameDirectory_class, "find-family-default-font-id" " method", (Scheme_Method_Prim *)os_wxFontNameDirectoryIdentity, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFontNameDirectory_class, "find-or-create-font-id" " method", (Scheme_Method_Prim *)os_wxFontNameDirectoryFindOrCreateFontId, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFontNameDirectory_class, "get-family" " method", (Scheme_Method_Prim *)os_wxFontNameDirectoryGetFamily, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFontNameDirectory_class, "get-face-name" " method", (Scheme_Method_Prim *)os_wxFontNameDirectoryGetFontName, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFontNameDirectory_class, "get-font-id" " method", (Scheme_Method_Prim *)os_wxFontNameDirectoryGetFontId, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFontNameDirectory_class, "set-post-script-name" " method", (Scheme_Method_Prim *)os_wxFontNameDirectorySetPostScriptName, 4, 4));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFontNameDirectory_class, "set-screen-name" " method", (Scheme_Method_Prim *)os_wxFontNameDirectorySetScreenName, 4, 4));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFontNameDirectory_class, "get-post-script-name" " method", (Scheme_Method_Prim *)os_wxFontNameDirectoryGetPostScriptName, 3, 3));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxFontNameDirectory_class, "get-screen-name" " method", (Scheme_Method_Prim *)os_wxFontNameDirectoryGetScreenName, 3, 3));


  WITH_VAR_STACK(scheme_made_class(os_wxFontNameDirectory_class));

  os_wxFontNameDirectory_interface = WITH_VAR_STACK(scheme_class_to_interface(os_wxFontNameDirectory_class, "font-name-directory" "<%>"));

  WITH_VAR_STACK(objscheme_add_global_interface(os_wxFontNameDirectory_interface, "font-name-directory" "<%>", env));

  READY_TO_RETURN;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 5492 of file wxs_gdi.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 *)wxGDIGlobalwxGetControlFontSize, "get-control-font-size", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("get-control-font-size", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxGDIGlobalwxGetTheFontNameDirectory, "get-the-font-name-directory", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("get-the-font-name-directory", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxGDIGlobalwxGetTheFontList, "get-the-font-list", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("get-the-font-list", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxGDIGlobalwxGetThePenList, "get-the-pen-list", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("get-the-pen-list", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxGDIGlobalwxGetTheBrushList, "get-the-brush-list", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("get-the-brush-list", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxGDIGlobalwxGetTheColourDatabase, "get-the-color-database", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("get-the-color-database", functmp, env));
  READY_TO_RETURN;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 4896 of file wxs_gdi.cxx.

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

  wxREGGLOB(os_wxPath_class);

  os_wxPath_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "dc-path%", "object%", (Scheme_Method_Prim *)os_wxPath_ConstructScheme, 17));

  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "get-bounding-box" " method", (Scheme_Method_Prim *)os_wxPathPathBoundingBox, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "append" " method", (Scheme_Method_Prim *)os_wxPathAddPath, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "reverse" " method", (Scheme_Method_Prim *)os_wxPathReverse, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "rotate" " method", (Scheme_Method_Prim *)os_wxPathRotate, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "scale" " method", (Scheme_Method_Prim *)os_wxPathScale, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "translate" " method", (Scheme_Method_Prim *)os_wxPathTranslate, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "lines" " method", (Scheme_Method_Prim *)os_wxPathLines, 1, 3));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "ellipse" " method", (Scheme_Method_Prim *)os_wxPathEllipse, 4, 4));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "rounded-rectangle" " method", (Scheme_Method_Prim *)os_wxPathRoundedRectangle, 4, 5));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "rectangle" " method", (Scheme_Method_Prim *)os_wxPathRectangle, 4, 4));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "curve-to" " method", (Scheme_Method_Prim *)os_wxPathCurveTo, 6, 6));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "arc" " method", (Scheme_Method_Prim *)os_wxPathArc, 6, 7));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "line-to" " method", (Scheme_Method_Prim *)os_wxPathLineTo, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "move-to" " method", (Scheme_Method_Prim *)os_wxPathMoveTo, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "open?" " method", (Scheme_Method_Prim *)os_wxPathIsOpen, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "close" " method", (Scheme_Method_Prim *)os_wxPathClose, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPath_class, "reset" " method", (Scheme_Method_Prim *)os_wxPathReset, 0, 0));


  WITH_VAR_STACK(scheme_made_class(os_wxPath_class));


  READY_TO_RETURN;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 3041 of file wxs_gdi.cxx.

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

  wxREGGLOB(os_wxPen_class);

  os_wxPen_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "pen%", "object%", (Scheme_Method_Prim *)os_wxPen_ConstructScheme, 12));

  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "set-style" " method", (Scheme_Method_Prim *)os_wxPenSetStyle, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "get-style" " method", (Scheme_Method_Prim *)os_wxPenGetStyle, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "set-stipple" " method", (Scheme_Method_Prim *)os_wxPenSetStipple, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "get-stipple" " method", (Scheme_Method_Prim *)os_wxPenGetStipple, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "set-color" " method", (Scheme_Method_Prim *)os_wxPenSetColour, 1, 3));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "get-color" " method", (Scheme_Method_Prim *)os_wxPenGetColour, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "set-join" " method", (Scheme_Method_Prim *)os_wxPenSetJoin, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "get-join" " method", (Scheme_Method_Prim *)os_wxPenGetJoin, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "set-cap" " method", (Scheme_Method_Prim *)os_wxPenSetCap, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "get-cap" " method", (Scheme_Method_Prim *)os_wxPenGetCap, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "set-width" " method", (Scheme_Method_Prim *)os_wxPenSetWidth, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxPen_class, "get-width" " method", (Scheme_Method_Prim *)os_wxPenGetWidthF, 0, 0));


  WITH_VAR_STACK(scheme_made_class(os_wxPen_class));


  READY_TO_RETURN;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 3252 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 4282 of file wxs_gdi.cxx.

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

  wxREGGLOB(os_wxRegion_class);

  os_wxRegion_class = WITH_VAR_STACK(objscheme_def_prim_class(env, "region%", "object%", (Scheme_Method_Prim *)os_wxRegion_ConstructScheme, 14));

  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "in-region?" " method", (Scheme_Method_Prim *)os_wxRegionIsInRegion, 2, 2));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "is-empty?" " method", (Scheme_Method_Prim *)os_wxRegionEmpty, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "get-bounding-box" " method", (Scheme_Method_Prim *)os_wxRegionRgnBoundingBox, 0, 0));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "xor" " method", (Scheme_Method_Prim *)os_wxRegionXor, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "subtract" " method", (Scheme_Method_Prim *)os_wxRegionSubtract, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "intersect" " method", (Scheme_Method_Prim *)os_wxRegionIntersect, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "union" " method", (Scheme_Method_Prim *)os_wxRegionUnion, 1, 1));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "set-path" " method", (Scheme_Method_Prim *)os_wxRegionSetPath, 1, 4));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "set-arc" " method", (Scheme_Method_Prim *)os_wxRegionSetArc, 6, 6));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "set-polygon" " method", (Scheme_Method_Prim *)os_wxRegionSetPolygon, 1, 4));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "set-ellipse" " method", (Scheme_Method_Prim *)os_wxRegionSetEllipse, 4, 4));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "set-rounded-rectangle" " method", (Scheme_Method_Prim *)os_wxRegionSetRoundedRectangle, 4, 5));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "set-rectangle" " method", (Scheme_Method_Prim *)os_wxRegionSetRectangle, 4, 4));
  WITH_VAR_STACK(scheme_add_method_w_arity(os_wxRegion_class, "get-dc" " method", (Scheme_Method_Prim *)os_wxRegionGetDC, 0, 0));


  WITH_VAR_STACK(scheme_made_class(os_wxRegion_class));


  READY_TO_RETURN;
}

Here is the call graph for this function:

Here is the caller graph for this function:

class wxBrush* objscheme_unbundle_wxBrush ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 2304 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxBrush(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_wxBrush *)o->primdata;
  else
    return (wxBrush *)o->primdata;
}

Here is the call graph for this function:

Here is the caller graph for this function:

class wxBrushList* objscheme_unbundle_wxBrushList ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 2499 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxBrushList(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_wxBrushList *)o->primdata;
  else
    return (wxBrushList *)o->primdata;
}

Here is the call graph for this function:

class wxColour* objscheme_unbundle_wxColour ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 1356 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxColour(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_wxColour *)o->primdata;
  else
    return (wxColour *)o->primdata;
}

Here is the call graph for this function:

Here is the caller graph for this function:

class wxColourDatabase* objscheme_unbundle_wxColourDatabase ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 1495 of file wxs_gdi.cxx.

Here is the call graph for this function:

class wxCursor* objscheme_unbundle_wxCursor ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 3622 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxCursor(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_wxCursor *)o->primdata;
  else
    return (wxCursor *)o->primdata;
}

Here is the call graph for this function:

Here is the caller graph for this function:

class wxFont* objscheme_unbundle_wxFont ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 726 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxFont(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_wxFont *)o->primdata;
  else
    return (wxFont *)o->primdata;
}

Here is the call graph for this function:

Here is the caller graph for this function:

class wxFontList* objscheme_unbundle_wxFontList ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 972 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxFontList(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_wxFontList *)o->primdata;
  else
    return (wxFontList *)o->primdata;
}

Here is the call graph for this function:

class wxFontNameDirectory* objscheme_unbundle_wxFontNameDirectory ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 5329 of file wxs_gdi.cxx.

Here is the call graph for this function:

class wxPath* objscheme_unbundle_wxPath ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 4971 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxPath(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_wxPath *)o->primdata;
  else
    return (wxPath *)o->primdata;
}

Here is the call graph for this function:

Here is the caller graph for this function:

class wxPen* objscheme_unbundle_wxPen ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 3111 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxPen(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_wxPen *)o->primdata;
  else
    return (wxPen *)o->primdata;
}

Here is the call graph for this function:

Here is the caller graph for this function:

class wxPenList* objscheme_unbundle_wxPenList ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 3311 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxPenList(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_wxPenList *)o->primdata;
  else
    return (wxPenList *)o->primdata;
}

Here is the call graph for this function:

class wxPoint* objscheme_unbundle_wxPoint ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 1741 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxPoint(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_wxPoint *)o->primdata;
  else
    return (wxPoint *)o->primdata;
}

Here is the call graph for this function:

class wxRegion* objscheme_unbundle_wxRegion ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 4354 of file wxs_gdi.cxx.

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

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxRegion(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_wxRegion *)o->primdata;
  else
    return (wxRegion *)o->primdata;
}

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1557 of file wxs_gdi.cxx.

{
  Scheme_Class_Object *cobj INIT_NULLED_OUT;
  double v;
  REMEMBER_VAR_STACK();

  objscheme_check_valid(os_wxPoint_class, "get-x in point%", n, p);
  if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-x in point%", POFFSET, POFFSET, n, p, 1));
  cobj = (Scheme_Class_Object *)p[0];
  if (cobj->primflag)
    v = ((os_wxPoint *)cobj->primdata)->wxPoint::x;
  else
    v = ((wxPoint *)cobj->primdata)->x;

  return WITH_REMEMBERED_STACK(scheme_make_double(v));
}

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1591 of file wxs_gdi.cxx.

{
  Scheme_Class_Object *cobj INIT_NULLED_OUT;
  double v;
  REMEMBER_VAR_STACK();

  objscheme_check_valid(os_wxPoint_class, "get-y in point%", n, p);
  if (n > POFFSET) WITH_REMEMBERED_STACK(scheme_wrong_count_m("get-y in point%", POFFSET, POFFSET, n, p, 1));
  cobj = (Scheme_Class_Object *)p[0];
  if (cobj->primflag)
    v = ((os_wxPoint *)cobj->primdata)->wxPoint::y;
  else
    v = ((wxPoint *)cobj->primdata)->y;

  return WITH_REMEMBERED_STACK(scheme_make_double(v));
}

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1574 of file wxs_gdi.cxx.

{
  Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
  double v;
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, cobj);

  WITH_VAR_STACK(objscheme_check_valid(os_wxPoint_class, "set-x in point%", n, p));
  if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-x in point%", POFFSET+1, POFFSET+1, n, p, 1));

  v = WITH_VAR_STACK(objscheme_unbundle_double(p[POFFSET], "set-x in point%"));
  ((wxPoint *)cobj->primdata)->x = v;

  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* objscheme_wxPoint_Sety ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1608 of file wxs_gdi.cxx.

{
  Scheme_Class_Object *cobj = (Scheme_Class_Object *)p[0];
  double v;
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, cobj);

  WITH_VAR_STACK(objscheme_check_valid(os_wxPoint_class, "set-y in point%", n, p));
  if (n != (POFFSET+1)) WITH_VAR_STACK(scheme_wrong_count_m("set-y in point%", POFFSET+1, POFFSET+1, n, p, 1));

  v = WITH_VAR_STACK(objscheme_unbundle_double(p[POFFSET], "set-y in point%"));
  ((wxPoint *)cobj->primdata)->y = v;

  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_wxBrush_ConstructScheme ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 2159 of file wxs_gdi.cxx.

{
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  os_wxBrush *realobj INIT_NULLED_OUT;
  REMEMBER_VAR_STACK();
  if ((n >= (POFFSET+1)) && WITH_REMEMBERED_STACK(objscheme_istype_string(p[POFFSET+0], NULL))) {
    string x0 INIT_NULLED_OUT;
    int x1;

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

    
    if (n != (POFFSET+2)) 
      WITH_VAR_STACK(scheme_wrong_count_m("initialization in brush% (color name case)", POFFSET+2, POFFSET+2, n, p, 1));
    x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+0], "initialization in brush% (color name case)"));
    x1 = WITH_VAR_STACK(unbundle_symset_brushStyle(p[POFFSET+1], "initialization in brush% (color name case)"));

    
    realobj = WITH_VAR_STACK(new os_wxBrush CONSTRUCTOR_ARGS((x0, x1)));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxBrush(x0, x1));
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_RETURN;
  } else if ((n >= (POFFSET+1)) && WITH_REMEMBERED_STACK(objscheme_istype_wxColour(p[POFFSET+0], NULL, 0))) {
    class wxColour* x0 INIT_NULLED_OUT;
    int x1;

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

    
    if (n != (POFFSET+2)) 
      WITH_VAR_STACK(scheme_wrong_count_m("initialization in brush% (color% case)", POFFSET+2, POFFSET+2, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_wxColour(p[POFFSET+0], "initialization in brush% (color% case)", 0));
    x1 = WITH_VAR_STACK(unbundle_symset_brushStyle(p[POFFSET+1], "initialization in brush% (color% case)"));

    
    realobj = WITH_VAR_STACK(new os_wxBrush CONSTRUCTOR_ARGS((x0, x1)));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxBrush(x0, x1));
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_RETURN;
  } else  {

    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 brush% (no argument case)", POFFSET+0, POFFSET+0, n, p, 1));

    
    realobj = WITH_VAR_STACK(new os_wxBrush CONSTRUCTOR_ARGS(()));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxBrush());
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_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_wxBrushGetColour ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 2138 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 2048 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 2004 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 2410 of file wxs_gdi.cxx.

{
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  os_wxBrushList *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 brush-list%", POFFSET+0, POFFSET+0, n, p, 1));

  
  realobj = WITH_VAR_STACK(new os_wxBrushList CONSTRUCTOR_ARGS(()));
#ifdef MZ_PRECISE_GC
  WITH_VAR_STACK(realobj->gcInit_wxBrushList());
#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_wxBrushListFindOrCreateBrush ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 2355 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  REMEMBER_VAR_STACK();
  class wxBrush* r INIT_NULLED_OUT;
  objscheme_check_valid(os_wxBrushList_class, "find-or-create-brush in brush-list%", n, p);
  if ((n >= (POFFSET+1)) && WITH_REMEMBERED_STACK(objscheme_istype_wxColour(p[POFFSET+0], NULL, 0))) {
    class wxColour* x0 INIT_NULLED_OUT;
    int x1;

    SETUP_VAR_STACK_PRE_REMEMBERED(3);
    VAR_STACK_PUSH(0, p);
    VAR_STACK_PUSH(1, r);
    VAR_STACK_PUSH(2, x0);

    
    if (n != (POFFSET+2)) 
      WITH_VAR_STACK(scheme_wrong_count_m("find-or-create-brush in brush-list% (color% case)", POFFSET+2, POFFSET+2, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_wxColour(p[POFFSET+0], "find-or-create-brush in brush-list% (color% case)", 0));
    x1 = WITH_VAR_STACK(unbundle_symset_brushStyle(p[POFFSET+1], "find-or-create-brush in brush-list% (color% case)"));

    
    r = WITH_VAR_STACK(((wxBrushList *)((Scheme_Class_Object *)p[0])->primdata)->FindOrCreateBrush(x0, x1));

    
    
    READY_TO_PRE_RETURN;
  } else  {
    string x0 INIT_NULLED_OUT;
    int x1;

    SETUP_VAR_STACK_PRE_REMEMBERED(3);
    VAR_STACK_PUSH(0, p);
    VAR_STACK_PUSH(1, r);
    VAR_STACK_PUSH(2, x0);

    
    if (n != (POFFSET+2)) 
      WITH_VAR_STACK(scheme_wrong_count_m("find-or-create-brush in brush-list% (color name case)", POFFSET+2, POFFSET+2, n, p, 1));
    x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+0], "find-or-create-brush in brush-list% (color name case)"));
    x1 = WITH_VAR_STACK(unbundle_symset_brushStyle(p[POFFSET+1], "find-or-create-brush in brush-list% (color name case)"));

    
    r = WITH_VAR_STACK(((wxBrushList *)((Scheme_Class_Object *)p[0])->primdata)->FindOrCreateBrush(x0, x1));

    
    
    READY_TO_PRE_RETURN;
  }

  return WITH_REMEMBERED_STACK(objscheme_bundle_wxBrush(r));
}

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 2069 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxBrush_class, "set-color in brush%", n, p);
  if ((n >= (POFFSET+1)) && WITH_REMEMBERED_STACK(objscheme_istype_wxColour(p[POFFSET+0], NULL, 0))) {
    class wxColour* x0 INIT_NULLED_OUT;

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

    
    if (n != (POFFSET+1)) 
      WITH_VAR_STACK(scheme_wrong_count_m("set-color in brush% (color% case)", POFFSET+1, POFFSET+1, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_wxColour(p[POFFSET+0], "set-color in brush% (color% case)", 0));

    if (!((wxBrush *)((Scheme_Class_Object *)THEOBJ)->primdata)->IsMutable()) WITH_VAR_STACK(scheme_signal_error("%s: this %s%% object is locked (in use by a dc<%%> object or in a list of %s constants)", METHODNAME("brush%","set-color"), "brush", "brush"));
    WITH_VAR_STACK(((wxBrush *)((Scheme_Class_Object *)p[0])->primdata)->SetColour(x0));

    
    
    READY_TO_PRE_RETURN;
  } else if ((n >= (POFFSET+1)) && WITH_REMEMBERED_STACK(objscheme_istype_string(p[POFFSET+0], NULL))) {
    string x0 INIT_NULLED_OUT;

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

    
    if (n != (POFFSET+1)) 
      WITH_VAR_STACK(scheme_wrong_count_m("set-color in brush% (color name case)", POFFSET+1, POFFSET+1, n, p, 1));
    x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+0], "set-color in brush% (color name case)"));

    if (!((wxBrush *)((Scheme_Class_Object *)THEOBJ)->primdata)->IsMutable()) WITH_VAR_STACK(scheme_signal_error("%s: this %s%% object is locked (in use by a dc<%%> object or in a list of %s constants)", METHODNAME("brush%","set-color"), "brush", "brush"));
    WITH_VAR_STACK(((wxBrush *)((Scheme_Class_Object *)p[0])->primdata)->SetColour(x0));

    
    
    READY_TO_PRE_RETURN;
  } else  {
    ubyte x0;
    ubyte x1;
    ubyte x2;

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

    
    if (n != (POFFSET+3)) 
      WITH_VAR_STACK(scheme_wrong_count_m("set-color in brush% (rgb values case)", POFFSET+3, POFFSET+3, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+0], 0, 255, "set-color in brush% (rgb values case)"));
    x1 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+1], 0, 255, "set-color in brush% (rgb values case)"));
    x2 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+2], 0, 255, "set-color in brush% (rgb values case)"));

    if (!((wxBrush *)((Scheme_Class_Object *)THEOBJ)->primdata)->IsMutable()) WITH_VAR_STACK(scheme_signal_error("%s: this %s%% object is locked (in use by a dc<%%> object or in a list of %s constants)", METHODNAME("brush%","set-color"), "brush", "brush"));
    WITH_VAR_STACK(((wxBrush *)((Scheme_Class_Object *)p[0])->primdata)->SetColour(x0, x1, x2));

    
    
    READY_TO_PRE_RETURN;
  }

  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 2025 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxBrush_class, "set-stipple in brush%", n, p);
  class wxBitmap* 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_wxBitmap(p[POFFSET+0], "set-stipple in brush%", 1));

  { if (x0 && !x0->Ok()) WITH_VAR_STACK(scheme_arg_mismatch(METHODNAME("brush%","set-stipple"), "bad bitmap: ", p[POFFSET+0])); if (x0 && BM_SELECTED(x0)) WITH_VAR_STACK(scheme_arg_mismatch(METHODNAME("brush%","set-stipple"), "bitmap is currently installed into a bitmap-dc%: ", p[POFFSET+0])); }if (!((wxBrush *)((Scheme_Class_Object *)THEOBJ)->primdata)->IsMutable()) WITH_VAR_STACK(scheme_signal_error("%s: this %s%% object is locked (in use by a dc<%%> object or in a list of %s constants)", METHODNAME("brush%","set-stipple"), "brush", "brush"));
  WITH_VAR_STACK(((wxBrush *)((Scheme_Class_Object *)p[0])->primdata)->SetStipple(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_wxBrushSetStyle ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1982 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxBrush_class, "set-style in brush%", n, p);
  int x0;

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

  
  x0 = WITH_VAR_STACK(unbundle_symset_brushStyle(p[POFFSET+0], "set-style in brush%"));

  if (!((wxBrush *)((Scheme_Class_Object *)THEOBJ)->primdata)->IsMutable()) WITH_VAR_STACK(scheme_signal_error("%s: this %s%% object is locked (in use by a dc<%%> object or in a list of %s constants)", METHODNAME("brush%","set-style"), "brush", "brush"));
  WITH_VAR_STACK(((wxBrush *)((Scheme_Class_Object *)p[0])->primdata)->SetStyle(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_wxColour_ConstructScheme ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1190 of file wxs_gdi.cxx.

{
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  os_wxColour *realobj INIT_NULLED_OUT;
  REMEMBER_VAR_STACK();
  if ((n >= (POFFSET+1)) && WITH_REMEMBERED_STACK(objscheme_istype_wxColour(p[POFFSET+0], NULL, 1))) {
    class wxColour* x0 INIT_NULLED_OUT;

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

    
    if (n != (POFFSET+1)) 
      WITH_VAR_STACK(scheme_wrong_count_m("initialization in color% (color object case)", POFFSET+1, POFFSET+1, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_wxColour(p[POFFSET+0], "initialization in color% (color object case)", 1));

    
    realobj = WITH_VAR_STACK(new os_wxColour CONSTRUCTOR_ARGS((x0)));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxColour(x0));
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_RETURN;
  } else if ((n >= (POFFSET+1)) && WITH_REMEMBERED_STACK(objscheme_istype_string(p[POFFSET+0], NULL))) {
    string x0 INIT_NULLED_OUT;

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

    
    if (n != (POFFSET+1)) 
      WITH_VAR_STACK(scheme_wrong_count_m("initialization in color% (color name case)", POFFSET+1, POFFSET+1, n, p, 1));
    x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+0], "initialization in color% (color name case)"));

    
    realobj = WITH_VAR_STACK(new os_wxColour CONSTRUCTOR_ARGS((x0)));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxColour(x0));
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_RETURN;
  } else if ((n >= (POFFSET+1)) && WITH_REMEMBERED_STACK(objscheme_istype_number(p[POFFSET+0], NULL))) {
    ubyte x0;
    ubyte x1;
    ubyte x2;

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

    
    if (n != (POFFSET+3)) 
      WITH_VAR_STACK(scheme_wrong_count_m("initialization in color% (rgb values case)", POFFSET+3, POFFSET+3, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+0], 0, 255, "initialization in color% (rgb values case)"));
    x1 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+1], 0, 255, "initialization in color% (rgb values case)"));
    x2 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+2], 0, 255, "initialization in color% (rgb values case)"));

    
    realobj = WITH_VAR_STACK(new os_wxColour CONSTRUCTOR_ARGS((x0, x1, x2)));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxColour(x0, x1, x2));
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_RETURN;
  } else  {

    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 color% (no argument case)", POFFSET+0, POFFSET+0, n, p, 1));

    
    realobj = WITH_VAR_STACK(new os_wxColour CONSTRUCTOR_ARGS(()));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxColour());
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_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_wxColourBlue ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 1056 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1166 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  class wxColour* r;
  objscheme_check_valid(os_wxColour_class, "copy-from in color%", n, p);
  class wxColour* 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_wxColour(p[POFFSET+0], "copy-from in color%", 0));

  if (!((wxColour *)((Scheme_Class_Object *)THEOBJ)->primdata)->IsMutable()) WITH_VAR_STACK(scheme_signal_error("%s: this %s%% object is locked (in use by a dc<%%> object or in a list of %s constants)", METHODNAME("color%","copy-from"), "color", "color"));
  r = WITH_VAR_STACK(((wxColour *)((Scheme_Class_Object *)p[0])->primdata)->CopyFrom(x0));

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

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1408 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  class wxColour* r;
  objscheme_check_valid(os_wxColourDatabase_class, "find-color in color-database<%>", 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], "find-color in color-database<%>"));

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

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

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1077 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1145 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1098 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 1119 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxColour_class, "set in color%", n, p);
  ubyte x0;
  ubyte x1;
  ubyte x2;

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

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+0], 0, 255, "set in color%"));
  x1 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+1], 0, 255, "set in color%"));
  x2 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+2], 0, 255, "set in color%"));

  if (!((wxColour *)((Scheme_Class_Object *)THEOBJ)->primdata)->IsMutable()) WITH_VAR_STACK(scheme_signal_error("%s: this %s%% object is locked (in use by a dc<%%> object or in a list of %s constants)", METHODNAME("color%","set"), "color", "color"));
  WITH_VAR_STACK(((wxColour *)((Scheme_Class_Object *)p[0])->primdata)->Set(x0, x1, x2));

  
  
  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_wxCursor_ConstructScheme ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 3493 of file wxs_gdi.cxx.

{
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  os_wxCursor *realobj INIT_NULLED_OUT;
  REMEMBER_VAR_STACK();
  if ((n >= (POFFSET+1)) && WITH_REMEMBERED_STACK(objscheme_istype_wxBitmap(p[POFFSET+0], NULL, 0))) {
    class wxBitmap* x0 INIT_NULLED_OUT;
    class wxBitmap* x1 INIT_NULLED_OUT;
    int x2;
    int x3;

    SETUP_VAR_STACK_PRE_REMEMBERED(4);
    VAR_STACK_PUSH(0, p);
    VAR_STACK_PUSH(1, realobj);
    VAR_STACK_PUSH(2, x0);
    VAR_STACK_PUSH(3, x1);

    
    if ((n < (POFFSET+2)) || (n > (POFFSET+4))) 
      WITH_VAR_STACK(scheme_wrong_count_m("initialization in cursor% (bitmap case)", POFFSET+2, POFFSET+4, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_wxBitmap(p[POFFSET+0], "initialization in cursor% (bitmap case)", 0));
    x1 = WITH_VAR_STACK(objscheme_unbundle_wxBitmap(p[POFFSET+1], "initialization in cursor% (bitmap case)", 0));
    if (n > (POFFSET+2)) {
      x2 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+2], 0, 15, "initialization in cursor% (bitmap case)"));
    } else
      x2 = 0;
    if (n > (POFFSET+3)) {
      x3 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+3], 0, 15, "initialization in cursor% (bitmap case)"));
    } else
      x3 = 0;

    { if (x0 && !x0->Ok()) WITH_VAR_STACK(scheme_arg_mismatch(METHODNAME("cursor","initialization"), "bad bitmap: ", p[POFFSET+0])); if (x0 && BM_SELECTED(x0)) WITH_VAR_STACK(scheme_arg_mismatch(METHODNAME("cursor","initialization"), "bitmap is currently installed into a bitmap-dc%: ", p[POFFSET+0])); }{ if (x0->GetDepth() != 1) WITH_VAR_STACK(scheme_arg_mismatch(METHODNAME("cursor","initialization"), "bitmap is not monochrome: ", p[POFFSET+0]));if ((x0->GetWidth() != 16) || (x0->GetHeight() != 16)) WITH_VAR_STACK(scheme_arg_mismatch(METHODNAME("cursor","initialization"), "bitmap is not 16 pixels by 16 pixels: ", p[POFFSET+0])); }{ if (x1 && !x1->Ok()) WITH_VAR_STACK(scheme_arg_mismatch(METHODNAME("cursor","initialization"), "bad bitmap: ", p[POFFSET+1])); if (x1 && BM_SELECTED(x1)) WITH_VAR_STACK(scheme_arg_mismatch(METHODNAME("cursor","initialization"), "bitmap is currently installed into a bitmap-dc%: ", p[POFFSET+1])); }{ if (x1->GetDepth() != 1) WITH_VAR_STACK(scheme_arg_mismatch(METHODNAME("cursor","initialization"), "bitmap is not monochrome: ", p[POFFSET+1]));if ((x1->GetWidth() != 16) || (x1->GetHeight() != 16)) WITH_VAR_STACK(scheme_arg_mismatch(METHODNAME("cursor","initialization"), "bitmap is not 16 pixels by 16 pixels: ", p[POFFSET+1])); }
    realobj = WITH_VAR_STACK(new os_wxCursor CONSTRUCTOR_ARGS((x0, x1, x2, x3)));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxCursor(x0, x1, x2, x3));
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_RETURN;
  } else  {
    int x0;

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

    
    if (n != (POFFSET+1)) 
      WITH_VAR_STACK(scheme_wrong_count_m("initialization in cursor% (symbolic name case)", POFFSET+1, POFFSET+1, n, p, 1));
    x0 = WITH_VAR_STACK(unbundle_symset_cursor(p[POFFSET+0], "initialization in cursor% (symbolic name case)"));

    
    realobj = WITH_VAR_STACK(new os_wxCursor CONSTRUCTOR_ARGS((x0)));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxCursor(x0));
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_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_wxCursorOk ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 3472 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 526 of file wxs_gdi.cxx.

{
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  os_wxFont *realobj INIT_NULLED_OUT;
  REMEMBER_VAR_STACK();
  if ((n >= (POFFSET+2)) && WITH_REMEMBERED_STACK(objscheme_istype_number(p[POFFSET+0], NULL)) && WITH_REMEMBERED_STACK(objscheme_istype_string(p[POFFSET+1], NULL))) {
    int x0;
    cstring x1 INIT_NULLED_OUT;
    int x2;
    int x3;
    int x4;
    Bool x5;
    int x6;
    Bool x7;

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

    
    if ((n < (POFFSET+3)) || (n > (POFFSET+8))) 
      WITH_VAR_STACK(scheme_wrong_count_m("initialization in font% (font name case)", POFFSET+3, POFFSET+8, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+0], 1, 255, "initialization in font% (font name case)"));
    x1 = (cstring)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+1], "initialization in font% (font name case)"));
    x2 = WITH_VAR_STACK(unbundle_symset_family(p[POFFSET+2], "initialization in font% (font name case)"));
    if (n > (POFFSET+3)) {
      x3 = WITH_VAR_STACK(unbundle_symset_style(p[POFFSET+3], "initialization in font% (font name case)"));
    } else
      x3 = wxNORMAL;
    if (n > (POFFSET+4)) {
      x4 = WITH_VAR_STACK(unbundle_symset_weight(p[POFFSET+4], "initialization in font% (font name case)"));
    } else
      x4 = wxNORMAL;
    if (n > (POFFSET+5)) {
      x5 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+5], "initialization in font% (font name case)"));
    } else
      x5 = 0;
    if (n > (POFFSET+6)) {
      x6 = WITH_VAR_STACK(unbundle_symset_smoothing(p[POFFSET+6], "initialization in font% (font name case)"));
    } else
      x6 = wxSMOOTHING_DEFAULT;
    if (n > (POFFSET+7)) {
      x7 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+7], "initialization in font% (font name case)"));
    } else
      x7 = 0;

    
    realobj = WITH_VAR_STACK(new os_wxFont CONSTRUCTOR_ARGS((x0, x1, x2, x3, x4, x5, x6, x7)));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxFont(x0, x1, x2, x3, x4, x5, x6, x7));
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_RETURN;
  } else if ((n >= (POFFSET+1)) && WITH_REMEMBERED_STACK(objscheme_istype_number(p[POFFSET+0], NULL))) {
    int x0;
    int x1;
    int x2;
    int x3;
    Bool x4;
    int x5;
    Bool x6;

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

    
    if ((n < (POFFSET+2)) || (n > (POFFSET+7))) 
      WITH_VAR_STACK(scheme_wrong_count_m("initialization in font% (family case)", POFFSET+2, POFFSET+7, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+0], 1, 255, "initialization in font% (family case)"));
    x1 = WITH_VAR_STACK(unbundle_symset_family(p[POFFSET+1], "initialization in font% (family case)"));
    if (n > (POFFSET+2)) {
      x2 = WITH_VAR_STACK(unbundle_symset_style(p[POFFSET+2], "initialization in font% (family case)"));
    } else
      x2 = wxNORMAL;
    if (n > (POFFSET+3)) {
      x3 = WITH_VAR_STACK(unbundle_symset_weight(p[POFFSET+3], "initialization in font% (family case)"));
    } else
      x3 = wxNORMAL;
    if (n > (POFFSET+4)) {
      x4 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+4], "initialization in font% (family case)"));
    } else
      x4 = 0;
    if (n > (POFFSET+5)) {
      x5 = WITH_VAR_STACK(unbundle_symset_smoothing(p[POFFSET+5], "initialization in font% (family case)"));
    } else
      x5 = wxSMOOTHING_DEFAULT;
    if (n > (POFFSET+6)) {
      x6 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+6], "initialization in font% (family case)"));
    } else
      x6 = 0;

    
    realobj = WITH_VAR_STACK(new os_wxFont CONSTRUCTOR_ARGS((x0, x1, x2, x3, x4, x5, x6)));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxFont(x0, x1, x2, x3, x4, x5, x6));
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_RETURN;
  } else  {

    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 font% (no argument case)", POFFSET+0, POFFSET+0, n, p, 1));

    
    realobj = WITH_VAR_STACK(new os_wxFont CONSTRUCTOR_ARGS(()));
#ifdef MZ_PRECISE_GC
    WITH_VAR_STACK(realobj->gcInit_wxFont());
#endif
    realobj->__gc_external = (void *)p[0];
    
    
    READY_TO_PRE_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_wxFontGetFaceString ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 484 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 505 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 337 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 442 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 358 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 400 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 463 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 379 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 421 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 883 of file wxs_gdi.cxx.

{
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  os_wxFontList *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 font-list%", POFFSET+0, POFFSET+0, n, p, 1));

  
  realobj = WITH_VAR_STACK(new os_wxFontList CONSTRUCTOR_ARGS(()));
#ifdef MZ_PRECISE_GC
  WITH_VAR_STACK(realobj->gcInit_wxFontList());
#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_wxFontListFindOrCreateFont ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 777 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  REMEMBER_VAR_STACK();
  class wxFont* r INIT_NULLED_OUT;
  objscheme_check_valid(os_wxFontList_class, "find-or-create-font in font-list%", n, p);
  if ((n >= (POFFSET+2)) && WITH_REMEMBERED_STACK(objscheme_istype_number(p[POFFSET+0], NULL)) && WITH_REMEMBERED_STACK(istype_symset_family(p[POFFSET+1], NULL))) {
    int x0;
    int x1;
    int x2;
    int x3;
    Bool x4;
    int x5;
    Bool x6;

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

    
    if ((n < (POFFSET+2)) || (n > (POFFSET+7))) 
      WITH_VAR_STACK(scheme_wrong_count_m("find-or-create-font in font-list% (family id case)", POFFSET+2, POFFSET+7, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+0], 1, 255, "find-or-create-font in font-list% (family id case)"));
    x1 = WITH_VAR_STACK(unbundle_symset_family(p[POFFSET+1], "find-or-create-font in font-list% (family id case)"));
    if (n > (POFFSET+2)) {
      x2 = WITH_VAR_STACK(unbundle_symset_style(p[POFFSET+2], "find-or-create-font in font-list% (family id case)"));
    } else
      x2 = wxNORMAL;
    if (n > (POFFSET+3)) {
      x3 = WITH_VAR_STACK(unbundle_symset_weight(p[POFFSET+3], "find-or-create-font in font-list% (family id case)"));
    } else
      x3 = wxNORMAL;
    if (n > (POFFSET+4)) {
      x4 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+4], "find-or-create-font in font-list% (family id case)"));
    } else
      x4 = 0;
    if (n > (POFFSET+5)) {
      x5 = WITH_VAR_STACK(unbundle_symset_smoothing(p[POFFSET+5], "find-or-create-font in font-list% (family id case)"));
    } else
      x5 = wxSMOOTHING_DEFAULT;
    if (n > (POFFSET+6)) {
      x6 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+6], "find-or-create-font in font-list% (family id case)"));
    } else
      x6 = 0;

    
    r = WITH_VAR_STACK(((wxFontList *)((Scheme_Class_Object *)p[0])->primdata)->FindOrCreateFont(x0, x1, x2, x3, x4, x5, x6));

    
    
    READY_TO_PRE_RETURN;
  } else  {
    int x0;
    cstring x1 INIT_NULLED_OUT;
    int x2;
    int x3;
    int x4;
    Bool x5;
    int x6;
    Bool x7;

    SETUP_VAR_STACK_PRE_REMEMBERED(3);
    VAR_STACK_PUSH(0, p);
    VAR_STACK_PUSH(1, r);
    VAR_STACK_PUSH(2, x1);

    
    if ((n < (POFFSET+3)) || (n > (POFFSET+8))) 
      WITH_VAR_STACK(scheme_wrong_count_m("find-or-create-font in font-list% (font name case)", POFFSET+3, POFFSET+8, n, p, 1));
    x0 = WITH_VAR_STACK(objscheme_unbundle_integer_in(p[POFFSET+0], 1, 255, "find-or-create-font in font-list% (font name case)"));
    x1 = (cstring)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+1], "find-or-create-font in font-list% (font name case)"));
    x2 = WITH_VAR_STACK(unbundle_symset_family(p[POFFSET+2], "find-or-create-font in font-list% (font name case)"));
    if (n > (POFFSET+3)) {
      x3 = WITH_VAR_STACK(unbundle_symset_style(p[POFFSET+3], "find-or-create-font in font-list% (font name case)"));
    } else
      x3 = wxNORMAL;
    if (n > (POFFSET+4)) {
      x4 = WITH_VAR_STACK(unbundle_symset_weight(p[POFFSET+4], "find-or-create-font in font-list% (font name case)"));
    } else
      x4 = wxNORMAL;
    if (n > (POFFSET+5)) {
      x5 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+5], "find-or-create-font in font-list% (font name case)"));
    } else
      x5 = 0;
    if (n > (POFFSET+6)) {
      x6 = WITH_VAR_STACK(unbundle_symset_smoothing(p[POFFSET+6], "find-or-create-font in font-list% (font name case)"));
    } else
      x6 = wxSMOOTHING_DEFAULT;
    if (n > (POFFSET+7)) {
      x7 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+7], "find-or-create-font in font-list% (font name case)"));
    } else
      x7 = 0;

    
    r = WITH_VAR_STACK(((wxFontList *)((Scheme_Class_Object *)p[0])->primdata)->FindOrCreateFont(x0, x1, x2, x3, x4, x5, x6, x7));

    
    
    READY_TO_PRE_RETURN;
  }

  return WITH_REMEMBERED_STACK(objscheme_bundle_wxFont(r));
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 5048 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  int r;
  objscheme_check_valid(os_wxFontNameDirectory_class, "find-or-create-font-id in font-name-directory<%>", n, p);
  cstring x0 INIT_NULLED_OUT;
  int x1;

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

  
  x0 = (cstring)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+0], "find-or-create-font-id in font-name-directory<%>"));
  x1 = WITH_VAR_STACK(unbundle_symset_family(p[POFFSET+1], "find-or-create-font-id in font-name-directory<%>"));

  
  r = WITH_VAR_STACK(((wxFontNameDirectory *)((Scheme_Class_Object *)p[0])->primdata)->FindOrCreateFontId(x0, x1));

  
  
  READY_TO_RETURN;
  return scheme_make_integer(r);
}

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 5074 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 5120 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  int r;
  objscheme_check_valid(os_wxFontNameDirectory_class, "get-font-id in font-name-directory<%>", n, p);
  string x0 INIT_NULLED_OUT;
  int 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-font-id in font-name-directory<%>"));
  x1 = WITH_VAR_STACK(unbundle_symset_family(p[POFFSET+1], "get-font-id in font-name-directory<%>"));

  
  r = WITH_VAR_STACK(((wxFontNameDirectory *)((Scheme_Class_Object *)p[0])->primdata)->GetFontId(x0, x1));

  
  
  READY_TO_RETURN;
  return scheme_make_integer(r);
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 5097 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 5204 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  nstring r;
  objscheme_check_valid(os_wxFontNameDirectory_class, "get-post-script-name in font-name-directory<%>", n, p);
  int x0;
  int x1;
  int x2;

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

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET+0], "get-post-script-name in font-name-directory<%>"));
  x1 = WITH_VAR_STACK(unbundle_symset_weight(p[POFFSET+1], "get-post-script-name in font-name-directory<%>"));
  x2 = WITH_VAR_STACK(unbundle_symset_style(p[POFFSET+2], "get-post-script-name in font-name-directory<%>"));

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

  
  
  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 5231 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  nstring r;
  objscheme_check_valid(os_wxFontNameDirectory_class, "get-screen-name in font-name-directory<%>", n, p);
  int x0;
  int x1;
  int x2;

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

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET+0], "get-screen-name in font-name-directory<%>"));
  x1 = WITH_VAR_STACK(unbundle_symset_weight(p[POFFSET+1], "get-screen-name in font-name-directory<%>"));
  x2 = WITH_VAR_STACK(unbundle_symset_style(p[POFFSET+2], "get-screen-name in font-name-directory<%>"));

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

  
  
  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:

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

Definition at line 5025 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  int r;
  objscheme_check_valid(os_wxFontNameDirectory_class, "find-family-default-font-id in font-name-directory<%>", n, p);
  int x0;

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

  
  x0 = WITH_VAR_STACK(unbundle_symset_family(p[POFFSET+0], "find-family-default-font-id in font-name-directory<%>"));

  
  r = WITH_VAR_STACK(Identity(((wxFontNameDirectory *)((Scheme_Class_Object *)p[0])->primdata), x0));

  
  
  READY_TO_RETURN;
  return scheme_make_integer(r);
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 5146 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxFontNameDirectory_class, "set-post-script-name in font-name-directory<%>", n, p);
  int x0;
  int x1;
  int x2;
  string x3 INIT_NULLED_OUT;

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

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET+0], "set-post-script-name in font-name-directory<%>"));
  x1 = WITH_VAR_STACK(unbundle_symset_weight(p[POFFSET+1], "set-post-script-name in font-name-directory<%>"));
  x2 = WITH_VAR_STACK(unbundle_symset_style(p[POFFSET+2], "set-post-script-name in font-name-directory<%>"));
  x3 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+3], "set-post-script-name in font-name-directory<%>"));

  
  WITH_VAR_STACK(((wxFontNameDirectory *)((Scheme_Class_Object *)p[0])->primdata)->SetPostScriptName(x0, x1, x2, x3));

  
  
  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 5175 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  objscheme_check_valid(os_wxFontNameDirectory_class, "set-screen-name in font-name-directory<%>", n, p);
  int x0;
  int x1;
  int x2;
  string x3 INIT_NULLED_OUT;

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

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_integer(p[POFFSET+0], "set-screen-name in font-name-directory<%>"));
  x1 = WITH_VAR_STACK(unbundle_symset_weight(p[POFFSET+1], "set-screen-name in font-name-directory<%>"));
  x2 = WITH_VAR_STACK(unbundle_symset_style(p[POFFSET+2], "set-screen-name in font-name-directory<%>"));
  x3 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[POFFSET+3], "set-screen-name in font-name-directory<%>"));

  
  WITH_VAR_STACK(((wxFontNameDirectory *)((Scheme_Class_Object *)p[0])->primdata)->SetScreenName(x0, x1, x2, x3));

  
  
  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_wxFontScreenGlyphAvailable ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 309 of file wxs_gdi.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  Bool r;
  objscheme_check_valid(os_wxFont_class, "screen-glyph-exists? in font%", n, p);
  mzchar x0;
  Bool x1;

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

  
  x0 = WITH_VAR_STACK(objscheme_unbundle_char(p[POFFSET+0], "screen-glyph-exists? in font%"));
  if (n > (POFFSET+1)) {
    x1 = WITH_VAR_STACK(objscheme_unbundle_bool(p[POFFSET+1], "screen-glyph-exists? in font%"));
  } else
    x1 = FALSE;

  
  r = WITH_VAR_STACK(((wxFont *)((Scheme_Class_Object *)p[0])->primdata)->ScreenGlyphAvailable(x0, x1));

  
  
  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:

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

Definition at line 4866 of file wxs_gdi.cxx.

{
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  os_wxPath *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 dc-path%", POFFSET+0, POFFSET+0, n, p, 1));

  
  realobj = WITH_VAR_STACK(new os_wxPath CONSTRUCTOR_ARGS(()));
#ifdef MZ_PRECISE_GC
  WITH_VAR_STACK(realobj->gcInit_wxPath());
#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_wxPathAddPath ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 4452 of file wxs_gdi.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

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