procedure Set_filename(Widget : access Gtk_Widget_Record'class; Intelligence : Intelligence_access) is
 
       package File_selection_Handlers is new Gtk.Handlers.User_Callback(Gtk_Widget_Record, Gtk_File_selection);
 
 
       Filename : access String;
 
       procedure Ok (Widget : access Gtk_Widget_Record'class; File_Selection : Gtk_File_Selection) is
       begin
          Filename := new String ' (Get_Filename(File_Selection));
       end Ok;
 
 
 
       File_Selection : Gtk_File_Selection;
    begin
       Gtk_New(File_Selection, "Select network filename..." );
 
       File_selection_Handlers.Connect(Get_Ok_Button(File_Selection),
                                       "clicked",
                                       File_Selection_Handlers.To_Marshaller(ok'access),
                                       File_selection);
       Show_All(File_Selection);
       if Filename /= null then
          Set_Text(Intelligence.Filename_Gentry, Filename.all);
       end if;
    end Set_Filename

procedure Ok (Widget : access Gtk_Widget_Record'class; Intelligence : Intelligence_access) is
    begin
       Set_Text(Intelligence.Filename_Gentry, Get_Filename(Intelligence.File_Selection));
       Destroy(Intelligence.File_Selection);
    end Ok;
 
    procedure destroy (Widget : access Gtk_Widget_Record'class; Intelligence : Intelligence_access) is
    begin
       Destroy(Intelligence.File_Selection);
    end destroy;
 
    procedure Set_filename(Widget : access Gtk_Widget_Record'class; Intelligence : Intelligence_access) is
 
    begin
       Gtk_New(Intelligence.File_Selection, "Select network filename..." );
       Intelligence_Handlers.Connect(Get_Ok_Button(Intelligence.File_Selection),
                                     "clicked",
                                     Intelligence_Handlers.To_Marshaller(ok'access),
                                     intelligence);
 
       intelligence_Handlers.Connect(Get_Ok_Button(Intelligence.File_Selection),
                                     "destroy",
                                     intelligence_Handlers.To_Marshaller(destroy'access),
                                     intelligence);
       Show_All(Intelligence.File_Selection);
    end Set_Filename;