PureBasic Forums - English

Code: Select all

ImportC ""
    CGWindowListCreate(_1, _2)
    CGWindowListCreateDescriptionFromArray(arr)
    CFArrayGetCount(arr)
    CFArrayGetValueAtIndex(arr, index)
    CFRelease(arr)
    CFDictionaryGetValue(_1,_2)
    CFStringCreateWithCharacters(alloc,text.p-Unicode,len)
    CFNumberGetValue(_1,_2,_3)
EndImport


;CFArrayRef
WindowList = CGWindowListCreate(1, 0)
Debug WindowList
DescriptionList = CGWindowListCreateDescriptionFromArray(WindowList)
Debug DescriptionList
Debug "--------------"
If DescriptionList
    count = CFArrayGetCount(DescriptionList)
    If count
        For i = 0 To count-1
            id = CFArrayGetValueAtIndex(DescriptionList,i)
            Debug "ID: "+id
            pid_num = CFDictionaryGetValue(id, CFStringCreateWithCharacters(0,"kCGWindowOwnerPID",17))
            If pid_num
                CFNumberGetValue(pid_num,9,@pid.l)
                Debug "PID: "+pid
            EndIf
        Next
    EndIf
EndIf
CFRelease(DescriptionList)
CFRelease(WindowList)

Code: Select all

