Tk::FlatRadiobutton - Flacher Radiobutton mit Farbindikator

Tk::FlatRadiobutton ist eine Alternative zu Tk::Radiobutton (das Widget, das so aussieht, wie ein HTML-Radio-Button). Der Umstand, welcher Radiobutton einer Radio-Gruppe aktiviert ist wird nicht durch einen kleinen schwarzen Kreis dargestellt, sondern durch ein kleines fabriges Rechteck in der unteren rechten Ecke des Radiobuttons (s. Screenshot).


Code-Beispiel für Tk::FlatRadiobutton

  1. #!perl
  2. use strict;
  3. use warnings;
  4. use utf8;
  5. use Tk;
  6. use Tk::FlatRadiobutton;
  7. my $mw = tkinit();
  8. my $variable = 'Über';
  9. $mw->FlatRadiobutton(
  10. -text => 'Über',
  11. -value => 'Über',
  12. -variable => \$variable,
  13. -raiseonenter => 1,
  14. )->pack();
  15. $mw->FlatRadiobutton(
  16. -text => 'Unter',
  17. -value => 'Unter',
  18. -variable => \$variable,
  19. -raiseonenter => 1,
  20. )->pack();
  21. $mw->MainLoop();
Top