2012-03-13 09:37 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

* ontrib/hbide/ideuisrcmanager.prg
    * Some operational refinements.

harbour/ChangeLog

@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-03-13 09:37 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
+  * ontrib/hbide/ideuisrcmanager.prg
+    * Some operational refinements.
+
 2012-03-13 13:53 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
   * harbour/contrib/sddpg/sddpg.c
   * harbour/contrib/sddsqlt3/sddsqlt3.c

harbour/contrib/hbide/ideuisrcmanager.prg

@@ -794,9 +794,8 @@ METHOD IdeUISrcManager:loadSource()
 
    IF hb_fileExists( ::cSrcFile )
       ::aSource := hbide_readSource( ::cSrcFile )
-   ELSE
-      ::buildSource()
    ENDIF
+   ::buildSource()
 
    RETURN Self
 
@@ -804,6 +803,7 @@ METHOD IdeUISrcManager:loadSource()
 
 METHOD IdeUISrcManager:buildSource()
    LOCAL aSrc, cCls, cClsC
+   LOCAL qHScr, qVScr, qCursor, qCurPos, qHVal, qVVal
 
    IF empty( ::aSource )
       aSrc := {}
@@ -945,7 +945,21 @@ METHOD IdeUISrcManager:buildSource()
 
    ::oSM:editSource( ::cSrcFile, 0, 0, 0, NIL, NIL, .f., .t. )
    IF ::oEM:isOpen( ::cSrcFile )
+      qHScr   := ::qEdit:horizontalScrollBar()
+      qVScr   := ::qEdit:verticalScrollBar()
+      qCursor := ::qEdit:textCursor()
+
+      qCurPos := qCursor:position()
+      qHVal   := qHScr:value()
+      qVVal   := qVScr:value()
+
       ::oEM:reLoad( ::cSrcFile )
+
+      qCursor := ::qEdit:textCursor()
+      qCursor:setPosition( qCurPos )
+      ::qEdit:setTextCursor( qCursor )
+      qHScr:setValue( qHVal )
+      qVScr:setValue( qVVal )
    ENDIF
 
    RETURN Self