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

2010-05-24 15:09 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbide/ideprojmanager.prg
    % Fixed: to start build executable in "Start in" folder.
This commit is contained in:
Pritpal Bedi
2010-05-24 22:12:53 +00:00
parent adad4eca95
commit 79ebb96bf7
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -122,12 +122,12 @@ CLASS IdeProject
DATA type INIT "Executable"
DATA title INIT ""
DATA location INIT hb_dirBase() + "projects"
DATA wrkDirectory INIT ""
DATA destination INIT ""
DATA outputName INIT ""
DATA backup INIT ""
DATA launchParams INIT ""
DATA launchProgram INIT ""
DATA backup INIT ""
DATA wrkDirectory INIT ""
DATA isXhb INIT .f.
DATA isXpp INIT .f.
DATA isClp INIT .f.
@@ -268,7 +268,7 @@ CLASS IdeProjManager INHERIT IdeObject
METHOD synchronizeAlienProject( cProjFileName )
METHOD outputText( cText )
ENDCLASS
ENDCLASS
/*----------------------------------------------------------------------*/
@@ -419,7 +419,8 @@ METHOD IdeProjManager:pullHbpData( cHbp )
"hbide_backupfolder=" , ;
"hbide_xhb=" , ;
"hbide_xpp=" , ;
"hbide_clp=" ;
"hbide_clp=" , ;
"hbide_launchim=" ;
}
LOCAL a1_0 := afill( array( PRJ_PRP_PRP_VRBLS ), "" )
@@ -652,7 +653,6 @@ METHOD IdeProjManager:fetchProperties()
::oUI:q_editPrjTitle :setText( "" )
::oUI:q_editPrjLoctn :setText( hbide_pathNormalized( ::oProject:location, .F. ) )
::oUI:q_editWrkFolder:setText( "" )
::oUI:q_editDstFolder:setText( "" )
::oUI:q_editBackup :setText( "" )
::oUI:q_editOutName :setText( "" )
@@ -662,6 +662,7 @@ METHOD IdeProjManager:fetchProperties()
::oUI:q_editLaunchParams:setText( "" )
::oUI:q_editLaunchExe:setText( "" )
::oUI:q_editWrkFolder:setText( "" )
::oUI:q_editHbp:setPlainText( "" )
::oUI:oWidget:setWindowTitle( 'New Project...' )
@@ -680,7 +681,6 @@ METHOD IdeProjManager:fetchProperties()
::oUI:q_editPrjTitle :setText( ::oProject:title )
::oUI:q_editPrjLoctn :setText( ::oProject:location )
::oUI:q_editWrkFolder:setText( ::oProject:wrkDirectory )
::oUI:q_editDstFolder:setText( ::oProject:destination )
::oUI:q_editOutName :setText( ::oProject:outputName )
::oUI:q_editBackup :setText( ::oProject:backup )
@@ -694,6 +694,7 @@ METHOD IdeProjManager:fetchProperties()
::oUI:q_editLaunchParams:setText( ::oProject:launchParams )
::oUI:q_editLaunchExe:setText( ::oProject:launchProgram )
::oUI:q_editWrkFolder:setText( ::oProject:wrkDirectory )
::oUI:q_editHbp:setPlainText( "" )
@@ -1465,15 +1466,13 @@ METHOD IdeProjManager:launchProject( cProject, cExe )
if .t.
qProcess := QProcess():new()
qProcess:setWorkingDirectory( hbide_pathToOSPath( oProject:wrkDirectory ) )
qStr := QStringList():new()
IF !empty( oProject:launchParams )
qStr := QStringList():new()
qStr:append( oProject:launchParams )
qProcess:startDetached_1( cTargetFN, qStr )
ELSE
qProcess:startDetached_2( cTargetFN )
ENDIF
qProcess:waitForStarted()
qProcess:startDetached( cTargetFN, qStr, hbide_pathToOSPath( oProject:wrkDirectory ) )
qProcess:waitForStarted( 3000 )
qProcess := NIL
else