GUI Aufbau mit TK (Graphische Oberflächen)

[thread]13855[/thread]

GUI Aufbau mit TK

Leser: 28

Articles: hide open all | hide show old branches

+8 replies

NixIsFix

2009-08-12 15:10

User since
2009-04-28
16 Artikel
BenutzerIn
[default_avatar]

moin,

sitze bzw ärger mich gerade ein wenig mit TK rum. Versuche eine Seite zu entwerfen mit der Hilfe von frames.
Solange wie die Frames leer sind ist es ja kein problem. (bin ein kleiner TK newbie)
aber sobald ich z.B. ein labe einfüge verhaut es mir die strktur.

Als ansatz wählte ich eine fixe, verschatelte frame struktur kurz gefasst :

die frames bilden einen table nach. Hier mal der Code:

Code (perl): (dl )

use strict;
use Tk;
my $MW= MainWindow->new;
$MW -> configure(-bg => 'white');

# Frames-Zeilen
my $F1 = $MW->Frame(-width => 600,-height => 200)->pack(-side => 'top',-anchor => "nw");
my $F2 = $MW->Frame(-width => 600,-height => 100)->pack(-side => 'top',-anchor => "nw");
my $F3 = $MW->Frame(-width => 600,-height => 30)->pack(-side => 'top',-anchor => "nw");

# Zellen in den Zeilen
my $FA = $F1->Frame(-width => 200,-height => 200,-bg => 'yellow')->pack(-side => 'left',-anchor => "nw");
my $FB = $F1->Frame(-width => 400,-height => 200)->pack(-side => 'left',-anchor => "nw");
my $FC = $F2->Frame(-width => 200,-height => 100)->pack(-side => 'left',-anchor => "nw");
my $FD = $F2->Frame(-width => 400,-height => 100, -bg => 'yellow')->pack(-side => 'left',-anchor => "nw");
my $FE = $F3->Frame(-width => 600,-height => 30)->pack(-side => 'left',-anchor => "nw");

#Label
#my $lbl_1 = $FD->Label (-text=>"Projectname:\n\nProjectpath:\n\nconfig files exist:")->pack();

MainLoop;

schaut euch einfach es mit label und ohne label an - dann weiß man was ich meine.
Kann mir jemand helfen? bzw meinen gedankenfehler lösen/aufklären?

+6 replies
renee

2009-08-12 15:31

User since
2003-08-04
14371 Artikel
ModeratorIn

Dumme Frage: Wenn Du eine Tabelle machen möchtest, warum nimmst Du dann nicht Tk::TableMatrix?
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/
- +2 replies
- NixIsFix
  
  2009-08-12 15:37
  
  User since
  2009-04-28
  16 Artikel
  BenutzerIn
  
  Dumme Antwort: weil ich bisher noch nix von tableMatrix gehört/gelesen hatte.
  (;))
  
  Und lohnt es sich damit eine feste Struktur für MainWindow zu erzeugen?
  Oder gibt es noch einen besseren Weg?
  - renee
    
    2009-08-12 15:55
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    2009-08-12T13:37:31 NixIsFix
    Und lohnt es sich damit eine feste Struktur für MainWindow zu erzeugen?
    Oder gibt es noch einen besseren Weg?
    
    Gute Frage. Ich bin mittlerweile etwas lange aus der Perl/Tk-Entwicklung draußen um das jetzt noch alles akkurat beantworten zu können...
    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/
- +3 replies
- murphy
  
  2009-08-12 15:45
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  ... oder den Gridlayoutmanager von Tk.
  When C++ is your hammer, every problem looks like your thumb.
  - +2 replies
  - NixIsFix
    
    2009-08-12 15:49
    
    User since
    2009-04-28
    16 Artikel
    BenutzerIn
    
    könntest du mir zu dem noch ein paar zusatzinformationen nennen?
    
    (was ich beim google überfliegen gsehen habe, war eher etwas mit java und nicht mit perl)
    - #Kein Kommentar
      
      2009-08-12 18:45
      
      User since
      2007-06-09
      575 Artikel
      HausmeisterIn
      
      ein kleines beispiel:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      use strict; use warnings; use Tk; my $mw = MainWindow->new(); # erstelle eine tabelle: foreach my $row (0..5){ foreach my $column (0..5){ $mw->Label( -text => "$row : $column", -relief => 'groove', -bd => 2, )->grid(-row => $row, -column => $column); } } Tk::MainLoop();
      
      mehr informationen findest du in der manpage von grid
      Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

Kalle

2009-08-13 02:53

User since
2007-03-18
48 Artikel
BenutzerIn
[default_avatar]

Hi,

ich weiss nicht, warum die Frames sich so leicht aus der Fassung bringen lassen, obwohl die Größe doch genau definiert ist, aber etwas mit -expand und -fill experimentieren, liefert schon gute Ergebnisse.

Wenn du die widgets, die deine Daten anzeigen sollen, einmal richtig platziert hast, dann hast du doch deine feste Struktur und brauchst nur noch die Daten für die widgets zu ändern. Oder willst du in den Frames wechselnde widgets anzeigen ?

Ich hab Frames noch nie mit Größenangaben versehen. Nur die widgets, für die ich die frames brauche definieren letztendlich die Größe.
Wenn ich jetzt dein Beispiel nachstellen wollte, hätte ich das vielleicht so gemacht:

Code (perl): (dl )

use strict;
use warnings;
use Tk;

my $out;

my $top = MainWindow->new(-title=>'Tk happy hour',-bg=>'white');
my $frame_top    = $top->Frame->pack(-fill=>'x');
my $frame_middle = $top->Frame->pack(-expand=>'1',-fill=>'both');
my $frame_bottom = $top->Frame->pack(-expand=>'1',-fill=>'both');

my $frame_middle_left  = $top->Frame->pack(-in=>$frame_middle,-side => 'left',-fill=>'both');
my $frame_middle_right = $top->Frame->pack(-in=>$frame_middle,-expand=>'1',-fill=>'both');

my $yellowtopleftlabel = $top->Label(-bg => 'yellow',-width => 32,-height => 15)->pack(-in=>$frame_top,-side=>'left');
my $graytoprightlabel  = $top->Label(-width => 64,-height => 15)->pack(-in=>$frame_top,-fill=>'x');

my $graymiddleleftlabel = $top->Label(-width => 32,-height => 7)->pack(-in=>$frame_middle_left,-expand=>'1',-fill=>'y');
my $outlabel = $top->Label(-textvariable=>\$out,-bg => 'yellow',-font=>'Courier 10',-justify=>'left',-anchor=>'nw')->pack(-in=>$frame_middle_right,-expand=>'1',-fill=>'both');

my $graybottomlabel = $top->Label(-width => 64,-height =>2)->pack(-in=>$frame_bottom,-expand=>'1',-fill=>'both');

my $thisname='Moorhuhn';
my $thispath='C:\Programme\Moorhuhn';
my $thisconfig='yes';

$out=sprintf ("%-20s %s\n%-20s %s\n%-20s %s\n","Projectname:",$thisname,"Projectpath:",$thispath,"config files exist:",$thisconfig);

MainLoop;

Gruß

Kalle

View all threads created 2009-08-12 15:10.