Prima

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Prima/Widget/Date.pm
Prima/Widget/EventRectangles.pm
Prima/Widget/GroupScroller.pm
Prima/Widget/Header.pm
Prima/Widget/IntIndents.pm
Prima/Widget/Link.pm
Prima/Widget/ListBoxUtils.pm
Prima/Widget/MouseScroller.pm
Prima/Widget/Panel.pm
Prima/Widget/RubberBand.pm
Prima/Widget/ScrollWidget.pm
Prima/Widget/StartupWindow.pm
Prima/Widget/Time.pm
Prima/Widget/UndoActions.pm
Prima/VB/prima-cfgmaint.pl
Prima/VB/CfgMaint.pm
Prima/VB/classes.gif
Prima/VB/Classes.pm
Prima/VB/Config.pm
Prima/VB/CoreClasses.pm
Prima/VB/examples/Sample.fm

Prima.pm  view on Meta::CPAN

L<Prima::Widget::Link> - links embedded in widgets

L<Prima::Widget::ListBoxUtils> - common paint routine for listboxes

L<Prima::Widget::MouseScroller> - auto repeating mouse events

L<Prima::Widget::Panel> - simple panel widget

L<Prima::Widget::RubberBand> - draw rubberbands

L<Prima::Widget::ScrollWidget> - scrollable generic document widget

L<Prima::Widget::StartupWindow> - a simplistic startup banner window

L<Prima::Widget::UndoActions> - undo and redo the content of editable widgets

=item C interface to the toolkit

L<Prima::internals> - Internal architecture

L<Prima::codecs>    - Step-by-step image codec creation

Prima/ImageViewer.pm  view on Meta::CPAN

#  Created by:
#     Anton Berezin  <tobez@tobez.org>
#     Dmitry Karasik <dk@plab.ku.dk>
use strict;
use warnings;
use Prima::Widget::ScrollWidget;

package Prima::ImageViewer;
use vars qw(@ISA);
@ISA = qw( Prima::Widget::ScrollWidget);

