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

2011-06-06 18:13 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbide/idechangelog.prg
    * Changed: behavior of "Current Log Entry" to scroll to last 
      after an element is added.
  * contrib/hbide/ideactions.prg
  * contrib/hbide/idemain.prg
    * Changed: "Setup/CodePage" menu to display Harbour recognized
      codepage name alsong its unique id.

      Let me know if that makes the whole list of Harbour's 
      code pages.
This commit is contained in:
Pritpal Bedi
2011-06-07 01:17:42 +00:00
parent ea238417a7
commit 73e99cf51a
4 changed files with 28 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -16,6 +16,18 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-06-06 18:13 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/idechangelog.prg
* Changed: behavior of "Current Log Entry" to scroll to last
after an element is added.
* contrib/hbide/ideactions.prg
* contrib/hbide/idemain.prg
* Changed: "Setup/CodePage" menu to display Harbour recognized
codepage name alsong its unique id.
Let me know if that makes the whole list of Harbour's
code pages.
2011-06-06 15:37 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/idechangelog.prg
* contrib/hbide/idesaveload.prg

16
harbour/contrib/hbide/ideactions.prg
View File

@@ -843,7 +843,7 @@ STATIC FUNCTION hbide_buildCDPMenu( oIde, oMenu )
oSubMenu := XbpMenu():new( oMenu, , .t. ):create()
FOR EACH cdp IN get_list_of_real_codepages()
oSubMenu:addItem( { hb_cdpUniID( cdp ), get_cdp_block( oIde, hb_cdpUniID( cdp ) ) } )
oSubMenu:addItem( { hbide_getCDPforID( cdp ) + ":" + hb_cdpUniID( cdp ), get_cdp_block( oIde, hb_cdpUniID( cdp ) ) } )
NEXT
RETURN oSubMenu
@@ -852,12 +852,16 @@ STATIC FUNCTION get_cdp_block( oIde, cCodePage )
RETURN {|| oIde:setCodec( cCodePage ) }
STATIC FUNCTION get_list_of_real_codepages()
LOCAL s_uni, cdp
LOCAL cdp
s_uni := { => }
FOR EACH cdp IN hb_cdpList()
s_uni[ hb_cdpUniID( cdp ) ] := cdp
NEXT
STATIC s_uni
IF empty( s_uni )
s_uni := { => }
FOR EACH cdp IN hb_cdpList()
s_uni[ hb_cdpUniID( cdp ) ] := cdp
NEXT
ENDIF
RETURN s_uni

1
harbour/contrib/hbide/idechangelog.prg
View File

@@ -363,6 +363,7 @@ METHOD IdeChangeLog:addToLog( aLog )
ENDCASE
::oUI:q_plainLogEntry:setPlainText( hbide_arrayToMemo( a_ ) )
QApplication():sendEvent( ::oUI:q_plainLogEntry, QKeyEvent( QEvent_KeyPress, Qt_Key_End, Qt_ControlModifier ) )
RETURN Self

5
harbour/contrib/hbide/idemain.prg
View File

@@ -1593,9 +1593,14 @@ METHOD HbIde:updateTitleBar()
/*----------------------------------------------------------------------*/
METHOD HbIde:setCodec( cCodec )
LOCAL n
DEFAULT cCodec TO ::cWrkCodec
IF ( n := at( ":", cCodec ) ) > 0
cCodec := substr( cCodec, n+1 )
ENDIF
::cWrkCodec := hbide_getCDPforID( cCodec )
::oDK:setStatusText( SB_PNL_CODEC, ::cWrkCodec + ":" + hb_cdpUniID( ::cWrkCodec ) )