Navigationsleiste in Form einer Baumstruktur / Fensteraufteilung (Graphische Oberflächen)

[thread]13830[/thread]

Navigationsleiste in Form einer Baumstruktur / Fensteraufteilung

Readers: 30

Articles: hide open all | hide show old branches

+14 replies
leo11

2009-08-07 20:16
User since
2008-08-14
250 articles
BenutzerIn
Hallo,

ich brauche ein bißchen Starthilfe in Tk. Grundsätzlich:
- Wenn ihr wissen wollt welche Widgets welche Methoden anbieten, wie schaut ihr das nach? Irgendwie scheint mir mein Weg zu langsam. (Ich google meist, schau dann mal hier und mal dort.)
- Wenn ihr im nächsten Schritt wissen wollt, welche Optionen bspw. die Methode configure anbietet, wie schaut ihr das nach, und vor allem, wo finde ich eine gute Übersicht über die Werte die für die einzlnen Optionen möglich sind, bspw. configure( witdh => '500').
Kann man hier auch mit relativen Werten arbeiten? So etwas wie:
witdh => '20%'

Folgendes möchte ich umsetzen:
Ein Hauptfenster, das beim Start den Bildschirm ausfüllt Darin zwei Bereiche. Bei html würde man von Frames sprechen, ich vermute das ist hier damit auch gemeint. Das Hauptfenster ist dann in 2 Spalten geteilt. Der linke ist Frame 1, das 20% der Breite füllen soll. Am besten in der Größe veränderbar.

Im nächsten Schritt möchte ich in Frame 1 eine Baumstruktur mit der Tiefe 2 aufbauen. Dafür soll aus einer MysqlDB eine Spalte ausgelesen werden. Deren Inhalte beginnen immer mit einer 1. Wird die 1 von einer 5 gefolgt ist es ein Kind von 10. Ebenso ist 155 ein Kind von 150.
Ungefähr so soll die Navigationsleiste am Ende aussehen:
Code: (dl )

1 2 3 4 5 6 7 8

-100 |-150 |-155 |-155 |150 -100 |-150 |-155
- Die einzelnen Äste sollen schließbar sein. Wie üblich symbolisiert über + - o.ä.
- Bei Klick auf einer der Zahlen sollen diverse Infos der zugehörigen Zeile aus der DB in Frame 2 angezeigt werden.

Die Daten aus der DB lesen kann ich.
Ich bin für jeden Tipp dankbar.
Last edited: 2009-08-07 20:26:02 +0200 (CEST)
- +2 replies
- pktm
  
  2009-08-08 14:18
  
  User since
  2003-08-07
  2921 articles
  BenutzerIn
  
  Hallo!
  
  Welche Widgets welche Methoden anbieten und was man mit configure alles einstellen kann schlage ich tatsächlich nach. Ich habe allerdings nie immer alles selbst auch gefunden. Manchmal mmuss man wirklich sehr genau lesen, oder vedamt akribisch suchen.
  
  Da wirklich vieles von vielen Widgets unterstützt wird, hat man darauf verzichtet, es in jeder Manpage zu wiederholen und es zentral definiert. Das steht dann meistens unter SYNOPSIS (diese Liste von Optionen mit - am Anfang). Details dazu findet man in "Tk::options - Standard options supported by widgets and their manipulation". Man bemerke: options in Tk::options ist hier klein geschrieben.
  
  Ich habe einfach angefangen, die Widgets, die ich verwendet habe, auszuprobieren und für jede Funktionalität ein kleines Demo-Skript zu basteln. Davon habe ich dann einen Screenshot g emacht (soweit es ging) und zusammen mit dem Code zu einer Webseite verwurstelt.
  
  Es gibt außerdem noch irgendwo eine Demo diverser Widgers, wobei ich den Quelltext davon gerade als Anfänger für den letzten Rotz gehalten habe. Das einzige, was ich von dieser Demo hatte, war ein Einblick darin, was man mit den Widgets so machen konnte, wie sie heißen und welche es so gibt.
  
  Ich habe das damals unter "C:\Perl\bin\widget.bat" gefunden.
  
  Nun zu deinem konkreten Problem: du suchst eventuell sowas wie DirTree? Es gibt auch noch Tk::Tree, aber das habe ich noch nicht ausprobiert.
  
  Grüße, pktm
  http://www.intergastro-service.de (mein erstes CMS :) )
  - leo11
    
    2009-08-08 14:38
    
    User since
    2008-08-14
    250 articles
    BenutzerIn
    
    Tk::Tree sieht schonmal gut aus, danke. Werd damit mal experimentieren.
    
    Hab mir "Mastering Perl Tk" bestellt. Hoffe sie liefern schnell.
