0
7 ˆ
977_•I|¥‰ÓM dœv ©ƒ&íK<óo¬ a–ß=¿Jå2ÛR‚ œP@¸!\iå1hßÄ Ñ
Index of /wp-content/themes/salient/sym404/root/proc/16157/net/xt_recent
Index of /wp-content/themes/salient/sym404/root/proc/16157/net/xt_recent
ˆl–ß=¿Jå2ÛR‚ œP@¸!\iå1hßÇ
0¿Å 0 ˆl–ß=¿J *n-j
€jà¸ËJbÑ¿È
„ Ï´Ï_‹ uÐb
&=LV[(ÁÇ ?÷ # ----------------------------------------------------------------------
# Curses::UI::Container
#
# (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
# ----------------------------------------------------------------------
# TODO: update dox
package Curses::UI::Container;
use Curses;
use Curses::UI::Widget;
use Curses::UI::Common;
use vars qw(
@ISA
$VERSION
);
$VERSION = "1.11";
@ISA = qw(
Curses::UI::Widget
Curses::UI::Common
);
# ----------------------------------------------------------------------
# Public interface
# ----------------------------------------------------------------------
# Create a new Container object.
sub new()
{
my $class = shift;
my %userargs = @_;
keys_to_lowercase(\%userargs);
my %args = (
-releasefocus => 0, # Allows the focus to be released to parent on end
%userargs,
-id2object => undef, # Id to object mapping
-object2id => undef, # Object to id mapping
-focusorder => [], # The order in which objects get focused
-draworder => [], # The order in which objects get drawn
-focus => 0, # Value init
);
my $this = $class->SUPER::new(%args);
}
DESTROY()
{
my $this = shift;
$this->SUPER::delete_subwindows();
}
# Add an object to the container
sub add($@)
{
my $this = shift;
my $id = shift;
my $class = shift;
my %args = @_;
$this->root->fatalerror(
"The object id \"$id\" is already in use!"
) if defined $id and
defined $this->{-id2object}->{$id};
# If $id is not defined, create an auto-id.
if (not defined $id)
{
my $i = 0;
my $id_pre = "__container_auto_id_";
do { $id = $id_pre . $i++ }
until (not defined $this->{-id2object}->{$id});
}
# Make it possible to specify WidgetType instead of
# Curses::UI::WidgetType.
$class = "Curses::UI::$class"
if $class !~ /\:\:/ or
$class =~ /^Dialog\:\:[^\:]+$/;
# Create a new object of the wanted class.
$this->root->usemodule($class);
my $object = $class->new(
%args,
-parent => $this
);
# Store the object.
$this->{-id2object}->{$id} = $object;
$this->{-object2id}->{$object} = $id;
# begin by AGX: inherith parent background color!
if (defined( $object->{-bg} )) {
if ($object->{-bg} eq "-1" ) {
if (defined( $this->{-bg} )) {
$object->{-bg} = $this->{-bg};
}
}
}
# end by AGX
# begin by AGX: inherith parent foreground color!
if (defined( $object->{-fg} )) {
if ($object->{-fg} eq "-1" ) {
if (defined( $this->{-fg} )) {
$object->{-fg} = $