PureBasic Forums - English

Code: Select all

Procedure GetCurrentEvent()
    Protected app = CocoaMessage(0,0,"NSApplication sharedApplication")
    If app
        ProcedureReturn CocoaMessage(0,app,"currentEvent")
    EndIf
EndProcedure

Procedure.CGFloat GetWheelDeltaX()
    Protected wheelDeltaX.CGFloat = 0.0
    Protected currentEvent = GetCurrentEvent()
    If currentEvent
        CocoaMessage(@wheelDeltaX,currentEvent,"scrollingDeltaX")
    EndIf
    ProcedureReturn wheelDeltaX
EndProcedure

Procedure.CGFloat GetWheelDeltaY()
    Protected wheelDeltaY.CGFloat = 0.0
    Protected currentEvent = GetCurrentEvent()
    If currentEvent
        CocoaMessage(@wheelDeltaY,currentEvent,"scrollingDeltaY")
    EndIf
    ProcedureReturn wheelDeltaY
EndProcedure

If OpenWindow(0, 0, 0, 700, 400, "ScrollAreaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ScrollAreaGadget(0, 10, 10, 680, 380, 1000, 1000, 30)
    ButtonGadget  (1, 10, 10, 230, 30,"Button 1")
    ButtonGadget  (2, 50, 50, 230, 30,"Button 2")
    ButtonGadget  (3, 90, 90, 230, 30,"Button 3")
    CanvasGadget  (5, 200, 200, 500, 500)
    CloseGadgetList()
    StartDrawing(CanvasOutput(5))
    Box(0,0,500,500,$FF0000)
    StopDrawing()
    Repeat
        Select WaitWindowEvent()
            Case  #PB_Event_CloseWindow
                End
            Case  #PB_Event_Gadget
                Select EventGadget()
                    Case 1
                        MessageRequester("Info","Button 1 was pressed!",#PB_MessageRequester_Ok)
                    Case 2
                        MessageRequester("Info","Button 2 was pressed!",#PB_MessageRequester_Ok)
                    Case 3
                        MessageRequester("Info","Button 3 was pressed!",#PB_MessageRequester_Ok)
                    Case 5
                        If EventType() = #PB_EventType_MouseWheel
                            wheelX.CGFloat = GetWheelDeltaX()
                            wheelY.CGFloat = GetWheelDeltaY()
                            If wheelX
                                SetGadgetAttribute(0, #PB_ScrollArea_X, GetGadgetAttribute(0, #PB_ScrollArea_X) - wheelX)
                            EndIf
                            If wheelY
                                SetGadgetAttribute(0, #PB_ScrollArea_Y, GetGadgetAttribute(0, #PB_ScrollArea_Y) - wheelY)
                            EndIf
                        EndIf
                        
                EndSelect
        EndSelect
    ForEver
EndIf

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