Listbox rechtsbündig: s. Name des Themas - #46805 (Graphische Oberflächen)

Crian

2004-01-29 16:48

User since
2003-08-04
5873 Artikel
ModeratorIn

Oder als Tk-Variante:

Code: (dl )

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

use Tk;

my @numbers = ( -1.22, 47.11, 42, 13.5, 10000.2, -213);

for (@numbers) {
    $_ = sprintf "%9.2f", $_;
}

my $mw = new MainWindow;

my $lb = $mw->Listbox(-font => '{Courier New} 12 {normal}')->pack();


$lb->insert('end', "$_") for (@numbers);

MainLoop();

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite