There
is no single command that checks this, but you can use the following coding:
Textbox
(0,100) (10,120) name=t1
Set
V[i] 1 label
read_line
CopyText
fromText=t1 toString=s1 line=&V[i]
if not Q[OK]
goto text_empty
endif
if V[s1]
goto text_not_empty
endif
Set V[i] &V[i] + 1
goto read_line
label
text_empty
Message "Text is empty"
label
text_not_empty
|