1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/bin/perl -w
# REQUIRES: Gnome Gtk
# TITLE: gnome-conf
use Gnome;
foreach my $prefix (qw(/panel)) {
foreach my $s (Gnome::Config->sections($prefix)) {
print "GOT section $s in prefix $prefix\n";
my %values = Gnome::Config->section_contents("$prefix/$s");
foreach (sort keys %values) {
print "\t $_ -> $values{$_}\n";
}
}
}
my $val = Gnome::Config->get_int("/panel/Config/minimize_delay");
print "minimize_delay is $val\n";
Gnome::Config->set_int("/panel/Config/minimize_delay", $val+50);
Gnome::Config->sync;
my $newval = Gnome::Config->get_int("/panel/Config/minimize_delay");
print "minimize_delay is now $newval\n";
Gnome::Config->set_int("/panel/Config/minimize_delay", $val);
Gnome::Config->sync;
$newval = Gnome::Config->get_int("/panel/Config/minimize_delay");
die "Uhm: $newval != $val\n" unless $val == $newval;
print "minimize_delay set back to $val\n";
|
