Tk::Pod::Text

Welchen Fehler habe ich in

use strict;
use Tk;
use Tk::Pod::Text;

exit( PodText() );

sub PodText
{ my $nRVal = 0;
my $mw = MainWindow->new;
$mw->geometry( '500x300' );

$mw->Scrolled( "PodText"
, -file => '/usr/lib/perl5/site_perl/5.8.6/Tk/Pod.pm'
, -scrollbars => 'osoe'
)->pack( -expand => 1
, -fill => 'both'
);

MainLoop();
return $nRVal;
}

eingebaut, sodass im MainWindow immer ein ueberfluessiger Scrollbar
auftaucht?

Re: Tk::Pod::Text

"ekkehard.horner" writes:

> Welchen Fehler habe ich in
>
> use strict;
> use Tk;
> use Tk::Pod::Text;
>
> exit( PodText() );
>
> sub PodText
> { my $nRVal = 0;
> my $mw = MainWindow->new;
> $mw->geometry( '500x300' );
>
> $mw->Scrolled( "PodText"
> , -file => '/usr/lib/perl5/site_perl/5.8.6/Tk/Pod.pm'
> , -scrollbars => 'osoe'
> )->pack( -expand => 1
> , -fill => 'both'
> );
>
> MainLoop();
> return $nRVal;
> }
>
> eingebaut, sodass im MainWindow immer ein ueberfluessiger Scrollbar
> auftaucht?

Versuch's mal ohne Scrolled. PodText ist ein Widget, das schon von
sich aus mit -scrollbars umgehen kann.

Ich werde für das nächste Release eine kleine Notiz ins Pod schreiben.

Gruß,
Slaven

--
Slaven Rezic - slaven rezic de

Lost in your Tk widget tree? Try
http://user.cs.tu-berlin.de/~eserte/src/perl/Tk-WidgetDump/

Re: Tk::Pod::Text

Slaven Rezic wrote:

> "ekkehard.horner" writes:
>
>>Welchen Fehler habe ich in
>>
>> use strict;
>> use Tk;
>> use Tk::Pod::Text;
>>
>> exit( PodText() );
>>
>> sub PodText
>> { my $nRVal = 0;
>> my $mw = MainWindow->new;
>> $mw->geometry( '500x300' );

besser als mein erster Versuch

$mw->PodText( -file => '/usr/lib/perl5/5.8.6/Test/Tutorial.pod'
, -scrollbars => 'se'
)->pack( -expand => 1
, -fill => 'both'
);

>> MainLoop();
>> return $nRVal;
>> }
>>
>>eingebaut, sodass im MainWindow immer ein ueberfluessiger Scrollbar
>>auftaucht?
>
> Versuch's mal ohne Scrolled. PodText ist ein Widget, das schon von
> sich aus mit -scrollbars umgehen kann.
>
Vielen Dank fuer die schnelle Hilfe. Jetzt klappt es wunderbar. (Ich
benutze 'se' statt 'osoe', weil es sonst moeglich ist, auf kritische
Stellen im Pod zu scrollen, an denen - ohne weitere Interaktion - ein
hektischer Wechsel zwischen scrollbar/doch kein scrollbar provoziert
wird; dies moechte ich nicht als Beschwerde verstanden wissen.)

Re: Tk::Pod::Text

"ekkehard.horner" writes:

[...]
> Vielen Dank fuer die schnelle Hilfe. Jetzt klappt es wunderbar. (Ich
> benutze 'se' statt 'osoe', weil es sonst moeglich ist, auf kritische
> Stellen im Pod zu scrollen, an denen - ohne weitere Interaktion - ein
> hektischer Wechsel zwischen scrollbar/doch kein scrollbar provoziert
> wird; dies moechte ich nicht als Beschwerde verstanden wissen.)

Ein alter Bug in Tk. Das betrifft nicht nur Tk::Pod, sondern alle
Tk::Text-basierten Widgets. Ich vermeide das Problem, indem ich
allerhöchstens ein "o" angebe.

Gruß,
Slaven

--
Slaven Rezic - slaven rezic de
Tired of using file selectors? Real programmers use the TAB key for
completion and not for jumping around. Try
http://search.cpan.org/search?mode=module&query=Tk::PathEntr y