diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2019-10-07 01:52:59 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2019-10-07 01:52:59 (GMT) |
| commit | 5eafeee26a48a24edcf9f727ea55ccf0e22cc856 (patch) | |
| tree | 15bdfd054e1fd896883b7fc173eede9ccba4ea1c /macosx/tkMacOSXInit.c | |
| parent | 5281a4a7447239fed939966230911a2996ef8987 (diff) | |
| download | tk-5eafeee26a48a24edcf9f727ea55ccf0e22cc856.zip tk-5eafeee26a48a24edcf9f727ea55ccf0e22cc856.tar.gz tk-5eafeee26a48a24edcf9f727ea55ccf0e22cc856.tar.bz2 | |
tk::mac::RegisterServiceWidget was returning an error when Wish was launched from app bundle; restore to earlier location in app init code
Diffstat (limited to 'macosx/tkMacOSXInit.c')
| -rw-r--r-- | macosx/tkMacOSXInit.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/macosx/tkMacOSXInit.c b/macosx/tkMacOSXInit.c index 3d06691..848b500 100644 --- a/macosx/tkMacOSXInit.c +++ b/macosx/tkMacOSXInit.c @@ -404,9 +404,8 @@ TkpInit( * is allowed to provide services. */ - Tcl_CreateObjCommand(interp, "::tk::mac::registerServiceWidget", - TkMacOSXRegisterServiceWidgetObjCmd, NULL, NULL); TkMacOSXServices_Init(interp); + } if (tkLibPath[0] != '\0') { @@ -423,6 +422,8 @@ TkpInit( Tcl_CreateObjCommand(interp, "::tk::mac::iconBitmap", TkMacOSXIconBitmapObjCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "::tk::mac::GetAppPath", TkMacOSXGetAppPath, NULL, NULL); + Tcl_CreateObjCommand(interp, "::tk::mac::registerServiceWidget", + TkMacOSXRegisterServiceWidgetObjCmd, NULL, NULL); return TCL_OK; } |