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 onLinux : ====================== 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 theworking directory.
That doesn't work on Aqua but it does on X11 on my Mac. Should an existence test be added?
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 packagingproblem on MacOs.
The attached patch takes care of that. Cheers, Israel
macarg.patch
Description: Binary data
------------------------------------------------------------------------------
_______________________________________________ Scid-users mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/scid-users
