Tk - Radiobutton Abfrage ob geklickt (gelöst) (Graphische Oberflächen)

[thread]17935[/thread]

Tk - Radiobutton Abfrage ob geklickt [gelöst]

Tags: perl5 Tk Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+5 replies

1860gelb

2012-11-26 20:15

User since
2012-11-05
41 Artikel
BenutzerIn
[default_avatar]

Hallo,

kann mir eventuell jemand sagen wie ich prüfe ob der Radiobutton geklickt wurde oder nicht?

Habe mal folgenden simplen Code

Code: (dl )

#!/usr/bin/perl

use warnings;
use strict;
use Tk;

my $window = MainWindow->new;
    $window ->update();
    
    my $checkbutton=$window->Checkbutton(-text=>"Checkbutton1",
    -anchor=>'w')->pack();

    
    
 MainLoop;

kann ich da iwie sowas wie

Code: (dl )

if ($checkbutton==1)
{
 //mache irgendetwas
}

Habe über die Suche nichts gefunden...

danke ;)

+4 replies

Linuxer

2012-11-26 21:50

User since
2006-01-27
3870 Artikel
HausmeisterIn

user image

Du müsstest den CheckButton mit einer Variable "verknüpfen" können...

Code: (dl )

... = $mw->CheckButton( ... -variable => \$variable );

und diese $variable sollte dann beinhalten, ob der Radiobutton angewählt ist...

Siehe auch Wiki:

PerlTkTutorialKapitel7
Last edited: 2012-11-27 00:10:15 +0100 (CET)

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

+3 replies

1860gelb

2012-11-27 14:06

User since
2012-11-05
41 Artikel
BenutzerIn
[default_avatar]

Hab da trotzdem noch eine Frage:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

use Tk;



my $window     = MainWindow->new();

$window->title('test');

my $fo     = $window->Frame()->pack(-side   => 'top',
                                -expand => 1,
                                -fill   => 'both',
                               );
                   
                
my $f1 = $fo->Frame(-borderwidth => 3,
                    -relief      => 'groove',
                   )
             ->pack(-side        => 'left',
                    -expand      => 1,
                    -fill        => 'both',
                   );
$f1->Label(-text=>'Uhrzeiten')->pack();

my $stunde1 =0;
my $stunde2 =0;


$f1->Checkbutton(-text => "Stunde 1",-variable=>\$stunde1)->pack();
$f1->Checkbutton(-text => "Stunde 2",-variable=>\$stunde2)->pack();
             

$window->Button(-text=>'OK',-command=>sub{ 

                                            print $stunde1,
                                            print $stunde2,
                                         },


)->pack();


MainLoop();

Habs zwar hier mit Checkbutton gemacht aber dürfte nicht viel anders sein.
ich gebe beim Klick auf den OK Button aus ok die Variable gesetzt ist oder nicht

wieso gibt mir die Konsole 3 Werte aus?

Kann mir jemand das Phänomen erklären? ;)
Last edited: 2012-11-27 20:50:54 +0100 (CET)

+2 replies
pq

2012-11-27 21:08
User since
2003-08-04
12208 Artikel
Admin1
2012-11-27T13:06:40 1860gelb
Hab da trotzdem noch eine Frage:

Code: (dl )

1 2

print $stunde1, print $stunde2,

wieso gibt mir die Konsole 3 Werte aus?
weil du den rückgabewert von print auch noch printest.
zuerst wird das zweite print ausgeführt, dessen rückgabewert ist das zweite argument für das erste print, somit wird $stunde1 und 1 ausgegeben.

willst du vielleicht eher ein semikolon am ende der prints haben?
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- 1860gelb
  
  2012-11-27 21:29
  
  User since
  2012-11-05
  41 Artikel
  BenutzerIn
  
  Danke;)

View all threads created 2012-11-26 20:15.