From: Vince Darley (vince@santafe.edu)
Date: 13 Mar 01, 20:21 EST
From: Vince Darley <vince@santafe.edu>
Subject: Re: Option-click title bar has a bug in Tcl mode
As an answer to your previous question of why file::tryToOpen ignores the
current win, the idea of that procedure is to try to find some other
window related to the current window. It would be easy to return the
current win by mistake if we didn't ignore it. This may not be the ideal
long-term solution.
-- Vince
<http://www.santafe.edu/~vince>
On Tue, 13 Mar 2001, Bernard Desgraupes wrote:
> 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
>
_______________________________________________
AlphaTcl-developers mailing list
AlphaTcl-developers@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/alphatcl-developers