#Include "DeGUI.bi"

DEGUIErrOut()
CheckNewWindows()

Declare Sub EV(ID as String)

ScreenRes 500, 60, 24
Color &hFFFFFF, &hDDDDDD
CLS

Dim Shared as RollTextField PTR RTF
Dim as GUI G
RTF = G.GetRollTextFieldPTR(G.NewRollTextField(10, 10, 60, "Du kannst hier nix schreiben!"))
RTF->LockElement()
G.NewButton("Input", 10, 35, "IN", @EV)

While(NOT Multikey(&h01))
    G.Control()
    ScreenLock
        CLS
        G.G()
    ScreenUnlock
    
    Sleep 10
Wend


Sub EV(ID as String)
    If ID = "IN" then RTF->Text = NewWindow(DeGUI_InputW, RTF->Text)
End Sub