[GB.FORM.EDITOR]

* BUG: TextEditor: The Clear() method should not crash anymore.


git-svn-id: svn://localhost/gambas/trunk@7131 867c0c6c-44f3-4631-809d-bfa615b0a4ec

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

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)

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