fbdbg  3.0
FreeBASIC Debugger
filechoosers.bas
Go to the documentation of this file.
1 
6 
7 
8 
9 #DEFINE DBG_FILE_SAVE(_T_) _
10  gtk_file_chooser_dialog_new(*__(_T_), NULL _
11  , GTK_FILE_CHOOSER_ACTION_SAVE _
12  , "gtk-cancel", GTK_RESPONSE_CANCEL _
13  , "gtk-ok", GTK_RESPONSE_ACCEPT _
14  , NULL)
15 
16 
17 #DEFINE DBG_FILE_OPEN(_T_) _
18  gtk_file_chooser_dialog_new(*__(_T_), NULL _
19  , GTK_FILE_CHOOSER_ACTION_OPEN _
20  , "gtk-cancel", GTK_RESPONSE_CANCEL _
21  , "gtk-ok", GTK_RESPONSE_ACCEPT _
22  , NULL)
23 
24 
25 
26 
35 FUNCTION dbg_exe_filter() AS GtkFileFilter PTR
36  VAR filter = gtk_file_filter_new() ' don't free, dia takes ownership
37  gtk_file_filter_set_name(filter, *__("Executable Files"))
38  #IFDEF __FB_UNIX__
39  gtk_file_filter_add_mime_type(filter, "application/x-csh")
40  gtk_file_filter_add_mime_type(filter, "application/x-executable")
41  'NO script gtk_file_filter_add_mime_type(filter, "application/x-shellscript")
42  'NO script gtk_file_filter_add_pattern(filter, "*.sh")
43  #ELSE
44  gtk_file_filter_add_pattern(filter, "*.exe")
45  'NO BAT gtk_file_filter_add_pattern(filter, "*.bat")
46  'NO COM gtk_file_filter_add_pattern(filter, "*.com")
47  #ENDIF
48  RETURN filter
49 END FUNCTION
50 
51 
52 
61 FUNCTION dbg_bas_filter() AS GtkFileFilter PTR
62  VAR filter = gtk_file_filter_new() ' don't free, dia takes ownership
63  gtk_file_filter_set_name(filter, *__("FB Source Files"))
64  gtk_file_filter_add_pattern(filter, "*.[Bb][Aa][Ss]")
65  RETURN filter
66 END FUNCTION
67 
68 
69 
76 FUNCTION dbg_all_filter() AS GtkFileFilter PTR
77  VAR filter = gtk_file_filter_new() ' don't free, dia takes ownership
78  gtk_file_filter_set_name(filter, *__("All Files"))
79  gtk_file_filter_add_pattern(filter, "*")
80  RETURN filter
81 END FUNCTION
82