Click above to get retro games delivered to your door ever month!

  Name:     m_popfile() - popup a file pick list
  Usage:    <string> = m_popfile(<r1>,<c1>,<r2>,<c2>,<fspec>,[<attrib>])
  Params:   integer <r1> - the top row number
            integer <c1> - the left column number
            integer <r2> - the bottom row number
            integer <c2> - the right column number
            string <fspec>- the drive and file specifier
            integer <attrib> - the color to use for the window, optional,
            if left off, then Clipper's foreground color is used for the
            window, and the enhanced color is used for the highlight.

  Returns:  a string equal to the file name picked, or a null if no
            file name picked or error.

 ---------------------------------- Example ---------------------------------

                 filespec = "C:\*.prg"
                 choice = m_popfile(10,10,20,50,filespec)
                 if (choice != "")
                      m_view(5,5,20,75,choice)
                 else
                      return
                 endif

  Note:     M_popfile() returns only the file name. It does not append
            the drive or path specifier to the front of the name.

            M_popfile() is simply a front end to the m_choice()
            function. m_popfile() builds an array of file names
            using filecount() and findfirst(), and then passes it along to
            m_choice() so the user can pick from the list with mouse
            support. m_popfile() returns the identical m_data() values
            that m_choice() does, and all the key and mouse functions
            are defined in the m_choice() documentation. The only extra
            piece of information that m_popfile() returns is an extra
            error return value in the Mouse Message Area 30
            (m_data(30)). The extra error message is -10 which means no
            files were found in the supplied drive:path specifier that
            match the file specification. The Clipper source code is on the
            source disk in the file c_m_popfil.prg.