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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
{
Test gtk application for clipboard.
}
program GtkClipboard;
{$mode objfpc}{$H+}
uses
Classes, gtk, glib, gdk;
const
GdkTrue = {$IFDEF Gtk2}true{$ELSE}1{$ENDIF};
GdkFalse = {$IFDEF Gtk2}false{$ELSE}0{$ENDIF};
var
window: PGtkWidget;
button: PGtkWidget;
function GdkAtomToStr(const Atom: TGdkAtom): string;
var
p: Pgchar;
begin
p:=gdk_atom_name(Atom);
Result:=p;
if p<>nil then g_free(p);
end;
procedure button_button_release(Widget: PGtkWidget; Event: PGdkEventButton;
Data: Pointer); cdecl;
var
Time: LongWord;
begin
if Widget=nil then ;
if Data=nil then ;
// try to receive the primary selection
Time:=Event^.time;
//Time:=1001;
gtk_selection_convert(Window,GDK_SELECTION_PRIMARY,
gdk_atom_intern('TARGETS',GdkFalse),Time);
end;
procedure window_selection_received(Widget: PGtkWidget;
SelectionData: PGtkSelectionData; Time: guint; Data: Pointer); cdecl;
var
Atoms: PTGdkAtom;
i: Integer;
Count: Integer;
begin
if Widget=nil then ;
if Time=0 then ;
if Data=nil then ;
// get the atom names
writeln('Selection=',GdkAtomToStr(SelectionData^.selection),
' Target=',GdkAtomToStr(SelectionData^.target),
' Type=',GdkAtomToStr(SelectionData^.thetype),
' Format=',SelectionData^.data,
' Length=',SelectionData^.length);
if (SelectionData^.data<>nil) and (SelectionData^.length>0) then begin
writeln('TARGETS:');
Atoms:=PTGdkAtom(SelectionData^.data);
Count:=SelectionData^.format div 8;
for i:=0 to Count-1 do begin
writeln(' ',i,'/',Count,' ',GdkAtomToStr(Atoms[i]));
end;
end else begin
writeln('no TARGETS');
end;
end;
begin
gtk_init(@argc,@argv);
// window
window:=gtk_window_new(GTK_WINDOW_TOPLEVEL);
gtk_window_set_title(PGtkWindow(window),'Clipboard test');
gtk_signal_connect(PGtkObject(Window),'delete_event',
TGtkSignalFunc(@gtk_exit),nil);
gtk_signal_connect(PGtkObject(Window),'selection_received',
TGtkSignalFunc(@window_selection_received),nil);
// button
button:=gtk_button_new_with_label('Get targets');
gtk_container_add(PGtkContainer(Window),button);
gtk_signal_connect(PGtkObject(button),'button_release_event',
TGtkSignalFunc(@button_button_release),nil);
gtk_widget_show_all(window);
gtk_main;
end.
|
