Use the Scrolled to control the scroll of a Text Entry : Text « GUI « Perl






  1. Perl
  2. GUI
  3. Text

Use the Scrolled to control the scroll of a Text Entry

   

use Tk;
my $main = MainWindow->new;

my $entry1 = $main->Entry->pack;

my $entry2 = $main->Scrolled(
    Entry,
    -relief => 'sunken',
    -scrollbars => 's'
)->pack;

$entry1->insert(
    0,
    'Here is some long text that you have to scroll to see.'
);

$entry2->insert(
    0,
    'Here is some long text that you have to scroll to see.'
);

MainLoop;








Related examples in the same category

1.Bind mouse double click action to a Text control
2.Call Text insert function to add text to a Text control
3.Insert text to a Text control (TextField)
4.Set width and height of a Text
5.Change text in a Text (TextField) in radio button and checkbox button action
6.Configure a Text Widget
7.Create a scrolled Text widget
8.Entry(text field): Set highlightthickness
9.Entry(text field): set font
10.Fill the Entry (text field): textvariable
11.Get text input in a single line Text Box
12.Insert bold text to a Text widget
13.Insert text string to a Text Widget
14.Mark text in a Scrolled Text Widget
15.Auto-scroll entry (text field)
16.Single-Line Text Entry