From be277da269b10c94acbb3bbe40b0226dd323c9cc Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Sat, 23 Jan 2010 03:23:42 +0000 Subject: [PATCH] 2010-01-22 19:24 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbide/ideprojmanager.prg ! Fix in "Launch" option with respect to :WrkDirectory just before launch of the application. --- harbour/ChangeLog | 5 +++++ harbour/contrib/hbide/ideprojmanager.prg | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f01ba75e4b..546a9430a9 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,11 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-01-22 19:24 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * contrib/hbide/ideprojmanager.prg + ! Fix in "Launch" option with respect to :WrkDirectory just before + launch of the application. + 2010-01-23 02:27 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/hbwin/win_tprn.prg ! do not ignore :setBkMode() called before :create() diff --git a/harbour/contrib/hbide/ideprojmanager.prg b/harbour/contrib/hbide/ideprojmanager.prg index a833498312..50cbdcb2d3 100644 --- a/harbour/contrib/hbide/ideprojmanager.prg +++ b/harbour/contrib/hbide/ideprojmanager.prg @@ -1187,7 +1187,7 @@ METHOD IdeProjManager:launchProject( cProject ) iif( empty( oProject:outputName ), "_temp", oProject:outputName ) ) #ifdef __PLATFORM__WINDOWS - IF::oProject:type == "Executable" + IF oProject:type == "Executable" cTargetFN += '.exe' ENDIF #endif @@ -1195,12 +1195,15 @@ METHOD IdeProjManager:launchProject( cProject ) IF !hb_FileExists( cTargetFN ) cTmp := "Launch application error: file not found " + cTargetFN + "!" - ELSEIF ::oProject:type == "Executable" + ELSEIF oProject:type == "Executable" cTmp := "Launch application " + cTargetFN + "... " qProcess := QProcess():new() + + qProcess:setWorkingDirectory( hbide_pathToOSPath( oProject:wrkDirectory ) ) +hbide_dbg( oProject:wrkDirectory, qProcess:workingDirectory() ) qProcess:startDetached_2( cTargetFN ) - qProcess:waitForStarted() + //qProcess:waitForStarted() qProcess:pPtr := 0 qProcess := NIL