Tk-ObjEditor

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Scalar::Util" : "1.01",
            "Storable" : "0",
            "Tk" : "0",
            "Tk::Derived" : "0",
            "Tk::Dialog" : "0",
            "Tk::DialogBox" : "0",
            "Tk::Frame" : "0",
            "Tk::ObjScanner" : "2.010"
         }
      },
      "test" : {
         "requires" : {
            "Data::Dumper" : "0",
            "Test::More" : "0",

META.yml  view on Meta::CPAN

license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Tk-ObjEditor
requires:
  Carp: '0'
  Scalar::Util: '1.01'
  Storable: '0'
  Tk: '0'
  Tk::Derived: '0'
  Tk::Dialog: '0'
  Tk::DialogBox: '0'
  Tk::Frame: '0'
  Tk::ObjScanner: '2.010'
resources:
  bugtracker: https://github.com/dod38fr/perl-tk-objeditor/issues
  homepage: https://github.com/dod38fr/perl-tk-objeditor
  repository: https://github.com/dod38fr/perl-tk-objeditor.git
version: '2.010'
x_generated_by_perl: v5.36.0

Makefile.PL  view on Meta::CPAN

    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "Tk-ObjEditor",
  "LICENSE" => "perl",
  "NAME" => "Tk::ObjEditor",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Scalar::Util" => "1.01",
    "Storable" => 0,
    "Tk" => 0,
    "Tk::Derived" => 0,
    "Tk::Dialog" => 0,
    "Tk::DialogBox" => 0,
    "Tk::Frame" => 0,
    "Tk::ObjScanner" => "2.010"
  },
  "TEST_REQUIRES" => {
    "Data::Dumper" => 0,
    "Test::More" => 0,
    "Tie::Hash" => 0,
    "Tie::Scalar" => 0,

Makefile.PL  view on Meta::CPAN

my %FallbackPrereqs = (
  "Carp" => 0,
  "Data::Dumper" => 0,
  "Scalar::Util" => "1.01",
  "Storable" => 0,
  "Test::More" => 0,
  "Tie::Hash" => 0,
  "Tie::Scalar" => 0,
  "Tk" => 0,
  "Tk::Derived" => 0,
  "Tk::Dialog" => 0,
  "Tk::DialogBox" => 0,
  "Tk::Frame" => 0,
  "Tk::ObjScanner" => "2.010",
  "Tk::ROText" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};

lib/Tk/ObjEditor.pm  view on Meta::CPAN

# This file is part of Tk-ObjEditor
#
# This software is copyright (c) 2014 by Dominique Dumont.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package Tk::ObjEditor;
$Tk::ObjEditor::VERSION = '2.010';
use Carp;
use Tk::Derived;
use Tk::Frame;
use Tk::ObjScanner 2.010;
use Tk::Dialog;
use Tk::DialogBox;
use warnings;
use strict;
use 5.10.1;
use Scalar::Util 1.01 qw(reftype);

use vars qw/$VERSION @ISA/;

use Storable qw(dclone);

use base qw(Tk::Derived Tk::ObjScanner);

Tk::Widget->Construct('ObjEditor');

sub _isa {
    return (reftype($_[0]) // '') eq $_[1] ;
}

sub edit_object {
    require Tk;
    import Tk;

lib/Tk/ObjEditorDialog.pm  view on Meta::CPAN

use strict;
use warnings;

use Carp;
use Tk::ObjEditor;

use vars qw/$VERSION @ISA/;

#use Storable qw(dclone);

use base qw(Tk::Derived Tk::DialogBox);

Tk::Widget->Construct('ObjEditorDialog');

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

    my $data = delete $args->{'caller'} || delete $args->{'-caller'};
    $cw->{direct} = delete $args->{'direct'} || delete $args->{'-direct'} || 0;

    # need to add different button for clone ????