mv Tkperl/NotUnix.exc Tkperl/OnlyWin.exc
mv DragDrop/Win32Site/NotUnix.exc DragDrop/Win32Site/OnlyWin.exc
exit 0
After this 800.014 should build (checked with 5.005_53). However, font-name
resolution API used by Perl/Tk changed after 800.012, so that OS/2-specific
routines in tkOS2Font.c are not picked up. Thus the built binary has
very limited functionality.
--- ./pTk/mTk/additions/imgWindow.c~ Sat Apr 3 12:26:44 1999
+++ ./pTk/mTk/additions/imgWindow.c Fri Apr 16 01:30:06 1999
@@ -15,7 +15,9 @@
#include "imgInt.h"
#include "X11/Xutil.h"
#ifndef __WIN32__
-# include "X11/Xproto.h"
+# ifndef __PM__
+# include "X11/Xproto.h"
+# endif
#else
# include <windows.h>
# include "X11/Xlib.h"
--- ./Tk/MMutil.pm~ Fri Apr 16 01:33:34 1999
+++ ./Tk/MMutil.pm Fri Apr 16 01:24:16 1999
@@ -406,6 +406,14 @@ sub find_subdir
{
warn "Skip $dir on $win_arch\n"
}
+ elsif (($win_arch ne 'x') and -f "$dir/OnlyUnix.exc")
+ {
+ warn "Skip $dir on $win_arch\n"
+ }
+ elsif (($win_arch !~ /win/) and -f "$dir/OnlyWin.exc")
+ {
+ warn "Skip $dir on $win_arch\n"
+ }
else
{
$dir{$dir} = 1
--- ./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>
+#endif
#include <X11/Xresource.h>
#include <X11/Xutil.h>
--- ./pTk/mTk/tixGeneric/tixMwm.c~ Sat Aug 1 05:22:56 1998
+++ ./pTk/mTk/tixGeneric/tixMwm.c Fri Apr 16 01:28:42 1999
@@ -17,7 +17,9 @@
#include "tkVMacro.h"
#include <X11/Xlib.h>
#include <X11/Xatom.h>
-#include <X11/Xproto.h>
+#ifndef __PM__
+# include <X11/Xproto.h>
+#endif
#include <X11/Xutil.h>
--- ./pTk/mTk/additions/imgWindow.c~ Sat Apr 3 12:26:44 1999
+++ ./pTk/mTk/additions/imgWindow.c Fri Apr 16 01:30:06 1999
@@ -15,7 +15,9 @@
#include "imgInt.h"
#include "X11/Xutil.h"
#ifndef __WIN32__
-# include "X11/Xproto.h"
+# ifndef __PM__
+# include "X11/Xproto.h"
+# endif
#else
# include <windows.h>
# include "X11/Xlib.h"
--- ./Tk/MMutil.pm~ Fri Apr 16 01:33:34 1999
+++ ./Tk/MMutil.pm Fri Apr 16 01:24:16 1999
@@ -406,6 +406,14 @@ sub find_subdir
{
warn "Skip $dir on $win_arch\n"
}
+ elsif (($win_arch ne 'x') and -f "$dir/OnlyUnix.exc")
+ {
+ warn "Skip $dir on $win_arch\n"
+ }
+ elsif (($win_arch !~ /win/) and -f "$dir/OnlyWin.exc")
+ {
+ warn "Skip $dir on $win_arch\n"
+ }
else
{
$dir{$dir} = 1
--- ./MANIFEST~ Mon Apr 5 14:58:52 1999
+++ ./MANIFEST Fri Apr 16 01:38:06 1999
@@ -31,7 +31,7 @@ DragDrop/DragDrop/SunSite.pm
DragDrop/DropSite.pm
DragDrop/Makefile.PL
DragDrop/Win32Site/Makefile.PL
-DragDrop/Win32Site/NotUnix.exc
+DragDrop/Win32Site/OnlyWin.exc
DragDrop/Win32Site/Win32Site.pm
DragDrop/Win32Site/Win32Site.xs
DragDrop/drag_test
@@ -217,7 +217,7 @@ Tk/winfolder.xpm
Tk/wintext.xpm
TkXSUB.def
Tkperl/Makefile.PL
-Tkperl/NotUnix.exc
+Tkperl/OnlyWin.exc
Tkperl/winMain.c
ToDo
VERSIONS Description of version naming scheme