[Tk] Frame leeren ohne zu zerstören (solved) (Graphische Oberflächen)

[thread]16012[/thread]

[Tk] Frame leeren ohne zu zerstören [solved]

Tags: Tk Similar Threads

Readers: 20

Articles: hide open all | hide show old branches

+13 replies

projectx

2011-02-25 17:42

User since
2011-02-21
10 articles
BenutzerIn

hallo, ich möchte ein meinen ausgabe_frame löschen, jedoch lässt er sich nur einmal löschen, vermutlich wird er zerstört, ich hab folgende sub gemacht:

Code: (dl )

sub frame_leeren{

my $ausgabe_frame->packForget();

}

ich habe noch packForget(); , gridForget(); und placeForget(); versucht, welche mir aber immer das gleiche Resultat liefern.
Nehm ich hier die richtige Methode?

modedit Editiert von pq: "Tk" zum Titel hinzugefügt
Last edited: 2011-02-25 17:49:23 +0100 (CET)

Dubu

2011-02-25 21:01

User since
2003-08-04
2145 articles
ModeratorIn + EditorIn

Wie versuchst du denn, den Frame wieder hineinzupacken?
+2 replies
Kalle

2011-02-26 09:22
User since
2007-03-18
48 articles
BenutzerIn
Was meinst du mit ausgabe_frame löschen ? Anscheinend meinst du nicht zerstören (->destroy).
Meinst du verstecken (->packForget, dann aber wohl ohne my in der sub) ? Oder willst du nur den Inhalt des widgets löschen (welches widget?) ?

Falls du von der sub "loeschen" aus deinen Beitrag "Ausgabe in Tk GUI" sprichst und ein Text Widget benutzt, dann könnte das Leeren einfach so aussehen:
Code (perl): (dl )

1 2 3

sub loeschen { $ausgabe->Contents(''); }
- pktm
  
  2011-02-28 19:32
  
  User since
  2003-08-07
  2921 articles
  BenutzerIn
  
  Das kannte ich noch nicht. Aber falls mal die Frage aufkommt, was es genau macht:
  
  Quote
  $text->Contents(?args?)
  
  Query or change the entire contents of the text widget. If no arguments are given, the entire contents of the text widget are returned. If any arguments are given, the entire contents of the text widget are deleted and replaced by the argument list.
  
  Steht hier (nach Contents( suchen): Tk::Text Manpage
  http://www.intergastro-service.de (mein erstes CMS :) )

pktm

2011-02-26 10:54

User since
2003-08-07
2921 articles
BenutzerIn

So wie ich das hier bei Perlmonks gesehen habe, sollte man lieber die Kindelemente wegmachen, als das Eltern-Frame einfach zu zerstören.

Dieser Code geht davon aus, dass nur einfache Widgets wie Labels im Frame gepackt wurden:

Code: (dl )

=head2 clear_frame( $frame )

Entferne alle Kindelemente aus dem Frame.

Siehe L<http://www.perlmonks.org/?node_id=643687>

=cut

sub clear_frame {
	my $frame = shift or die('Missing frame.');
	
	my @children = $frame->packSlaves();
	foreach my $widget ( @children ) {
		$widget->packForget(); 
        $widget->destroy();
	}
	
	return 1;
} # /clear_frame

http://www.intergastro-service.de (mein erstes CMS :) )

+7 replies

projectx

2011-02-28 13:56

User since
2011-02-21
10 articles
BenutzerIn

ja ich spreche aus meinem letzten beitrag von dem text-widget welches ich in einem frame ausgegeben habe, das ich den contents = '' setze scheint nicht wirklich zu funktionieren

+4 replies
pktm

2011-02-28 14:39

User since
2003-08-07
2921 articles
BenutzerIn

Meinst du Tk::Text? Das leerst du mit $text->delete('0.0', 'end'); wenn ich mich recht entsinne.
http://www.intergastro-service.de (mein erstes CMS :) )
- +3 replies
- projectx
  
  2011-02-28 15:02
  
  User since
  2011-02-21
  10 articles
  BenutzerIn
  
  genau das mein ich :)
  hat da noch jemand eine lösung?
  weil dein forschlag mit
  
  $text->delete('0.0', 'end');
  
  scheint auch nicht zu funktionieren
  - +2 replies
  - #Kein Kommentar
    
    2011-02-28 19:01
    User since
    2007-06-09
    575 articles
    HausmeisterIn
    
    es müsste wohl eher so heißen: (die eins steht für die erste zeile)
    
    Code: (dl )
    
    $text->delete('1.0', 'end');
    
    Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
    - pktm
      
      2011-02-28 19:30
      
      User since
      2003-08-07
      2921 articles
      BenutzerIn
      
      Yup, gerade hier gesehen:
      
      Quote
      Lines are numbered from 1 for consistency with other UNIX programs that use this numbering scheme. Within a line, characters are numbered from 0.
      
      http://www.intergastro-service.de (mein erstes CMS :) )
+2 replies

Kalle

2011-02-28 18:40

User since
2007-03-18
48 articles
BenutzerIn
[default_avatar]

hm ? Ich hab das getestet. Geht.
Ich habe einfach den ersten Code Teil aus deinem anderen Beitrag kopiert.
Dann darunter die sub rechnen von payx und darunter meine sub loeschen.
Sieht dann so aus und funktioniert:

Code (perl): (dl )

use Tk;

$window = MainWindow->new(-width=> '0m',-title=> 'Umrechnung');

