SendMessage(QueryObject(textarea, 1), $00CF, True, 0)

global fenster = CREATEWINDOW("Test", gadgetWIDTH (desktop()) / 2 - 150, gadgetHEIGHT (Desktop()) / 2 - 100, 300, 200, 0, 1)
global textarea = createtextarea(0, 0, 300, 200, fenster)

ADDTEXTAREATEXT textarea,"Text1 Hallo Test Test Test" + CHR$(13)+CHR$(10) + " ... bla bla bla blupp"

Anzahl = textarealen (textarea); ermittelt die Zeichenanzahl in Textarea

atext$ = textareatext (textarea); liest Text aus

repeat

   id = waitevent()

      select id

         case $401

           Anzahl2 = textarealen (textarea); ermittelt die aktuelle Zeichenanzahl in Textarea

              if Anzahl <> Anzahl2 then; überprüft abweichungen

                 locktextarea textarea

                 SETTEXTAREATEXT textarea, atext$, 0, Anzahl2; fügt Orginaltext in Textarea ein.

                 unlocktextarea textarea

              end if

         case $803

            end

      end select

until keyhit (1)

end