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

  Name:     m_popdir() - popup a subdirectory pick list
  Usage:    <string> = m_popdir(<r1>,<c1>,<r2>,<c2>,<spec>,[<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 <spec>- the drive and directory 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 directory name picked, or a null if no
            directory picked or error.

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

                 dirspec = "C:\"
                 choice = m_popdir(10,10,20,50,dirspec)
                 if (choice != "")
                      chdir(choice)
                 else
                      return
                 endif

  Note:     M_popdir() returns a fully qualified path name. If you specify
            to display all directories on drive C:\DATA, and the user
            selects the directory 'CLIENT', then the return directory
            name would be C:\DATA\CLIENT.

            M_popdir() is simply a front end to the m_choice() function.
            m_popdir() builds an array of directory 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_popdir() 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_popdir() returns is an extra error
            return value in the Mouse Message Area 30 (m_data(30)).
            The extra error message is -9 which means no directories
            were found in the supplied drive:path specifier. The Clipper
            source code is on the source disk in the file c_m_popd.prg.