peter před 23 roky
rodič
revize
2e8fb6513c
1 změnil soubory, kde provedl 4 přidání a 1 odebrání
  1. 4 1
      tests/webtbs/tw1820.pp

+ 4 - 1
tests/webtbs/tw1820.pp

@@ -3,6 +3,8 @@ unit tw1820;
 
 interface
 
+{$ifdef win32}
+
 {$mode Delphi}
 Uses Windows;
 
@@ -15,7 +17,8 @@ type
 const
   IEnumTasks = IEnumWorkItems;
 
+{$endif}
+
   implementation
 
 end.
-