yabIDE

[bbjimmy]

OK, I got it... I added at 475
OpenProjectDir$ = getprojectdir$()
snd changed
system("open " + globalProjectDir$)
to
system("open " + OpenProjectDir$)

and added this subroutine:

sub getprojectdir$()
local CurrentSelection, CurrentSelection$, i,OpenProjectDir$
CurrentSelection = columnbox get "FileBox"
CurrentSelection$ = columnbox get$ "FileBox", 2, CurrentSelection
for i=1 to COLUMNBOX COUNT "FileBox"
if (GetFileName$(globalAllNames$(i)) = CurrentSelection$) OpenProjectDir$ = GetDirectory$(globalAllNames$(i)):break
next
return OpenProjectDir$
end sub

It seems to work ok.