Преглед на файлове

* mark interactive

git-svn-id: trunk@495 -
peter преди 20 години
родител
ревизия
bc15fe13b3
променени са 1 файла, в които са добавени 3 реда и са изтрити 1 реда
  1. 3 1
      tests/webtbs/tw2423.pp

+ 3 - 1
tests/webtbs/tw2423.pp

@@ -1,4 +1,6 @@
 { %target=win32 }
+{ %interactive }
+
 { Source provided for Free Pascal Bug Report 2423 }
 { Submitted by "Pavel V. Ozerski" on  2003-03-18 }
 { e-mail: [email protected] }
@@ -69,7 +71,7 @@ begin
    begin
     setlength(s,i);
     break;
-   end; 
+   end;
  s:=s+'demo.htm';
  assign(t,s);
  rewrite(t,1);