Using "wxCheckListBox" in a wizard project

[LETARTARE]

Hello,
II try to change the project creation wizard for "Avr Project" by adding a third page of choice additional libraries.
This setting uses a widget "wxCheckListBox" named "lib_addons" with fields: libA, libB, libC, libD.

I changed it to "wizard.xrc" and "wizard.script"

A-Modifications "wizard.xrc"
     see *.zip

B-Modifications "wizard.script"

1 - global variables

Code: [Select]

/// ------------------------------
/// LETARTARE for wxCheckListBox
LibNumbers <- _T ("");
LibString <- _T ("");
/// <----------------------------
2 - in "BeginWizard function ()"

Code: [Select]

/// ---------------------------------------------------------------------
/// For testing LETARTARE "wiz::GetListboxStringSelections (wxString &)"
/// Page "libraryChoice" contents "wxCheckListBox"
       Wizard.AddPage (_T ("libraryChoice")) /// inside "wizard.xrc"
/// <-------------------------------------------------------------------
3 - I created the following function to display the values ​​retrieved

Code: [Select]

/// ----------------------------------------------- ---------------------
/// LETARTARE : lib_addons
/// functions available for "wxCheckListBox"
/// int GetListboxSelection(const wxString& name); // with ONLY ONE SELECTION !!!
/// wxString GetListboxSelections(const wxString& name);
/// wxString GetListboxStringSelections(const wxString& name);
/// void SetListboxSelection(const wxString& name, int sel);


function OnLeave_libraryChoice (fwd)
{
    if (fwd)
    {
        LibNumbers = Wizard.GetListboxSelections (_T ("lib_addons"));
       /// Console output for test scripting
       ::print (_T ("->") +  LibNumbers  + _T ("<-"));
        if (LibNumbers.IsEmpty ()) {
             ::print (_T ("No selected library"));
        }
        else {
              LibString = Wizard.GetListboxStringSelections (_T ("lib_addons"));
             ::print (_T ("lib_addons = ") + LibString);
        }
    }
    return true;
}
/// <-------------------------------------------------------------------
Disregard of space errors in quotations !!

4 - Results:
creation is correct but:

    - The variable LibNumbers is always equal to 0 !
     - Variable LibString is always empty!

I can not find my mistake?

Cordially.

[MortenMacFly]

I can not find my mistake?

What version of C::B do you use? IMHO scripting support for wxCheckListBox was added just recently.

[LETARTARE]

hello,
C::B 12.11
I found the access functions in wiz.h and wiz.cpp
cordially

[jens]

You ask for selected item, these are the item(s) which is/are highlighted, not the item(s) with a checked checkbox.
wxCheckListBox is not (yet) implemented as far as I can see.

[LETARTARE]

thanks you jens.
The box checked are they planned in the near future ?

[jens]

I never worked on scriptedwizard.

Nevertheless I attach a quick patch to imöplement wxCeckListBox-functions for it.

It would be nice if anybody can test it and give feedback.

It works with your test-script (after changing the function calls of course).

[LETARTARE]

@jens
after some computer troubles...
I tested the functions :

Code: [Select]

wxString GetCheckListboxChecked (const wxString& name)and

Code: [Select]

wxString GetCheckListboxStringChecked(const wxString& name)Both give the desired result.

LibNumbers ->0;2;4;6;<-
Lib_addOns  ->lib_A;lib_C;lib_E;lib_G;<-

But I will now check the four functions in more depth.
And continue editing the wizard.

A big thank you first (especially extremely quickly !)

[LETARTARE]

@jens
All methods work correctly on my system.
Soon, I will provide a 'wizard.script' example.
To save with 'Config Manager', I would need:

Code: [Select]

void SetCheckListboxChecked(const wxString& name, wxString listname);

Code: [Select]

/// LETARTARE
void Wiz::SetCheckListboxChecked(const wxString& name, wxString listname )
{
    wxWizardPage* page = m_pWizard->GetCurrentPage();
    if (page)
    {
        wxCheckListBox* clb = dynamic_cast<wxCheckListBox*>(page->FindWindowByName(name, page));
        if (clb && !listname.IsEmpty())
        {  
           /// clear checked
unsigned int i;
for (i = 0; i < clb->GetCount() ; i++ )
      clb->Check(i, false) ;
           /// format listname "1;4;7;"
        char sep = ';';
        unsigned long pos;
          /// checked
        while (!listname.IsEmpty()) {
listname.BeforeFirst(sep).ToULong(&pos);
clb->Check(pos, true) ;
listname = listname.AfterFirst(sep) ;
                }
        }
    }
}
is that correct ?

[LETARTARE]

@jens
Is it possible to validate the fix in the svn ?
Because I intend to propose to wizard specialization 'avr' using this fix that works for me correctly.

Thank you in advance