yann64/Yab2Cpp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix "Open Project Folder" to open the folder for the selected project - file.

Browse Source
This commit is contained in:
Jim Saxton 2017-01-13 08:55:14 -08:00
parent 021621f9f6
commit cfc30ac608
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
yab-IDE/src/yab-IDE.yab
View File

@ -471,7 +471,10 @@ while(inloop)
endif
break
case MyTranslate$("MainView:Program:Open project folder...")
system("open " + globalProjectDir$)
OpenProjectDir$ = getprojectdir$()
//system("open " + globalProjectDir$)
system("open " + OpenProjectDir$)
break
case "ToolbarPattern"
case MyTranslate$("MainView:Tools:Pattern editor...")
@ -860,8 +863,9 @@ while(inloop)
// help selected
if(left$(msg$(i),9) = "HelpTree:") then
tmp$ = right$(msg$(i), len(msg$(i))-17)
tmp$ = treebox get$ "HelpTree", val(tmp$)
//tmp$ = right$(msg$(i), len(msg$(i))-17)
tmp=treebox get "HelpTree"
tmp$ = treebox get$ "HelpTree", tmp
t$ = SyntaxGetInfoText$(ideDir$+"data/Help_En.dat", ideDir$+"data/Help_En_Index.dat", tmp$)
if(t$<>"") then
textedit clear "Text"+str$(MAXFILES+1)
@ -3951,3 +3955,14 @@ return ""
end sub
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