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