/ 
TUI-Vision-2.000_004
/ TUI::Gadgets

NAME

Gadgets - Optional UI gadgets for the TVision 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 TVision 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:

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).