From 7a9db15248697b9bb91343be3766fd4db938ea3c Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Tue, 31 Jul 2012 10:00:00 +0000 Subject: [PATCH] 2012-07-31 02:53 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/projectwizard.prg * contrib/hbide/projectwizard.ui + Implemented: the contents entered in the "New Project Wizard" are saved in _thePathdesignatedForHbp_.hbptmplt. This will be the intermediate file from where .hbp will be created as per standardards adopted so far and then loaded in HbIDE. If such template already exists on the .hbp path asked for, it will be loaded in the interface. How and what action will ask for loading/saving may change. for now examine the template file. --- harbour/ChangeLog | 11 + harbour/contrib/hbide/projectwizard.prg | 878 ++++++++++++++++++++---- harbour/contrib/hbide/projectwizard.ui | 2 +- 3 files changed, 759 insertions(+), 132 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1a0e962b7f..64e330b612 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,17 @@ The license applies to all entries newer than 2009-04-28. */ +2012-07-31 02:53 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbide/projectwizard.prg + * contrib/hbide/projectwizard.ui + + Implemented: the contents entered in the "New Project Wizard" are + saved in _thePathdesignatedForHbp_.hbptmplt. This will be the + intermediate file from where .hbp will be created as per standardards + adopted so far and then loaded in HbIDE. If such template already + exists on the .hbp path asked for, it will be loaded in the + interface. How and what action will ask for loading/saving may + change. for now examine the template file. + 2012-07-30 21:01 UTC+0200 Viktor Szakats (harbour syenar.net) * INSTALL + added NOTE on 'install' not working in partial rebuild mode diff --git a/harbour/contrib/hbide/projectwizard.prg b/harbour/contrib/hbide/projectwizard.prg index c0f26f1a22..37b34ab8e0 100644 --- a/harbour/contrib/hbide/projectwizard.prg +++ b/harbour/contrib/hbide/projectwizard.prg @@ -1,4 +1,4 @@ -/* + /* * $Id$ */ @@ -99,8 +99,18 @@ /*----------------------------------------------------------------------*/ +#define PROPS_TREENODE 1 +#define PROPS_PROPNAME 2 +#define PROPS_TREEBUTTON 6 + +#define UI_LOAD_NORMAL 0 +#define UI_LOAD_DEFAULTS 1 + +/*----------------------------------------------------------------------*/ + CREATE CLASS IdeProjectWizard INHERIT IdeObject + DATA oProject DATA lEdited INIT .f. DATA aItmProps INIT {} DATA aItmSrc INIT {} @@ -139,6 +149,8 @@ METHOD IdeProjectWizard:create( oIde ) DEFAULT oIde TO ::oIde ::oIde := oIde + ::oProject := IdeExProject():new() + RETURN Self /*----------------------------------------------------------------------*/ @@ -151,68 +163,6 @@ METHOD IdeProjectWizard:destroy() METHOD IdeProjectWizard:clear() - ::oUI:editProjPath : setText( "" ) - ::oUI:editProjName : setText( "" ) - ::oUI:editOutName : setText( "" ) - ::oUI:editOutPath : setText( "" ) - ::oUI:editWorkPath : setText( "" ) - ::oUI:editWorkPath : setText( "" ) - ::oUI:editLaunchExe : setText( "" ) - ::oUI:editLaunchParams : setText( "" ) - ::oUI:editStayIn : setText( "" ) - - ::oUI:plainSwitches : setPlainText( "" ) - - ::oUi:chkXhb : setChecked( .F. ) - ::oUi:chkXBase : setChecked( .F. ) - ::oUi:chkHbQt : setChecked( .F. ) - ::oUi:chkXbp : setChecked( .F. ) - ::oUi:chkFWH : setChecked( .F. ) - ::oUi:chkHMG : setChecked( .F. ) - ::oUi:chkOther : setChecked( .F. ) - - ::oUi:chkA : setChecked( .T. ) - ::oUi:chkB : setChecked( .F. ) - ::oUi:chkES : setChecked( .T. ) - ::oUi:chkG : setChecked( .F. ) - ::oUi:chkJ : setChecked( .F. ) - ::oUi:chkL : setChecked( .F. ) - ::oUi:chkM : setChecked( .T. ) - ::oUi:chkN : setChecked( .T. ) - ::oUi:chkV : setChecked( .F. ) - ::oUi:chkW : setChecked( .F. ) - ::oUi:chkZ : setChecked( .F. ) - ::oUi:chkQ : setChecked( .F. ) - ::oUi:chkBuild : setChecked( .F. ) - ::oUi:chkCredits : setChecked( .F. ) - - ::oUi:chkInc : setChecked( .T. ) - ::oUi:chkGui : setChecked( .F. ) - ::oUi:chkInfo : setChecked( .T. ) - ::oUi:chkShared : setChecked( .F. ) - ::oUi:chkMt : setChecked( .F. ) - ::oUi:chkTrace : setChecked( .F. ) - ::oUi:chkFullstatic : setChecked( .F. ) - - ::oUi:chkGtgui : setChecked( .F. ) - ::oUi:chkGtwin : setChecked( .F. ) - ::oUi:chkGtwvt : setChecked( .F. ) - ::oUi:chkGtwvg : setChecked( .F. ) - ::oUi:chkGtxwc : setChecked( .F. ) - ::oUi:chkGttrm : setChecked( .F. ) - ::oUi:chkGtstd : setChecked( .F. ) - ::oUi:chkGtsln : setChecked( .F. ) - ::oUi:chkGtpca : setChecked( .F. ) - ::oUi:chkGtos2 : setChecked( .F. ) - ::oUi:chkGtcrs : setChecked( .F. ) - ::oUi:chkGtcgi : setChecked( .F. ) - - ::oUI:editES : setText( "0" ) - ::oUI:editG : setText( "" ) - ::oUI:editM : setText( "" ) - ::oUI:editQ : setText( "" ) - ::oUI:editW : setText( "" ) - ::oUI:comboProjType : setCurrentIndex( 0 ) ::oUI:comboGT : setCurrentIndex( 9 ) @@ -222,6 +172,8 @@ METHOD IdeProjectWizard:clear() ::oUI:treeSrc : clear() ::loadSourcesSections() + ::oProject:loadUI( Self, UI_LOAD_DEFAULTS ) + ::lEdited := .f. RETURN Self @@ -320,7 +272,6 @@ METHOD IdeProjectWizard:show() aadd( ::aItmSrc, { NIL, "UI Files" , QBrush( QColor( 144, 144, 144 ) ), oBrush, ".ui" , NIL, "background-color: rgb(144,144,144);" } ) aadd( ::aItmSrc, { NIL, "All Other Files", QBrush( QColor( 136, 136, 136 ) ), oBrush, "*" , NIL, "background-color: rgb(136,136,136);" } ) - ::clear() ::oUI:frameSrc:setAcceptDrops( .t. ) @@ -375,8 +326,8 @@ METHOD IdeProjectWizard:execEvent( nEvent, p, p1 ) CASE __treeProps_itemExpanded__ IF ( n := ::oUI:treeProps:indexOfTopLevelItem( p ) ) >= 0 n++ - IF hb_isObject( ::aItmProps[ n, 6 ] ) - ::aItmProps[ n, 6 ]:setIcon( QIcon( hbide_image( iif( nEvent == __treeProps_itemExpanded__, "collapse_m", "expand_m" ) ) ) ) + IF hb_isObject( ::aItmProps[ n, PROPS_TREEBUTTON ] ) + ::aItmProps[ n, PROPS_TREEBUTTON ]:setIcon( QIcon( hbide_image( iif( nEvent == __treeProps_itemExpanded__, "collapse_m", "expand_m" ) ) ) ) ENDIF p:setSelected( .t. ) ENDIF @@ -384,45 +335,45 @@ METHOD IdeProjectWizard:execEvent( nEvent, p, p1 ) CASE __treeSrc_itemExpanded__ CASE __treeSrc_itemCollapsed__ IF ( n := ::oUI:treeSrc:indexOfTopLevelItem( p ) ) >= 0 - IF hb_isObject( ::aItmSrc[ n+1,6 ] ) - ::aItmSrc[ n+1,6 ]:setIcon( QIcon( hbide_image( iif( nEvent == __treeSrc_itemCollapsed__, "expand_m", "collapse_m" ) ) ) ) + IF hb_isObject( ::aItmSrc[ n+1, PROPS_TREEBUTTON ] ) + ::aItmSrc[ n+1, PROPS_TREEBUTTON ]:setIcon( QIcon( hbide_image( iif( nEvent == __treeSrc_itemCollapsed__, "expand_m", "collapse_m" ) ) ) ) ENDIF p:setSelected( .t. ) ENDIF EXIT CASE __qTBtn_clicked__ - IF ::aItmProps[ p,1 ]:isExpanded() - ::aItmProps[ p,1 ]:setExpanded( .f. ) + IF ::aItmProps[ p, PROPS_TREENODE ]:isExpanded() + ::aItmProps[ p, PROPS_TREENODE ]:setExpanded( .f. ) ELSE - IF ::aItmProps[ p,1 ]:childCount() > 0 - ::aItmProps[ p,1 ]:setExpanded( .t. ) + IF ::aItmProps[ p, PROPS_TREENODE ]:childCount() > 0 + ::aItmProps[ p, PROPS_TREENODE ]:setExpanded( .t. ) ENDIF ENDIF IF ! empty( qItm := ::oUI:treeProps:currentItem() ) qItm:setSelected( .f. ) ENDIF - ::aItmProps[ p,1 ]:setSelected( .t. ) + ::aItmProps[ p, PROPS_TREENODE ]:setSelected( .t. ) EXIT CASE __qSBtn_clicked__ - IF ::aItmSrc[ p,1 ]:isExpanded() - ::aItmSrc[ p,1 ]:setExpanded( .f. ) + IF ::aItmSrc[ p, PROPS_TREENODE ]:isExpanded() + ::aItmSrc[ p, PROPS_TREENODE ]:setExpanded( .f. ) ELSE - IF ::aItmSrc[ p,1 ]:childCount() > 0 - ::aItmSrc[ p,1 ]:setExpanded( .t. ) + IF ::aItmSrc[ p, PROPS_TREENODE ]:childCount() > 0 + ::aItmSrc[ p, PROPS_TREENODE ]:setExpanded( .t. ) ENDIF ENDIF IF ! empty( qItm := ::oUI:treeSrc:currentItem() ) qItm:setSelected( .f. ) ENDIF - ::aItmSrc[ p,1 ]:setSelected( .t. ) + ::aItmSrc[ p, PROPS_TREENODE ]:setSelected( .t. ) EXIT CASE __toolSrcDel_clicked__ IF hbide_getYesNo( "Do you really want to delete all sources ?", "Dangerous Action", "Confirmation Required!", ::oUI:oWidget ) FOR EACH aItm IN ::aItmSrc - IF ! empty( aItm[ 1 ] ) - n := aItm[ 1 ]:childCount() + IF ! empty( aItm[ PROPS_TREENODE ] ) + n := aItm[ PROPS_TREENODE ]:childCount() FOR i := 1 TO n - aItm[ 1 ]:removeChild( aItm[ 1 ]:child( 0 ) ) + aItm[ PROPS_TREENODE ]:removeChild( aItm[ PROPS_TREENODE ]:child( 0 ) ) NEXT ENDIF NEXT @@ -437,22 +388,22 @@ METHOD IdeProjectWizard:execEvent( nEvent, p, p1 ) EXIT CASE __toolSrcMax_clicked__ FOR EACH aItm IN ::aItmSrc - IF ! empty( aItm[ 1 ] ) - aItm[ 1 ]:setExpanded( .T. ) + IF ! empty( aItm[ PROPS_TREENODE ] ) + aItm[ PROPS_TREENODE ]:setExpanded( .T. ) ENDIF NEXT EXIT CASE __btnSwMin_clicked__ FOR EACH aItm IN ::aItmProps - IF ! empty( aItm[ 1 ] ) - aItm[ 1 ]:setExpanded( .F. ) + IF ! empty( aItm[ PROPS_TREENODE ] ) + aItm[ PROPS_TREENODE ]:setExpanded( .F. ) ENDIF NEXT EXIT CASE __btnSwMax_clicked__ FOR EACH aItm IN ::aItmProps - IF ! empty( aItm[ 1 ] ) - aItm[ 1 ]:setExpanded( .T. ) + IF ! empty( aItm[ PROPS_TREENODE ] ) + aItm[ PROPS_TREENODE ]:setExpanded( .T. ) ENDIF NEXT EXIT @@ -494,9 +445,9 @@ METHOD IdeProjectWizard:execEvent( nEvent, p, p1 ) ::deleteTreeItem( qItm ) ENDIF ELSEIF cText == "Sort Ascending" - ::aItmSrc[ n,1 ]:sortChildren( 0, Qt_AscendingOrder ) + ::aItmSrc[ n, PROPS_TREENODE ]:sortChildren( 0, Qt_AscendingOrder ) ELSEIF cText == "Sort Descending" - ::aItmSrc[ n,1 ]:sortChildren( 0, Qt_DescendingOrder ) + ::aItmSrc[ n, PROPS_TREENODE ]:sortChildren( 0, Qt_DescendingOrder ) ENDIF ENDIF EXIT @@ -520,9 +471,9 @@ METHOD IdeProjectWizard:execEvent( nEvent, p, p1 ) ::deleteTreeItem( qItm ) ENDIF ELSEIF cText == "Sort Ascending" - ::aItmProps[ n,1 ]:sortChildren( 0, Qt_AscendingOrder ) + ::aItmProps[ n, PROPS_TREENODE ]:sortChildren( 0, Qt_AscendingOrder ) ELSEIF cText == "Sort Descending" - ::aItmProps[ n,1 ]:sortChildren( 0, Qt_DescendingOrder ) + ::aItmProps[ n, PROPS_TREENODE ]:sortChildren( 0, Qt_DescendingOrder ) ENDIF ENDIF EXIT @@ -699,10 +650,10 @@ METHOD IdeProjectWizard:loadSwichesSections() oFont:setBold( .t. ) FOR EACH aAct IN ::aItmProps qItm := QTreeWidgetItem() - aAct[ 1 ] := qItm + aAct[ PROPS_TREENODE ] := qItm qItm:setFlags( 0 ) qItm:setFlags( hb_bitOr( Qt_ItemIsSelectable, Qt_ItemIsDropEnabled, Qt_ItemIsEnabled ) ) - qItm:setText( 0, space( 7 ) + aAct[ 2 ] ) + qItm:setText( 0, space( 7 ) + aAct[ PROPS_PROPNAME ] ) qItm:setBackground( 0, aAct[ 3 ] ) qItm:setForeground( 0, QBrush( QColor( 255,255,255 ) ) ) qItm:setFont( 0, oFont ) @@ -711,7 +662,7 @@ METHOD IdeProjectWizard:loadSwichesSections() oTree:setFirstItemColumnSpanned( qItm, .t. ) qItm:setChildIndicatorPolicy( QTreeWidgetItem_ShowIndicator ) - aAct[ 6 ] := ::addDropIndicator( oTree, aAct[ 1 ], __qTBtn_clicked__, aAct[ 7 ], aAct:__enumIndex() ) + aAct[ PROPS_TREEBUTTON ] := ::addDropIndicator( oTree, aAct[ PROPS_TREENODE ], __qTBtn_clicked__, aAct[ 7 ], aAct:__enumIndex() ) NEXT RETURN Self @@ -726,10 +677,10 @@ METHOD IdeProjectWizard:loadSourcesSections() oFont:setBold( .t. ) FOR EACH aAct IN ::aItmSrc qItm := QTreeWidgetItem() - aAct[ 1 ] := qItm + aAct[ PROPS_TREENODE ] := qItm qItm:setFlags( 0 ) qItm:setFlags( hb_bitOr( Qt_ItemIsSelectable, Qt_ItemIsDropEnabled, Qt_ItemIsEnabled ) ) - qItm:setText( 0, space( 7 ) + aAct[ 2 ] ) + qItm:setText( 0, space( 7 ) + aAct[ PROPS_PROPNAME ] ) qItm:setBackground( 0, aAct[ 3 ] ) qItm:setForeground( 0, QBrush( QColor( 255,255,255 ) ) ) qItm:setFont( 0, oFont ) @@ -738,7 +689,7 @@ METHOD IdeProjectWizard:loadSourcesSections() oTree:setFirstItemColumnSpanned( qItm, .t. ) qItm:setChildIndicatorPolicy( QTreeWidgetItem_ShowIndicator ) - aAct[ 6 ] := ::addDropIndicator( oTree, aAct[ 1 ], __qSBtn_clicked__, aAct[ 7 ], aAct:__enumIndex() ) + aAct[ PROPS_TREEBUTTON ] := ::addDropIndicator( oTree, aAct[ PROPS_TREENODE ], __qSBtn_clicked__, aAct[ 7 ], aAct:__enumIndex() ) NEXT RETURN Self @@ -746,7 +697,7 @@ METHOD IdeProjectWizard:loadSourcesSections() /*----------------------------------------------------------------------*/ METHOD IdeProjectWizard:loadDefaults() - LOCAL cProjPath, cPath, cName, cExt + LOCAL cProjPath, cPath, cName, cExt, lTmpltExists := .f. cProjPath := ::oUI:editProjPath:text() IF empty( cProjPath ) @@ -754,20 +705,29 @@ METHOD IdeProjectWizard:loadDefaults() IF empty( cProjPath ) RETURN .f. ENDIF - IF hb_fileExists( cProjPath ) - MsgBox( "Project file already exists, cannot reload in wizard!" ) - RETURN .f. - ENDIF + hb_fNameSplit( cProjPath, @cPath, @cName, @cExt ) IF ! ( lower( cExt ) == ".hbp" ) MsgBox( "Wrong type of project name !" ) RETURN .f. ENDIF + + IF hb_fileExists( cPath + cName + ".hbptmplt" ) + lTmpltExists := .t. + ELSEIF hb_fileExists( cProjPath ) + MsgBox( "Project file already exists, cannot reload in wizard!" ) + RETURN .f. + ENDIF ::cProjPath := cPath - ::oUI:editProjPath:setText( cProjPath ) - ::oUI:editProjName:setText( upper( substr( cName, 1, 1 ) ) + lower( substr( cName, 2 ) ) ) - ::oUI:editOutName:setText( cName ) + IF lTmpltExists + ::oProject:load( cPath + cName + ".hbptmplt" ) + ::oProject:loadUI( Self, UI_LOAD_NORMAL ) + ELSE + ::oUI:editProjPath:setText( cProjPath ) + ::oUI:editProjName:setText( upper( substr( cName, 1, 1 ) ) + lower( substr( cName, 2 ) ) ) + ::oUI:editOutName:setText( cName ) + ENDIF ::lEdited := .t. ENDIF @@ -777,6 +737,11 @@ METHOD IdeProjectWizard:loadDefaults() /*----------------------------------------------------------------------*/ METHOD IdeProjectWizard:saveProject() + LOCAL cPath, cFile, cExt + + ::oProject:saveUI( Self ) + hb_fNameSplit( ::oUI:editProjPath:text(), @cPath, @cFile, @cExt ) + ::oProject:save( cPath + cFile + ".hbptmplt" ) RETURN Self @@ -791,24 +756,97 @@ CREATE CLASS IdeExProject DATA cPathTmplt DATA cPathHbp - DATA aSrcALL INIT {} - DATA aSrcPRG INIT {} - DATA aSrcC INIT {} - DATA aSrcCPP INIT {} - DATA aSrcCH INIT {} - DATA aSrcH INIT {} - DATA aSrcUI INIT {} - DATA aSrcRest INIT {} - - DATA aHbc INIT {} - DATA aFlags + DATA cProjPath + DATA cProjName + DATA cProjType + DATA cOutName + DATA cOutPath + DATA cWorkPath + DATA cLaunchExe + DATA cLaunchParams + DATA cStayIn + DATA lXhb + DATA lXbase + DATA lHbQt + DATA lXbp + DATA lFwh + DATA lHmg + DATA lOther + DATA lA + DATA lB + DATA lES + DATA lG + DATA lJ + DATA lL + DATA lM + DATA lN + DATA lV + DATA lW + DATA lZ + DATA lQ + DATA lBuild + DATA lCredits + DATA cES + DATA cG + DATA cM + DATA cW + DATA cQ + DATA lInc + DATA lGui + DATA lMt + DATA lShared + DATA lFullStatic + DATA lTrace + DATA lInfo + DATA cGT + DATA lGtGui + DATA lGtWin + DATA lGtWvt + DATA lGtWvg + DATA lGtXwc + DATA lGtCgi + DATA lGtTrm + DATA lGtStd + DATA lGtSln + DATA lGtPca + DATA lGtOs2 + DATA lGtCrs + DATA aExtras + DATA aPrpHbcs + DATA aPrpLibs + DATA aPrpLPaths + DATA aPrpIPaths + DATA aPrpDefines + DATA aPrpUnDefines + DATA aPrpHbmk2 + DATA aPrpBatch + DATA aPrpAActions + DATA aSrcPrgs + DATA aSrcCs + DATA aSrcCpps + DATA aSrcChs + DATA aSrcHs + DATA aSrcUIs + DATA aSrcOthers METHOD new( cPathTmplt ) METHOD create( cPathTmplt ) - METHOD loadUI( oUI ) - METHOD saveUI( oUI ) - METHOD load() - METHOD save( nMode ) + METHOD defaults() + METHOD setTmpltPath( cPathTmplt ) INLINE ::cPathTmplt := cPathTmplt + METHOD load( cPathTmplt ) + METHOD save( cPathTmplt ) + METHOD loadUI( oWizard, nMode ) + METHOD saveUI( oWizard ) + METHOD retrieveProps( oWizard ) + METHOD retrieveSources( oWizard ) + METHOD retrieveExtras( oWizard ) + METHOD loadProps( oWizard ) + METHOD loadSources( oWizard ) + METHOD loadExtras( oWizard ) + METHOD addSection( aTxt, cSection, aValues ) + METHOD sectionToArray( cBuffer, cSection ) + METHOD getKeyValuePair( cStr ) + METHOD retrieveSection( cBuffer, cSection, aPost ) ENDCLASS @@ -830,33 +868,611 @@ METHOD IdeExProject:create( cPathTmplt ) ::cPathTmplt := cPathTmplt - RETURN Self - -/*----------------------------------------------------------------------*/ - -METHOD IdeExProject:load() + ::defaults() RETURN Self /*----------------------------------------------------------------------*/ -METHOD IdeExProject:save( nMode ) - HB_SYMBOL_UNUSED( nMode ) +METHOD IdeExProject:defaults() + + ::cProjPath := "" + ::cProjName := "" + ::cProjType := "" + ::cOutName := "" + ::cOutPath := "" + ::cWorkPath := "" + ::cLaunchExe := "" + ::cLaunchParams := "" + ::cStayIn := "" + ::lXhb := .F. + ::lXbase := .F. + ::lHbQt := .F. + ::lXbp := .F. + ::lFwh := .F. + ::lHmg := .F. + ::lOther := .F. + ::lA := .F. + ::lB := .F. + ::lES := .T. + ::lG := .F. + ::lJ := .F. + ::lL := .F. + ::lM := .T. + ::lN := .T. + ::lV := .F. + ::lW := .F. + ::lZ := .F. + ::lQ := .F. + ::lBuild := .F. + ::lCredits := .F. + ::cES := "0" + ::cG := "" + ::cM := "" + ::cW := "" + ::cQ := "" + ::lInc := .T. + ::lGui := .F. + ::lMt := .F. + ::lShared := .F. + ::lFullStatic := .F. + ::lTrace := .F. + ::lInfo := .T. + ::cGT := "" + ::lGtGui := .F. + ::lGtWin := .F. + ::lGtWvt := .F. + ::lGtWvg := .F. + ::lGtXwc := .F. + ::lGtCgi := .F. + ::lGtTrm := .F. + ::lGtStd := .F. + ::lGtSln := .F. + ::lGtPca := .F. + ::lGtOs2 := .F. + ::lGtCrs := .F. + ::aExtras := {} + ::aPrpHbcs := {} + ::aPrpLibs := {} + ::aPrpLPaths := {} + ::aPrpIPaths := {} + ::aPrpDefines := {} + ::aPrpUnDefines := {} + ::aPrpHbmk2 := {} + ::aPrpBatch := {} + ::aPrpAActions := {} + ::aSrcPrgs := {} + ::aSrcCs := {} + ::aSrcCpps := {} + ::aSrcChs := {} + ::aSrcHs := {} + ::aSrcUIs := {} + ::aSrcOthers := {} RETURN Self /*----------------------------------------------------------------------*/ -METHOD IdeExProject:loadUI( oUI ) - HB_SYMBOL_UNUSED( oUI ) +METHOD IdeExProject:loadUI( oWizard, nMode ) + LOCAL oUI := oWizard:oUI + IF nMode == 1 + ::defaults() + ENDIF + + oUI:editProjPath : setText( ::cProjPath ) + oUI:editProjName : setText( ::cProjName ) + oUI:editOutName : setText( ::cOutName ) + oUI:editOutPath : setText( ::cOutPath ) + oUI:editWorkPath : setText( ::cWorkPath ) + oUI:editWorkPath : setText( ::cWorkPath ) + oUI:editLaunchExe : setText( ::cLaunchExe ) + oUI:editLaunchParams : setText( ::cLaunchParams ) + oUI:editStayIn : setText( ::cStayIn ) + oUi:chkXhb : setChecked( ::lXhb ) + oUi:chkXBase : setChecked( ::lXBase ) + oUi:chkHbQt : setChecked( ::lHbQt ) + oUi:chkXbp : setChecked( ::lXbp ) + oUi:chkFWH : setChecked( ::lFWH ) + oUi:chkHMG : setChecked( ::lHMG ) + oUi:chkOther : setChecked( ::lOther ) + oUi:chkA : setChecked( ::lA ) + oUi:chkB : setChecked( ::lB ) + oUi:chkES : setChecked( ::lES ) + oUi:chkG : setChecked( ::lG ) + oUi:chkJ : setChecked( ::lJ ) + oUi:chkL : setChecked( ::lL ) + oUi:chkM : setChecked( ::lM ) + oUi:chkN : setChecked( ::lN ) + oUi:chkV : setChecked( ::lV ) + oUi:chkW : setChecked( ::lW ) + oUi:chkZ : setChecked( ::lZ ) + oUi:chkQ : setChecked( ::lQ ) + oUi:chkBuild : setChecked( ::lBuild ) + oUi:chkCredits : setChecked( ::lCredits ) + oUi:chkInc : setChecked( ::lInc ) + oUi:chkGui : setChecked( ::lGui ) + oUi:chkInfo : setChecked( ::lInfo ) + oUi:chkShared : setChecked( ::lShared ) + oUi:chkMt : setChecked( ::lMt ) + oUi:chkTrace : setChecked( ::lTrace ) + oUi:chkFullstatic : setChecked( ::lFullstatic ) + oUi:chkGtgui : setChecked( ::lGtgui ) + oUi:chkGtwin : setChecked( ::lGtwin ) + oUi:chkGtwvt : setChecked( ::lGtwvt ) + oUi:chkGtwvg : setChecked( ::lGtwvg ) + oUi:chkGtxwc : setChecked( ::lGtxwc ) + oUi:chkGttrm : setChecked( ::lGttrm ) + oUi:chkGtstd : setChecked( ::lGtstd ) + oUi:chkGtsln : setChecked( ::lGtsln ) + oUi:chkGtpca : setChecked( ::lGtpca ) + oUi:chkGtos2 : setChecked( ::lGtos2 ) + oUi:chkGtcrs : setChecked( ::lGtcrs ) + oUi:chkGtcgi : setChecked( ::lGtcgi ) + oUI:editES : setText( ::cES ) + oUI:editG : setText( ::cG ) + oUI:editM : setText( ::cM ) + oUI:editQ : setText( ::cQ ) + oUI:editW : setText( ::cW ) + + ::loadProps( oWizard ) + ::loadSources( oWizard ) + ::loadExtras( oWizard ) RETURN Self /*----------------------------------------------------------------------*/ -METHOD IdeExProject:saveUI( oUI ) - HB_SYMBOL_UNUSED( oUI ) +METHOD IdeExProject:saveUI( oWizard ) + LOCAL oUI := oWizard:oUI + + ::defaults() /* Clean the variables */ + + ::cProjPath := oUI:editProjPath : text() + ::cProjName := oUI:editProjName : text() + ::cProjType := oUI:comboProjType : currentText() + ::cOutName := oUI:editOutName : text() + ::cOutPath := oUI:editOutPath : text() + ::cWorkPath := oUI:editWorkPath : text() + ::cLaunchExe := oUI:editLaunchExe : text() + ::cLaunchParams := oUI:editLaunchParams : text() + ::cStayIn := oUI:editStayIn : text() + ::lXhb := oUI:chkXhb : isChecked() + ::lXbase := oUI:chkXbase : isChecked() + ::lHbQt := oUI:chkHbQt : isChecked() + ::lXbp := oUI:chkXbp : isChecked() + ::lFwh := oUI:chkFwh : isChecked() + ::lHmg := oUI:chkHmg : isChecked() + ::lOther := oUI:chkOther : isChecked() + ::lA := oUI:chkA : isChecked() + ::lB := oUI:chkB : isChecked() + ::lES := oUI:chkES : isChecked() + ::lG := oUI:chkG : isChecked() + ::lJ := oUI:chkJ : isChecked() + ::lL := oUI:chkL : isChecked() + ::lM := oUI:chkM : isChecked() + ::lN := oUI:chkN : isChecked() + ::lV := oUI:chkV : isChecked() + ::lW := oUI:chkW : isChecked() + ::lZ := oUI:chkZ : isChecked() + ::lQ := oUI:chkQ : isChecked() + ::lBuild := oUI:chkBuild : isChecked() + ::lCredits := oUI:chkCredits : isChecked() + ::cES := oUI:editES : text() + ::cG := oUI:editG : text() + ::cM := oUI:editM : text() + ::cW := oUI:editW : text() + ::cQ := oUI:editQ : text() + ::lInc := oUI:chkInc : isChecked() + ::lGui := oUI:chkGui : isChecked() + ::lMt := oUI:chkMt : isChecked() + ::lShared := oUI:chkShared : isChecked() + ::lFullStatic := oUI:chkFullStatic : isChecked() + ::lTrace := oUI:chkTrace : isChecked() + ::lInfo := oUI:chkInfo : isChecked() + ::cGT := oUI:comboGT : currentText() + ::lGtGui := oUI:chkGtGui : isChecked() + ::lGtWin := oUI:chkGtWin : isChecked() + ::lGtWvt := oUI:chkGtWvt : isChecked() + ::lGtWvg := oUI:chkGtWvg : isChecked() + ::lGtXwc := oUI:chkGtXwc : isChecked() + ::lGtCgi := oUI:chkGtCgi : isChecked() + ::lGtTrm := oUI:chkGtTrm : isChecked() + ::lGtStd := oUI:chkGtStd : isChecked() + ::lGtSln := oUI:chkGtSln : isChecked() + ::lGtPca := oUI:chkGtPca : isChecked() + ::lGtOs2 := oUI:chkGtOs2 : isChecked() + ::lGtCrs := oUI:chkGtCrs : isChecked() + + ::retrieveProps( oWizard ) + ::retrieveSources( oWizard ) + ::retrieveExtras( oWizard ) + + RETURN Self + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:retrieveProps( oWizard ) + LOCAL a_, n, cNode, cText + + FOR EACH a_ IN oWizard:aItmProps + IF hb_isObject( a_[ PROPS_TREENODE ] ) + cNode := alltrim( a_[ PROPS_TREENODE ]:text( 0 ) ) + FOR n := 1 TO a_[ PROPS_TREENODE ]:childCount() + cText := alltrim( a_[ PROPS_TREENODE ]:child( n - 1 ):text( 0 ) ) + SWITCH cNode + CASE "Hbc Files" ; AAdd( ::aPrpHbcs , cText ) ; EXIT + CASE "Libraries" ; AAdd( ::aPrpLibs , cText ) ; EXIT + CASE "Library Paths" ; AAdd( ::aPrpLPaths , cText ) ; EXIT + CASE "Include Paths" ; AAdd( ::aPrpIPaths , cText ) ; EXIT + CASE "PRG Defines" ; AAdd( ::aPrpDefines , cText ) ; EXIT + CASE "PRG Undefines" ; AAdd( ::aPrpUnDefines , cText ) ; EXIT + CASE "hbmk2 Command-Line Params" ; AAdd( ::aPrpHbmk2 , cText ) ; EXIT + CASE "Batch File Commands" ; AAdd( ::aPrpBatch , cText ) ; EXIT + CASE "Actions after Successful Build" ; AAdd( ::aPrpAActions , cText ) ; EXIT + ENDSWITCH + NEXT + ENDIF + NEXT + + RETURN Self + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:retrieveSources( oWizard ) + LOCAL a_, n, cNode, cText + + FOR EACH a_ IN oWizard:aItmSrc + IF hb_isObject( a_[ PROPS_TREENODE ] ) + cNode := alltrim( a_[ PROPS_TREENODE ]:text( 0 ) ) + FOR n := 1 TO a_[ PROPS_TREENODE ]:childCount() + cText := alltrim( a_[ PROPS_TREENODE ]:child( n - 1 ):text( 0 ) ) + SWITCH cNode + CASE "PRG Files" ; AAdd( ::aSrcPrgs , cText ) ; EXIT + CASE "C Files" ; AAdd( ::aSrcCs , cText ) ; EXIT + CASE "CPP Files" ; AAdd( ::aSrcCpps , cText ) ; EXIT + CASE "CH Files" ; AAdd( ::aSrcChs , cText ) ; EXIT + CASE "H Files" ; AAdd( ::aSrcHs , cText ) ; EXIT + CASE "UI Files" ; AAdd( ::aSrcUIs , cText ) ; EXIT + CASE "All Other Files" ; AAdd( ::aSrcOthers , cText ) ; EXIT + ENDSWITCH + NEXT + ENDIF + NEXT + + RETURN Self + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:retrieveExtras( oWizard ) + LOCAL s, a_:= hbide_memoToArray( oWizard:oUI:plainExtras:toPlainText() ) + + FOR EACH s IN a_ + aadd( ::aExtras, alltrim( s ) ) + NEXT + + RETURN Self + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:loadProps( oWizard ) + LOCAL a_, aValues, cValue, qItm + + FOR EACH a_ IN oWizard:aItmProps + IF hb_isObject( a_[ PROPS_TREENODE ] ) + SWITCH alltrim( a_[ PROPS_TREENODE ]:text( 0 ) ) + CASE "Hbc Files" ; aValues := ::aPrpHbcs ; EXIT + CASE "Libraries" ; aValues := ::aPrpLibs ; EXIT + CASE "Library Paths" ; aValues := ::aPrpLPaths ; EXIT + CASE "Include Paths" ; aValues := ::aPrpIPaths ; EXIT + CASE "PRG Defines" ; aValues := ::aPrpDefines ; EXIT + CASE "PRG Undefines" ; aValues := ::aPrpUnDefines ; EXIT + CASE "hbmk2 Command-Line Params" ; aValues := ::aPrpHbmk2 ; EXIT + CASE "Batch File Commands" ; aValues := ::aPrpBatch ; EXIT + CASE "Actions after Successful Build" ; aValues := ::aPrpAActions ; EXIT + ENDSWITCH + IF ! empty( aValues ) + FOR EACH cValue IN aValues + IF ! empty( cValue ) + qItm := QTreeWidgetItem() + qItm:setText( 0, cValue ) + a_[ PROPS_TREENODE ]:addChild( qItm ) + ENDIF + NEXT + ENDIF + a_[ PROPS_TREENODE ]:setExpanded( .t. ) + ENDIF + NEXT + + RETURN Self + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:loadSources( oWizard ) + LOCAL a_, aValues, cValue, qItm + + FOR EACH a_ IN oWizard:aItmSrc + IF hb_isObject( a_[ PROPS_TREENODE ] ) + SWITCH alltrim( a_[ PROPS_TREENODE ]:text( 0 ) ) + CASE "PRG Files" ; aValues := ::aSrcPrgs ; EXIT + CASE "C Files" ; aValues := ::aSrcCs ; EXIT + CASE "CPP Files" ; aValues := ::aSrcCpps ; EXIT + CASE "CH Files" ; aValues := ::aSrcChs ; EXIT + CASE "H Files" ; aValues := ::aSrcHs ; EXIT + CASE "UI Files" ; aValues := ::aSrcUIs ; EXIT + CASE "All Other Files" ; aValues := ::aSrcOthers ; EXIT + ENDSWITCH + + IF ! empty( aValues ) + FOR EACH cValue IN aValues + IF ! empty( cValue ) + qItm := QTreeWidgetItem() + qItm:setText( 0, cValue ) + a_[ PROPS_TREENODE ]:addChild( qItm ) + ENDIF + NEXT + ENDIF + a_[ PROPS_TREENODE ]:setExpanded( .t. ) + ENDIF + NEXT + + RETURN Self + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:loadExtras( oWizard ) + + oWizard:oUI:plainExtras : setPlainText( hbide_arrayToMemo( ::aExtras ) ) + + RETURN Self + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:addSection( aTxt, cSection, aValues ) + LOCAL s + + AAdd( aTxt, "" ) + AAdd( aTxt, " <" + cSection + ">" ) + FOR EACH s IN aValues + AAdd( aTxt, " " + s ) + NEXT + AAdd( aTxt, " " ) + + RETURN Self + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:save( cPathTmplt ) + LOCAL cTxt, aGen :={}, aTxt := {} + + AAdd( aGen, "cProjPath = " + ::cProjPath ) + AAdd( aGen, "cProjName = " + ::cProjName ) + AAdd( aGen, "cProjType = " + ::cProjType ) + AAdd( aGen, "cOutName = " + ::cOutName ) + AAdd( aGen, "cOutPath = " + ::cOutPath ) + AAdd( aGen, "cWorkPath = " + ::cWorkPath ) + AAdd( aGen, "cLaunchExe = " + ::cLaunchExe ) + AAdd( aGen, "cLaunchParams = " + ::cLaunchParams ) + AAdd( aGen, "cStayIn = " + ::cStayIn ) + AAdd( aGen, "lXhb = " + iif( ::lXhb , "YES", "NO" ) ) + AAdd( aGen, "lXbase = " + iif( ::lXbase , "YES", "NO" ) ) + AAdd( aGen, "lHbQt = " + iif( ::lHbQt , "YES", "NO" ) ) + AAdd( aGen, "lXbp = " + iif( ::lXbp , "YES", "NO" ) ) + AAdd( aGen, "lFwh = " + iif( ::lFwh , "YES", "NO" ) ) + AAdd( aGen, "lHmg = " + iif( ::lHmg , "YES", "NO" ) ) + AAdd( aGen, "lOther = " + iif( ::lOther , "YES", "NO" ) ) + AAdd( aGen, "lA = " + iif( ::lA , "YES", "NO" ) ) + AAdd( aGen, "lB = " + iif( ::lB , "YES", "NO" ) ) + AAdd( aGen, "lES = " + iif( ::lES , "YES", "NO" ) ) + AAdd( aGen, "lG = " + iif( ::lG , "YES", "NO" ) ) + AAdd( aGen, "lJ = " + iif( ::lJ , "YES", "NO" ) ) + AAdd( aGen, "lL = " + iif( ::lL , "YES", "NO" ) ) + AAdd( aGen, "lM = " + iif( ::lM , "YES", "NO" ) ) + AAdd( aGen, "lN = " + iif( ::lN , "YES", "NO" ) ) + AAdd( aGen, "lV = " + iif( ::lV , "YES", "NO" ) ) + AAdd( aGen, "lW = " + iif( ::lW , "YES", "NO" ) ) + AAdd( aGen, "lZ = " + iif( ::lZ , "YES", "NO" ) ) + AAdd( aGen, "lQ = " + iif( ::lQ , "YES", "NO" ) ) + AAdd( aGen, "lBuild = " + iif( ::lBuild , "YES", "NO" ) ) + AAdd( aGen, "lCredits = " + iif( ::lCredits , "YES", "NO" ) ) + AAdd( aGen, "cES = " + ::cES ) + AAdd( aGen, "cG = " + ::cG ) + AAdd( aGen, "cM = " + ::cM ) + AAdd( aGen, "cW = " + ::cW ) + AAdd( aGen, "cQ = " + ::cQ ) + AAdd( aGen, "lInc = " + iif( ::lInc , "YES", "NO" ) ) + AAdd( aGen, "lGui = " + iif( ::lGui , "YES", "NO" ) ) + AAdd( aGen, "lMt = " + iif( ::lMt , "YES", "NO" ) ) + AAdd( aGen, "lShared = " + iif( ::lShared , "YES", "NO" ) ) + AAdd( aGen, "lFullStatic = " + iif( ::lFullStatic , "YES", "NO" ) ) + AAdd( aGen, "lTrace = " + iif( ::lTrace , "YES", "NO" ) ) + AAdd( aGen, "lInfo = " + iif( ::lInfo , "YES", "NO" ) ) + AAdd( aGen, "cGT = " + ::cGT ) + AAdd( aGen, "lGtGui = " + iif( ::lGtGui , "YES", "NO" ) ) + AAdd( aGen, "lGtWin = " + iif( ::lGtWin , "YES", "NO" ) ) + AAdd( aGen, "lGtWvt = " + iif( ::lGtWvt , "YES", "NO" ) ) + AAdd( aGen, "lGtWvg = " + iif( ::lGtWvg , "YES", "NO" ) ) + AAdd( aGen, "lGtXwc = " + iif( ::lGtXwc , "YES", "NO" ) ) + AAdd( aGen, "lGtCgi = " + iif( ::lGtCgi , "YES", "NO" ) ) + AAdd( aGen, "lGtTrm = " + iif( ::lGtTrm , "YES", "NO" ) ) + AAdd( aGen, "lGtStd = " + iif( ::lGtStd , "YES", "NO" ) ) + AAdd( aGen, "lGtSln = " + iif( ::lGtSln , "YES", "NO" ) ) + AAdd( aGen, "lGtPca = " + iif( ::lGtPca , "YES", "NO" ) ) + AAdd( aGen, "lGtOs2 = " + iif( ::lGtOs2 , "YES", "NO" ) ) + AAdd( aGen, "lGtCrs = " + iif( ::lGtCrs , "YES", "NO" ) ) + + AAdd( aTxt, "" ) + AAdd( aTxt, " " ) + // + ::addSection( aTxt, "GENERAL" , aGen ) + ::addSection( aTxt, "EXTRAS" , ::aExtras ) + ::addSection( aTxt, "HBCS" , ::aPrpHbcs ) + ::addSection( aTxt, "LIBS" , ::aPrpLibs ) + ::addSection( aTxt, "LIBPATHS" , ::aPrpLPaths ) + ::addSection( aTxt, "INCLUDEPATHS" , ::aPrpIPaths ) + ::addSection( aTxt, "DEFINES" , ::aPrpDefines ) + ::addSection( aTxt, "UNDEFINES" , ::aPrpUnDefines ) + ::addSection( aTxt, "HBMK2CMDLINEPARAMS" , ::aPrpHbmk2 ) + ::addSection( aTxt, "BATCHCOMMANDS" , ::aPrpBatch ) + ::addSection( aTxt, "ACTIONSAFTERBUILD" , ::aPrpAActions ) + ::addSection( aTxt, "SOURCESPRG" , ::aSrcPrgs ) + ::addSection( aTxt, "SOURCESC" , ::aSrcCs ) + ::addSection( aTxt, "SOURCESCPP" , ::aSrcCpps ) + ::addSection( aTxt, "SOURCESCH" , ::aSrcChs ) + ::addSection( aTxt, "SOURCESH" , ::aSrcHs ) + ::addSection( aTxt, "SOURCESUI" , ::aSrcUIs ) + ::addSection( aTxt, "SOURCESOTHER" , ::aSrcOthers ) + // + AAdd( aTxt, "" ) + AAdd( aTxt, " " ) + AAdd( aTxt, "" ) + + cTxt := "" + aeval( aTxt, {|e| cTxt += e + hb_eol() } ) + + RETURN hb_memowrit( cPathTmplt, cTxt ) + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:sectionToArray( cBuffer, cSection ) + LOCAL cTxt, n, nn, cTknB, cTknE + LOCAL a_:={} + + cTknB := "<" + cSection + ">" + cTknE := "" + + IF ( n := at( cTknB, cBuffer ) ) > 0 + IF( nn := at( cTknE, cBuffer ) ) > 0 + cTxt := SubStr( cBuffer, n + Len( cTknB ), nn - 1 - ( n + Len( cTknB ) ) ) + ENDIF + IF ! Empty( cTxt ) + a_:= hb_ATokens( cTxt, Chr( 10 ) ) + ENDIF + ENDIF + + RETURN a_ + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:getKeyValuePair( cStr ) + LOCAL n + + IF ( n := at( "=", cStr ) ) > 0 + RETURN { alltrim( substr( cStr, 1, n - 1 ) ), alltrim( substr( cStr, n + 1 ) ) } + ENDIF + + RETURN {} + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:retrieveSection( cBuffer, cSection, aPost ) + LOCAL s + + FOR EACH s IN ::sectiontoArray( cBuffer, cSection ) + AAdd( aPost, alltrim( s ) ) + NEXT + + RETURN Self + +/*----------------------------------------------------------------------*/ + +METHOD IdeExProject:load( cPathTmplt ) + LOCAL cBuffer := hb_memoRead( cPathTmplt ) + LOCAL cValid := "" + LOCAL s, a_ + + IF ! ( left( cBuffer, len( cValid ) ) == cValid ) + RETURN Self + ENDIF + + IF !( hb_eol() == Chr( 10 ) ) + cBuffer := StrTran( cBuffer, hb_eol(), Chr( 10 ) ) + ENDIF + IF !( hb_eol() == Chr( 13 ) + Chr( 10 ) ) + cBuffer := StrTran( cBuffer, Chr( 13 ) + Chr( 10 ), Chr( 10 ) ) + ENDIF + + ::defaults() /* Clear variables */ + + FOR EACH s IN ::sectiontoArray( cBuffer, "GENERAL" ) + IF ! empty( a_:= ::getKeyValuePair( s ) ) + SWITCH a_[ 1 ] + CASE "cProjPath" ; ::cProjPath := a_[ 2 ] ; EXIT + CASE "cProjName" ; ::cProjName := a_[ 2 ] ; EXIT + CASE "cProjType" ; ::cProjType := a_[ 2 ] ; EXIT + CASE "cOutName" ; ::cOutName := a_[ 2 ] ; EXIT + CASE "cOutPath" ; ::cOutPath := a_[ 2 ] ; EXIT + CASE "cWorkPath" ; ::cWorkPath := a_[ 2 ] ; EXIT + CASE "cLaunchExe" ; ::cLaunchExe := a_[ 2 ] ; EXIT + CASE "cLaunchParams" ; ::cLaunchParams := a_[ 2 ] ; EXIT + CASE "cStayIn" ; ::cStayIn := a_[ 2 ] ; EXIT + CASE "lXhb" ; ::lXhb := a_[ 2 ] == "YES" ; EXIT + CASE "lXbase" ; ::lXbase := a_[ 2 ] == "YES" ; EXIT + CASE "lHbQt" ; ::lHbQt := a_[ 2 ] == "YES" ; EXIT + CASE "lXbp" ; ::lXbp := a_[ 2 ] == "YES" ; EXIT + CASE "lFwh" ; ::lFwh := a_[ 2 ] == "YES" ; EXIT + CASE "lHmg" ; ::lHmg := a_[ 2 ] == "YES" ; EXIT + CASE "lOther" ; ::lOther := a_[ 2 ] == "YES" ; EXIT + CASE "lA" ; ::lA := a_[ 2 ] == "YES" ; EXIT + CASE "lB" ; ::lB := a_[ 2 ] == "YES" ; EXIT + CASE "lES" ; ::lES := a_[ 2 ] == "YES" ; EXIT + CASE "lG" ; ::lG := a_[ 2 ] == "YES" ; EXIT + CASE "lJ" ; ::lJ := a_[ 2 ] == "YES" ; EXIT + CASE "lL" ; ::lL := a_[ 2 ] == "YES" ; EXIT + CASE "lM" ; ::lM := a_[ 2 ] == "YES" ; EXIT + CASE "lN" ; ::lN := a_[ 2 ] == "YES" ; EXIT + CASE "lV" ; ::lV := a_[ 2 ] == "YES" ; EXIT + CASE "lW" ; ::lW := a_[ 2 ] == "YES" ; EXIT + CASE "lZ" ; ::lZ := a_[ 2 ] == "YES" ; EXIT + CASE "lQ" ; ::lQ := a_[ 2 ] == "YES" ; EXIT + CASE "lBuild" ; ::lBuild := a_[ 2 ] == "YES" ; EXIT + CASE "lCredits" ; ::lCredits := a_[ 2 ] == "YES" ; EXIT + CASE "cES" ; ::cES := a_[ 2 ] ; EXIT + CASE "cG" ; ::cG := a_[ 2 ] ; EXIT + CASE "cM" ; ::cM := a_[ 2 ] ; EXIT + CASE "cW" ; ::cW := a_[ 2 ] ; EXIT + CASE "cQ" ; ::cQ := a_[ 2 ] ; EXIT + CASE "lInc" ; ::lInc := a_[ 2 ] == "YES" ; EXIT + CASE "lGui" ; ::lGui := a_[ 2 ] == "YES" ; EXIT + CASE "lMt" ; ::lMt := a_[ 2 ] == "YES" ; EXIT + CASE "lShared" ; ::lShared := a_[ 2 ] == "YES" ; EXIT + CASE "lFullStatic" ; ::lFullStatic := a_[ 2 ] == "YES" ; EXIT + CASE "lTrace" ; ::lTrace := a_[ 2 ] == "YES" ; EXIT + CASE "lInfo" ; ::lInfo := a_[ 2 ] == "YES" ; EXIT + CASE "cGT" ; ::cGT := a_[ 2 ] ; EXIT + CASE "lGtGui" ; ::lGtGui := a_[ 2 ] == "YES" ; EXIT + CASE "lGtWin" ; ::lGtWin := a_[ 2 ] == "YES" ; EXIT + CASE "lGtWvt" ; ::lGtWvt := a_[ 2 ] == "YES" ; EXIT + CASE "lGtWvg" ; ::lGtWvg := a_[ 2 ] == "YES" ; EXIT + CASE "lGtXwc" ; ::lGtXwc := a_[ 2 ] == "YES" ; EXIT + CASE "lGtCgi" ; ::lGtCgi := a_[ 2 ] == "YES" ; EXIT + CASE "lGtTrm" ; ::lGtTrm := a_[ 2 ] == "YES" ; EXIT + CASE "lGtStd" ; ::lGtStd := a_[ 2 ] == "YES" ; EXIT + CASE "lGtSln" ; ::lGtSln := a_[ 2 ] == "YES" ; EXIT + CASE "lGtPca" ; ::lGtPca := a_[ 2 ] == "YES" ; EXIT + CASE "lGtOs2" ; ::lGtOs2 := a_[ 2 ] == "YES" ; EXIT + CASE "lGtCrs" ; ::lGtCrs := a_[ 2 ] == "YES" ; EXIT + ENDSWITCH + ENDIF + NEXT + + ::retrieveSection( cBuffer, "EXTRAS" , ::aExtras ) + ::retrieveSection( cBuffer, "HBCS" , ::aPrpHbcs ) + ::retrieveSection( cBuffer, "LIBS" , ::aPrpLibs ) + ::retrieveSection( cBuffer, "LIBPATHS" , ::aPrpLPaths ) + ::retrieveSection( cBuffer, "INCLUDEPATHS" , ::aPrpIPaths ) + ::retrieveSection( cBuffer, "DEFINES" , ::aPrpDefines ) + ::retrieveSection( cBuffer, "UNDEFINES" , ::aPrpUnDefines ) + ::retrieveSection( cBuffer, "HBMK2CMDLINEPARAMS" , ::aPrpHbmk2 ) + ::retrieveSection( cBuffer, "BATCHCOMMANDS" , ::aPrpBatch ) + ::retrieveSection( cBuffer, "ACTIONSAFTERBUILD" , ::aPrpAActions ) + ::retrieveSection( cBuffer, "SOURCESPRG" , ::aSrcPrgs ) + ::retrieveSection( cBuffer, "SOURCESC" , ::aSrcCs ) + ::retrieveSection( cBuffer, "SOURCESCPP" , ::aSrcCpps ) + ::retrieveSection( cBuffer, "SOURCESCH" , ::aSrcChs ) + ::retrieveSection( cBuffer, "SOURCESH" , ::aSrcHs ) + ::retrieveSection( cBuffer, "SOURCESUI" , ::aSrcUIs ) + ::retrieveSection( cBuffer, "SOURCESOTHER" , ::aSrcOthers ) RETURN Self diff --git a/harbour/contrib/hbide/projectwizard.ui b/harbour/contrib/hbide/projectwizard.ui index 3ed90ebe9a..98585875af 100644 --- a/harbour/contrib/hbide/projectwizard.ui +++ b/harbour/contrib/hbide/projectwizard.ui @@ -1279,7 +1279,7 @@ QFrame::Raised - + 8