読者です 読者をやめる 読者になる 読者になる

ikeike443のブログ

ソフトウェアビジネスに関心がある系のブログ

Ubuntu9.10でPadreを使う

2月1日から仕事でPerlを使う必要があって、今Perlを学習している。

で、下記の記事を見て、PadreというPerl向けのIDEがあることを知った。
MOONGIFT: » Perl開発専用のIDE「Padre」:オープンソースを毎日紹介

Eclipseよりも軽そうだし、emacsやviは操作に慣れないし、これはいいかも。
と思いUbuntu9.10にインストールしたのだが、インストール自体はaptで出来るのだが、起動しない。Launchpadにもバグ報告があって、こりゃだめだと思い、しばらくviを使ってPerl学習をしていた。

で、上記のバグ報告をしばらく振りに確認したら、下記のような書き込みがあった。

dingsi wrote on 2010-01-07: #5
UBUNTU KARMIC: another workaround for those who want to have limited functionality with directory tree (searching will kill the app):

uncomment (#) line 26 in file /usr/share/perl5/Padre/Wx/Directory/SearchCtrl.pm

https://bugs.launchpad.net/ubuntu/+source/padre/+bug/485012/comments/5

とりあえず、書かれているとおり、/usr/share/perl5/Padre/Wx/Directory/SearchCtrl.pmを開いて、26行目をコメントアウトしてみた。

package Padre::Wx::Directory::SearchCtrl;

use strict;
use warnings;
use Padre::Current ();
use Padre::Wx      ();

our $VERSION = '0.42';
our @ISA     = 'Wx::SearchCtrl';

# Create a new Search object and show a search text field above the tree
sub new {
	my $class = shift;
	my $panel = shift;
	my $self  = $class->SUPER::new(
		$panel, -1, '',
		Wx::wxDefaultPosition,
		Wx::wxDefaultSize,
		Wx::wxTE_PROCESS_ENTER
	);

	# Caches each project search WORD and result
	$self->{CACHED} = {};

	# Text that is showed when the search field is empty
#	$self->SetDescriptiveText( Wx::gettext('Search') );  #del by ikeike443 2010.01.18

	# Setups the search box menu
	$self->SetMenu( $self->create_menu );

 { 以下略 }	

ディレクトリツリーの検索機能に関わるコードっぽいが、とりあえず起動するようにはなった。

f:id:ikeike443:20100118023827p:image

これでいいのかどうかはよく分からないが、ひとまずPadreを使ってみようと思う。