Changeset 2287

Timestamp:

12/30/08 10:18:56 (3 years ago)

Author:

azawawi

Message:

Fix ticket #185 'Padre crash when closing files'

File:

• trunk/Padre/lib/Padre/Wx/MainWindow.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Wx/MainWindow.pm

@@ -486 +486 @@
     my $self = shift;
     return if $self->no_refresh;
+
+    # Fixed ticket #185: Padre crash when closing files
+    # http://padre.perlide.org/ticket/185
+    # allow one refresh per second.. This prevents possible 
+    # future refresh bugs...
+    my $timestamp = time;
+    my $last_refresh = (defined $self->{last_refresh}) ? $self->{last_refresh} : 0;
+    $self->{last_refresh} = $timestamp;
+    if( $last_refresh <= $timestamp) {
+       return;
+    }
+    
     $self->Freeze;