view release on metacpan or  search on metacpan

lib/App/PerlTidy/Tk.pm  view on Meta::CPAN

206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
 
sub config_changed {
    my ($self) = @_;
 
    if ($self->{autotidy}) {
        $self->run_tidy;
    }
}
 
 
sub update_config {
    my ($self) = @_;
    #my $name = 'indent-columns';
    #$self->{config}{$name} = $self->{widgets}{$name}->get;
}
 
sub create_text_widget {
    my ($self) = @_;
 
    $self->{text} = $self->{top}->Text(
        -state => 'normal',