SpiderBasic 3.20 (arm64) macOS, Web target.
Code: Select all
Procedure MenuEvents()
Debug "Menu event: " + EventMenu()
EndProcedure
If OpenWindow(0, 0, 0, 295, 260, "CTRL+F / RETURN Shortcut", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
EditorGadget(0, 8, 8, 206, 133)
SetGadgetText(0, "This is a multiline text to edit" + #LF$ +
"in the EditorGadget()." + #LF$ +
"Third line")
AddKeyboardShortcut(0, #PB_Shortcut_Control | #PB_Shortcut_F, 15)
;AddKeyboardShortcut(0, #PB_Shortcut_Return, 16)
;AddKeyboardShortcut(0, #PB_Shortcut_F5, 17)
BindEvent(#PB_Event_Menu, @MenuEvents())
EndIf
;While WaitWindowEvent()<>#PB_Event_CloseWindow:Wend