Hinweis: Das Forum wird geschlossen! Neue Registrierungen sind nicht mehr möglich!

 Zurück zu Pro-Linux   Foren-Übersicht   FAQ     Suchen    Mitgliederliste
Gammaregler für Gnome Desktop

 
Neuen Beitrag schreiben   Auf Beitrag antworten    Pro-Linux Foren-Übersicht -> Tips, Tricks, Helferlein
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
hastifranki



Anmeldungsdatum: 06.05.2006
Beiträge: 252

BeitragVerfasst am: 31. Okt 2007 13:18   Titel: Gammaregler für Gnome Desktop

Hallo,

wie ich bereits im folgenden Thread geschrieben hatte, konnte ich keine grafischen Gammaregler unter Gnome finden.

http://www.pro-linux.de/forum/viewtopic.php?t=1033324

Ich habe deshalb das bereits vorgestellte Perlscript überarbeitet und anschließend unter SuSE10.3 und Ubuntu 6.10 getestet:
Code:

#!/usr/bin/perl -w

#Das Programm wurde von hastifranki am 31.10.2007 erstellt.
#http://www.pl-forum.de/forum/profile.php?mode=viewprofile&u=15089&sid=9b9bec246c0262a11d05b06ae01632e2
#
#Es ist für den Gnome Desktop gedacht und soll die Gammaeinstellungen für Laptopnutzer vereinfachen.
#
#Das Paket perl-Gtk2 wird benötigt. Weiterhin wird xgamma benötigt. D.h., das Programm läuft nicht mit Xgl (3D).

use strict ;

use Gtk2 '-init' ;

use constant TRUE => 1 ;
use constant FALSE => 0 ;

#Konfigurationsdaten:
my $maxw = 10.0;    #Werte bis 100 sind möglich
my $digit = TRUE;   #Die Werte TRUE und FALSE sind möglich
my $awert = 5;      #Anfangswert

system("xgamma -gamma 0.".$awert);   

# ein Standardfenster erstellen:
my $window = Gtk2::Window->new( "toplevel" ) ;
$window->set_title( "Gamma_GUI" ) ;
$window->signal_connect( "destroy" , sub { Gtk2->main_quit ; } ) ;

# einen Rahmen erstellen:
my $frame = Gtk2::Frame->new ("  Gammawert einstellen:  ");
$frame->set_border_width(1);

# Box1 erstellen
my $box1 = Gtk2::VBox->new( FALSE, 0 ) ;

# Die Pfeiltasten ermöglichen:
my $bwert = 0.5;
if ($digit==0) {$bwert = 1};

# Gammaregler
my $adj2 = Gtk2::Adjustment->new( $awert , 1.0 , $maxw , $bwert , $bwert , 0.0 ) ;
$adj2->signal_connect( "value_changed" , \&xgamma_aufrufen ) ;
my $scale2 = Gtk2::HScale->new( $adj2 ) ;
$scale2->set_digits( $digit ) ;
$box1->pack_start( $scale2, TRUE, TRUE, 0 ) ;

# OK-Knopf
my $button = Gtk2::Button->new_from_stock( "gtk-ok" ) ;
$button->signal_connect( "clicked" , sub { Gtk2->main_quit() ; } ) ;
$box1->pack_start( $button, TRUE, TRUE, 0 ) ;

$frame->add( $box1 ) ;
$window->add( $frame ) ;

$window->show_all();

Gtk2->main ;

sub xgamma_aufrufen
{
my ( $adj ) = @_ ;
my $wert = ($adj->value)/10;
$wert =~ s/,/./;
system("xgamma -gamma ".$wert);
}

Am Anfang des Scripts können die Konfigurationsdaten verändert werden.

Auf die Regler für rot, grün, blau habe ich verzichtet, da diese von mir nicht benötigt werden. Bei Bedarf könnten diese noch angefügt werden.

Viele Grüße
Frank
 
Benutzer-Profile anzeigen Private Nachricht senden

Esco
Gast





BeitragVerfasst am: 19. Mai 2008 19:33   Titel:

Hallo, vielen danke für das Script. Ich habe es noch etwas angepasst um eine feinere Einstellung vornehmen zu können.

Code:
#!/usr/bin/perl -w

use strict;
use Glib qw/TRUE FALSE/;
use Gtk2;

my $window;
my $frame;
my $box;
my $hbox_btn;
my $btn_up;
my $btn_down;
my $btn_exit;
my $gamma0;
my $gamma1;
my $gamma_vorkomma = 1;
my $gamma_nachkomma = 0;

Gtk2->init();

#create main window
$window = Gtk2::Window->new('toplevel');
$window->set_title("Gamma_GUI");
$window->signal_connect(destroy => sub { Gtk2->main_quit(); });

# create containers
$frame = Gtk2::Frame->new ("Helligkeit einstellen:");
$frame->set_border_width(4);
$box = Gtk2::VBox->new();
$hbox_btn = Gtk2::HBox->new();
$hbox_btn->set_homogeneous(TRUE);

$gamma0 = "xgamma -gamma ";

# create up button
$btn_up = Gtk2::Button->new_from_stock('up');
$btn_up->signal_connect(
   clicked => sub {
      if ($gamma_vorkomma < 10) {
         if ($gamma_nachkomma == 9) {
            $gamma_nachkomma = 0;   
            $gamma_vorkomma++;
         }else{
            $gamma_nachkomma++;   
         }
               $gamma1 = $gamma0 . $gamma_vorkomma . "." . $gamma_nachkomma;     
               system($gamma1);
      };
   }   
);

# create down button
$btn_down = Gtk2::Button->new_from_stock('down');
$btn_down->signal_connect(
   clicked => sub {
      if ($gamma_vorkomma > 0) {
         if ($gamma_nachkomma == 0) {
            $gamma_nachkomma = 9;
            $gamma_vorkomma--;   
         }else{
            $gamma_nachkomma--;   
         }
               $gamma1 = $gamma0 . $gamma_vorkomma . "." . $gamma_nachkomma;   
               system($gamma1);
      };
      if($gamma_vorkomma == 0 && $gamma_nachkomma > 1) {
         $gamma_nachkomma--;   
               $gamma1 = $gamma0 . $gamma_vorkomma . "." . $gamma_nachkomma;   
               system($gamma1);
      };
   }
);

# create exit button
$btn_exit = Gtk2::Button->new_from_stock('gtk-cancel');
$btn_exit->signal_connect(clicked => sub { Gtk2->main_quit(); });

$hbox_btn->pack_start($btn_up, FALSE, TRUE, 5);
$hbox_btn->pack_start($btn_down, FALSE, TRUE, 5);
$hbox_btn->pack_start($btn_exit, FALSE, TRUE, 5);
$box->add($hbox_btn);
$frame->add($box);
$window->add($frame);

# show all widgets
$window->show_all();

# start Gtk2 main event loop
Gtk2->main();

exit 0;


Gruß,
Esco
 

Beiträge vom vorherigen Thema anzeigen:   
     Pro-Linux Foren-Übersicht -> Tips, Tricks, Helferlein Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehen Sie zu:  

Powered by phpBB © phpBB Group
pro_linux Theme © 2004 by Mandaxy