[quote=Froschpopo,18.04.2005, 21:22]
$config{pane}->Label(
-text => $txt
)->grid(-row=>$config{OutputCount}, -column=>1);
$config{pane}->gridColumnconfigure(-weight => 3);
dazu sagt der mir: -weight isn't numeric...
der lügt doch[/quote]
'er' lügt nie. '-weight' ist definitiv nicht numerisch.
Zitat aus der perldoc (gähn...)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
*$master*->gridColumnconfigure(*index*?, *-option*=>*value, ...*?)
Query or set the column properties of the *index* column of the
geometry master, *$master*. The valid options are -minsize, -weight
and -pad. If one or more options are provided, then *index* may be
given as a list of column indices to which the configuration options
will operate on. The -minsize option sets the minimum size, in
screen units, that will be permitted for this column. The -weight
option (an integer value) sets the relative weight for apportioning
any extra spaces among columns. A weight of zero (0) indicates the
column will not deviate from its requested size. A column whose
weight is two will grow at twice the rate as a column of weight one
when extra space is allocated to the layout. The -uniform option,
when a non-empty value is supplied, places the column in a *uniform
group* with other columns that have the same value for -uniform. The
space for columns belonging to a uniform group is allocated so that
their sizes are always in strict proportion to their -weight values.
See *THE GRID ALGORITHM* below for further details. The -pad option
specifies the number of screen units that will be added to the
largest window contained completely in that column when the grid
geometry manager requests a size from the containing window. If only
an option is specified, with no value, the current value of that
option is returned. If only the master window and index is
specified, all the current settings are returned in an list of
"-option value" pairs.
\n\n
<!--EDIT|Crian|1113911397-->
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