use native macOS NSOpenPanel for file picker to fix focus loss and lag

Status	File	+	-
M	`meson.build`	3	2
A	`src/core/macos_file_picker.m`	39	0
M	`src/gui/gtk_app.f90`	40	26

meson.buildmodified

  # Sniffly - Pure Fortran GUI Disk Analyzer
  # Build configuration using Meson
--project('sniffly', ['fortran', 'c'],
++project('sniffly', ['fortran', 'c', 'objc'],
    version: '0.2.4',  # Also maintained in VERSION file
    license: 'MIT',
    default_options: [
  # C helper sources (for file system operations)
  c_sources = [
    'src/core/dir_helpers.c',
++  'src/core/macos_file_picker.m',
  ]
  # Fortran source files
  # -headerpad_max_install_names reserves space for dylibbundler to rewrite library paths
  link_args = []
  if host_machine.system() == 'darwin'
--  link_args += ['-Wl,-headerpad_max_install_names']
++  link_args += ['-Wl,-headerpad_max_install_names', '-framework', 'Cocoa']
  endif
  # Build executable

src/core/macos_file_picker.madded

++// macOS Native File Picker using NSOpenPanel
++// Provides a proper native file picker that maintains window focus
++#import <Cocoa/Cocoa.h>
++#include <string.h>
++
++// Show native macOS folder picker and return selected path
++// Returns 0 on success, -1 on cancel/error
++// NOTE: Must be called from main thread (GTK callbacks already run on main thread)
++int macos_show_folder_picker(char* output_path, size_t max_len) {
++    int result = -1;
++
++    @autoreleasepool {
++        NSOpenPanel* panel = [NSOpenPanel openPanel];
++
++        // Configure for folder selection
++        [panel setCanChooseFiles:NO];
++        [panel setCanChooseDirectories:YES];
++        [panel setAllowsMultipleSelection:NO];
++        [panel setMessage:@"Select directory to scan"];
++        [panel setPrompt:@"Select"];
++
++        // Run modal - this properly maintains focus
++        NSModalResponse response = [panel runModal];
++
++        if (response == NSModalResponseOK) {
++            NSURL* url = [[panel URLs] firstObject];
++            if (url) {
++                const char* path = [[url path] UTF8String];
++                if (path && strlen(path) < max_len) {
++                    strncpy(output_path, path, max_len - 1);
++                    output_path[max_len - 1] = '\0';
++                    result = 0;
++                }
++            }
++        }
++    }
++
++    return result;
++}

src/gui/gtk_app.f90modified

    character(len=512), save :: pending_synthetic_child_name = ""
    integer, save :: synthetic_nav_attempts = 0  ! Count attempts to avoid infinite loops
++  ! C interface for macOS native file picker
++  interface
++    function macos_show_folder_picker(output_path, max_len) bind(c, name='macos_show_folder_picker')
++      import :: c_char, c_int
++      character(kind=c_char), dimension(*) :: output_path
++      integer(c_int), value :: max_len
++      integer(c_int) :: macos_show_folder_picker
++    end function macos_show_folder_picker
++  end interface
++
  contains
    ! Run the Sniffly GTK application
    end subroutine load_custom_css
    ! Callback when Open Directory button is clicked
--  ! NOTE: Uses system command for file picking until GTK4 file dialog bindings are available
++  ! Uses native macOS NSOpenPanel for fast, focus-preserving file picker
    subroutine on_open_dir_clicked(button, user_data) bind(c)
      type(c_ptr), value :: button, user_data
      type(tab_state), pointer :: tab
++    character(kind=c_char, len=1024) :: c_path
      character(len=1024) :: selected_path
--    integer :: status
++    integer(c_int) :: status
--    integer(c_int) :: idle_id
++    integer :: i, path_len
      print *, "Open Directory button clicked!"
        return
      end if
--    ! Call helper to show native file picker
++    ! Call native macOS file picker (modal, maintains focus)
--    call show_native_directory_picker(selected_path, status)
++    status = macos_show_folder_picker(c_path, int(len(c_path), c_int))
--    if (status == 0 .and. len_trim(selected_path) > 0) then
++    if (status == 0) then
--      ! Restore window focus after dialog using idle callback
++      ! Convert C string to Fortran string
--      ! (deferred to let macOS finish cleaning up osascript dialog)
++      path_len = 0
--      if (c_associated(main_window_ptr)) then
++      do i = 1, len(c_path)
--        idle_id = g_idle_add(c_funloc(restore_window_focus), c_null_ptr)
++        if (c_path(i:i) == c_null_char) exit
--      end if
++        path_len = i
--      print *, "Selected directory: ", trim(selected_path)
++      end do
--      ! Update tab scan path (but don't scan yet)
++      if (path_len > 0) then
--      ! Remove trailing slash if present (C code doesn't like it)
++        selected_path = c_path(1:path_len)
--      if (len_trim(selected_path) > 1 .and. selected_path(len_trim(selected_path):len_trim(selected_path)) == '/') then
++        print *, "Selected directory: ", trim(selected_path)
--        tab%scan_path = trim(selected_path(1:len_trim(selected_path)-1))
--        print *, "DEBUG: Removed trailing slash from path"
--      else
--        tab%scan_path = trim(selected_path)
--      end if
--      print *, "DEBUG: Set tab scan_path to: '", trim(tab%scan_path), "'"
--      call set_scan_path(trim(tab%scan_path))
--      ! Update path display entry
++        ! Update tab scan path (but don't scan yet)
--      call update_path_entry(trim(tab%scan_path))
++        ! Remove trailing slash if present (C code doesn't like it)
++        if (len_trim(selected_path) > 1 .and. &
++            selected_path(len_trim(selected_path):len_trim(selected_path)) == '/') then
++          tab%scan_path = trim(selected_path(1:len_trim(selected_path)-1))
++        else
++          tab%scan_path = trim(selected_path)
++        end if
--      print *, "Path updated. Click Scan button to scan: ", trim(tab%scan_path)
++        call set_scan_path(trim(tab%scan_path))
++        call update_path_entry(trim(tab%scan_path))
++
++        print *, "Path updated. Click Scan button to scan: ", trim(tab%scan_path)
++      end if
      else
--      print *, "Directory selection cancelled or failed"
++      print *, "Directory selection cancelled"
      end if
    end subroutine on_open_dir_clicked

fortrangoingonforty/sniffly / `21a5c7b`

3 changed files