Code: Select all
If OpenWindow(0, 0, 0, 900, 600, "test", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
EditorGadget(0,5,5,890,560,#PB_Editor_ReadOnly)
StringGadget(1, 15, 530, 790, 30, "")
ButtonGadget(2, 810, 530, 77, 30, "Enter")
EndIf
;====================================================================================
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 2
Debug "hiii"
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
End
I must be overlooking something
thanks
Richard