math-image

 view release on metacpan or  search on metacpan

lib/App/MathImage/Tk/About.pm  view on Meta::CPAN

# with Math-Image.  If not, see <http://www.gnu.org/licenses/>.


package App::MathImage::Tk::About;
use 5.008;
use strict;
use warnings;
use Tk;
use Locale::TextDomain 1.19 ('App-MathImage');

use base 'Tk::Derived', 'Tk::Dialog';
Tk::Widget->Construct('AppMathImageTkAbout');

our $VERSION = 110;

# uncomment this to run the ### lines
# use Smart::Comments;


sub Populate {
  my ($self, $args) = @_;

lib/App/MathImage/Tk/Diagnostics.pm  view on Meta::CPAN

use strict;
use warnings;
use List::Util 'max';
use Tk;
use Tk::Balloon;
use Locale::TextDomain 1.19 ('App-MathImage');

# uncomment this to run the ### lines
#use Smart::Comments;

use base 'Tk::Derived', 'Tk::DialogBox';
Tk::Widget->Construct('AppMathImageTkDiagonostics');

our $VERSION = 110;

sub Populate {
  my ($self, $args) = @_;
  ### Diagnostics Populate() ...

  my $balloon = $self->Balloon;

lib/App/MathImage/Tk/Drawing.pm  view on Meta::CPAN

# with Math-Image.  If not, see <http://www.gnu.org/licenses/>.

package App::MathImage::Tk::Drawing;
use 5.008;
use strict;
use warnings;
use Tk;
use Image::Base::Tk::Photo;
use App::MathImage::Tk::Perl::WeakAfter;

use base 'Tk::Derived', 'Tk::Label';
Tk::Widget->Construct('AppMathImageTkDrawing');

our $VERSION = 110;

sub ClassInit {
  my ($class, $mw) = @_;
  ### ClassInit(): $class
  $class->SUPER::ClassInit($mw);
  # event handlers for all instances
  $mw->bind($class,'<Expose>',\&_do_expose);

lib/App/MathImage/Tk/Main.pm  view on Meta::CPAN

use Tk::Balloon;
use Locale::TextDomain 1.19 ('App-MathImage');

use App::MathImage::Generator;
use App::MathImage::Tk::Drawing;
use App::MathImage::Tk::Perl::WidgetBits 'with_underline';

# uncomment this to run the ### lines
# use Smart::Comments;

use base 'Tk::Derived', 'Tk::MainWindow';
Tk::Widget->Construct('AppMathImageTkMain');

our $VERSION = 110;

sub Populate {
  my ($self, $args) = @_;

  # read-only
  $self->ConfigSpecs(-menubar => [ 'PASSIVE',
                                   'AppMathImageTkMain',

lib/App/MathImage/Tk/Perl/NumAxis.pm  view on Meta::CPAN

package App::MathImage::Tk::Perl::NumAxis;
use 5.008;
use strict;
use warnings;
use Tk;
use List::Util qw(min max);
use Math::Round;
use POSIX qw(floor ceil);

use base 'Tk::Derived', 'Tk::Canvas';
Tk::Widget->Construct('AppMathImageTkPerlNumAxis');

our $VERSION = 110;


# uncomment this to run the ### lines
#use Smart::Comments;


sub ClassInit {

lib/App/MathImage/Tk/SaveDialog.pm  view on Meta::CPAN

use Cwd;
use List::Util 'max';
use Module::Load;
use Tk;
use Tk::Balloon;
use Locale::TextDomain 1.19 ('App-MathImage');

# uncomment this to run the ### lines
#use Smart::Comments;

use base 'Tk::Derived', 'Tk::DialogBox';
Tk::Widget->Construct('AppMathImageTkSaveDialog');

our $VERSION = 110;

my %format_to_module = (png  => 'Tk::PNG',
                        jpeg => 'Tk::JPEG',
                        tiff => 'Tk::TIFF',
                       );

sub Populate {