ada/gnatstudio
0
0
Fork 0
mirror of https://github.com/AdaCore/gnatstudio.git synced 2026-02-12 12:42:33 -08:00
Code Issues Packages Projects Releases Wiki Activity

eng/ide/gnatstudio#198 Fix for the Gtkada.File_Selector.Select_File

Browse Source 
Fixes eng/ide/gnatstudio#198
This commit is contained in:
Andry Ogorodnik
2023-12-13 19:36:51 +02:00
parent e1bd916842
commit 6f83f1bddb
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
testsuite/tests/T109-054.file_selector.except_filter/test.py
View File

@@ -15,3 +15,8 @@ def run_test():
gps_assert(tm, ['noext'])
button = get_widget_by_name("file_selector_window.ok_button")
button.clicked()
yield idle_modal_dialog(lambda:
GPS.MDI.file_selector('*.xml', except_filter=''))
dialog = get_window_by_title("Select a file", Gtk.Window.list_toplevels())
get_button_from_label("gtk-cancel", dialog).clicked()

4
widgets/src/gtkada-file_selector.adb
View File

@@ -698,7 +698,9 @@ package body Gtkada.File_Selector is
Fo := 0;
end if;
if Pattern_Name (Nl) = ';' then
if Nl in Pattern_Name'Range
and then Pattern_Name (Nl) = ';'
then
No := 1;
else
No := 0;