diff --git a/designer/propedits.pp b/designer/propedits.pp
index c89ab0cda7..bcdc86b2b4 100644
--- a/designer/propedits.pp
+++ b/designer/propedits.pp
@@ -3273,7 +3273,7 @@ initialization
   RegisterPropertyEditor(DummyClassForPropTypes.PTypeInfos('shortstring'),
     nil,'',TCaptionPropertyEditor);
   RegisterPropertyEditor(DummyClassForPropTypes.PTypeInfos('TStrings'),
-    nil,'Lines',TStringsPropertyEditor);
+    nil,'',TStringsPropertyEditor);
 
 finalization
   PropertyEditorMapperList.Free;  PropertyEditorMapperList:=nil;
diff --git a/ide/main.pp b/ide/main.pp
index c1641ad9cc..e683beae3c 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -238,10 +238,6 @@ constructor TForm1.Create(AOwner: TComponent);
           ms.Position:=0;
           PixMap.LoadFromStream(ms);
           Result:=true;
-          Writeln('PIXMAP LOADED.');
-          Writeln('Width='+inttostr(Pixmap.Width));
-          Writeln('Height='+inttostr(Pixmap.Height));
-
         finally
           ms.Free;
         end;
@@ -1774,6 +1770,10 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.31  2001/01/04 16:12:54  lazarus
+  Removed some writelns and changed the property editor for TStrings a bit.
+  Shane
+
   Revision 1.30  2001/01/03 18:44:54  lazarus
   The Speedbutton now has a numglyphs setting.
   I started the TStringPropertyEditor
diff --git a/lcl/include/menuitem.inc b/lcl/include/menuitem.inc
index 236c246dea..94b478d8e8 100644
--- a/lcl/include/menuitem.inc
+++ b/lcl/include/menuitem.inc
@@ -257,7 +257,6 @@ begin
 //    if FMenu <> nil then Item.FCompStyle := csMenu;
 
     Item.FParent := Self;
-    Writeln('INDEX = '+inttostr(index));
     FItems.Insert(Index, Item);
     MenuChanged(FItems.Count = 1);
   end;
@@ -406,6 +405,10 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.5  2001/01/04 16:12:54  lazarus
+  Removed some writelns and changed the property editor for TStrings a bit.
+  Shane
+
   Revision 1.4  2000/12/22 19:55:38  lazarus
   Added the Popupmenu code to the LCL.
   Now you can right click on the editor and a PopupMenu appears.
@@ -446,6 +449,10 @@ end;
 
 
   $Log$
+  Revision 1.5  2001/01/04 16:12:54  lazarus
+  Removed some writelns and changed the property editor for TStrings a bit.
+  Shane
+
   Revision 1.4  2000/12/22 19:55:38  lazarus
   Added the Popupmenu code to the LCL.
   Now you can right click on the editor and a PopupMenu appears.
diff --git a/lcl/include/pixmap.inc b/lcl/include/pixmap.inc
index 62db49f14b..fb02cd5734 100644
--- a/lcl/include/pixmap.inc
+++ b/lcl/include/pixmap.inc
@@ -22,8 +22,6 @@ var
   n, BufIndex: Integer;
   t : String;
 begin
-writeln('Entering');
-
   FreeContext;
 
   // Convert a XPM filedata format to a XPM memory format
@@ -78,12 +76,15 @@ writeln('Entering');
   finally
     S.Free;
   end;
-writeln('leaving');
 end;
 
 { =============================================================================
 
   $Log$
+  Revision 1.5  2001/01/04 16:12:54  lazarus
+  Removed some writelns and changed the property editor for TStrings a bit.
+  Shane
+
   Revision 1.4  2001/01/03 18:44:54  lazarus
   The Speedbutton now has a numglyphs setting.
   I started the TStringPropertyEditor
diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc
index 48a36d3079..50da775eec 100644
--- a/lcl/include/speedbutton.inc
+++ b/lcl/include/speedbutton.inc
@@ -254,7 +254,9 @@ begin
     DrawFlags := DFCS_BUTTONPUSH or DFCS_ADJUSTRECT;
     if FState in [bsDown, bsExclusive]
     then DrawFlags := DrawFlags or DFCS_PUSHED;
+    Writeln('calling drawframecontrol');
     DrawFrameControl(Canvas.Handle, PaintRect, DFC_BUTTON, DrawFlags);
+    Writeln('Exiting drawframecontrol');
   end
   else begin   //flat
     if (FState in [bsDown, bsExclusive])
@@ -524,6 +526,10 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.3  2001/01/04 16:12:54  lazarus
+  Removed some writelns and changed the property editor for TStrings a bit.
+  Shane
+
   Revision 1.2  2001/01/03 18:44:54  lazarus
   The Speedbutton now has a numglyphs setting.
   I started the TStringPropertyEditor
diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 862a950f4f..6c5a797b2c 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -791,9 +791,7 @@ const
   PUSH_EDGE_FLAG: array[Boolean] of Integer = (EDGE_RAISED, EDGE_SUNKEN);
   PUSH_EDGE_FLAG2: array[Boolean] of Integer = (0, BF_FLAT);
 begin
-Assert(False, 'Trace:************************************************');
-Assert(False, 'Trace:DRAWFRAMECONTROL');
-Assert(False, 'Trace:************************************************');
+writeln('IN DrawFrameControl');
   case uType of
     DFC_CAPTION:
       begin  //all draw CAPTION commands here
@@ -3116,6 +3114,10 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.11  2001/01/04 16:12:54  lazarus
+  Removed some writelns and changed the property editor for TStrings a bit.
+  Shane
+
   Revision 1.10  2001/01/03 18:44:54  lazarus
   The Speedbutton now has a numglyphs setting.
   I started the TStringPropertyEditor