Public Sub IsSelected() As Boolean
Return ExecuteScript("editor.somethingSelected();")
End Sub
Public Sub ReplaceSelectedCode(Value As String, Selection As Boolean)
Dim sSelect As String = "start"
If Selection = True Then
sSelect = "around"
End If
ExecuteScript($"editor.replaceSelection("${Value}","${sSelect}");"$)
End Sub
Public Sub GetLineCount() As Int
Return ExecuteScript("editor.lineCount();")
End Sub
Public Sub EditUndo()
ExecuteScript("editor.undo();")
End Sub
Public Sub EditRedo()
ExecuteScript("editor.redo();")
End Sub
Public Sub CommentLine()
Dim ch As Char = ExecuteScript($"editor.getCursor("string");"$)
' Log(ExecuteScript($"editor.getCursor("head");"$)
ExecuteScript($"editor.lineComment(5,0);"$)
End Sub