perl/tk - labels näher zusammenrücken??? (Graphische Oberflächen)

[thread]20698[/thread]

perl/tk - labels näher zusammenrücken???

Tags: perl5 GUI Tk Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+11 replies
kolibri250

2019-11-24 20:46
User since
2019-01-20
51 Artikel
BenutzerIn
Hallöchen..

hab folgendes problem bei meinen ersten gehversuchen in perl/Tk...
Code (perl): (dl )

1 2 3 4

my $beschriftung1 = $mw->Label( -text => 'Test1:', -font => 'Times 12', );
wenn ich dieses label per
Code (perl): (dl )

$beschriftung1->grid( -row => 0, -column => 0, );
ins fenster stelle, und noch ein zweites darunter.. könnte locker noch ein drittes dazwischenpassen! wie kann ich den abstand zwischen den eizelnen rows verkleinern, so daß sie direkt untereinander stehen und keinen platz verschwenden???

achso.. das ganze läuft unter strawberry perl auf win7, soll aber nachher als sidebar auf win10 dienen (daher überhaupt diese anstrengung.. win10 hat ja keine sidebar mehr)

gruß
der vogel :D
- +10 replies
- kolibri250
  
  2019-11-25 20:05
  
  User since
  2019-01-20
  51 Artikel
  BenutzerIn
  
  hat keiner ne idee??? :(
  - +9 replies
  - haj
    
    2019-11-25 22:13
    User since
    2015-01-07
    527 Artikel
    BenutzerIn
    
    Du könntest es uns leichter machen, wenn Du ein vollständiges Programm liefern würdest, damit wir nicht raten müssen, wie du das zweite Label "darunter" stellst. So kann ich nur sagen: Bei mir geht's! Da ist kein Platz zwischen den Zeilen!
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
    
    #!perl use strict; use warnings; use Tk; my $mw = tkinit(); my $beschriftung1 = $mw->Label( -text => 'Test1:', -font => 'Times 12', ); $beschriftung1->grid( -row => 0, -column => 0, ); my $beschriftung2 = $mw->Label( -text => 'Test2:', -font => 'Times 13', ); $beschriftung2->grid( -row => 1, -column => 0, ); $mw->MainLoop();
    
    Allerdings habe ich kein Windows 7 mehr und auch keine Ahnung, was mit einer sidebar gemeint sein könnte.
    - +8 replies
    - kolibri250
      
      2019-11-28 15:06
      
      User since
      2019-01-20
      51 Artikel
      BenutzerIn
      
      tja, da muss ich dich leider enttäuschen....
      
      dein code, der meinem frappierend ähnlich sieht... :D
      generiert genau die selben lücken zwischen den texten.. :)
      
      ich bezweifle auch stark daß das am betriebssystem oder gar an der unwissenheit liegen mag, was eine sidebar ist.. ich denke ehr, daß das ein tk-problem ist, für das ich hier eigentlich die lösung suchte...
      - Linuxer
        
        2019-11-28 15:22
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Naja,
        
        Du sagst, bei Dir sind Lücken, haj sagt, bei ihm sind keine... klassische Patt-Situation. Schade.
        Wirklich mehr Informationen lieferst Du auch keine. Auch immer noch kein lauffähiges Beispiel.
        
        Verrat doch mal, welche Versionen Du einsetzt:
        - Betriebssystem (Win10)
        - Perl Version? ActivePerl? Strawberry Perl?
        - Tk Version?
        
        Gibt es vielleicht aktuellere Versionen? Die sich vielleicht auch unterschiedlich zu älteren verhalten?
        
        Ohne mehr Informationen bleibt das ein Stochern im Nebel; und dazu muss man eben Zeit und Lust haben.
        
        Ansonsten scheint es für eine Sidebar in Win10 auch schon ein fertiges Angebot zu geben: 8GadgetPack
        Ich kenne das aber nicht genauer; bin bisher vom Win10 verschont geblieben.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +3 replies
      - Linuxer
        
        2019-11-28 21:28
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Habe es gerade mal mit hajs Code ausprobiert; leicht modifiziert:
        - Farben ins Spiel gebracht zur Erkennung der Label-Grenzen
        - Perl-Version + Tk-Version als Label-Text eingebaut
        
        Getestet unter Linux; keine Abstände zwischen den Labels.
        
        Screenshot und Skript sind angehangen.
        Anhänge
        
        image/png
        95 x 51
        
        tk_spacing.png
        
        text/plain
        22 lines
        tk.pl
        
        Last edited: 2019-11-28 21:29:17 +0100 (CET)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        kolibri250
        
        2019-11-29 14:33
        
        User since
        2019-01-20
        51 Artikel
        BenutzerIn
        
        hi linuxer...
        
        nimm die farben mal raus! dann entsteht mächtig abstand zwischen den TEXTEN.. (schrieb ich auch bereits, daß es um den abstand zwischen den texten geht) also gehts hier ehr um das "padding" innerhalb der labels.
        
        hatte ja bereits geschrieben, daß haj´s quelltext meinem sehr ähnlich sieht.. soll heissen, hab auch nicht wirklich was anderes gemacht, und das selbe ergebnis wie ihr..
        
        ich hatte auch bereits geschrieben, daß es auf win7 läuft, und für win10 laufen soll... strawberry.. schrieb ich auch bereits.. :)
        
        und ja.. 8gadget-pack gibts.. stürzt aber nach ner weile ab, oder wird vom betriebssystem als schadsoftware erkannt.. *ggg
        
        die option pady => '0' scheint auch nicht wirklich zu funktionieren. auch nicht mit negativen werden.. wohl aber mit positiven! scheint also echt nicht kleiner zu gehen als es ist. sehr schade..
        
        platzsparend texte unterbringen ist so leider nicht wirklich mehr möglich..
        
        Linuxer
        
        2019-11-29 14:45
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        OK, ich bin raus.
        Viel Glück noch.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +3 replies
      - haj
        
        2019-11-28 22:42
        
        User since
        2015-01-07
        527 Artikel
        BenutzerIn
        
        2019-11-28T14:06:33 kolibri250
        tja, da muss ich dich leider enttäuschen....
        
        Warum sollte ich enttäuscht sein, wenn's bei mir funktioniert und bei Dir nicht?
        
        Du hast in jedem Fall Recht: Es liegt nicht am Betriebssystem. Ich habe die Variante vom Linuxer gerade unter Windows 10 laufen lassen. Funktioniert auch, ohne Abstand.
        Anhänge
        
        image/png
        129 x 92
        
        tk1.png
        
        Last edited: 2019-11-28 22:46:02 +0100 (CET)
        
        +2 replies
        
        kolibri250
        
        2019-11-29 14:34
        
        User since
        2019-01-20
        51 Artikel
        BenutzerIn
        
        funktionieren tuts leider bei dir auch nicht wirklich ;)
        
        haj
        
        2019-11-29 17:10
        
        User since
        2015-01-07
        527 Artikel
        BenutzerIn
        
        Wenn Dir das, was Du an den Beispielbildern siehst, schon zu viel Abstand zwischen den Texten ist, dann liegt das weniger an den Tk-Widgets als daran, was unter "Zeilenabstand" zu verstehen ist. Da kannst Du noch ein paar Pixel herauswringen, indem Du bei den Labels -borderwidth => 0 setzt.

View all threads created 2019-11-24 20:46.