Hi As you know debugger doesn't process init.cld well. There is a patch :
--- C:/RAZVOJ/HARBOUR/TEST/Debugger/debugger.prg Fri Sep 04 11:18:59 2009 +++ C:/HRB/SVN/SRC-SVN/source/debug/debugger.prg Fri Sep 04 11:11:09 2009
@@ -154,10 +154,6 @@
s_oDebugger:aModules := uParam4
s_oDebugger:aBreakPoints := uParam5
IF lStartup
- IF File( s_oDebugger:cSettingsFileName )
- s_oDebugger:LoadSettings()
- s_oDebugger:lGo := s_oDebugger:lRunAtStartup // Once again
after settings file is loaded
- ENDIF
IF s_oDebugger:lRunAtStartup
__dbgSetGo( uParam1 )
RETURN
@@ -420,6 +416,12 @@
::BuildCommandWindow()
::BuildBrowseStack()
+
+ IF File( ::cSettingsFileName )
+ ::LoadSettings()
+ ::lGo := ::lRunAtStartup // Once again after settings file is loaded
+ ENDIF
+
RETURN Self
METHOD OpenDebuggerWindow() CLASS HBDebugger
@@ -2744,6 +2746,10 @@
LOCAL nAt
+ IF !::lActive
+ RETURN NIL
+ ENDIF
+
IF nLine == NIL
cFileName := strip_path( ::cPrgName )
nLine := ::oBrwText:RowPos()
@@ -2770,9 +2776,9 @@
::oBrwText:ToggleBreakPoint( nLine, .F. )
ENDIF
ENDIF
- IF ::lActive
- ::oBrwText:RefreshCurrent():ForceStable()
- ENDIF
+
+ ::oBrwText:RefreshCurrent():ForceStable()
+
RETURN NIL
<<attachment: francek_prijatelj.vcf>>
_______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
