Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Tk and scrollbars

by SciDude (Friar)
on Jul 09, 2004 at 03:56 UTC ( #373033=note: print w/ replies, xml ) Need Help??


in reply to Tk and scrollbars

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.


Comment on Re: Tk and scrollbars
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://373033]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2014-08-31 07:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls