HI there! On Jul 24, 2009, at 6:52 AM, Pascal Georges wrote:
> 2009/7/24, Israel Chauca Fuentes <[email protected]>: >> Hi there! >> >> On Jul 23, 2009, at 11:23 AM, Pascal Georges wrote: >> >>> Strange, maybe a MacOs Tcl/Tk issue. For example the following code >>> works on >>> Linux : >>> ====================== >>> package require Tk >>> >>> set scidBooksDir "/what/ever/not/exist" >>> proc setBooksDir {} { >>> global scidBooksDir >>> set dir [tk_chooseDirectory -initialdir $scidBooksDir -mustexist 1] >>> if {$dir == ""} { >>> return >>> } else { >>> set scidBooksDir $dir >>> } >>> } >>> >>> setBooksDir >>> puts "scidBooksDir $scidBooksDir" >>> ========================== >>> >>> That is, even if the directory does not exist, the initial dir is >>> set to the >>> working directory. >> >> That doesn't work on Aqua but it does on X11 on my Mac. Should an >> existence test be added? > > Maybe there two different versions of Tk, and an update is necessary > on Aqua ? I am reluctant to add tests to work around such cases. Tcl/Tk 8.6 aqua behaves as X11, it doesn't raise an error. I'll try to use that version for my mac releases. > >>>> If it can help you, the "Startup Window" says, among many other >>>> messages: >>>> >>>> *Warning: unknown option: "-psn_0_217141"* >>>> >>> >>> Not strictly Scid related, I'm afraid. Strange option. Certainly a >>> packaging >>> problem on MacOs. >> >> The attached patch takes care of that. > > Ok, patched. But what is the use of -psn ? Why is it necessary on > MacOs ? I can't find any pointers to its usefulness, only that it's always added in Aqua when started as a "regular" mac application. Cheers, Israel ------------------------------------------------------------------------------ _______________________________________________ Scid-users mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/scid-users
