(
# 'geometry' => $self->{top}->geometry,
# );
# path($config_file)->spew(encode_json(\%config));
exit;
}
1;
=head1 NAME
App::Tk::Deparse - Tk based GUI to experiment with B::n the config file and next time we use that size to open the application.
~/.perl-tk-deparse.json
=head1 SEE ALSO
L<B::Deparse>
L<Tk>
L<Tk::HyperText>
=head1 COPYRIGHT AND LICENSE
Copyrigh