view release on metacpan or  search on metacpan

lib/App/Codit/Plugins/Exporter.pm  view on Meta::CPAN

	$self->linenumbers($options{'linenumbers'});
	$self->linecolumn(length($widg->linenumber('end - 1c')));
	$self->maxwidth($options{'maxwidth'});
	$self->tabstring($tabstr);

	#converting data
	my $art = $self->extGet('Art');
	my $l = $self->Label(-font => $options{'font'});
	my $f = $l->cget('-font');
	my $fntnorm = $widg->fontCompose($f, -slant => 'roman', -weight => 'normal');
	my $fntbold = $widg->fontCompose($f, -slant => 'roman', -weight => 'bold');
	my $fntbolditalic = $widg->fontCompose($f, -slant => 'italic', -weight => 'bold');
	my $fntitalic = $widg->fontCompose($f, -slant => 'italic', -weight => 'normal');

	my $linespace = $self->fontMetrics($f, '-linespace');
	my $desc = $self->fontMetrics($f, '-descent');

	$l->destroy;

	my $foreground =  Imager::Color->new($options{'foreground'});

	$self->xpos($self->imargin);

lib/App/Codit/Plugins/Exporter.pm  view on Meta::CPAN

	unless (-e $thmfl) {
		$self->logError("Theme file '$thmfl' does not exist");
		return
	}
	$theme->load($thmfl);
	my %tags = ();
	for ($theme->tagList) {
		my $tag = $_;
#		print "tag: $tag\n";
		my %options = ();
		my $bold = $theme->getItem($tag, '-weight');
		$bold = 0 unless defined $bold;
		my $slant = $theme->getItem($tag, '-slant');
		$slant = 0 unless defined $slant;
		if ($bold and $slant) {
#			print "  setting font bold/italic\n";
			$options{'-font'} = $fntbolditalic
		} elsif ($bold) {
#			print "  setting font bold\n";
			$options{'-font'} = $fntbold
		} elsif ($slant) {
#			print "  setting font italic\n";
			$options{'-font'} = $fntitalic
		} else {
#			print "  normal font remains\n";
			$options{'-font'} = $fntnorm
		}
		my $fg = $theme->getItem($tag, '-foreground');
		if ($fg ne '') {
#			print "  setting foreground $fg\n";

lib/App/Codit/highlight_theme.ctt  view on Meta::CPAN

Tk::CodeText theme file
[Alert]
-background=#DB7C47
-foreground=#FFFFFF
[Annotation]
-foreground=#5A5A5A
[Attribute]
-foreground=#00B900
-weight=bold
[BaseN]
-foreground=#0000A9
[BuiltIn]
-foreground=#B500E6
[Char]
-foreground=#FF00FF
[Comment]
-slant=italic
[CommentVar]
-foreground=#5A5A5A
-slant=italic
-weight=bold
[Constant]
-foreground=#0000FF
-weight=bold
[ControlFlow]
-foreground=#0062AD
[DataType]
-foreground=#0080A8
-weight=bold
[DecVal]
-foreground=#9C4E2B
[Documentation]
-foreground=#7F5A41
-slant=italic
[Error]
-background=#FF0000
-foreground=#FFFF00
[Extension]
-foreground=#9A53D1
[Float]
-foreground=#9C4E2B
-weight=bold
[Function]
-foreground=#008A00
[Import]
-foreground=#950000
[Information]
-weight=bold
[Keyword]
-weight=bold
[Normal]
[Operator]
-foreground=#85530E
[Others]
-foreground=#FF6200
[Preprocessor]
-slant=italic
[RegionMarker]
-background=#00CFFF
[SpecialChar]
-foreground=#9A53D1
[SpecialString]
-foreground=#FF4449
[String]
-foreground=#FF0000
[Variable]
-foreground=#0000FF
-weight=bold
[VerbatimString]
-foreground=#FF4449
-weight=bold
[Warning]
-background=#FFFF00
-foreground=#FF0000