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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
program gconfcallback1;
{$Mode ObjFPC}
Uses glib, gtk, gconf, gconfclient;
Procedure key_changed_callback(client : PGConfClient;
cnxn_id : guint;
entry : PGConfEntry;
user_data: gpointer); cdecl;
var
thelabel : PGtkWidget;
thevalue : PGConfValue;
begin
thelabel := GTK_WIDGET(user_data);
if (entry = nil) then
gtk_label_set_text(GTK_LABEL(thelabel), '<unset>')
else begin
theValue := gconf_entry_get_value (entry);
if (thevalue^.thetype = GCONF_VALUE_STRING) then
gtk_label_set_text(GTK_LABEL(thelabel), gconf_value_get_string(thevalue))
else
gtk_label_set_text(GTK_LABEL(thelabel), '<wrong type>');
end;
end;
var
window : PGtkWidget;
thelabel : PGtkWidget;
client : PGConfClient;
str : Pgchar;
begin
gtk_init(@argc, @argv);
gconf_init(argc, argv, nil);
client := gconf_client_get_default;
window := gtk_window_new(GTK_WINDOW_TOPLEVEL);
gtk_signal_connect(PGtkOBJECT (window), 'delete_event',
gtk_SIGNAL_FUNC (@gtk_exit), NIL);
str := gconf_client_get_string(client, '/extra/test/directory/key',nil);
If Str <> nil then
thelabel := gtk_label_new(str)
else
thelabel := gtk_label_new('<unset>');
gtk_container_add(GTK_CONTAINER(window), thelabel);
gconf_client_add_dir(client,
'/extra/test/directory',
GCONF_CLIENT_PRELOAD_NONE,
nil);
gconf_client_notify_add(client, '/extra/test/directory/key',
@key_changed_callback,
thelabel,
nil, nil);
gtk_widget_show_all(window);
gtk_main();
end.
|