Am I heading in the right direction? This returns values much higher than expected.
Code: Select all
EnableExplicit
Global scrollPos, scrollbar, EnclosingScrollView, ContentView, Bounds.NSRect, Origin
OpenWindow(0, 270, 100, 350, 180, "TreeGadget")
TreeGadget(0, 10, 10, WindowWidth(0) - 20, 95)
TextGadget(1, 10, GadgetY(0) + GadgetHeight(0) + 10, 100, 25, "")
AddGadgetItem (0, -1, "Item 1", 0, 0)
Define i
For i = 1 To 25
AddGadgetItem (0, -1, "Subitem " + Str(i), 0, 1)
Next i
EnclosingScrollView = CocoaMessage(0, GadgetID(0), "enclosingScrollView")
ContentView = CocoaMessage(0, EnclosingScrollView, "contentView")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
EndSelect
CocoaMessage(@Bounds, ContentView, "documentVisibleRect")
SetGadgetText(1, Str(Bounds\origin\y))
ForEver