sub profile_default
{
	my $def = $_[0]-> SUPER::profile_default;
	my %prf = (
		autoZoom     => 0,
		image        => undef,
		imageFile    => undef,
		stretch      => 0,
		scaling      => ist::Box,

Prima/MsgBox.pm  view on Meta::CPAN

package Prima::MsgBox;

use strict;
use warnings;
require Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT = qw(message_box message input_box);
@EXPORT_OK = qw(message_box message input_box signal_dialog);
use Prima qw(Buttons InputLine Label Widget::ScrollWidget StdBitmap Utils);

sub insert_buttons
{
	my ( $dlg, $buttons, $extras) = @_;
	my ( $left, $right) = ( 10, 425);
	my $i;
	my @bConsts =  (
		mb::Help, mb::Cancel, mb::Ignore, mb::Retry, mb::Abort, mb::No, mb::Yes, mb::Ok
	);
	my @bTexts  = qw(

Prima/Notebooks.pm  view on Meta::CPAN

package Prima::Notebooks;

use strict;
use warnings;
use Prima qw(Widget::ScrollWidget);

package Prima::TabSet;
use base qw(Prima::Widget Prima::Widget::MouseScroller);


{
my %RNT = (
	%{Prima::Widget-> notification_types()},
	DrawTab     => nt::Action,
	MeasureTab  => nt::Action,

Prima/VB/Config.pm  view on Meta::CPAN

		RTModule => 'Prima::Buttons',
		module   => 'Prima::VB::CoreClasses',
	},
	'Prima::InputLine' => {
		icon     => 'VB::classes.gif:13',
		page     => 'General',
		class    => 'Prima::VB::InputLine',
		RTModule => 'Prima::InputLine',
		module   => 'Prima::VB::CoreClasses',
	},
	'Prima::Widget::ScrollWidget' => {
		icon     => 'VB::classes.gif:21',
		page     => 'Abstract',
		class    => 'Prima::VB::ScrollWidget',
		RTModule => 'Prima::Widget::ScrollWidget',
		module   => 'Prima::VB::CoreClasses',
	},
	'Prima::Widget' => {
		icon     => 'VB::VB.gif:0',
		page     => 'Abstract',
		class    => 'Prima::VB::Widget',
		RTModule => 'Prima::Classes',
		module   => 'Prima::VB::Classes',
	},
	'Prima::OutlineViewer' => {

Prima/VB/CoreClasses.pm  view on Meta::CPAN

			class  => 'Prima::VB::Edit',
			page   => 'General',
			icon   => 'VB::classes.gif:8',
		},
		'Prima::ImageViewer' => {
			RTModule => 'Prima::ImageViewer',
			class  => 'Prima::VB::ImageViewer',
			page   => 'General',
			icon   => 'VB::classes.gif:14',
		},
		'Prima::Widget::ScrollWidget' => {
			RTModule => 'Prima::Widget::ScrollWidget',
			class  => 'Prima::VB::ScrollWidget',
			page   => 'Abstract',
			icon   => 'VB::classes.gif:21',
		},
		'Prima::SpinButton' => {
			RTModule => 'Prima::Sliders',
			class  => 'Prima::VB::SpinButton',
			page   => 'Sliders',
			icon   => 'VB::classes.gif:23',
		},
		'Prima::AltSpinButton' => {

examples/canvas.pl  view on Meta::CPAN

use strict;
use warnings;

use Prima qw(Widget::ScrollWidget);
# A widget with two scrollbars. Contains set of objects, that know
# how to draw themselves. The graphic objects hierarchy starts
# from Prima::CanvasObject:: class

package Prima::Canvas;
use vars qw(@ISA);
@ISA = qw(Prima::Widget::ScrollWidget);

sub profile_default
{
	return {
		%{$_[ 0]-> SUPER::profile_default},
		zoom       => 1,
		paneSize   => [ 0, 0],
		paneWidth  => 0,
		paneHeight => 0,
		alignment  => ta::Left,

examples/notebk.pl  view on Meta::CPAN

=head1 FEATURES

Demonstrates the basic Prima toolkit usage and
L<Prima::TabbedNotebook> standard class.

=cut

use strict;
use warnings;
use Prima qw(Buttons Notebooks Widget::ScrollWidget Application MsgBox);

package Bla;
use vars qw(@ISA);
@ISA = qw(Prima::MainWindow);

sub init
{
	my $self = shift;
	my %profile = $self-> SUPER::init( @_);

examples/pbrush.pl  view on Meta::CPAN

=head1 NAME

examples/pbrush.pl - A minimalistic graphic editor window

=head1 FEATURES

Outlines features required for a graphic editor window -
color selection, and, mainly, non-standart L<Prima::ImageViewer>
usage.

Using L<Prima::Classes>, L<Prima::Widget::ScrollWidget>, L<Prima::Application>,
L<Prima::Dialog::ColorDialog>, L<Prima::ImageViewer>.

=cut

use strict;
use warnings;

use Prima;
use Prima::Classes;
use Prima::Widget::ScrollWidget;
use Prima::Application;
use Prima::Dialog::ColorDialog;
use Prima::ImageViewer;

package ImageEdit::Painter;
use vars qw(@ISA);
@ISA = qw(Prima::ImageViewer);

sub profile_default
{

examples/scrollgroup.pl  view on Meta::CPAN

=pod

=head1 NAME

examples/scrollwidget.pl - scrolling dialog panel

=head1 FEATURES

Panel with widgets that is too big for the screen

=cut

use strict;
use warnings;
use Prima qw(Widget::ScrollWidget InputLine Application);

my $w = Prima::MainWindow->new( packPropagate => 0);

my $sc = $w->insert( 'Widget::ScrollGroup' =>
	pack => { expand => 1, fill => 'both' },
);
$sc->insert( InputLine => pack => { side => 'bottom' }) for 1..20;
$w->packPropagate(1);
$w->height( $w->height / 2);

examples/theme.pl  view on Meta::CPAN

use strict;
use warnings;
use Prima qw(Application Themes ScrollBar Buttons InputLine ExtLists Notebooks Widget::ScrollWidget);

=pod

=head1 NAME

examples/theme.pl - Theme selector

=head1 FEATURES

Demonstrates usage of L<Prima::Themes>, stores selected theme

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