diff options
author | Kevin Walzer <kw@codebykevin.com> | 2020-09-21 18:48:05 (GMT) |
---|---|---|
committer | Kevin Walzer <kw@codebykevin.com> | 2020-09-21 18:48:05 (GMT) |
commit | 2dd96a74a429ac0d9dbf568028736f7e49d1b2b6 (patch) | |
tree | 8fbb7db7d846e483eda0b2735a3b0e722808b389 | |
parent | 73dfca5e7834838008689bc303a0f89b4d7edc1f (diff) | |
download | tk-2dd96a74a429ac0d9dbf568028736f7e49d1b2b6.zip tk-2dd96a74a429ac0d9dbf568028736f7e49d1b2b6.tar.gz tk-2dd96a74a429ac0d9dbf568028736f7e49d1b2b6.tar.bz2 |
Attempt to build on X11
-rw-r--r-- | unix/tkUnixInit.c | 1 | ||||
-rw-r--r-- | unix/tkUnixInt.h | 5 | ||||
-rw-r--r-- | unix/tkUnixSysTray.c | 1 | ||||
-rw-r--r-- | win/tkWinInit.c | 4 |
4 files changed, 9 insertions, 2 deletions
diff --git a/unix/tkUnixInit.c b/unix/tkUnixInit.c index cffe605..902f8c4 100644 --- a/unix/tkUnixInit.c +++ b/unix/tkUnixInit.c @@ -41,6 +41,7 @@ TkpInit( { TkCreateXEventSource(); GetLibraryPath(interp); + Tktray_Init(interp); return TCL_OK; } diff --git a/unix/tkUnixInt.h b/unix/tkUnixInt.h index 805f314..6916f27 100644 --- a/unix/tkUnixInt.h +++ b/unix/tkUnixInt.h @@ -24,7 +24,12 @@ #include "tkIntPlatDecls.h" +MODULE_SCOPE int Tktray_Init (Tcl_Interp* interp); + + #endif /* _TKUNIXINT */ + +MODULE_SCOPE int Tktray_Init (Tcl_Interp* interp); /* * Local Variables: diff --git a/unix/tkUnixSysTray.c b/unix/tkUnixSysTray.c index b156e94..192ab65 100644 --- a/unix/tkUnixSysTray.c +++ b/unix/tkUnixSysTray.c @@ -13,6 +13,7 @@ #include <tcl.h>
#include <tk.h>
+#inlude "tkUnixInt.h"
/*
* Based extensively on the tktray extension package. Here we are removing
diff --git a/win/tkWinInit.c b/win/tkWinInit.c index 9fff433..9e77a81 100644 --- a/win/tkWinInit.c +++ b/win/tkWinInit.c @@ -39,10 +39,10 @@ TkpInit( /* * This is necessary for static initialization, and is ok otherwise * because TkWinXInit flips a static bit to do its work just once. Also, - * initialize the Windows systray command here. + * initialize the Windows systray command here. */ - WinIcoInit(interp); + WinIcoInit(interp); TkWinXInit(Tk_GetHINSTANCE()); return TCL_OK; } |