How to make EditorGadget scroll

[WilliamL]

If I use AddGadgetItem to add lines to the EditorGadget the window does not scroll. Since SetGadgetItemState() does not work I'm wondering how to get the gadget to scroll down to the added item?

Code: Select all

;run and you will see the items are listed but the last items are not visible
If OpenWindow(0, 0, 0, 322, 150, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    EditorGadget(0, 8, 8, 306, 133)
    For a = 0 To 15
      AddGadgetItem(0, a, "Line "+Str(a))
    Next
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[wilbert]

Code: Select all

;run and you will see the items are listed and the last items are visible
If OpenWindow(0, 0, 0, 322, 150, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    EditorGadget(0, 8, 8, 306, 133)
    For a = 0 To 15
      AddGadgetItem(0, a, "Line "+Str(a))
    Next
    
    Range.NSRange\location = Len(GetGadgetText(0))
    CocoaMessage(0, GadgetID(0), "scrollRangeToVisible:@", @Range)
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[WilliamL]

Thanks wilbert!

That works perfectly!

I had to add this definition to my procedure (since I am using 'EnableExplicit').

Code: Select all

Define Range.NSRange

[wilbert]

I'm glad it works for you.
And you are right about Define .
I usually don't use EnableExplicit (a bit lazy )