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
 }