Changeset 462

Timestamp:

10/25/08 09:46:35 (3 years ago)

Author:

adamk

Message:

Factoring out the output window into it's own module.

When the output window is NOT displayed, Freeze it to avoid it causing graphics bugs

Location:

trunk/lib/Padre/Wx

Files:

• MainWindow.pm (modified) (4 diffs)
• Output.pm (added)

trunk/lib/Padre/Wx/MainWindow.pm

@@ -17 +17 @@
                    wxLC_SINGLE_SEL wxLC_NO_HEADER wxLC_REPORT wxLIST_AUTOSIZE wxTE_READONLY wxTE_MULTILINE 
                    wxOK wxCENTRE wxFD_OPEN wxID_CANCEL wxFD_SAVE wxYES_NO wxYES wxCANCEL wxNO
-                   wxSTC_STYLE_LINENUMBER wxSTC_MARGIN_NUMBER);
+                   wxSTC_STYLE_LINENUMBER wxSTC_MARGIN_NUMBER
+                   );
 use Wx::Event      qw(
                    EVT_LIST_ITEM_ACTIVATED EVT_NOTEBOOK_PAGE_CHANGED EVT_KEY_UP EVT_CLOSE
-                   EVT_STC_UPDATEUI EVT_STC_CHANGE EVT_STC_STYLENEEDED);
+                   EVT_STC_UPDATEUI EVT_STC_CHANGE EVT_STC_STYLENEEDED
+                   );
 
 use base qw{Wx::Frame};
@@ -28 +30 @@
 use Padre::Wx::Editor  ();
 use Padre::Wx::ToolBar ();
+use Padre::Wx::Output  ();
 
 our $VERSION = '0.12';
@@ -134 +137 @@
 
     # Create the bottom-of-screen output textarea
-    $self->{output} = Wx::TextCtrl->new(
+    $self->{output} = Padre::Wx::Output->new(
         $self->{main_panel},
-        -1,
-        "", 
-        Wx::wxDefaultPosition,
-        Wx::wxDefaultSize,
-        Wx::wxTE_READONLY | Wx::wxTE_MULTILINE | Wx::wxNO_FULL_REPAINT_ON_RESIZE,
     );
 
@@ -1127 +1125 @@
             -100,
         );
+        $self->{output}->Thaw;
     }
     if ( $self->{main_panel}->IsSplit and not $on ) {
         $self->{main_panel}->Unsplit;
+        $self->Freeze;
     }
     return;