view release on metacpan or  search on metacpan

lib/GSM/Gnokii/Tk/GSMTree.pm  view on Meta::CPAN

use strict;
use warnings;

our $VERSION = "0.02";

use Carp;

use GSM::Gnokii;
use Tk;
use Tk::Widget;
use Tk::Derived;
use Tk::Tree;

use vars qw( @ISA );
@ISA = qw( Tk::Derived Tk::Tree );

Construct Tk::Widget "GSMTree";

use List::Util qw( first );
use Data::Peek;

my %def_conf = (
    root	=> undef,
    gsm		=> undef,
    memtype	=> "ME",