* filesel added

packages/gtk/examples/Makefile

@@ -1,5 +1,5 @@
 #
-# Makefile generated by fpcmake v1.00 [2000/09/01]
+# Makefile generated by fpcmake v1.00 [2000/09/02]
 #
 
 defaultrule: all
@@ -185,7 +185,7 @@ endif
 # Targets
 
 override DIROBJECTS+=$(wildcard tutorial)
-override EXEOBJECTS+=entry notebook scribble-simple clist ttt_test pixmap list progressbar
+override EXEOBJECTS+=entry notebook scribble-simple clist ttt_test pixmap list progressbar filesel
 
 # Clean
 
@@ -1189,7 +1189,7 @@ fpc_distclean: fpc_clean
 # Also run clean first if targetdir is set. Unittargetdir is always
 # set if targetdir or unittargetdir is specified
 ifdef UNITTARGETDIR
-TARGETDIRCLEAN=clean
+TARGETDIRCLEAN=fpc_clean
 endif
 
 fpc_cleanall: $(CLEANTARGET) $(TARGETDIRCLEAN)

packages/gtk/examples/Makefile.fpc

@@ -4,7 +4,7 @@
 
 [targets]
 dirs=tutorial
-programs=entry notebook scribble-simple clist ttt_test pixmap list progressbar
+programs=entry notebook scribble-simple clist ttt_test pixmap list progressbar filesel
 
 [require]
 packages=gtk

packages/gtk/examples/filesel.pp

@@ -0,0 +1,61 @@
+{
+  $Id$
+
+  Converted from C to Pascal by Javier Ros <[email protected]>
+}
+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  2000-09-06 20:49:05  peter
+    * filesel added
+
+}