diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2021-05-06 12:42:03 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2021-05-06 12:42:03 (GMT) |
| commit | 43c2e0df3791777a06661fa4a852871ff0a7cabf (patch) | |
| tree | b9400c23b03ef07925900593be0f1e0bc914d057 | |
| parent | 1e7d79df7dfdb25ac911ca112fc891e4f6bb68d9 (diff) | |
| download | tk-43c2e0df3791777a06661fa4a852871ff0a7cabf.zip tk-43c2e0df3791777a06661fa4a852871ff0a7cabf.tar.gz tk-43c2e0df3791777a06661fa4a852871ff0a7cabf.tar.bz2 | |
Gdi commands now active; next step: work out printing details at script level
| -rw-r--r-- | win/tkWinGDI.c | 20 | ||||
| -rw-r--r-- | win/tkWinInit.c | 2 | ||||
| -rw-r--r-- | win/tkWinInt.h | 2 |
3 files changed, 18 insertions, 6 deletions
diff --git a/win/tkWinGDI.c b/win/tkWinGDI.c index 4bd205c..82c48e8 100644 --- a/win/tkWinGDI.c +++ b/win/tkWinGDI.c @@ -51,8 +51,6 @@ static int GdiParseColor (const char *name, unsigned long *color); static int GdiGetColor (const char *name, unsigned long *color); static int TkGdiMakeBezierCurve(Tk_Canvas, double *, int, int, XPoint[], double[]); - - /* * Helper functions. */ @@ -109,6 +107,7 @@ static HDC get_dc(Tcl_Interp *interp, const char *name); static int TkWinGDI (ClientData clientData, Tcl_Interp *interp, int argc, const char **argv) { + if ( argc > 1 && strcmp(*argv, "::tk::print::_gdi") == 0 ) { argc--; @@ -4649,11 +4648,24 @@ static HDC get_dc(Tcl_Interp *interp, const char *name) } } - +/* + *-------------------------------------------------------------- + * + * Gdi_Init -- + * + * Initializes the Gdi package. + * + * Results: + * Gdi commands initialized. + * + *-------------------------------------------------------------- + */ + int Gdi_Init(Tcl_Interp *interp) { - Tcl_CreateCommand(interp, ":tk::print::_gdi", TkWinGDI, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL); + Tcl_CreateCommand(interp, "::tk::print::_gdi", TkWinGDI, + (ClientData)0, (Tcl_CmdDeleteProc *)0); return TCL_OK; } diff --git a/win/tkWinInit.c b/win/tkWinInit.c index d7e1dce..7060d0f 100644 --- a/win/tkWinInit.c +++ b/win/tkWinInit.c @@ -44,7 +44,7 @@ TkpInit( WinIcoInit(interp); Winprint_Init(interp); - Gdi_Init(interp); + Gdi_Init(interp); TkWinXInit(Tk_GetHINSTANCE()); return TCL_OK; } diff --git a/win/tkWinInt.h b/win/tkWinInt.h index 69617c2..702a574 100644 --- a/win/tkWinInt.h +++ b/win/tkWinInt.h @@ -232,7 +232,7 @@ MODULE_SCOPE int Winprint_Init(Tcl_Interp* interp); */ -MODULE_SCOPE int Gdi_Init(Tcl_Interp *interp); +MODULE_SCOPE int Gdi_Init(Tcl_Interp* interp); /* * Common routines used in Windows implementation |