Schrift
[thread]4733[/thread]

Textfenster



<< >> 3 Einträge, 1 Seite
Gast Gast
 2004-03-16 16:22
#41760 #41760
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

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-->
ptk
 2004-03-16 16:41
#41761 #41761
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Diese Fehlermeldung kann passieren, wenn das Fenster noch nicht sichtbar ist. Ein update vor dem grabGlobal-Aufruf koennte helfen.
bizza
 2004-03-16 16:55
#41762 #41762
User since
2004-03-16
6 Artikel
BenutzerIn
[default_avatar]
super danke!!! es funktioniert :D
<< >> 3 Einträge, 1 Seite



View all threads created 2004-03-16 16:22.