Use wxChoice instead of wxComboBox with readonly if the readonly bit is set for select_open types.

Fixes #4584 (UX issue on MacOS with wxCombobox/wxChoice)
This commit is contained in:
Joseph Lenox 2018-11-09 22:13:35 -06:00
parent 4ae028a770
commit 1a92aeec2a

View File

@ -223,9 +223,14 @@ sub BUILD {
my ($self) = @_;
my $style = 0;
$style |= wxCB_READONLY if defined $self->option->gui_type && $self->option->gui_type ne 'select_open';
my $field = Wx::ComboBox->new($self->parent, -1, "", wxDefaultPosition, $self->_default_size,
my $field = 0;
if (defined $self->option->gui_type && $self->option->gui_type ne 'select_open') {
$field = Wx::Choice->new($self->parent, -1, wxDefaultPosition, $self->_default_size,
$self->option->labels || $self->option->values || [], $style);
} else {
$field = Wx::ComboBox->new($self->parent, -1, "", wxDefaultPosition, $self->_default_size,
$self->option->labels || $self->option->values || [], $style);
}
$self->wxWindow($field);
$self->set_value($self->option->default);