From: Bernard Desgraupes (berdesg@easynet.fr)
Date: 13 Mar 01, 19:46 EST
From: Bernard Desgraupes <berdesg@easynet.fr>
Subject: Re: Option-click title bar has a bug in Tcl mode
Vince Darley wrote:
>
> Yeah, you're right. Perhaps what I should have tried was:
>
> proc ::OptionTitlebarSelect {item} {
> set obviousChoice [file join [file dirname [win::Current]] $item]
> if {[file exists $obviousChoice]} {
> if {$obviousChoice == [win::Current]} {
> return
> } elseif {[file isdirectory $obviousChoice]} {
> file::showInFinder $obviousChoice
> } else {
> file::tryToOpen $item
> }
> } else {
> file::tryToOpen $item
> }
> }
>
> -- Vince
Yes this one is fine : it fixes the bug.
Thanks
Bernard
_______________________________________________
AlphaTcl-developers mailing list
AlphaTcl-developers@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/alphatcl-developers