[Tk] -background wert auslesen (solved) (Graphische Oberflächen)

[thread]20085[/thread]

[Tk] -background wert auslesen [solved]

Tags: perl5 GUI Tk Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+4 replies
der_thomas

2016-05-27 22:52
User since
2013-09-07
158 articles
BenutzerIn
Hallo,

ich habe mit einer tk GUI folgendes Problem:
Ich will Button 'einfärben' - was kein Problem ist (siehe Code), ich will dieses 'Einfärben' aber auch wieder rückgängig machen können. D.h. es sollen dann die Systemfarben verwendet werden, also so wie wenn ich den Parameter -background gar nicht angegeben hätte.

Dazu müsste ich den Default-wert auslesen....was mir nicht gelingen mag...
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/perl use v5.12; use Tk; sub main { my $fenster = MainWindow->new(); my $beenden = $fenster -> Button( -text => "Beenden", -background => 'green', # was für ein Wert ist hier wenn ich -background nicht angebe ? -width => 15) -> grid(); MainLoop(); } main();
Weiß da von euch jemand eine Lösung ?

MfG
Thomas
- +3 replies
- Linuxer
  
  2016-05-27 23:37
  
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  
  Vielleicht hilft der Tipp mit cget aus https://mail.python.org/pipermail/tkinter-discuss/...
  
  Siehe auch: http://search.cpan.org/dist/Tk/pod/options.pod
  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
  - der_thomas
    
    2016-05-28 09:06
    User since
    2013-09-07
    158 articles
    BenutzerIn
    
    Super, Danke, das ist die Lösung !
    
    Für alle die das unter Perl tk mal benötigen, der Syntax wäre hier folgender:
    (Bezugnehmend auf den Code den ich oben zeigte)
    
    Code: (dl )
    
    1 2 3
    
    ... my $defaultcolor = $beenden->cget("-background"); ...
    
    Viele Grüße
    Thomas
    - GUIfreund
      
      2016-06-01 15:53
      
      User since
      2011-08-08
      559 articles
      BenutzerIn
      
      Dieser Beitrag hat mich dazu animiert, mich nach langer Abstinenz mal wieder mit Tk zu befassen.
      
      2016-05-28T07:06:46 der_thomas
      (Bezugnehmend auf den Code den ich oben zeigte)
      
      Das ist hier der wichtige Punkt, deshalb möchte ich das nochmal betonen. Im allgemeinen liefert
      
      Code: (dl )
      
      1 2
      
      ... $widget->cget("-background");
      
      den aktuellen Wert von -background.
      
      2016-05-28T07:06:46 der_thomas
      Dazu müsste ich den Default-wert auslesen....was mir nicht gelingen mag...
      
      Hilfe naht :-)
      Die Tk-Option NORMAL_BG liefert die Default Background-Farbe verschiedener Widgets, darunter auch von Button. Dieses Beispiel-Skript
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      use strict; use warnings; use Tk; use Tk(qw/NORMAL_BG/); use feature 'say'; my $mw = Tk::MainWindow->new; my $bt = $mw->Button(-bg => 'green', -text => 'green')->pack(-fill => 'x'); say 'background ', $bt->cget(-bg); my $col = NORMAL_BG; say "default background $col"; $mw->Button(-bg => $col, -text => $col)->pack(-fill => 'x'); $mw->Button(-text => 'default')->pack(-fill => 'x'); MainLoop;
      
      zeigt, dass Button die Default Background-Farbe SystemButtonFace hat.
      Gruß
      GUIfreund

View all threads created 2016-05-27 22:52.