PureBasic Forums - English

Code: Select all

#MainWindow = 0
#MainWindowFlags = #PB_Window_SystemMenu | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget
Enumeration 
  #TextEditor
EndEnumeration

  ProcedureDLL ScintillaCallBack(Gadget, *scinotify.SCNotification)
    ;
    ; The ProcedureDLL declaration is important for the callback to work correctly on MacOSX,
    ; on all other OS it has no effect.
    ;
  EndProcedure

If OpenWindow(#MainWindow, 100, 100, 500, 500, "Scire", #MainWindowFlags)

  If CreateGadgetList(WindowID(#MainWindow))

    ScintillaGadget(#TextEditor, 0, 0, 500, 500 , @ScintillaCallBack())

    CloseGadgetList()
  EndIf
  
  Repeat
    e = WaitWindowEvent()
  Until e = #PB_Event_CloseWindow
  
  CloseWindow(#MainWindow)
EndIf