Show Emoji picker

[mrbungle]

Code: Select all

Procedure ShowEmojiPicker()
  Protected NSApp = CocoaMessage(0, 0, "NSApplication sharedApplication")
  If NSApp
    CocoaMessage(0, NSApp, "orderFrontCharacterPalette:")
  EndIf
EndProcedure


If OpenWindow(0, 0, 0, 400, 200, "Emoji Picker", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

  ButtonGadget(1, 150, 80, 120, 30, "Show Emoji Picker")
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        If EventGadget() = 1
          ShowEmojiPicker() 
        EndIf
      Case #PB_Event_CloseWindow
        Break
    EndSelect
  ForEver
EndIf