view release on metacpan or  search on metacpan

INSTALL  view on Meta::CPAN

+++ ./Tk.pm	Mon May 28 00:04:00 2001
@@ -73,6 +73,10 @@ my $boot_time = timeofday();
 Preload(DynaLoader::dl_findfile('-L/usr/openwin/lib','-lX11'))
   if (NeedPreload() && -d '/usr/openwin/lib');
 
+# OS/2 PM uses different event loops in presense and absense of windows
+# Allow window creation code to substitute 
+set_pEvenProc(Tk::Event::get_pEvenProc()) if $^O eq 'os2';
+
 use Tk::Submethods ('option'    =>  [qw(add get clear readfile)],
                     'clipboard' =>  [qw(clear append)]
                    );
--- ./pTk/mTk/unix/tkUnixPort.h~	Thu Mar 25 16:51:56 1999
+++ ./pTk/mTk/unix/tkUnixPort.h	Fri Apr 16 01:28:50 1999
@@ -93,7 +93,9 @@
 #include <X11/cursorfont.h>
 #include <X11/keysym.h>
 #include <X11/Xatom.h>
-#include <X11/Xproto.h>
+#ifndef __PM__
+#  include <X11/Xproto.h>