view release on metacpan or  search on metacpan

lib/Prima/CodeManager/CodeManager.pm  view on Meta::CPAN

	$self->{global}->{extensions} =~ s/\s+//g;
	$self->{global}->{extensions} =~ s/\|+/\|/g;
	my @exten = split '\|', $self->{global}->{extensions};
#	for (@exten) {
#		$self->{images}->{$_} = $self-> load_icon( "$CodeManager_directory/img/$_.png" );
#		$self->{images}->{$_} = $self-> load_icon( "$CodeManager_directory/img/nil.png" ) unless $self->{images}->{$_};
#		eval( $self->read_file( "$CodeManager_directory/hilite/hilite_$_.pl")) if -e "$CodeManager_directory/hilite/hilite_$_.pl";
#	}
	$self->{global}->{GLOBAL}->{CodeManager_encoding} ||= '';
	$main::CodeManager_encoding = $self->{global}->{GLOBAL}->{CodeManager_encoding};
	$self->{global}->{GLOBAL}->{backup} = 0 unless $self->{global}->{GLOBAL}->{backup};
	$self-> make_tree;
	$self-> make_notebook;

	return;
}

####################################################################

sub make_tree
{