* inline on

git-svn-id: trunk@3957 -

tests/webtbs/tw6989.pp

@@ -1,6 +1,7 @@
 unit tw6989;
 
 {$mode objfpc}{$H+}
+{$inline on}
 
 interface
 
@@ -116,4 +117,4 @@ begin
   with ARect do
     SendString(ltValue,Format('%s = (Left: %d; Top: %d; Right: %d; Bottom: %d)',[AText,Left,Top,Right,Bottom]));
 end;
-end.
+end.