$oben = $window->Frame->pack();
$titel = $oben->Label(-text=>"Programm für die Umrechnung von Grad Celsius in Kelvin und Fahrenheit.")->pack();

$clean = $window->Frame->pack();
$empty = $clean->Label(-text=>"")->pack();

$window->Label(-text=>'Anfangswert:')->pack();

$eingabe = $window->Text(-width=>20,-height=>1,-borderwidth=> '1m',-cursor=> 'left_side',-background=> 'white',-font=>'courierb12',
-foreground=> 'black')->pack();

$window->Label(-text=>'Endwert:')->pack();
$eingabe2 = $window->Text(-width=>20,-height=>1,-borderwidth=> '1m',-cursor=> 'left_side',-background=> 'white',-font=>'courierb12',
-foreground=> 'black')->pack();

$clean2 = $window->Frame->pack();
$empty2 = $clean2->Label(-text=>"")->pack();

$window->Label(-text=>'Celsius                                        Fahrenheit                                        Kelvin', -font=>'courierb 10 bold' )->pack();
$ausgabe = $window->Text(-width=>60,-height=>10,-borderwidth=> '0m',-cursor=> 'left_side',-background=> 'white',-font=>'courierb 12',
-foreground=> 'black')->pack();

$bottom_frame = $window->Frame()->pack(-side=>'bottom', -pady=>10);
 
$bottom_frame->Button(  -text=>'Alles zeigen',
                        -command=>\&rechnen)->pack(-side=>'left');
                                                
$bottom_frame->Button(  -text => "Alles löschen",
                        -command=>\&loeschen)->pack(-side=>'left');

$bottom_frame->Button(  -text => "Beenden",
                        -command=> sub {exit 0})->pack(-side=>'left');

MainLoop;

sub rechnen {
    my $anfang = $eingabe->Contents;
    my $k = (($anfang * 9)  /5 ) +32;
    my $f = $anfang + 273.15;
    $ausgabe->Contents("Fahrenheit: $k\nKelvin: $f");
}

sub loeschen {
    $ausgabe->Contents('');
}

Das war dein erstes Posting, da fehlt noch use strict und eventuelle daraus resultierende Änderungen von dir, aber prinzipiell gehts so.
Wenn du jetzt nicht nachvollziehen kannst, wo der Fehler liegt, solltest du deinen Code nochmal am Stueck posten, sonst fängt die Raterei an.

Gruß

Kalle

pktm

2011-02-28 19:18

User since
2003-08-07
2921 articles
BenutzerIn

Tipp:

Code (perl): (dl )

#!perl

use strict; # or punch 2 face
use warnings; # or tackle
use Tk;

my $window = Tk::MainWindow->new(-width=> '0m',-title=> 'Umrechnung');

my $oben = $window->Frame->pack();
my $titel = $oben->Label(-text=>"Programm für die Umrechnung von Grad Celsius"
                         . " in Kelvin und Fahrenheit.")->pack();

my $clean = $window->Frame->pack();
my $empty = $clean->Label(-text=>"")->pack();

$window->Label(-text=>'Anfangswert:')->pack();

my $eingabe = $window->Text(-width=>20,-height=>1,-borderwidth=> '1m',
    -cursor=> 'left_side',-background=> 'white',-font=>'courierb12',
    -foreground=> 'black')->pack();

$window->Label(-text=>'Endwert:')->pack();
my $eingabe2 = $window->Text(-width=>20,-height=>1,-borderwidth=> '1m',-cursor=> 'left_side',-background=> 'white',-font=>'courierb12',
-foreground=> 'black')->pack();

my $clean2 = $window->Frame->pack();
my $empty2 = $clean2->Label(-text=>"")->pack();

$window->Label(-text=>'Celsius                                        Fahrenheit                                        Kelvin',
               -font=>'courierb 10 bold' )->pack();
my $ausgabe = $window->Text(-width=>60,-height=>10,-borderwidth=> '0m',
                            -cursor=> 'left_side',-background=> 'white',-font=>'courierb 12',
-foreground=> 'black')->pack();

my $bottom_frame = $window->Frame()->pack(-side=>'bottom', -pady=>10);
 
$bottom_frame->Button(
    -text => 'Alles zeigen',
    -command => sub{ rechnen( $eingabe, $ausgabe ); return 1; }
)->pack(-side=>'left');

$bottom_frame->Button(
    -text => "Alles löschen",
    -command => sub{ loeschen($ausgabe); return 1; }
)->pack(-side=>'left');

$bottom_frame->Button(  -text => "Beenden",
                        -command=> sub {exit 0})->pack(-side=>'left');

$window->MainLoop();

=head1 SUBS

=head2 rechnen( $eingabe, $ausgabe )

TODO: Beschr.

=cut

sub rechnen {
    my $eingabe = shift or die('Missing eingabe');
    my $ausgabe = shift or die('Missing ausgabe');
    
    my $anfang = $eingabe->Contents();
    my $k = (($anfang * 9)  /5 ) +32;
    my $f = $anfang + 273.15;
    $ausgabe->Contents("Fahrenheit: $k\nKelvin: $f");
}



=head2 loeschen( $ausgabe )

TODO: Beschr.

=cut

sub loeschen {
    my $ausgabe = shift or die('Missing ausgabe');
    $ausgabe->Contents('');
}

http://www.intergastro-service.de (mein erstes CMS :) )

projectx

2011-03-01 15:28

User since
2011-02-21
10 articles
BenutzerIn

super genau was ich wollte, danke an alle ;)

View all threads created 2011-02-25 17:42.