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

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

Browse Source 
* src/rtl/listbox.prg
    ! LISTBOX(): Fixed RTE (and 5.3 incompatibility) when 
      non-logical/non-NIL type is passed as 5th parameter.
      This makes the ListBox() example included in 5.3 NG behave 
      exactly the same in Harbour as in C5.3. (Yes, the 
      example passes wrong parameter, plus it has a compiler 
      stopping typo, and it still RTEs even after the fix, 
      so better find some better example.)
This commit is contained in:
Viktor Szakats
2011-01-30 14:39:55 +00:00
parent 8a16d1405a
commit fd56026109
2 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -16,6 +16,16 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-01-30 15:36 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/listbox.prg
! LISTBOX(): Fixed RTE (and 5.3 incompatibility) when
non-logical/non-NIL type is passed as 5th parameter.
This makes the ListBox() example included in 5.3 NG behave
exactly the same in Harbour as in C5.3. (Yes, the
example passes wrong parameter, plus it has a compiler
stopping typo, and it still RTEs even after the fix,
so better find some better example.)
2011-01-30 00:27 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/listbox.prg
! Fixed casing in some words in license gone wrong in a very

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

@@ -1064,7 +1064,9 @@ METHOD New( nTop, nLeft, nBottom, nRight, lDropDown )
RETURN NIL
ENDIF
DEFAULT lDropDown TO .F.
IF !ISLOGICAL( lDropDown )
lDropDown := .F.
ENDIF
::nBottom := nBottom
::nRight := nRight