LISTBOX BUG

[M., Ronaldo]

Proc Main( )

   LOCAL bAux
   LOCAL sConf := "1"
   LOCAL aCBBX := { { "1 - Yes", "1" }, { "2 - No", "2" } }
   LOCAL GetList := {}

   SETMODE( 25, 80 )

   CLS

   @ 01, 01 SAY "LISTBOX ERROR: DEFAULT VALUE IS [1], BUT ON EXIT CHANGE TO NEXT VALUE [2]"
   @ 02, 01 SAY "JUST USE K_ENTER/K_TAB AND EXIT LISTBOX"

   @ 08, 07, 11, 12 ;
     GET       sConf ;
     LISTBOX   aCBBX ;
     MESSAGE   "Select an Option !" ;
     COLOR     "GR+/B*,GR+/B*,W*/N*,GR+/R,GR+/B*,GR+/B*,GR+/B*,GR+/N*" ;
     SCROLLBAR DROPDOWN

   @ 10, 01 ;
     GET bAux ;
     PUSHBUTTON ;
     CAPTION PadC( "Save Data", 76, Chr( 177 ) ) ;
     STYLE "[]" ;
     STATE  {||  ReadKill( .T. ) }

   ReadModal( GetList, NIL, NIL, 24, 0, 79, "B/W,GR+/R,,,B/W" )

Return

[Qatan]

Hello M., Ronando,

 

Here I don’t see any problem... on exit it stays on the value I selected...

I am using Harbour Nightly build

 

Qatan

--
You received this message because you are subscribed to the Google Groups "Harbour Developers" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-deve...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

[M., Ronaldo]

Thanks Qatan !


I Will try with a fresh build :-)


Using: Harbour 3.2.0dev (r1411290503)
ListBox have no problem ( sources from 12/02/2014 )


But using sources from 12/10/2014 ( bug exists )
Harbour 3.2.0dev (r1412050033)
Copyright (c) 1999-2014, http://harbour-project.org/

Harbour Build Info
---------------------------
Version: Harbour 3.2.0dev (r1412050033)
Compiler: Microsoft Visual C++ 16.0.40219 (32-bit)
Platform: Windows 7 6.1.7601 Service Pack 1
PCode version: 0.3
ChangeLog last entry: 2014-12-05 01:33 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
ChangeLog ID: 9cf20181c29cfc4b0df7f4180fa403bb9fa1df77
Built on: Dec 10 2014 14:11:38
Build options: (C++ mode) (Clipper 5.3b) (Clipper 5.x undoc)
---------------------------

[M., Ronaldo]

Bug persistent !

Harbour 3.2.0dev (r1412151448)

Copyright (c) 1999-2014, http://harbour-project.org/

Harbour Build Info
---------------------------

Version: Harbour 3.2.0dev (r1412151448)

Compiler: Microsoft Visual C++ 16.0.40219 (32-bit)
Platform: Windows 7 6.1.7601 Service Pack 1
PCode version: 0.3

ChangeLog last entry: 2014-12-15 15:48 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
ChangeLog ID: 52714db69b0f8a06ed3fb0188dd7644416ec11fe
Built on: Dec 18 2014 09:40:56

[Qatan]

Hello M., Ronaldo,

 

I just built your example and it works fine...

 

Harbour Build Info

---------------------------

Version: Harbour 3.2.0dev (r1411040054)

Compiler: MinGW GNU C 4.6.1 (32-bit)

Platform: Windows 7 6.1.7601 Service Pack 1

PCode version: 0.3

ChangeLog last entry: 2014-11-04 01:54 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

ChangeLog ID: d0bdab4707bc9a6a62ecd653d4e404015aca43f5

Built on: Nov  4 2014 02:39:54

Build options: (Clipper 5.3b) (Clipper 5.x undoc)

---------------------------

 

Download the .EXE here.

 

Maybe we are using different build version?

 

 

Qatan

 

 

 

 

From: 'M., Ronaldo' via Harbour Developers

[Alain Aupeix]

Le 18/12/2014 21:45, Qatan a écrit :
> Hello M., Ronaldo,
>
> I just built your example and it works fine...
>
> Harbour Build Info
> ---------------------------
> Version: Harbour 3.2.0dev (r1411040054)
>

> Maybe we are using different build version?

> Bug persistent !
>
> Harbour 3.2.0dev (r1412151448)

Surely ...

A+
--
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev (2014-12-15 14:48) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2320)
------------------------------------------------------------------------

[Qatan]

Hello M., Ronaldo,

 

I confirm the bug with latest Harbour build.

(r1412151448)

 

Probably one of the last month touchup on GET system...  I hope Przemek / Viktor will find out what is wrong...

 

Regards,

 

Qatan

[M., Ronaldo]

Same error using Viktor Fork !

* Sources from 12/10/2014+

[M., Ronaldo]

Fixed on Viktor Fork :-)

2014-12-19 01:00 UTC+0100 Viktor Szakats (vszakats users.noreply.github.com)

* src/rtl/tgetlist.prg

! HBGetList():GUIApplyKey(): fixed bug introduced with UNICODE