Force vertical scrollbar to bottom on EditorGadget

[Shardik]

I had to modify my multi-platform example for Linux because it doesn't work with GTK3. The modified version works in Linux with both GTK2 and GTK3:

Code: Select all

EnableExplicit

#MaxLines = 20

Define LastLine.I

Procedure AddLine(EditorGadgetID.I, Line.I)
  AddGadgetItem(EditorGadgetID, -1, "Line " + Str(Line))
  
  CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Linux
      Protected EndMark.I
      Protected TextBuffer.I
      Protected EndIter.GtkTextIter

      TextBuffer = gtk_text_view_get_buffer_(GadgetID(EditorGadgetID))
      gtk_text_buffer_get_end_iter_(TextBuffer, @EndIter)
      EndMark = gtk_text_buffer_create_mark_(TextBuffer, "end_mark",
        @EndIter, #False)
      gtk_text_view_scroll_mark_onscreen_(GadgetID(EditorGadgetID), EndMark)
    CompilerCase #PB_OS_MacOS
      Protected Range.NSRange

      Range.NSRange\location = Len(GetGadgetText(EditorGadgetID))
      CocoaMessage(0, GadgetID(EditorGadgetID), "scrollRangeToVisible:@", @Range)
    CompilerCase #PB_OS_Windows
      SendMessage_(GadgetID(EditorGadgetID), #EM_SETSEL, -1, -1) 
  CompilerEndSelect
EndProcedure

OpenWindow(0, 270, 100, 220, 150, "EditorGadget")
EditorGadget(0, 10, 10, 200, 130)
AddWindowTimer(0, 0, 500)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Timer
      If LastLine < #MaxLines
        LastLine + 1
        AddLine(0, LastLine)
      Else
        RemoveWindowTimer(0, 0)
      EndIf
  EndSelect
ForEver

[rndrei]

I had to modify my multi-platform example for Linux because it doesn't work with GTK3. The modified version works in Linux with both GTK2 and GTK3:

Code: Select all

EnableExplicit

#MaxLines = 20

Define LastLine.I

Procedure AddLine(EditorGadgetID.I, Line.I)
  AddGadgetItem(EditorGadgetID, -1, "Line " + Str(Line))
  
  CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Linux
      Protected EndMark.I
      Protected TextBuffer.I
      Protected EndIter.GtkTextIter

      TextBuffer = gtk_text_view_get_buffer_(GadgetID(EditorGadgetID))
      gtk_text_buffer_get_end_iter_(TextBuffer, @EndIter)
      EndMark = gtk_text_buffer_create_mark_(TextBuffer, "end_mark",
        @EndIter, #False)
      gtk_text_view_scroll_mark_onscreen_(GadgetID(EditorGadgetID), EndMark)
    CompilerCase #PB_OS_MacOS
      Protected Range.NSRange

      Range.NSRange\location = Len(GetGadgetText(EditorGadgetID))
      CocoaMessage(0, GadgetID(EditorGadgetID), "scrollRangeToVisible:@", @Range)
    CompilerCase #PB_OS_Windows
      SendMessage_(GadgetID(EditorGadgetID), #EM_SETSEL, -1, -1) 
  CompilerEndSelect
EndProcedure

OpenWindow(0, 270, 100, 220, 150, "EditorGadget")
EditorGadget(0, 10, 10, 200, 130)
AddWindowTimer(0, 0, 500)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Timer
      If LastLine < #MaxLines
        LastLine + 1
        AddLine(0, LastLine)
      Else
        RemoveWindowTimer(0, 0)
      EndIf
  EndSelect
ForEver

Tell me, if I use, ResizeGadget (), then this stops working under Linux!?

[Shardik]

Tell me, if I use, ResizeGadget (), then this stops working under Linux!?

Do you have an example code where it doesn't work after ResizeGadget()? I have taken my multi-platform example, removed all non-Linux stuff and resize the EditorGadget after the 10th displayed line. It works like a charm with GTK2 and GTK3 (tested successfully in Linux Mint 21.3 'Virginia' x64 with Cinnamon and PB 6.20)!

Code: Select all

EnableExplicit

#MaxLines = 20

Define LastLine.I

Procedure AddLine(EditorGadgetID.I, Line.I)
  AddGadgetItem(EditorGadgetID, -1, "Line " + Str(Line))
  
  Protected EndMark.I
  Protected TextBuffer.I
  Protected EndIter.GtkTextIter
  
  TextBuffer = gtk_text_view_get_buffer_(GadgetID(EditorGadgetID))
  gtk_text_buffer_get_end_iter_(TextBuffer, @EndIter)
  EndMark = gtk_text_buffer_create_mark_(TextBuffer, "end_mark",
    @EndIter, #False)
  gtk_text_view_scroll_mark_onscreen_(GadgetID(EditorGadgetID), EndMark)

  If Line = 10
    ResizeGadget(EditorGadgetID, 30, 30, 160, 90) 
  EndIf
EndProcedure

OpenWindow(0, 270, 100, 220, 150, "EditorGadget")
EditorGadget(0, 10, 10, 200, 130)
AddWindowTimer(0, 0, 700)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Timer
      If LastLine < #MaxLines
        LastLine + 1
        AddLine(0, LastLine)
      Else
        RemoveWindowTimer(0, 0)
      EndIf
  EndSelect
ForEver

[rndrei]

But how to make the text not from Editrorgadget, but from the line Define txt.s?

Code: Select all

 TextBuffer = gtk_text_view_get_buffer_(GadgetID(gadget))

Here is a redone code, who does not work correctly:

Code: Select all

EnableExplicit

#MaxLines = 50

Define LastLine.I
Define txt.s="123000000000000000000000000000000000000000000000"+#LF$+
             "456000000000000000000000000000000000000000000000"+#LF$+
             "789000000000000000000000000000000000000000000000"+#LF$+
             "456000000000000000000000000000000000000000000000"+#LF$+
             "457000000000000000000000000000000000000000000000"+#LF$+
             "458000000000000000000000000000000000000000000000"+#LF$+
             "459000000000000000000000000000000000000000000000"+#LF$+
             "460000000000000000000000000000000000000000000000"+#LF$
             


Procedure AddLine(EditorGadgetID.I, Line.s)
  AddGadgetItem(EditorGadgetID, -1, line)
  
  Protected EndMark.I
  Protected TextBuffer.I
  Protected EndIter.GtkTextIter
  
  TextBuffer = gtk_text_view_get_buffer_(GadgetID(EditorGadgetID))
  gtk_text_buffer_get_end_iter_(TextBuffer, @EndIter)
  EndMark = gtk_text_buffer_create_mark_(TextBuffer, "end_mark",
    @EndIter, #False)
  gtk_text_view_scroll_mark_onscreen_(GadgetID(EditorGadgetID), EndMark)

EndProcedure

OpenWindow(0, 270, 100, 220, 150, "EditorGadget")
EditorGadget(0, 10, 10, 200, 130)
AddWindowTimer(0, 0, 700)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Timer
      If LastLine < #MaxLines
        LastLine + 1

          AddLine(0, txt)
          txt=txt+txt
  
      Else
        RemoveWindowTimer(0, 0)
      EndIf
  EndSelect
ForEver

[rndrei]

It doesn't work!

Code: Select all

  *textbuffer=PokeS(*textbuffer,txt,-1)

[Shardik]

If you comment or delete the line

Code: Select all

          txt=txt+txt

in your code example it will work like a charm! The problem is caused by doubling the size of the string variable txt 50 times in succession (#MaxLines = 50). Take a look into this thread where Fred explained:

The editor gadget is not meant to have many item added as it gets the whole buffer and add it at the end at every call, that's why it gets slower the more your add it to it.

[rndrei]

This is not a comment, I did so.To show that the function does not work when adding a large piece of text!

If you comment or delete the line

Code: Select all

          txt=txt+txt

in your code example it will work like a charm! The problem is caused by doubling the size of the string variable txt 50 times in succession (#MaxLines = 50). Take a look into this thread where Fred explained:

The editor gadget is not meant to have many item added as it gets the whole buffer and add it at the end at every call, that's why it gets slower the more your add it to it.

[Shardik]

To show that the function does not work when adding a large piece of text!

With

Code: Select all

txt=txt+txt

in a loop you are simply blowing the capacity of the EditorGadget. When setting #MaxLines = 23, your txt string contains already more than 3 GB of characters!

See for yourself:

Code: Select all

#MaxLines = 23

Define txt.s="123000000000000000000000000000000000000000000000"+#LF$+
             "456000000000000000000000000000000000000000000000"+#LF$+
             "789000000000000000000000000000000000000000000000"+#LF$+
             "456000000000000000000000000000000000000000000000"+#LF$+
             "457000000000000000000000000000000000000000000000"+#LF$+
             "458000000000000000000000000000000000000000000000"+#LF$+
             "459000000000000000000000000000000000000000000000"+#LF$+
             "460000000000000000000000000000000000000000000000"+#LF$

Debug "Iteration: " + RSet(Str(LastLine), 2, "0") +
  ", Text length: " + FormatNumber(Len(txt) / 1024 / 1024, 4, ".", ",") + " MB"

While LastLine < #MaxLines
  LastLine + 1
  txt=txt+txt
  Debug "Iteration: " + RSet(Str(LastLine), 2, "0") +
    ", Text length: " + FormatNumber(Len(txt) / 1024 / 1024, 4, ".", ",") + " MB"
Wend