sub INC_AddPath { my( $this ) = shift ; my $dialog = Wx::DirDialog->new($this , "$TITLE - \@INC -> Add PATH" , $LASTDIR ) ; my $dir ; if( $dialog->ShowModal == wxID_CANCEL ) { $dir = undef ;} else { $dir = $dialog->GetPath ;} $dir =~ s/[\\\/]+/\//gs ; push(@INC , $dir) ; Wx::MessageBox("Path Added:\n$dir", "\@INC -> New PATH", wxOK | wxICON_INFORMATION, $this ); }