FreeXP

CVS daily diff

FreeXP CVS-Server cvs-list at freexp.de
Sam Dez 24 00:00:25 CET 2005


Index: freexp/clip.pas
===================================================================
RCS file: /server/cvs/freexp/clip.pas,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- freexp/clip.pas	30 Nov 2005 18:45:52 -0000	1.35
+++ freexp/clip.pas	23 Dec 2005 11:37:07 -0000	1.36
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: clip.pas,v 1.35 2005/11/30 18:45:52 mw Exp $ }
+{ $Id: clip.pas,v 1.36 2005/12/23 11:37:07 mw Exp $ }
 
 {$I XPDEFINE.INC }
 {$O+,F+}
@@ -192,7 +192,7 @@
 
 function DOSBOX: boolean;
 begin
-  if ((Test8086>1) and (AT=false)) then DOSBOX:=true else DOSBOX:=false;
+  DOSBOX:=(Test8086>1) and not AT;
 end;
 
 { -------------------------------------------------------- }
@@ -800,6 +800,9 @@
 end.
 {
   $Log: clip.pas,v $
+  Revision 1.36  2005/12/23 11:37:07  mw
+  MY: - Vereinfachung des DOSBox-Tests.
+
   Revision 1.35  2005/11/30 18:45:52  mw
   MW: - Nochmalige Steiergung der Zuverlässigkeit der DOSBOX-Erkennung
 
Index: freexp/xp5.pas
===================================================================
RCS file: /server/cvs/freexp/xp5.pas,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -r1.59 -r1.60
--- freexp/xp5.pas	1 Jan 2005 11:16:30 -0000	1.59
+++ freexp/xp5.pas	23 Dec 2005 10:36:16 -0000	1.60
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp5.pas,v 1.59 2005/01/01 11:16:30 mw Exp $ }
+{ $Id: xp5.pas,v 1.60 2005/12/23 10:36:16 mw Exp $ }
 
 { CrossPoint - Utilities }
 
@@ -516,7 +516,7 @@
   lnx:=DOSEmuVersion <> '';
   if NOT DOSBOX then  
   wrt(x+4,y+11,iifs(os2,'OS/2',iifs(lnx,'Dosemu','DOS'))+getres2(rnr,7)) else   { -Version }
-  wrt(x+4,y+11,'DOSBOX');
+  wrt(x+4,y+11,'DOSBox');
   if win then
     wrt(x+4,y+12,'Windows'+getres2(rnr,7));
   attrtxt(col.colmbox);
@@ -1156,6 +1156,9 @@
 
 {
   $Log: xp5.pas,v $
+  Revision 1.60  2005/12/23 10:36:16  mw
+  MW: - Typo verbessert: DOSBOX -> DOSBox
+
   Revision 1.59  2005/01/01 11:16:30  mw
   MW: - Willkommen im Jahr 2005
 



Mehr Informationen über die CVS-List Mailingliste