OpenWindow(0,0,0,0,0,"test",#PB_Window_SystemMenu|#PB_Window_Invisible)

mainScreen = CocoaMessage(0,0,"NSScreen mainScreen")
CocoaMessage(@visibleFrame.NSRect,mainScreen,"visibleFrame")

Debug visibleFrame\origin\x
Debug visibleFrame\origin\y
Debug visibleFrame\size\height
Debug visibleFrame\size\width

; origin\y starts from the bottom left corner of the screen, so to get the safe coordinates for PB we can calculate it like that:
ExamineDesktops()
winX = visibleFrame\origin\x
winY = DesktopHeight(0)-visibleFrame\size\height-visibleFrame\origin\y
titleBarH = WindowHeight(0,#PB_Window_FrameCoordinate)-WindowHeight(0,#PB_Window_InnerCoordinate)
winMaxW = visibleFrame\size\width
winMaxH = visibleFrame\size\height-titleBarH

Debug winX
Debug winY
Debug winMaxW
Debug winMaxH

ResizeWindow(0,winX,winY,winMaxW,winMaxH)
HideWindow(0,#False)

Repeat : ev = WaitWindowEvent() : Until ev = #PB_Event_CloseWindow

Code: Select all

ImportC ""
  sel_registerName(STR.p-ascii)
  class_addMethod(class, selector, imp, types.p-ascii)
  objc_allocateClassPair(class, newClassName.p-ascii, extraBytes)
  objc_registerClassPair(class)
  object_setClass(object, class)
EndImport



Procedure SubClassGadget(Gadget, newClassName.s)
  Protected oldclass = CocoaMessage(0, GadgetID(Gadget), "class")
  Protected result = 0
  result = objc_allocateClassPair(oldclass, newClassName, 0)
  objc_registerClassPair(result)
  object_setClass(GadgetID(Gadget), result)
  ProcedureReturn result
EndProcedure

Procedure SubClassWindow(Window, newClassName.s)
  Protected oldclass = CocoaMessage(0, WindowID(Window), "class")
  Protected result = 0
  result = objc_allocateClassPair(oldclass, newClassName, 0)
  objc_registerClassPair(result)
  object_setClass(Window(Window), result)
  ProcedureReturn result
EndProcedure

Procedure CocoaAddMethod(Class, Method.s, CallBack)
  Protected sel = sel_registerName(Method)
  class_addMethod(Class, sel, CallBack, "v@:@")
EndProcedure


ProcedureC EventHandler(sender)
  Debug sender
  Debug "Escape Key Pressed"
EndProcedure



OpenWindow(0, 0, 0, 322, 205, "SubClassing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StringGadget(0, 8,  10, 306, 23, "StringGadget (Calls callback on ESC key)")
StringGadget(1, 8,  45, 306, 20, "Second String Gadget")

class = SubClassGadget(0, "MyStringGadget")

CocoaAddMethod(Class, "cancelOperation:", @EventHandler())    

Debug PeekS(CocoaMessage(0, CocoaMessage(0, GadgetID(0), "className"), "UTF8String"), -1, #PB_UTF8)

Repeat 
  event = WaitWindowEvent()
Until event  = #PB_Event_CloseWindow

Code: Select all

Procedure AppendItemToMenu(MenuItemID, Text$, Menu, MenuTitleIndex, ImageID=0)
  Protected mnuArray = MenuID(Menu)
  Protected newParent = CocoaMessage(0, mnuArray, "objectAtIndex:", MenuTitleIndex)
  Protected mItem = MenuItem(MenuItemID, Text$, ImageID)
  Protected oldParent = CocoaMessage(0, mItem, "menu")
  CocoaMessage(0, oldParent, "removeItem:", mItem)
  CocoaMessage(0, newParent, "addItem:", mItem)
  ProcedureReturn mItem
EndProcedure

Procedure AppendSubmenuToMenu(Text$, Menu, MenuTitleIndex, ImageID=0)
  Protected mnuArray = MenuID(Menu)
  Protected newParent = CocoaMessage(0, mnuArray, "objectAtIndex:", MenuTitleIndex)
  Protected mItem = MenuItem(0, Text$, ImageID)
  Protected subMenu = CocoaMessage(0, 0, "NSMenu alloc")
  CocoaMessage(0, subMenu, "initWithTitle:$", @Text$)
  Protected oldParent = CocoaMessage(0, mItem, "menu")
  CocoaMessage(0, oldParent, "removeItem:", mItem)
  CocoaMessage(0, newParent, "addItem:", mItem)
  CocoaMessage(0, mItem, "setSubmenu:", subMenu)
  ProcedureReturn subMenu
EndProcedure


Procedure AppendItemToSubmenu(MenuItemID, Text$, SubMenu, ImageID=0)
  Protected mItem = MenuItem(MenuItemID, Text$, ImageID)
  Protected oldParent = CocoaMessage(0, mItem, "menu")
  CocoaMessage(0, oldParent, "removeItem:", mItem)
  CocoaMessage(0, SubMenu, "addItem:", mItem)
  ProcedureReturn mItem
EndProcedure  

Procedure RemoveMenuItem(MenuItemHandle)
  Protected Parent = CocoaMessage(0, MenuItemHandle, "menu")
  CocoaMessage(0, Parent, "removeItem:", MenuItemHandle)
EndProcedure

; DEMO

OpenWindow(0, 200, 200, 200, 100, "Menu Example")
; create a menu and fill it with two MenuTitles and a few items
CreateMenu(0, WindowID(0)) 
; a file menu
MenuTitle("File")
MenuItem(1, "Open"   +Chr(9)+"Cmd+O")
MenuItem(2, "Save"   +Chr(9)+"Cmd+S")
; an edit menu
MenuTitle("Edit")
MenuItem(4, "Cut")
MenuItem(5, "Copy")
MenuItem(6, "Paste")
delme = MenuItem(7, "Delete me")

; now we append an item to the "File" menu (which is at index 0)
AppendItemToMenu(3, "Save as...", 0, 0)

; and we'll append a submenu to the first (index 0) menu too
sub = AppendSubmenuToMenu("Recent Files", 0, 0)

; our newly created sub menu needs a few items
AppendItemToSubmenu(100, "File number one"  +Chr(9)+"Shift+Cmd+1", sub, 0)
AppendItemToSubmenu(101, "File number two"  +Chr(9)+"Shift+Cmd+2", sub, 0)
AppendItemToSubmenu(102, "File number three"  +Chr(9)+"Shift+Cmd+3", sub, 0)

; get rid of the "delete me" item
RemoveMenuItem(delme)