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