Opened by Gast at 2005-11-19 13:23
User since
2003-08-04
5871 articles
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5871 articles
ModeratorIn
[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
Wird man nicht ohne Hilfsframes hinkommen. Oder? Hmm
doch geht *haarerauf*:
http://www.duehl.de/lay_back/bilder/pack_layout3.p...
Aber bei
ist Schluß :D
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
use strict; use warnings; Link zu meiner Perlseite