$frfr->Label( -text => 'Campaign' )->grid( -column => 0, -row => 0 ); $frfr->Checkbutton( -text => 'enabled', -variable => \$self->{_campaigns_filter_flag}, #-command => sub { $self->_campaigns_filter_flag_change(); }, -command => sub { $self->_get_records_all(); }, )->grid( $self->{_campaign_list} = $frfr->JComboBox( -relief => 'sunken', -highlightthickness => 0, -mode => 'readonly', -listwidth => '16', -entrywidth => '16', #-listcmd => sub { $self->_campaign_list_load() }, ), -padx => 2, -pady => 1, ); $self->{_campaign_list}->configure( -subwidgets => [ Listbox => { -background => 'white' }, ] ); $self->{_campaign_list}->configure( -selectcommand => sub { $self->_campaign_filter_set( $self->{_campaign_list} ); } ); #$self->_campaign_list_load(); $self->{_campaign_list}->configure( -popupcreate => sub { $self->_campaign_list_load() } );