view release on metacpan or  search on metacpan

lib/YuiRestClient/App.pm  view on Meta::CPAN

}

sub checkbox {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::CheckBox->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub combobox {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::ComboBox->new({
            widget_controller => $self->{widget_controller},
            filter            => $filter
    });
}

sub itemselector {
    my ($self, $filter) = @_;
    return YuiRestClient::Widget::ItemSelector->new({

lib/YuiRestClient/Widget/ComboBox.pm  view on Meta::CPAN

sub set {
    my ($self, $item) = @_;
    return $self->action(action => YuiRestClient::Action::YUI_ENTER_TEXT, value => $item);
}

sub value {
    my ($self) = @_;
    return $self->property('value');
}

# When combobox is enabled it does not have 'enabled' property. Only in case it is disabled, the property appears
# and equals to 'false'.
sub is_enabled {
    my ($self) = @_;
    my $is_enabled = $self->property('enabled');
    return !defined $is_enabled || $is_enabled;
}

1;