Please note that in my first example, the slider is visible BUT is not
usable (it is as if the mouse pointer would not control it, i.e. it can
control it only in a very specific and small area of the slider. In the
second example, the slider decreases in size. The third, pure Tcl/Tk, it
works just fine.
Am So., 16. Juni 2019 um 00:46 Uhr schrieb Bugs in Tcl-pTk via RT <
bug-Tcl-pTk@rt.cpan.org>:
Show quoted text>
> Greetings,
>
> This message has been automatically generated in response to the
> creation of a trouble ticket regarding:
> "Issue with 8.6.9 and scrollbar invisible, Mac",
> a summary of which appears below.
>
> There is no need to reply to this message right now. Your ticket has been
> assigned an ID of [rt.cpan.org #129831]. Your ticket is accessible
> on the web at:
>
>
https://rt.cpan.org/Ticket/Display.html?id=129831
>
> Please include the string:
>
> [rt.cpan.org #129831]
>
> in the subject line of all future correspondence about this issue. To do
> so,
> you may reply to this message.
>
> Thank you,
> bug-Tcl-pTk@rt.cpan.org
>
> -------------------------------------------------------------------------
> Scrollbars slider becomes to small/invisible if text widget size is reduced
> or if the text is quite long.
>
> my $scrollbar= $ParentFrame->Scrollbar();
> $WidgetTextView = $ParentFrame->Text(
> -yscrollcommand => ['set' => $scrollbar],
> );
> $scrollbar->pack(-side => 'right', -fill => 'y');
> $WidgetTextView->pack(-side=>'right', -expand => 1,-fill => 'both');
> $scrollbar>configure(-command => ['yview' => $WidgetTextView]);
>
> Or even the simple:
>
> $WidgetTextView= $ParentFrame->Scrolled('Text')->pack;
>
> Note that both (above) work fine with 8.5!
>
> However, the pure Tcl/Tk version seems to work fine also on 8.6.9:
>
> $int->Eval(<<'EOS');
> text .t -yscrollcommand {.s set}
> scrollbar .s -command {.t yview}
> grid .t .s -sticky nsew
> EOS
>
