Thread Elemente gruppieren / ein- und ausblenden (11 answers)
Opened by Robby at 2003-08-21 13:34

Crian
 2003-08-21 16:14
#41713 #41713
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
Mist, dabei hatte ich gerade noch eine Version mit plus und minus für Dich gebastelt, hier:

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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use Tk;
require Tk::HList;

my $top = MainWindow->new(-title=>"FileSelector");
$top->geometry("300x500");

my $h = $top->Scrolled('HList',
                       -drawbranch => 1,
                       -separator  => '/',
                       -indent     => 15,
                       -command    => \&show_or_hide_dir,
                       -scrollbars => 'osoe',
                      )
                ->pack(-fill       => 'both',
                       -expand     => 'y',
                      );

my $xpm_p = <<'ENDE';
/* XPM */
static char *test[]={
"12 12 2 1",
". c None",
"# c #000000",
".....##.....",
".....##.....",
".....##.....",
".....##.....",
".....##.....",
"############",
"############",
".....##.....",
".....##.....",
".....##.....",
".....##.....",
".....##....."};
ENDE

my $xpm_m = <<'ENDE';
/* XPM */
static char *test[]={
"12 12 2 1",
". c None",
"# c #000000",
"............",
"............",
"............",
"............",
"............",
"############",
"############",
"............",
"............",
"............",
"............",
"............"};
ENDE

my %icons;
#$icons{"open"}   = $top->Bitmap(-file => './open_folder.xbm');
#$icons{"closed"} = $top->Bitmap(-file => './folder.xbm');
#$icons{"open"}   = $top->Pixmap(-data => $xpm);
#$icons{"closed"} = $top->Pixmap(-data => $xpm);
$icons{"open"}   = $top->Pixmap(-data => $xpm_m);
$icons{"closed"} = $top->Pixmap(-data => $xpm_p);

#show_or_hide_dir("c:\\programme");
show_or_hide_dir(@ARGV);
#show_or_hide_dir("p:");

#show_or_hide_dir("/temp");

MainLoop();

#-----------------------------------------------------------------------
sub show_or_hide_dir {
    my $path = $_[0];
    print "PATH:".$path;
    return if (! -d $path);
    if ($h->info('exists', $path)) {
        my $next_entry = $h->info('next', $path);
        if (!$next_entry || (index ($next_entry, "$path/") == -1)) {
            $h->entryconfigure($path, '-image' => $icons{"open"});
            add_dir_contents($path);
            my $path1 = $path;
            my $path2 = $path;
            my @du = ("du", "-b", "-h", $path1, $path2);
            my $dirSize = system(@du) == 0 or die "system @du failed: $?";
        }
        else {
            $h->entryconfigure($path, '-image' => $icons{"closed"});
            $h->delete('offsprings', $path);
        }
    }
    else {
        die "'$path' is not a directory\n" if (! -d $path);
        $h->add($path,
                -itemtype => 'imagetext',
                -image    => $icons{"open"},
                -text     => $path,
               );
        add_dir_contents($path);
    }
}

sub add_dir_contents {
    my $path = $_[0];
    my $oldcursor = $top->cget('-cursor');

    $top->configure(-cursor => 'watch');
    $top->update();

    my @files = <$path/*>;
    foreach my $file (@files) {
        $file =~ s|//|/|g;
        #$file =~ /^\s*$/;

        print "FILE:".$file."\n\n";
        (my $text = $file) =~ s|^.*/||g;
        if (-d $file) {
            $h->add($file,
                    -itemtype => 'imagetext',
                    -image    => $icons{"closed"},
                    -text      => $text,
                   );
        }
        else {
            $h->add($file,
                    -itemtype => 'text',
                    -text     => $text,
                   );
        }
    }
    $top->configure(-cursor => $oldcursor);
} # sub add_dir_contents


:)
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

View full thread Elemente gruppieren / ein- und ausblenden