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
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!/usr/bin/perl
# Copyright (C) 1999, 2000 Red Hat Inc.
# Copyright (C) 2003 Emmanuele Bassi <emmanuele.bassi@iol.it>
# A very simple program that sets a single key value when you type
# it in an entry and press return
use strict;
use warnings;
use Gtk2;
use Gnome2::GConf;
Gtk2->init;
my $window = Gtk2::Window->new('toplevel');
$window->signal_connect(delete_event => sub { $_[0]->destroy; });
$window->signal_connect(destroy => sub { Gtk2->main_quit; });
my $entry = Gtk2::Entry->new;
$window->add($entry);
my $client = Gnome2::GConf::Client->get_default;
$client->add_dir("/extra/test/directory", 'preload-none');
$entry->signal_connect(activate => sub {
my ($entry, $client) = @_;
my $str = $entry->get_chars(0, -1);
$client->set_string("/extra/test/directory/key", $str);
}, $client);
$entry->set_sensitive($client->key_is_writable("/extra/test/directory/key"));
$window->show_all;
Gtk2->main;
0;
|
