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

2009-11-27 16:58 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbide/hbide.prg
    ! Fixed a bad behaviour. HBIDE was unable to start-up.
This commit is contained in:
Pritpal Bedi
2009-11-28 00:57:51 +00:00
parent b8b10faf91
commit ffdf07e5fd
2 changed files with 20 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-11-27 16:58 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbide/hbide.prg
! Fixed a bad behaviour. HBIDE was unable to start-up.
2009-11-28 00:26 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/vm/strapi.c
* harbour/include/hbapistr.h

26
harbour/contrib/hbide/hbide.prg
View File

@@ -241,6 +241,7 @@ METHOD HbIde:create( cProjIni )
::loadConfig( cProjIni )
::BuildDialog()
HBXBP_DEBUG( 133 )
::oDa := ::oDlg:drawingArea
SetAppWindow( ::oDlg )
::oDlg:Show()
@@ -440,6 +441,7 @@ METHOD HbIde:loadConfig( cHbideIni )
HBXBP_DEBUG( hb_dirBase(), cHbideIni )
::cProjIni := cHbideIni
::aIni := { afill( array( 7 /*INI_HBIDE_VRBLS*/ ), "" ), {}, {} }
IF file( ::cProjIni )
#if 0
@@ -462,7 +464,6 @@ METHOD HbIde:loadConfig( cHbideIni )
#endif
::aIni := { array( 7 /*INI_HBIDE_VRBLS*/ ), {}, {} }
aElem := ReadSource( ::cProjIni )
FOR EACH s IN aElem
@@ -499,6 +500,8 @@ METHOD HbIde:loadConfig( cHbideIni )
NEXT
ENDIF
HBXBP_DEBUG( "Filled Defaults" )
RETURN Self
/*----------------------------------------------------------------------*/
@@ -752,11 +755,12 @@ METHOD HbIde:editSource( cSourceFile )
METHOD HbIde:loadSources()
LOCAL i
FOR i := 1 TO len( ::aIni[ INI_FILES ] )
::editSource( ::aIni[ INI_FILES, i ] )
NEXT
::qTabWidget:setCurrentIndex( val( ::aIni[ INI_HBIDE, RecentTabIndex ] ) )
IF !empty( ::aIni[ INI_FILES ] )
FOR i := 1 TO len( ::aIni[ INI_FILES ] )
::editSource( ::aIni[ INI_FILES, i ] )
NEXT
::qTabWidget:setCurrentIndex( val( ::aIni[ INI_HBIDE, RecentTabIndex ] ) )
ENDIF
RETURN Self
/*----------------------------------------------------------------------*/
@@ -1121,11 +1125,13 @@ METHOD HbIde:buildFuncList()
METHOD HbIde:setPosAndSizeByIni( qWidget, nPart )
LOCAL aRect
aRect := hb_atokens( ::aIni[ INI_HBIDE, nPart ], "," )
aeval( aRect, {|e,i| aRect[ i ] := val( e ) } )
IF !empty( ::aIni[ INI_HBIDE, nPart ] )
aRect := hb_atokens( ::aIni[ INI_HBIDE, nPart ], "," )
aeval( aRect, {|e,i| aRect[ i ] := val( e ) } )
qWidget:move( aRect[ 1 ], aRect[ 2 ] )
qWidget:resize( aRect[ 3 ], aRect[ 4 ] )
qWidget:move( aRect[ 1 ], aRect[ 2 ] )
qWidget:resize( aRect[ 3 ], aRect[ 4 ] )
ENDIF
RETURN Self