diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index b041833270..4266aa2d13 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -443,7 +443,7 @@ type
     function ItemFullyVisible(Index: Integer): boolean;
     procedure MakeCurrentVisible;
     procedure MeasureItem(Index: Integer; var TheHeight: Integer); virtual;
-    procedure Clear;
+    procedure Clear; virtual;
     procedure LockSelectionChange;
     procedure UnlockSelectionChange;
   public
@@ -1218,6 +1218,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.193  2005/02/19 18:23:27  mattias
+  made TListBox.Clear virtual
+
   Revision 1.192  2005/02/11 16:26:26  micha
   select index of item in list, if text occurs in list
 
diff --git a/lcl/tests/test1_2button.lpi b/lcl/tests/test1_2button.lpi
index 3cb41e723e..f213afc421 100644
--- a/lcl/tests/test1_2button.lpi
+++ b/lcl/tests/test1_2button.lpi
@@ -16,12 +16,12 @@
     </General>
     <Units Count="1">
       <Unit0>
-        <CursorPos X="10" Y="159"/>
+        <CursorPos X="14" Y="210"/>
         <EditorIndex Value="0"/>
         <Filename Value="test1_2button.lpr"/>
         <IsPartOfProject Value="True"/>
         <Loaded Value="True"/>
-        <TopLine Value="142"/>
+        <TopLine Value="193"/>
         <UnitName Value="test1_2button"/>
         <UsageCount Value="34"/>
       </Unit0>
@@ -46,9 +46,6 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="4"/>
-    <SearchPaths>
-      <LCLWidgetType Value="gtk2"/>
-    </SearchPaths>
     <CodeGeneration>
       <Checks>
         <IOChecks Value="True"/>
diff --git a/lcl/tests/test1_3label.lpi b/lcl/tests/test1_3label.lpi
index 27b89df2c8..467fb44faa 100644
--- a/lcl/tests/test1_3label.lpi
+++ b/lcl/tests/test1_3label.lpi
@@ -9,19 +9,19 @@
         <SaveOnlyProjectUnits Value="True"/>
       </Flags>
       <MainUnit Value="0"/>
-      <ActiveEditorIndexAtStart Value="0"/>
+      <ActiveEditorIndexAtStart Value="2"/>
       <IconPath Value="./"/>
       <TargetFileExt Value=""/>
       <Title Value="test1_3label"/>
     </General>
     <Units Count="1">
       <Unit0>
-        <CursorPos X="41" Y="78"/>
+        <CursorPos X="16" Y="32"/>
         <EditorIndex Value="0"/>
         <Filename Value="test1_3label.lpr"/>
         <IsPartOfProject Value="True"/>
         <Loaded Value="True"/>
-        <TopLine Value="49"/>
+        <TopLine Value="21"/>
         <UnitName Value="test1_3label"/>
         <UsageCount Value="34"/>
       </Unit0>