NTUI: Textbox

[Blackbird]

Also alle wegschauen bevor mir der Wanderer nun wieder den Kopf abreisst und damit Fussball spielt :o

das hier ist pöse pöse und zur Nachahmung wird nicht geraten, Eltern verhaften ihre Kinder...!

Code:

*TextBox.tuiTextBox = (.tuiTextBox)ntui_GetObjectByID{*engine,"SourceBox"} ; Textboxadresse holen
  If *TextBox
    Textlaenge.l = Len (Objekt) ; Laenge des Strings ermitteln
    ntui_GetAttrByID{*engine,"SourceBox",#TUITBA_CURSORLINE,&CursorLine.l} ; Cursorline finden
    ntui_GetAttrByID{*engine,"SourceBox",#TUITBA_CURSORCHAR,&CursorChar.l} ; Cursorchar finden
    _tb_InsertInLine{*TextBox,CursorLine,CursorChar,&Objekt,Textlaenge} ; text an Cursorposition einfuegen
    ntui_SetFocus{*TextBox} ; Fokus auf textbox setzen
  Else
    message{"Konnte TextBoxadresse nicht ermitteln"}
  EndIf

funktioniert soweit

Ps:Objekt kommt mit dem Statement