{
	my $ite = 0;
	my $lev = 0;
	while ( $cap =~ /^(=*)(\w*)/mg ) {
		if ( $1 eq '=' && $2 || $lev ) {
			$lev = 1 if $lev || $2 ne 'cut';
			$Prima::CodeManager::developer{ "comme_$pageCount" }->[$ite] = 1 if $lev;
			$lev = 0 if $2 eq 'cut';
		}
		$ite++;
	}
}

$Prima::CodeManager::developer{ "block_$pageCount" } = $Prima::CodeManager::developer{notes}->insert_to_page(
	$pageCount,
	'CodeManager::Label'	=>
	text			=>	"1\n2\n3\n4\n5\n6\n7",
	backColor		=>	$kolor_paska,
	borderWidth		=>	1,
	lineSpace		=>	$self->{global}->{GLOBAL}{editor_lineSpace},
	alignment		=>	ta::Right,
	place => {
		x => 51,	relx => 0,		width  =>18,	relwidth  => 0,
		y => 0,		rely => 0.5,	height =>0,		relheight => 1,
	},
	font => {
		name	=>	$self->{global}->{GLOBAL}{editor_fontName},
		$type_dimen	=>	$font_dimen,
		style	=>	fs::Normal,
	},
);

NAME

Prima::CodeManager::File - functions to open, read, save and close project files

DESCRIPTION

This is part of CodeManager project - not for direct use.

AUTHOR

Waldemar Biernacki, <wb@sao.pl>

COPYRIGHT AND LICENSE

Copyright 2009-2013 by Waldemar Biernacki. http://codemanager.sao.pl This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.