Gecko [ nbspublicschool.com ]

Name	Size	Permission
Dialog	[ DIR ]	drwxr-xr-x
Language	[ DIR ]	drwxr-xr-x
Buttonbox.pm	17.08 KB	-rw-r--r--
Calendar.pm	21.1 KB	-rw-r--r--
Checkbox.pm	7.52 KB	-rw-r--r--
Color.pm	5.44 KB	-rw-r--r--
Common.pm	16.93 KB	-rw-r--r--
Container.pm	18.5 KB	-rw-r--r--
Label.pm	9.93 KB	-rw-r--r--
Language.pm	3.58 KB	-rw-r--r--
Listbox.pm	26.06 KB	-rw-r--r--
Menubar.pm	21.51 KB	-rw-r--r--
Notebook.pm	27.2 KB	-rw-r--r--
PasswordEntry.pm	2.44 KB	-rw-r--r--
Popupmenu.pm	13.1 KB	-rw-r--r--
Progressbar.pm	7 KB	-rw-r--r--
Radiobuttonbox.pm	2.82 KB	-rw-r--r--
Searchable.pm	11.23 KB	-rw-r--r--
TextEditor.pm	44.16 KB	-rw-r--r--
TextEntry.pm	2.89 KB	-rw-r--r--
TextViewer.pm	2.15 KB	-rw-r--r--
Tutorial.pod	5.17 KB	-rw-r--r--
Widget.pm	52.14 KB	-rw-r--r--
Window.pm	4.25 KB	-rw-r--r--

Code Editor : Window.pm

# ----------------------------------------------------------------------
# Curses::UI::Window
#
# (c) 2001-2002 by Maurice Makaay. All rights reserved.
# This file is part of Curses::UI. Curses::UI is free software.
# You can redistribute it and/or modify it under the same terms
# as perl itself.
#
# Currently maintained by Marcus Thiesen
# e-mail: marcus@cpan.thiesenweb.de
# ----------------------------------------------------------------------

package Curses::UI::Window;

use strict;
use Curses;
use Curses::UI::Container;
use Curses::UI::Common;

use vars qw(
    $VERSION 
    @ISA
);

$VERSION = '1.10';

@ISA = qw(
    Curses::UI::Container
);

sub new ()
{
    my $class = shift;

my %userargs = @_;
    keys_to_lowercase(\%userargs);

# Create the window.
    my $this = $class->SUPER::new( 
        -width     => undef,
        -height    => undef,
        -x         => 0, 
        -y         => 0,
        -centered  => 0,     # Center the window in the display?

%userargs,

-nocursor  => 1,     # This widget does not use a cursor
        -assubwin  => 1,     # Always constructed as a subwindow
    );

return $this;
}

sub layout ()
{
    my $this = shift;

# Compute the coordinates of the Window if
    # it has to be centered.
    if ($this->{-centered})
    {
        # The maximum available space on the screen.
        my $avail_width = $ENV{COLS};
        my $avail_height = $ENV{LINES};

# Compute the coordinates for the widget.
        my $w = $this->{-width} || 1;
        my $h = $this->{-height} || 1;
        my $x = int(($avail_width - $w) / 2);
        my $y = int(($avail_height - $h) / 2);
        $x = 0 if $x < 0;
        $y = 0 if $y < 0;
        $this->{-x} = $x; 
        $this->{-y} = $y; 
    }

$this->SUPER::layout or return;

return $this;
}

=pod

=head1 NAME

Curses::UI::Window - Create and manipulate Window widgets

=head1 CLASS HIERARCHY

Curses::UI::Widget
    |
    +----Curses::UI::Container   
            |
            +----Curses::UI::Window

=head1 SYNOPSIS

use Curses::UI;
    my $cui = new Curses::UI;
    my $win = $cui->add(
        'window_id', 'Window',
        %options,
    );

=head1 DESCRIPTION

Curses::UI::Window is a window widget. It can be added to
a Curses::UI instance. After that the window can be filled
with other widgets to create an application window. For
information on how to fill the window with widgets, see
L<Curses::UI::Container|Curses::UI::Container>.

=head1 STANDARD OPTIONS

B<-parent>, B<-x>, B<-y>, B<-width>, B<-height>, 
B<-pad>, B<-padleft>, B<-padright>, B<-padtop>, B<-padbottom>,
B<-ipad>, B<-ipadleft>, B<-ipadright>, B<-ipadtop>, B<-ipadbottom>,
B<-title>, B<-titlefullwidth>, B<-titlereverse>, B<-onfocus>,
B<-onblur>

For an explanation of these standard options, see 
L<Curses::UI::Widget|Curses::UI::Widget>.

=head1 WIDGET-SPECIFIC OPTIONS

=over 4

=item * B<-centered> < BOOLEAN >

A window can automatically be drawn in the center of the screen.
To enable this option use a true value and to disable it use a
false value. The default is not to center a window. Example:

$cui->add('mywindow', 'Window', -centered => 1);

=back

=head1 METHODS

=over 4

=item * B<new> ( OPTIONS )

=item * B<layout> ( )

=item * B<draw> ( BOOLEAN )

=item * B<focus> ( )

=item * B<onFocus> ( CODEREF )

=item * B<onBlur> ( CODEREF )

=item * B<intellidraw> ( )

These are standard methods. See L<Curses::UI::Widget|Curses::UI::Widget>
for an explanation of these.

=item * B<modalfocus> ( )

If this method is called, the window will get modal focus. This means
that all events will be sent to this window. By calling the
B<loose_focus> method, the window will loose its focus.

=item * B<loose_focus> ( )

This method will have the window loose its focus (using this method
you can also let a modal focused window loose its focus).

=back

=head1 SEE ALSO

L<Curses::UI|Curses::UI>,
L<Curses::UI::Container|Curses::UI::Container>,
L<Curses::UI::Widget|Curses::UI::Widget>

=head1 AUTHOR

Maintained by Marcus Thiesen (marcus@cpan.thiesenweb.de)

This package is free software and is provided "as is" without express
or implied warranty. It may be used, redistributed and/or modified
under the same terms as perl itself.

${this.title}

Code Editor : Window.pm