fpc/packages/extra/gtk/examples/filesel.pp
2002-09-07 15:40:30 +00:00

65 lines
1.7 KiB
ObjectPascal

{
$Id$
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$
Revision 1.2 2002-09-07 15:42:58 peter
* old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:05 peter
* splitted to base and extra
}