OpenEuphoria

Re: What Programs are running?

• Posted by Greg Haberek <ghaberek at gmail.com> Apr 05, 2005
• 414 views

Why not do this instead? It completely eliminates the internal find() loop.

global function is_file_open(sequence file)

  sequence windows, class
  object caption

  windows = window_ListAll()

  for i = 1 to length(windows) do
    caption = window_GetCaption( windows[i] )
    if equal( file, caption ) then
      -- file is open
      return 1
    end if
  end for

  -- not found
  return 0
end function

~Greg