Did you want the single quotes around '-wrap' and '-width' ?
Also, your "very long line" had line breaks in my downloaded version. Here are my modest hacks to activate the horizontal scroll bar:
#!/usr/bin/perl
use strict;
use Tk;
my ($mainwindow, $menubar, $display, $text);
my $counter = 0;
$mainwindow = new MainWindow;
$mainwindow->geometry("800x400");
$display = $mainwindow->Scrolled('Text', -relief=>'sunken',
-borderwidth=>'2',
-height=>'24', -scrollbars=>'se', '-width' => 40, -wrap=>'none');
$display->pack(-expand=>'1', -fill=>'both');
$text = $display->Subwidget('text', -scrollbars=>'se', -wrap=>'none')
+; # need this because you can't tie to $display - main widg
+et
tie *STDOUT, ref $text, $text;
create_gui_main();
$text->repeat(
1000, sub {
goto \&mymain;
},
);
MainLoop;
sub mymain() {
# This would normally be real text
$counter++;
print "this is a very long line we need a scrollbar on the x axis...
+..... this is a very long line we need a scrollbar on the x axis.....
+... this is a very long line we need a scrollbar on the x axis.......
+. well the number is current = " . $counter . " \n";
}
# ------------------------ #
sub quitapp() {
exit;
}
# ------------------------ #
sub create_gui_main {
my $menuitems = [
[Cascade => "~File", -menuitems => [
[Button => "~Quit", -command => \&quitapp],
]
],
];
if ($Tk::VERSION >= 800) {
$menubar = $mainwindow->Menu(-menuitems => $menuitems);
$mainwindow->configure(-menu => $menubar);
} else {
$mainwindow->Menubutton(-text => "Pseudo menubar",
-menuitems => $menuitems)->pack;
}
}
__END__
SciDude
The first dog barks... all other dogs bark at the first dog.