diff options
| author | marc_culler <marc.culler@gmail.com> | 2022-09-19 03:53:31 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2022-09-19 03:53:31 (GMT) |
| commit | 74e03e32278cc4b3e3d09ca564aed76ae0a177aa (patch) | |
| tree | af5ebbaafd7b658a6c4f0086bf4a51b6b85efc76 /macosx | |
| parent | ad1635f1155cf8b19a8142e79c3dca98d64daf41 (diff) | |
| download | tk-74e03e32278cc4b3e3d09ca564aed76ae0a177aa.zip tk-74e03e32278cc4b3e3d09ca564aed76ae0a177aa.tar.gz tk-74e03e32278cc4b3e3d09ca564aed76ae0a177aa.tar.bz2 | |
Document the nsimage image type and make a few minor adjustments.
Diffstat (limited to 'macosx')
| -rw-r--r-- | macosx/tkMacOSXImage.c | 8 | ||||
| -rw-r--r-- | macosx/tkMacOSXInit.c | 2 | ||||
| -rw-r--r-- | macosx/tkMacOSXPrivate.h | 3 |
3 files changed, 8 insertions, 5 deletions
diff --git a/macosx/tkMacOSXImage.c b/macosx/tkMacOSXImage.c index db56d52..d74ce01 100644 --- a/macosx/tkMacOSXImage.c +++ b/macosx/tkMacOSXImage.c @@ -1316,7 +1316,7 @@ TkNSImageConfigureMaster( /* *---------------------------------------------------------------------- * - * TkNSImageObjCmd -- + * TkMacOSXNSImageObjCmd -- * * This function implements the configure and cget commands for an * nsimage instance. @@ -1330,8 +1330,8 @@ TkNSImageConfigureMaster( *---------------------------------------------------------------------- */ -static int -TkNSImageObjCmd( +int +TkMacOSXNSImageObjCmd( ClientData clientData, /* Information about the image master. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ @@ -1452,8 +1452,6 @@ TkNSImageCreate( return TCL_ERROR; } - Tcl_CreateObjCommand(interp, name, TkNSImageObjCmd, masterPtr, NULL); - *clientDataPtr = masterPtr; return TCL_OK; } diff --git a/macosx/tkMacOSXInit.c b/macosx/tkMacOSXInit.c index 8045483..06e0346 100644 --- a/macosx/tkMacOSXInit.c +++ b/macosx/tkMacOSXInit.c @@ -625,6 +625,8 @@ TkpInit( Tcl_SetVar2(interp, "auto_path", NULL, scriptPath, TCL_GLOBAL_ONLY|TCL_LIST_ELEMENT|TCL_APPEND_VALUE); } + Tcl_CreateObjCommand(interp, "nsimage", + TkMacOSXNSImageObjCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "::tk::mac::standardAboutPanel", TkMacOSXStandardAboutPanelObjCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "::tk::mac::iconBitmap", diff --git a/macosx/tkMacOSXPrivate.h b/macosx/tkMacOSXPrivate.h index 8c9a494..9e90a5c 100644 --- a/macosx/tkMacOSXPrivate.h +++ b/macosx/tkMacOSXPrivate.h @@ -286,6 +286,9 @@ MODULE_SCOPE int TkMacOSXStandardAboutPanelObjCmd(ClientData clientData, MODULE_SCOPE int TkMacOSXIconBitmapObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); +MODULE_SCOPE int TkMacOSXNSImageObjCmd(ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[]); MODULE_SCOPE void TkMacOSXDrawSolidBorder(Tk_Window tkwin, GC gc, int inset, int thickness); MODULE_SCOPE int TkMacOSXServices_Init(Tcl_Interp *interp); |