Code, text and conflict editor: Use the 'gb.form.editor' new goto line panel instead of the custom one.

[DEVELOPMENT ENVIRONMENT]
* NEW: Code, text and conflict editor: Use the 'gb.form.editor' new goto line panel instead of the custom one.

app/src/gambas3/.src/Editor/Code/FConflictEditor.class

@@ -492,11 +492,7 @@ End
 
 Public Sub mnuGotoLine_Click()
 
-  Dim iLine As Integer
-
-  iLine = FGotoLine.Run($hEditor.Line + 1)
-  If iLine <= 0 Then Return
-  GotoCenter(iLine - 1)
+  $hEditor.ShowGotoPanel()
 
 End
 

app/src/gambas3/.src/Editor/Code/FEditor.class

@@ -1310,12 +1310,8 @@ Public Sub mnuForm_Click()
 End
 
 Public Sub mnuGotoLine_Click()
-
-  Dim iLine As Integer
-
-  iLine = FGotoLine.Run($hEditor.Line + 1)
-  If iLine <= 0 Then Return
-  GotoCenter(iLine - 1, 0)
+  
+  $hEditor.ShowGotoPanel
 
 End
 

app/src/gambas3/.src/Editor/Code/FTextEditor.class

@@ -579,11 +579,7 @@ End
 
 Public Sub mnuGotoLine_Click()
 
-  Dim iLine As Integer
-
-  iLine = FGotoLine.Run($hEditor.Line + 1)
-  If iLine <= 0 Then Return
-  GotoCenter(iLine - 1)
+  $hEditor.ShowGotoPanel
 
 End
 

app/src/gambas3/.src/Editor/FGotoLine.class

@@ -1,36 +0,0 @@
-' Gambas class file
-
-Static Private $iLine As Integer
-
-Static Public Function Run(iLine As Integer) As Integer
-
-  Dim hForm As FGotoLine
-
-  $iLine = iLine
-  hForm = New FGotoLine
-  If hForm.ShowModal() Then Return $iLine
-
-End
-
-Public Sub Form_Open()
-
-  txtLine.Text = CStr($iLine)
-  txtLine.SelectAll
-  txtLine.SetFocus
-
-End
-
-Public Sub btnOK_Click()
-
-  Try $iLine = Val(txtLine.Text)
-  If Error Then Return
-
-  Me.Close(True)
-
-End
-
-Public Sub btnCancel_Click()
-
-  Me.Close
-
-End

app/src/gambas3/.src/Editor/FGotoLine.form

@@ -1,31 +0,0 @@
-# Gambas Form File 3.0
-
-{ Form Form
-  MoveScaled(0,0,33,12)
-  Text = ("Go to line")
-  Resizable = False
-  { btnOK Button
-    MoveScaled(1,7,15,4)
-    Text = ("OK")
-    Default = True
-  }
-  { btnCancel Button
-    MoveScaled(17,7,15,4)
-    Text = ("Cancel")
-    Cancel = True
-  }
-  { HBox1 HBox
-    MoveScaled(1,1,31,4)
-    Spacing = True
-    { Label1 Label
-      MoveScaled(0,0,11,4)
-      AutoResize = True
-      Text = ("Go to line")
-    }
-    { txtLine TextBox
-      MoveScaled(13,0,15,4)
-      Expand = True
-      Alignment = Align.Right
-    }
-  }
-}