NAME
TUI::Gadgets - Optional UI gadgets for the TUI::Vision framework
SYNOPSIS
use TUI::Objects;
use TUI::Gadgets;
# Typical gadget setup inside a TApplication/TProgram subclass:
my $clock = TClockView->new(
bounds => TRect->new( ax => 71, ay => 0, bx => 80, by => 1 ),
);
my $heap = THeapView->new(
bounds => TRect->new( ax => 67, ay => 24, bx => 80, by => 25 ),
);
my $eventViewer = TEventViewer->new(
bounds => TRect->new( ax => 5, ay => 2, bx => 75, by => 20 ),
bufSize => 32 * 1024,
);
$self->insert($clock);
$self->insert($heap);
$self->insert($eventViewer);
sub idle {
my $self = shift;
$self->SUPER::idle();
$self->{clock}->update();
$self->{heap}->update();
return;
}
DESCRIPTION
TUI::Gadgets provides optional visual components for the TUI::Vision framework. These modules extend the core UI with additional views and diagnostic tools, similar to the classic Turbo Vision gadget set.
This module re-exported several non-essential but useful UI components, including:
Const - Symbolic constants for gadget behavior.
PrintConstants - Utility for printing symbolic values.
TClockView - A live clock widget.
TEventViewer - A real-time event inspection tool.
THeapView - A memory usage visualization widget.
AUTHORS
Borland International (original Turbo Vision design)
J. Schneider <brickpool@cpan.org> (Perl implementation and maintenance)
CONTRIBUTORS
Contributors are documented in the POD of the respective framework modules.
COPYRIGHT AND LICENSE
Copyright (c) 1990-1994, 1997 by Borland International
Copyright (c) 2026 the "AUTHORS" as listed above.
This software is licensed under the MIT license (see the LICENSE file, which is part of the distribution).