diff --git a/comp/src/gb.form.editor/.src/FTestEditor.class b/comp/src/gb.form.editor/.src/FTestEditor.class
index 2f4b83848..2d3d4582e 100644
--- a/comp/src/gb.form.editor/.src/FTestEditor.class
+++ b/comp/src/gb.form.editor/.src/FTestEditor.class
@@ -34,7 +34,7 @@ Public Sub Form_Open()
   'TextEditor1.Text = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\n---"
 
   'TextEditor1.Text = "If sType = \"class\" And If Dir(File.Dir(sPath), File.BaseName(sPath) &/ \".*\").Count >= 2 Then Dec iCount\n'titi\n'tata"
-
+  
 End
 
 Public Sub TextEditor1_Margin()
@@ -67,3 +67,9 @@ Public Sub txtPrint_KeyPress()
   Debug Key.Code;; Quote(Key.Text)
 
 End
+
+Public Sub Button3_Click()
+
+  TextEditor1.Clear
+
+End
diff --git a/comp/src/gb.form.editor/.src/FTestEditor.form b/comp/src/gb.form.editor/.src/FTestEditor.form
index 8ee732936..66af99396 100644
--- a/comp/src/gb.form.editor/.src/FTestEditor.form
+++ b/comp/src/gb.form.editor/.src/FTestEditor.form
@@ -4,7 +4,7 @@
   MoveScaled(0,0,130,97)
   Arrangement = Arrange.Vertical
   { Panel2 HBox
-    MoveScaled(2,2,74,4)
+    MoveScaled(2,2,110,4)
     { txtPrint TextBox
       MoveScaled(0,0,24,4)
     }
@@ -16,6 +16,10 @@
       MoveScaled(45,0,15,4)
       Text = ("Cache")
     }
+    { Button3 Button
+      MoveScaled(64,0,16,4)
+      Text = ("Clear")
+    }
   }
   { Panel1 VSplit
     MoveScaled(10,10,86,52)
diff --git a/comp/src/gb.form.editor/.src/TextEditor.class b/comp/src/gb.form.editor/.src/TextEditor.class
index 7a61f4680..eb4fcf7ff 100644
--- a/comp/src/gb.form.editor/.src/TextEditor.class
+++ b/comp/src/gb.form.editor/.src/TextEditor.class
@@ -260,7 +260,6 @@ Private Sub Init()
 
   $hRows.Clear
   $hRows.Count = $hDoc.Count
-  CalcSizes
   $X = 0
   $Y = 0
   $XY = New Point
@@ -269,6 +268,7 @@ Private Sub Init()
   $SY = 0
   $SXY = New Point
   $YM = -1
+  CalcSizes
   $bShowCursor = True
   GotoCenter(0, 0)
   $bStyleChanged = True