RE: [perl-win32-gui-users] AutoScrolling a RichEdit?

[Piske, H. <Har...@bo...>]

| Dammit, I don't know what my problem is then.
OK, I tracked it down - I'm using Windoze 2000, you are on 98.

The workaround is:
    $logbox->SendMessage (0x115, 7, 0);   # scroll to bottom
    $logbox->SendMessage (0x115, 2, 0);   # scroll one page up

In your case, where you only ever display one single line, you can also do
    $logbox->SendMessage (0x115, 1, 0);   # scroll one line down
because it will only scroll once the scrollbar is visible.

Or, how about one line per \n in the message plus one for the \n added
outside the var:
    $logbox->SendMessage (0x115, 1, 0) while $message =~ /\n|$/g;
... okay, this lacks readability, but it works, even under 98 :-)

This is for further experimenting and reference, taken from WINUSER.H:
/*
 * Scroll Bar Commands
 */
#define SB_LINEUP           0
#define SB_LINELEFT         0
#define SB_LINEDOWN         1
#define SB_LINERIGHT        1
#define SB_PAGEUP           2
#define SB_PAGELEFT         2
#define SB_PAGEDOWN         3
#define SB_PAGERIGHT        3
#define SB_THUMBPOSITION    4
#define SB_THUMBTRACK       5
#define SB_TOP              6
#define SB_LEFT             6
#define SB_BOTTOM           7
#define SB_RIGHT            7
#define SB_ENDSCROLL        8