Font
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]5130[/thread]

Anordnung Label und Entry (page 3)



<< |< 1 2 3 >| >> 24 entries, 3 pages
ptk
 2005-11-25 01:00
#45026 #45026
User since
2003-11-28
3645 articles
ModeratorIn
[default_avatar]
Tk::Dialog kennt auch -image.

Für das fixe Fenster bietet sich overrideredirect(1) an.
renee
 2005-11-25 01:57
#45027 #45027
User since
2003-08-04
14371 articles
ModeratorIn
[Homepage] [default_avatar]
Mehr zu CPAN:Tk::Dialog findest Du auch im Wiki:Artikel...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Matze
 2005-11-25 16:05
#45028 #45028
User since
2005-08-29
222 articles
BenutzerIn
[Homepage] [default_avatar]
Danke!

Ich werde es gleich mal ausprobieren.

MfG. Matze
Mit freundlichen Grüßen: Matze
Crian
 2005-12-09 15:57
#45029 #45029
User since
2003-08-04
5867 articles
ModeratorIn
[Homepage]
user image
[quote=ptk,24.11.2005, 14:49]Ich bin beeindruckt. Obwohl ich persönlich wahrscheinlich immer mit Hilfsframes arbeiten werde; dann muss man sein Gehirn weniger verknoten, wenn die Layouts komplizierter werden...[/quote]
Das liegt auch nur daran, dass es mit der Aufgabe zufällig funktioniert. Ich arbeite auch immer mit Hilfsframes, deshalb hatte meine erste Lösung ja einen, bis ich mich fragte, wozu ich den überhaupt brauche ;)

Aber bei einem Layout wie

Code: (dl )
1
2
3
4
5
6
7
8
9
    |------------------------------------------------|
| Frame 1 |
|------------------------------------------------|
| Frame 2 | Frame 3 | Frame 4 |
| |------------| |
| | Frame 5 | |
|------------------------------------------------|
| Frame 6 |
|------------------------------------------------|


Wird man nicht ohne Hilfsframes hinkommen. Oder? Hmm

doch geht *haarerauf*:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
#!/usr/bin/perl
use strict;
use warnings;

use Tk;

tk_main();
MainLoop();
exit;


sub tk_main {
my $mw = MainWindow->new();
$mw->title('Pack Layout 3');

=pod

|------------------------------------------------|
| Frame 1 |
|------------------------------------------------|
| Frame 2 | Frame 3 | Frame 4 |
| |------------| |
| | Frame 5 | |
|------------------------------------------------|
| Frame 6 |
|------------------------------------------------|

=cut

my $frame1 = $mw->Frame(
-borderwidth => 5,
-background => 'blue',
)->pack(
-side => 'top',
-expand => 1,
-fill => 'both',
);
my $frame6 = $mw->Frame(
-borderwidth => 5,
-background => 'red',
)->pack(
-side => 'bottom',
-expand => 1,
-fill => 'both',
);
my $frame2 = $mw->Frame(
-borderwidth => 5,
-background => 'green',
)->pack(
-side => 'left',
-expand => 1,
-fill => 'both',
);
my $frame4 = $mw->Frame(
-borderwidth => 5,
-background => 'cyan',
)->pack(
-side => 'right',
-expand => 1,
-fill => 'both',
);
my $frame3 = $mw->Frame(
-borderwidth => 5,
-background => 'orange',
)->pack(
-side => 'top',
-expand => 1,
-fill => 'both',
);
my $frame5 = $mw->Frame(
-borderwidth => 5,
-background => 'magenta',
)->pack(
-side => 'top',
-expand => 1,
-fill => 'both',
);

$frame1->Label(-text => 'Frame 1')->pack();
$frame2->Label(-text => 'Frame 2')->pack();
$frame3->Label(-text => 'Frame 3')->pack();
$frame4->Label(-text => 'Frame 4')->pack();
$frame5->Label(-text => 'Frame 5')->pack();
$frame6->Label(-text => 'Frame 6')->pack();
}


http://www.duehl.de/lay_back/bilder/pack_layout3.p...


Aber bei


Code: (dl )
1
2
3
4
5
6
7
8
9
    |-------------------------------------------------------------|
| Frame 1 |
|-------------------------------------------------------------|
| Frame 2 | Frame 3 | Frame 4 | Frame 5 |
| |------------| |------------|
| | Frame 6 | | Frame 7 |
|-------------------------------------------------------------|
| Frame 8 |
|--------------------------------------------------------------|


ist Schluß :D
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
<< |< 1 2 3 >| >> 24 entries, 3 pages



View all threads created 2005-11-19 13:23.