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

2011-01-30 00:21 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/rtl/listbox.prg
    ! _LISTBOX_(): Fixed very old bug (can't access ViewVC ATM, but around ~r7550)
      causing incompatibility with C5.3 regarding IsOpen initial value. It was
      wrongly initialized by parameter what is now correctly renamed to lScrollBar.
      Was wrongly named lIsOpen before this fix.
    % Don't pass default style value to ScrollBar()
This commit is contained in:
Viktor Szakats
2011-01-29 23:22:39 +00:00
parent f13db9bff6
commit 045014a57f
2 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -16,6 +16,14 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-01-30 00:21 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/listbox.prg
! _LISTBOX_(): Fixed very old bug (can't access ViewVC ATM, but around ~r7550)
causing incompatibility with C5.3 regarding IsOpen initial value. It was
wrongly initialized by parameter what is now correctly renamed to lScrollBar.
Was wrongly named lIsOpen before this fix.
% Don't pass default style value to ScrollBar()
2011-01-29 20:29 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* utils/hbmk2/hbmk2.prg
* utils/hbmk2/hbmk2.*.po

7
harbour/src/rtl/listbox.prg
View File

@@ -1095,7 +1095,7 @@ FUNCTION ListBox( nTop, nLeft, nBottom, nRight, lDropDown )
RETURN HBListBox():New( nTop, nLeft, nBottom, nRight, lDropDown )
FUNCTION _LISTBOX_( nTop, nLeft, nBottom, nRight, xPos, aItems, cCaption,;
cMessage, cColorSpec, bFBlock, bSBlock, lDropDown, lIsOpen, cBitmap )
cMessage, cColorSpec, bFBlock, bSBlock, lDropDown, lScrollBar, cBitmap )
LOCAL o := HBListBox():New( nTop, nLeft, nBottom, nRight, lDropDown )
@@ -1114,7 +1114,6 @@ FUNCTION _LISTBOX_( nTop, nLeft, nBottom, nRight, xPos, aItems, cCaption,;
o:message := cMessage
o:fBlock := bFBlock
o:sBlock := bSBlock
o:isOpen := lIsOpen
nLen := Len( aItems )
FOR nPos := 1 TO nLen
@@ -1130,11 +1129,11 @@ FUNCTION _LISTBOX_( nTop, nLeft, nBottom, nRight, xPos, aItems, cCaption,;
ENDIF
NEXT
IF ISLOGICAL( lIsOpen ) .AND. lIsOpen
IF ISLOGICAL( lScrollBar ) .AND. lScrollBar
IF ISLOGICAL( lDropDown ) .AND. lDropDown
nTop++
ENDIF
o:VScroll := ScrollBar( nTop + 1, nBottom - 1, nRight,, SCROLL_VERTICAL )
o:VScroll := ScrollBar( nTop + 1, nBottom - 1, nRight )
ENDIF
IF ISCHARACTER( cBitmap )