fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-05-20 07:14 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbide/ideprojmanager.prg
  * contrib/hbide/idesources.prg
    % Modified: to present the project location folder to 
      select sources in the "Project Properties" dialog.
This commit is contained in:
Pritpal Bedi
2010-05-20 14:18:25 +00:00
parent d50ef11a83
commit 402b318374
3 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -17,6 +17,12 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-05-20 07:14 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbide/ideprojmanager.prg
* contrib/hbide/idesources.prg
% Modified: to present the project location folder to
select sources in the "Project Properties" dialog.
2010-05-20 06:56 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+ contrib/hbide/qscintilla
+ contrib/hbide/qscintilla/qt

2
harbour/contrib/hbide/ideprojmanager.prg
View File

@@ -910,7 +910,7 @@ METHOD IdeProjManager:addSources()
LOCAL aFiles, a_, b_, s
IF ::isValidProjectLocation( .t. )
IF !empty( aFiles := ::oSM:selectSource( "openmany" ) )
IF !empty( aFiles := ::oSM:selectSource( "openmany", , , ::oUI:q_editPrjLoctn:text() ) )
a_:= hbide_memoToArray( ::oUI:q_editSources:toPlainText() )
b_:={}

10
harbour/contrib/hbide/idesources.prg
View File

@@ -86,7 +86,7 @@ CLASS IdeSourcesManager INHERIT IdeObject
METHOD saveAndExit()
METHOD revertSource( nTab )
METHOD openSource()
METHOD selectSource( cMode, cFile, cTitle )
METHOD selectSource( cMode, cFile, cTitle, cDftPath )
ENDCLASS
@@ -456,9 +456,11 @@ METHOD IdeSourcesManager:openSource()
/*----------------------------------------------------------------------*/
METHOD IdeSourcesManager:selectSource( cMode, cFile, cTitle )
METHOD IdeSourcesManager:selectSource( cMode, cFile, cTitle, cDftPath )
LOCAL oDlg, cPath
DEFAULT cDftPath TO ::cLastFileOpenPath
oDlg := XbpFileDialog():new():create( ::oDlg, , { 10,10 } )
IF cMode == "open"
@@ -466,7 +468,7 @@ METHOD IdeSourcesManager:selectSource( cMode, cFile, cTitle )
oDlg:center := .t.
oDlg:fileFilters := { { "All Files" , "*.*" }, { "PRG Sources", "*.prg" }, { "C Sources" , "*.c" },;
{ "CPP Sources", "*.cpp" }, { "H Headers" , "*.h" }, { "CH Headers", "*.ch" } }
cFile := oDlg:open( ::cLastFileOpenPath, , .f. )
cFile := oDlg:open( cDftPath, , .f. )
IF !empty( cFile )
::oIde:cLastFileOpenPath := cFile
ENDIF
@@ -477,7 +479,7 @@ METHOD IdeSourcesManager:selectSource( cMode, cFile, cTitle )
oDlg:defExtension:= 'prg'
oDlg:fileFilters := { { "All Files" , "*.*" }, { "PRG Sources", "*.prg" }, { "C Sources" , "*.c" },;
{ "CPP Sources", "*.cpp" }, { "H Headers" , "*.h" }, { "CH Headers", "*.ch" } }
cFile := oDlg:open( ::cLastFileOpenPath, , .t. )
cFile := oDlg:open( cDftPath, , .t. )
IF !empty( cFile ) .AND. !empty( cFile[ 1 ] )
::oIde:cLastFileOpenPath := cFile[ 1 ]
ENDIF