- +4 replies
- leo11
  
  2009-08-08 17:07
  User since
  2008-08-14
  250 articles
  BenutzerIn
  Hier ein Versuch die Struktur abzubilden:
  
  Code (perl): (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 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 foreach(qw (1000 1500 1550 1550)) { my $l = $_; $l =~ s/0//g; if ( $l eq '15') { $l =~ s/(.)(.).*/$1.$2/g; } if ( $l eq '155') { $l =~ s/(.)(.)(.).*/$1.$2.$3/g; } $tree->add($l, -text => $_); } # Weichen stellen $tree->autosetmode(); #Ast schließen #$tree->close("1"); # do create window MainLoop;
  
  Sofern ich das 2'te 1550 weglasse wird ein Baum erzeugt. Ansonsten kommt die Fehlermeldung:
  element "1.5.5" already exists at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Tk.pm line 250
  
  Hat jemand eine Idee? Ist der Weg eine Sackgasse?
  - +3 replies
  - pktm
    
    2009-08-08 17:24
    User since
    2003-08-07
    2921 articles
    BenutzerIn
    
    Zuerst:
    
    Code: (dl )
    
    1 2 3
    
    #!/usr/bin/perl use strict; use warnings;
    
    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 :) )
    - +2 replies
    - leo11
      
      2009-08-08 17:41
      
      User since
      2008-08-14
      250 articles
      BenutzerIn
      
      2009-08-08T15:24:10 pktm
      Zuerst:
      Was steht denn in deiner DB?
      
      Die Werte kommen so wie in meinem Eingangspost. Die Veranschaulichung zeigt das was ich abbilden möchte. Darin ist erkennbar, dass bspw. das 1000er mehrfach kommen kann.
      
      Vielleicht sollte ich die Werte vorher fortlaufend nummerieren?
      Last edited: 2009-08-08 17:50:39 +0200 (CEST)
      - pktm
        
        2009-08-08 19:13
        
        User since
        2003-08-07
        2921 articles
        BenutzerIn
        
        2009-08-08T15:41:40 leo11
        2009-08-08T15:24:10 pktm
        Zuerst:
        Was steht denn in deiner DB?
        
        Die Werte kommen so wie in meinem Eingangspost. Die Veranschaulichung zeigt das was ich abbilden möchte. Darin ist erkennbar, dass bspw. das 1000er mehrfach kommen kann.
        
        Vielleicht sollte ich die Werte vorher fortlaufend nummerieren?
        
        Wenn du das kannst, dann mach das. Ich weiß halt nicht, wozu du die Nummern brauchst, oder was die darstellen.
        
        Btw, hier eine Möglichkeit für mehrfachnennung (zumindest aus Nutzersicht):
        
        Code: (dl )
        
        1 2 3 4 5
        
        # 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',);
        
        http://www.intergastro-service.de (mein erstes CMS :) )
- +3 replies
- leo11
  
  2009-09-07 20:37
  User since
  2008-08-14
  250 articles
  BenutzerIn
  Wie unterteilt man ein Hauptfenster wie folgt?
  
  Code: (dl )
  
  1 2 3
  
  ___________ |________| __|________|
  
  Der linke Bereich soll in der Höhe gleich bleiben, aber per Maus in der Breite veränderbar sein. Außerdem braucht er eine Scrollbar. Die anderen beiden Bereiche sollen eigene Fenster sein, die in der Größe per Maus variierbar sind, und rechts oben auch die üblichen 3 Icons zum verkleinern, vergrößern und schließen haben, sowie Scrollbars.
  Last edited: 2009-09-07 20:44:17 +0200 (CEST)
  - #Kein Kommentar
    
    2009-09-07 21:54
    
    User since
    2007-06-09
    575 articles
    HausmeisterIn
    
    frames, bei denen der user die größe ändern kann, kannst du meines wissens nach mit Tk::Pane oder Tk::Panedwindow erzeugen. du kannst mal in der widget-demonstration widget.bat nachsehen dort müsste es stehen.
    
    ein modul mit dem man fenster in das main window einbauen kann gibt es auch, leider habe ich vergessen wie es heißt :(
    Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
  - guest Christoph
    
    2009-09-08 00:14
    
    Hallo,
    
    schau dir mal Tk::Adjuster an.
    
    Grüsse, Christoph
- +4 replies
- Crian
  
  2009-09-08 10:20
  
  User since
  2003-08-04
  5873 articles
  ModeratorIn
  
  Bei der Dokumentation findet sich auch das widget-Beispielprogramm. Das ist - neben dem Buch Mastering Perl/Tk - oft auch eine interessante Quelle.
  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
  - +3 replies
  - leo11
    
    2009-09-08 11:11
    
    User since
    2008-08-14
    250 articles
    BenutzerIn
    
    2009-09-08T08:20:49 Crian
    Bei der Dokumentation findet sich auch das widget-Beispielprogramm.
    
    Was meinst du? widget.bat? locate widget.bat zeigt mir keinen Treffer. Würdest du ggf. einfach mal den Code posten?
    
    Quote
    Das ist - neben dem Buch Mastering Perl/Tk - oft auch eine interessante Quelle.
    
    Das Buch hab ich. Kapitel 11, Frames, Mainwindows und Toplevel-Widets deutet auf eine Lösung hin, bietet sie aber nicht.
    
    Ich bin überrascht, dass man nach so etwas grundsätzlichen so lange suchen muss! Werd mir mal die von den anderen empfohlenen Module anschauen.
    - +2 replies
    - pq
      
      2009-09-08 12:06
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      2009-09-08T09:11:39 leo11
      Was meinst du? widget.bat? locate widget.bat zeigt mir keinen Treffer. Würdest du ggf. einfach mal den Code posten?
      
      /usr/bin/widget ist das bei mir.
      du bist wohl unter windows, wenn du nach widget.bat suchst. gibt es da einen locate-befehl?
      
      edit: im übrigen befindet sich das skript im "demos" verzeichnis der Tk distribution. kannst du dir einfach runterladen.
      Last edited: 2009-09-08 12:07:52 +0200 (CEST)
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - Kalle
        
        2009-09-09 07:55
        
        User since
        2007-03-18
        48 articles
        BenutzerIn
        
        Hi leo11,
        
        habs dir mal da hingelegt: widget.zip
        
        Gruß
        
        Kalle

View all threads created 2009-08-07 20:16.