Opened by leo11 at 2009-08-07 20:16
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
Zuerst:
Das bedarf keiner Diskussion.
Nun zum Problem:
$l ist ein eindeutiger Bezeichner für den Knoten. Der darf einfach nicht zweimal vorkommen. Wie gedenkst du denn sonst hinterher zwischen den Knoten zu unterscheiden?
Was steckt denn hinter dem Code, den du da gepostet hast? Beschreibe einmal genauer, was du machen willst, wventuel kann dir dann jemand mit einer Idee helfen.
Was steht denn in deiner DB?
Hier noch etwas code:
Last edited: 2009-08-08 17:28:56 +0200 (CEST)
Das bedarf keiner Diskussion.
Nun zum Problem:
$l ist ein eindeutiger Bezeichner für den Knoten. Der darf einfach nicht zweimal vorkommen. Wie gedenkst du denn sonst hinterher zwischen den Knoten zu unterscheiden?
Was steckt denn hinter dem Code, den du da gepostet hast? Beschreibe einmal genauer, was du machen willst, wventuel kann dir dann jemand mit einer Idee helfen.
Was steht denn in deiner DB?
Hier noch etwas code:
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
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Tree;
my $mw = MainWindow->new( -title => 'Tree',
-width => 800,
-height=> 600);
my $tree = $mw->Tree(
font => 'Courier 14',
wideselection => 0,
background => 'white',
selectbackground => 'grey'
)->place(
-x => 0,
-y => 0,
-width => 10000,
-height => 1000
);
# Zeilen in Verzeichnisbaum einfügen
$tree->add('1000', -text => '1000',);
$tree->add('1000.1500', -text => '1500',);
$tree->add('1000.1500.1550', -text => '1550',);
$tree->add('1000.1500.1550-1', -text => '1550',);
# Weichen stellen
$tree->autosetmode();
#Ast schließen
#$tree->close("1");
# do create window
MainLoop;
Last edited: 2009-08-08 17:28:56 +0200 (CEST)
http://www.intergastro-service.de (mein erstes CMS :) )