Ticket #87: padre.patch

lib/Padre/Wx/MainWindow.pm

@@ -118 +118 @@
        );
 
        # Create the main notebook for the documents
-       $self->{notebook} = Wx::Notebook->new(
+       $self->{notebook} = Wx::AuiNotebook->new(
                $self->{upper_panel},
                -1,
                Wx::wxDefaultPosition,
                Wx::wxDefaultSize,
-               Wx::wxNO_FULL_REPAINT_ON_RESIZE | Wx::wxCLIP_CHILDREN,
+               Wx::wxNO_FULL_REPAINT_ON_RESIZE | Wx::wxCLIP_CHILDREN | Wx::wxAUI_NB_DEFAULT_STYLE,
        );
        Wx::Event::EVT_NOTEBOOK_PAGE_CHANGED(
                $self,
@@ -825 +825 @@
 sub create_tab {
        my ($self, $editor, $file, $title) = @_;
 
-       $self->{notebook}->AddPage($editor, $title, 1); # TODO add closing x
+       $self->{notebook}->AddPage($editor, $title, 1);
        $editor->SetFocus;
 
        my $id  = $self->{notebook}->GetSelection;

lib/Padre/Wx/ToolBar.pm

@@ -32 +32 @@
        #$self->AddTool( 1000, '', Padre::Wx::tango(catfile('actions', 'bookmark-new.png')), 'Bookmark' );
        #Wx::Event::EVT_TOOL($parent, 1000, sub { Padre::Wx::Dialog::Bookmarks->set_bookmark($_[0]) } );
 
+       Wx::Event::EVT_TOOL( $parent, Wx::wxID_NEW, sub { $_[0]->setup_editor; return; } );
+
        return $self;
 }
 
@@ -39 +41 @@
        my $self    = shift;
        my $doc     = shift;
 
+       $self->EnableTool( Wx::wxID_NEW, 1 );
+
        my $enabled = !! ( $doc and $doc->is_modified );
        $self->EnableTool( Wx::wxID_SAVE, $enabled );
 

lib/Padre/Wx.pm

@@ -14 +14 @@
 # use them without braces.
 use Wx        ':everything';
 use Wx::Event ':everything';
+use Wx::AUI;
 
 our $VERSION = '0.15';