Perl/tk: bei mit scrolled erzeugte listbox scrollbar farbe ändern (gelöst) (Graphische Oberflächen)

[thread]15020[/thread]

Perl/tk: bei mit scrolled erzeugte listbox scrollbar farbe ändern [gelöst]

Tags: Tk Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+12 replies
lxuser

2010-05-13 18:42

User since
2010-04-19
10 Artikel
BenutzerIn

wie der titel schon sagt...möcht die farbe vollständig anpassen können...
hoffe hier gibt es nich schon n thread darüber...ich hab ihn nich gefudnen und stundenlang rumgegogglet ich hab echt keine lust mehr....

danke schonmal im vorraus
- gelöscht 2010-05-13 18:45
- +2 replies
- #Kein Kommentar
  
  2010-05-16 22:32
  
  User since
  2007-06-09
  575 Artikel
  HausmeisterIn
  
  laut dokumentation in der manpage soll man die hintergrundfarbe eigentlich ändern können, hat bei mir allerdings nicht funktioniert.
  
  durch die suche im forum habe ich diesen thread (und sogar gleich auf der ersten seite gefunden. ohne stundenlange suche^^):
  Perl/Tk, eigene scrollbar definieren
  
  Kannst ja mal das Testscript darin ausprobieren, bei mir hatte es allerdings nicht funktioniert.
  Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
  - lxuser
    
    2010-05-19 06:19
    
    User since
    2010-04-19
    10 Artikel
    BenutzerIn
    
    ging um scrolled und nich um das normale scrollbar widget ....
- +2 replies
- esskar
  
  2010-05-16 22:50
  
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  
  mich würde noch das Betriebssystem interessieren.
  - #Kein Kommentar
    
    2010-05-18 13:09
    
    User since
    2007-06-09
    575 Artikel
    HausmeisterIn
    
    achso, das ist windows bei mir, das könnte das verhalten vielleicht erklären.
    Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
- +6 replies
- MatthiasW
  
  2010-05-17 10:20
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Also bei mir funktioniert's ohne Probleme mit Tk 804.028 auf einem Linux System:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  $ perl -wMstrict -MTk my $mw = tkinit; my $lb = $mw->Scrolled( "Listbox", -background => "red" )->pack; $lb->Subwidget("xscrollbar")->configure( -background => "blue", -activebackground => "blue", -troughcolor => "blue", ); MainLoop;
  
  Falls es so aussehen soll?
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +4 replies
  - esskar
    
    2010-05-17 10:31
    
    User since
    2003-08-04
    7321 Artikel
    ModeratorIn
    
    unter windows ist da nix von farbe zu sehen.
    hätt mich auch gewundert. das in winapi zu gießen ist auch recht aufwändig.
    denke nicht, dass ich sich die Tk Porter da die Mühe gemacht haben.
    - +3 replies
    - MatthiasW
      
      2010-05-17 10:52
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Ich kann es zwar gerade nicht testen, aber vielleicht funktioniert's ja mit Tkx:
      
      perldoc Tkx
      [...]The main idea behind Tkx is that it is a very thin wrapper on top of Tcl, i.e. that what you get is exactly the behaviour you read about in the Tcl/Tk documentation with no surprises added by the Perl layer.[...]
      
      Seit einiger Zeit ist es anstelle von Tk bei ActivePerl dabei.
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      - +2 replies
      - esskar
        
        2010-05-18 16:41
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        hätt es ja sehr gern mal ausprobiert, aber installiert mal nicht (zumindest auf anhieb) unter strawberry.
        
        weisst du, ob die neu binden?
        bzw. wenn Tcl es nicht in die winapi gegoßen hat, geht auch nix.
        
        MatthiasW
        
        2010-05-18 18:20
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Habe Tkx bisher nur einmal benutzt für eine kleine Oberfläche für ein Kommandozeilentool. Da hatte ich aber ActivePerl installiert und Tkx genommen, weil Tk nicht mehr dabei war.
        
        Zum Installieren braucht man tcl, dann sollte es funktionieren. ("In order to install Tkx, you will need to have Tcl/Tk-8.4", README). Allerdings habe ich das gerade mal versucht und bekomme beim Benutzen des Moduls ein "Segmentation fault".
        
        Ob es überhaupt etwas ändert weiß ich nicht, aber da die Farbänderung dokumentiert ist und laut Doku keine Überraschungen zu erwarten sind (;)) bin ich optimistisch.
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - lxuser
    
    2010-05-19 06:18
    
    User since
    2010-04-19
    10 Artikel
    BenutzerIn
    
    THX genau das hat mir gefehlt :)
    jez sieht mein proggi richtig toll aus *keks freu*

View all threads created 2010-05-13 18:42.