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 | {
$Id: filesel.pp,v 1.3 2005/02/14 17:13:20 peter Exp $
Converted from C to Pascal by Javier Ros <jros@unavarra.es>
}program filesel;
uses
glib,gdk,gtk;
(* Get the selected filename and print it to the console *)
procedure file_ok_sel( w:PGtkWidget;
fs:PGtkFileSelection );cdecl;
begin
writeln ( gtk_file_selection_get_filename (GTK_FILE_SELECTION (fs)));end;
procedure destroy( widget:PGtkWidget;
data: gpointer);cdecl;
begin gtk_main_quit ();
end;
var filew:PGtkWidget ;
begin
gtk_init (@argc, @argv);
(* Create a new file selection widget *)
filew := gtk_file_selection_new ('File selection');
gtk_signal_connect (GTK_OBJECT (filew), 'destroy',
GTK_SIGNAL_FUNC (@destroy), @filew);
(* Connect the ok_button to file_ok_sel function *)
gtk_signal_connect (GTK_OBJECT (GTK_FILE_SELECTION (filew)^.ok_button),
'clicked', GTK_SIGNAL_FUNC (@file_ok_sel), filew );
(* Connect the cancel_button to destroy the widget *)
gtk_signal_connect_object (GTK_OBJECT (GTK_FILE_SELECTION
(filew)^.cancel_button),
'clicked', GTK_SIGNAL_FUNC (@gtk_widget_destroy), GTK_OBJECT (filew));
(* Lets set the filename, as if this were a save dialog, and we are giving
a default filename *)
gtk_file_selection_set_filename (GTK_FILE_SELECTION(filew), 'filesel.pp');
gtk_widget_show(filew);
gtk_main ();
end.{
$Log: filesel.pp,v $
Revision 1.3 2005/02/14 17:13:20 peter
* truncate log
} |