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
|
Program gconfcallback2;
{$Mode ObjFpc}
Uses glib, gtk, gconf, gconfclient;
Procedure entry_activated_callback(entry : PGtkWidget; user_data : gpointer); cdecl;
var
client : PGConfClient;
str : Pgchar;
begin
client := PGConfClient(user_data);
str := gtk_editable_get_chars(GTK_EDITABLE(entry), 0, -1);
gconf_client_set_string(client, '/extra/test/directory/key',
str, nil);
g_free(str);
end;
var
window : PGtkWidget;
entry : PGtkWidget;
client : PGConfClient;
begin
gtk_init(@argc, @argv);
gconf_init(argc, argv, nil);
window := gtk_window_new(GTK_WINDOW_TOPLEVEL);
gtk_signal_connect(PGtkOBJECT (window), 'delete_event',
gtk_SIGNAL_FUNC (@gtk_exit), NIL);
entry := gtk_entry_new();
gtk_container_add(GTK_CONTAINER(window), entry);
client := gconf_client_get_default;
gconf_client_add_dir(client,
'/extra/test/directory',
GCONF_CLIENT_PRELOAD_NONE,
NULL);
gtk_signal_connect(GTK_OBJECT(entry), 'activate',
GTK_SIGNAL_FUNC(@entry_activated_callback),
client);
gtk_widget_show_all(window);
gtk_main();
end.
|