Re: [Hwgui-developers] Little problem with combobox

[Alain A. <ala...@wa...>]

Better with sample :)

Le 03/08/2016 à 11:34, Alexander S.Kresin a écrit :
> Alain Aupeix пишет:
>
>>     @ 430,72  GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE
>> WS_TABSTOP SIZE 210, 25 TEXT
>>
>> ...
>>
>>     cPlace="&place__0__="+alltrim(cVille)
>>
>> Error BASE/2022  Argument error: ALLTRIM
>> Called from ALLTRIM(0)
>     I can't reproduce this error. Seems, we need a small self-contained
> sample.
Hi, here is a sample, you can test changing or not the combobox element

1) Run it and click ok => (case 1) => good
2) Run it and change the radio button and click ok => case 2 => good
3) Run it and change the radio (case 2), change again (case 1) and click 
ok =>

Error BASE/1101  Argument error: LTRIM
Called from LTRIM(0)
Called from MAIN(44)

// ===================================================================
#include "windows.ch"
#include "guilib.ch"
#include "gtk.ch"
#include "inkey.ch"
#include "hbgtinfo.ch"

memvar aDepartment, cDefDep
// ===================================================================
function Main()
// ===================================================================
local oDlg, oFont := HFont():Add( "Serif",0,-13 )
local cTitle := "City choice"
local cText01 := "Choose the city"
local oVille, cVille
local oVille2, cVille2
local cCity:="",result:=""
local aVilles:={"Chalais                ",;
                 "Saint-Jory-de-Chalais  ",;
                 "Saint-Paul-la-Roche    ",;
                }

INIT DIALOG oDlg CLIPPER NOEXIT TITLE cTitle AT 250,180  SIZE 220,180 
FONT oFont

    @   45,10 SAY "City" SIZE 60, 22 COLOR hwg_VColor("FF0000")
    @   45,42 GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE 
WS_TABSTOP SIZE 170, 25

    @   45,74 SAY "City" SIZE 60, 22 COLOR hwg_VColor("FF0000")
    @   45,96 GET COMBOBOX oVille2 VAR cVille2 ITEMS aVilles STYLE 
WS_TABSTOP SIZE 170, 25;
              ON CHANGE {||qout(cVille2)} TEXT

RADIOGROUP
    @ 10,42 RADIOBUTTON "oCity" SIZE 22,22 ON CLICK {|| cCity:="1"}
    @ 10,96 RADIOBUTTON "oCity2" SIZE 22,22 ON CLICK {|| cCity:="2"}
END RADIOGROUP SELECTED 1

    @   80,140  BUTTON "Ok" OF oDlg ID IDOK  ;
               SIZE 65, 32 COLOR hwg_VColor("FF0000")

ACTIVATE DIALOG oDlg
oFont:Release()
if oDlg:lresult
qout(cCity)
    if cCity == "1"
       hwg_MsgInfo("You have choosen : "+ltrim(cVille)+chr(10)+"with 
solution 1","Solution n°1")
    else
       hwg_MsgInfo("You have choosen : "+ltrim(cVille2)+chr(10)+"with 
solution 1","Solution n°2")
    endif
qout(cCity+chr(10))
endif
quit
return nil

// ===================================================================

A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2546)
------------------------------------------------------------------------