Opened by Gast at 2004-03-16 16:22
hi,
ich habe hier ein Script welches mir den Inhalt einer Datei wiederspiegelt. Jetzt möchte ich aber das das Fenter immer im vordergrund ist und das die Maus bzw. Tatsatur außerhalb des Fensters keine Funktion mehr hat bis der Ok Button gedrückt wird. Ich habe versucht dies mit grabGobal zu realisieren, habe es an verschiedenen Stellen eingefügt aber bekomme immer folgende Fehlermeldung:
"grab failed: window not viewable at /usr/local/lib/perl5/site_perl/5.8.0/PA-RISC2.0-thread-multi/Tk/Submethods.pm line 19."
kann mir jemand weiterhelfen??
Danke
Bearbeitet von Crian: Code-Tags hinzugefügt.\n\n
<!--EDIT|Crian|1080038865-->
ich habe hier ein Script welches mir den Inhalt einer Datei wiederspiegelt. Jetzt möchte ich aber das das Fenter immer im vordergrund ist und das die Maus bzw. Tatsatur außerhalb des Fensters keine Funktion mehr hat bis der Ok Button gedrückt wird. Ich habe versucht dies mit grabGobal zu realisieren, habe es an verschiedenen Stellen eingefügt aber bekomme immer folgende Fehlermeldung:
"grab failed: window not viewable at /usr/local/lib/perl5/site_perl/5.8.0/PA-RISC2.0-thread-multi/Tk/Submethods.pm line 19."
kann mir jemand weiterhelfen??
Danke
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/local/bin/perl -w
use Tk;
$mw = MainWindow->new( );
$f = $mw->Frame->pack(-side => 'bottom', -fill => 'x');
$f->Button(-text=>"Ok" ,-command => sub { exit; } )->
pack(-side => 'top');
$t = $mw->Scrolled("Text", -foreground => "black", -background => "white",
-width => "50", -height => "50", -scrollbars=>'e' )
->pack (-side,'bottom', -fill => 'both', -expand => 1);
open (FH, "./test") || die "Die Datei kann nicht geoeffnet werden!";
$t->delete("1.0", "end");
while (<FH>)
{
$t->insert('end',$_);
}
close (FH);
MainLoop;
Bearbeitet von Crian: Code-Tags hinzugefügt.\n\n
<!--EDIT|Crian|1080038865-->