Code: Select all
Procedure ScintillaCallBack(Gadget, *n.SCNotification)
EndProcedure
OpenWindow(0, 0, 0, 600, 500, "OSX Bug?")
InitSprite()
InitKeyboard()
OpenWindowedScreen(WindowID(0), 0, 0, 1, 1)
InitScintilla()
ScintillaGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), @ScintillaCallBack())
Repeat
Repeat
event = WindowEvent()
If event = #PB_Event_CloseWindow
End
EndIf
Until event = 0
FlipBuffers()
ExamineKeyboard()
ForEver