I use the following functions to speed up the RTF handling of the TextArea:
Public Sub BeginFastEditing(Extends TA As TextArea)
#If TargetCocoa Then
Dim docView As Integer = TA.DocumentView
' Dim storage As Integer = TA.TextStorage( docView )
Dim storage As Integer = TextStorage( docView )
Declare Sub beginEditing Lib "AppKit" Selector "beginEditing" ( obj As Integer )
beginEditing( storage )
#EndIf
End Sub
and
Public Sub EndFastEditing(Extends TA As TextArea)
#If TargetCocoa Then
Dim docView As Integer = TA.DocumentView
' Dim storage As Integer = TA.TextStorage( docView )
Dim storage As Integer = TextStorage( docView )
Declare Sub endEditing Lib "AppKit" Selector "endEditing" ( obj As Integer )
endEditing( storage )
#Endif
End Sub
Is there any reason why I couldn’t simply add these to a custom class FastTextArea and have it in the open and close events?
The other option to to name it something else and then in your subclass remove Text from the inspector behaviour
That just means it wont be seen in the inspector though and programmatically you could still set “Text” and thereby circumvent your work