Changeset 494

Timestamp:

10/26/08 07:46:36 (3 years ago)

Author:

adamk

Message:

Cleanup show_output.

Freeze during close all for speed

File:

• trunk/lib/Padre/Wx/MainWindow.pm (modified) (4 diffs)

trunk/lib/Padre/Wx/MainWindow.pm

@@ -1018 +1018 @@
 sub on_close_all {
     my $self = shift;
+    $self->Freeze;
     foreach my $id ( reverse $self->pageids ) {
         $self->close( $id ) or return 0;
     }
+    $self->Thaw;
     return 1;
 }
@@ -1129 +1131 @@
 sub show_output {
     my $self = shift;
-    my $on   = shift;
-
-    my $config = Padre->ide->config;
-    $config->{main_output} = $on;
+    my $on   = @_ ? $_[0] ? 1 : 0 : 1;
     unless ( $on == $self->{menu}->{view_output}->IsChecked ) {
         $self->{menu}->{view_output}->Check($on);
@@ -1148 +1147 @@
         $self->{output}->Hide;
     }
+    Padre->ide->config->{main_output} = $on;
     return;
 }
@@ -1172 +1172 @@
     return;
 }
-
 
 sub convert_to {