Tk-CodeText

 view release on metacpan or  search on metacpan

lib/Tk/CodeText.pm  view on Meta::CPAN

Tk::CodeText - Programmer's Swiss army knife Text widget.

=cut

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.68';

use base qw(Tk::Derived Tk::Frame);

use Tk::CodeText::Kamelon;
use Tk;
use Tie::Watch;
require Tk::CodeText::StatusBar;
require Tk::CodeText::TagsEditor;
require Tk::CodeText::Theme;
require Tk::DialogBox;
require Tk::Font;
require Tk::XText;

lib/Tk/CodeText/StatusBar.pm  view on Meta::CPAN

package Tk::CodeText::StatusBar;

package PopTabs;

use strict;
use warnings;

use base qw(Tk::Derived Tk::Poplevel);

Construct Tk::Widget 'PopTabs';

sub Populate {
	my ($self,$args) = @_;
	
	my $var = delete $args->{'-variable'};
	unless (defined $var) {
		my $val = '';
		$var = \$val;

lib/Tk/CodeText/StatusBar.pm  view on Meta::CPAN

sub Var {
	return $_[0]->{VAR};
}

package PopIndent;

use strict;
use warnings;

use base qw(Tk::Derived PopTabs);

Construct Tk::Widget 'PopIndent';

sub AlterSizeState {
	my ($self, $value) = @_;
	my $f = $self->Subwidget('Entry');
	if ($value) {
		$f->configure(-state => 'disabled');
	} else {
		$f->configure(-state => 'normal');

lib/Tk/CodeText/StatusBar.pm  view on Meta::CPAN

Tk:CodeText::StatusBar - Status bar for  L<Tk::CodeText>

=cut

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.42';

use base qw(Tk::Derived Tk::Frame);

use Tk;
require Tk::PopList;

Construct Tk::Widget 'StatusBar';

my $save_pixmap = '
/* XPM */
static char *save[]={
"16 16 4 1",

lib/Tk/CodeText/TagsEditor.pm  view on Meta::CPAN

package Tk::CodeText::TagsEditor;

package #hide from MetaCPAN
	MyColorEntry;

use strict;
use warnings;

use base qw(Tk::Derived Tk::ColorEntry);

Construct Tk::Widget 'MyColorEntry';

sub OnEscape {
	my $self = shift;
	$self->SUPER::OnEscape;
	$self->Callback('-command', $self->get);
}

sub OnKey {

lib/Tk/CodeText/TagsEditor.pm  view on Meta::CPAN

Tk:CodeText::TagsEditor - Edit highlighting tags for L<Tk::CodeText>

=cut

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.52';

use base qw(Tk::Derived Tk::Frame);

require Tk::ColorEntry;
require Tk::PopColor;
require Tk::HList;
require Tk::Balloon;
use Tk::CodeText::Theme;

Construct Tk::Widget 'TagsEditor';

=head1 SYNOPSIS

lib/Tk/XText.pm  view on Meta::CPAN

use warnings;
use Carp;

use Tk;
use Math::Round;
require Tk::DialogBox;
require Tk::LabFrame;
require Tk::Spinbox;
require Tk::HList;

use base qw(Tk::Derived Tk::Text);
Construct Tk::Widget 'XText';

#boilerplating for auto complete facilities
my %delimhash = (	'.',	1, '(', 1, ')',	1, ':',	1, '!',	1, '+',	1, ',',	1, '-',	1, '<',	1, '=',
	1, '>',	1, '%',	1, '&',	1, '*', 1, '"', 1, '\'', 1,	'/',	1, ';',	1, '?',	1, '[',	1, ']',	1,
	'^',	1, '{',	1, '|',	1, '}',	1, '~',	1, '\\', 1, '$', 1, '@', 1, '#', 1, '`', 1, ' ', 1, "\t", 1
);

=head1 SYNOPSIS

t/lib/BenchCodeText.pm  view on Meta::CPAN

package BenchCodeText;

use strict;
use warnings;
use Time::HiRes qw(time);

use base qw(Tk::Derived Tk::CodeText);

Construct Tk::Widget 'BenchCodeText';

sub Populate {
	my ($self,$args) = @_;
	$self->SUPER::Populate($args);
	
	$self->{TIMERSTART} = undef;
	$self->{TIMERSTOP} = undef;