Bug #43581 for Tk: [Limitation] getOpenFile and multiple files

OS : Windows XP ActivePerl 5.8.8 build 822 Tk-804.028 It seem to have a limitation when we use getOpenFile to select multiple files. When I try to select more than 600 or 700 files (I Don't know the exact number) the $mw->getOpenFile return undef else, it's work fine. The limitation seem to be produce in tkWinDialog.c file. /* * The value of TK_MULTI_MAX_PATH dictactes how many files can * be retrieved with tk_get*File -multiple 1. It must be allocated * on the stack, so make it large enough but not too large. -- hobbs * The data is stored as <dir>\0<file1>\0<file2>\0...<fileN>\0\0. * MAX_PATH == 260 on Win2K/NT, so *40 is ~10K. */ #define TK_MULTI_MAX_PATH (MAX_PATH*40) If we recompile Tk by adding MAX_PATH, ex : #define TK_MULTI_MAX_PATH (MAX_PATH*40) The limitation is more big. Best Regards, genomart