Tk-MDI

 view release on metacpan or  search on metacpan

MDI/ChildWindow.pm  view on Meta::CPAN

		nw => [qw/size_nw_se     top_left_corner/],
		se => [qw/size_nw_se bottom_right_corner/],
		sw => [qw/size_ne_sw  bottom_left_corner/],
		ne => [qw/size_ne_sw    top_right_corner/],
	);

sub new {
	my $self  = shift;
	my $class = ref($self) || $self;

	my $obj = bless {} => $class;

	my %args  = @_;
	$obj->{PARENT}    = delete $args{-parent} or die "No Parent Frame";
	$obj->{PARENTOBJ} = delete $args{-parentobj} or die "No Parent Object";
	$obj->{NAME}     = $args{-name};
	$obj->{FOCUSBG}   = $args{-titlebg} || $focusedTitleBg;
	$obj->{MINFRAME}  = $args{-minframe};

	$obj->{EXTBD} = $obj->{PARENTOBJ}->_getExtBD;
	$obj->{INTBD} = $obj->{PARENTOBJ}->_getIntBD;

MDI/ChildWindow.pm.prePOD  view on Meta::CPAN

			nw => [qw/size_nw_se     top_left_corner/],
			se => [qw/size_nw_se bottom_right_corner/],
			sw => [qw/size_ne_sw  bottom_left_corner/],
			ne => [qw/size_ne_sw    top_right_corner/],
		       );

sub new {
	my $self  = shift;
	my $class = ref($self) || $self;

	my $obj = bless {} => $class;

	my %args  = @_;
	$obj->{PARENT}    = delete $args{-parent} or die "No Parent Frame";
	$obj->{PARENTOBJ} = delete $args{-parentobj} or die "No Parent Object";
	$obj->{NAME}     = $args{-name};
	$obj->{FOCUSBG}   = $args{-titlebg} || $focusedTitleBg;
	$obj->{MINFRAME}  = $args{-minframe};


	$obj->{EXTBD} = $obj->{PARENTOBJ}->_getExtBD;

MDI/Menu.ala.pm  view on Meta::CPAN

package Tk::MDI::Menu;

use strict;

sub new {
    my $self  = shift;
    my $class = ref($self) || $self;

    my $obj = bless {} => $class;

    my %args = @_;
    $obj->{PARENT}    = $args{-parent};
    $obj->{PARENTOBJ} = $args{-parentobj};
    $obj->{MW}        = $args{-mw};

    $obj->_createMenuBar;
    $obj->_populateMenuBar;

    return $obj;

MDI/Menu.bad.pm  view on Meta::CPAN

package Tk::MDI::Menu;

use strict;

sub new {
	my $self  = shift;
	my $class = ref($self) || $self;

	my $obj = bless {} => $class;

	my %args = @_;
	$obj->{PARENT}    = $args{-parent};
	$obj->{PARENTOBJ} = $args{-parentobj};
	$obj->{MW}        = $args{-mw};

	$obj->_createMenuBar;
	$obj->_populateMenuBar;
	return $obj;
}

MDI/Menu.pm  view on Meta::CPAN

			 'Tile Vertically'   => [\&_tile, 'v'],
			 'Cascade',	  => [\&_cascade],
			 'Minimize All',	 => [\&_minimizeAll],
			 'Restore All',	  => [\&_restoreAll],
			);

sub new {
	my $self  = shift;
	my $class = ref($self) || $self;

	my $obj = bless {} => $class;

	my %args = @_;
	$obj->{PARENT}	= $args{-parent};
	$obj->{PARENTOBJ} = $args{-parentobj};
	$obj->{MW}	= $args{-mw};
	$obj->{MENUTYPE}  = $args{-type};

	$obj->_createMenuBar;

	return $obj;

MDI/Menu.pm.prePOD  view on Meta::CPAN

			 'Tile Vertically'   => [\&_tile, 'v'],
			 'Cascade',          => [\&_cascade],
			 'Minimize All',     => [\&_minimizeAll],
			 'Restore All',      => [\&_restoreAll],
			);

sub new {
    my $self  = shift;
    my $class = ref($self) || $self;

    my $obj = bless {} => $class;

    my %args = @_;
    $obj->{PARENT}    = $args{-parent};
    $obj->{PARENTOBJ} = $args{-parentobj};
    $obj->{MW}        = $args{-mw};
    $obj->{MENUTYPE}  = $args{-type};

    $obj->_createMenuBar;

    return $obj;

 view all matches for this distribution
 view release on metacpan -  search on metacpan