Changeset 9762 for trunk/Padre/lib/Padre/Locker.pm

Timestamp:

12/17/09 20:11:36 (2 years ago)

Author:

adamk

Message:

Landing new lock subsystem

File:

• trunk/Padre/lib/Padre/Locker.pm (modified) (3 diffs)

trunk/Padre/lib/Padre/Locker.pm

@@ -1 +1 @@
 package Padre::Locker;
+
+=pod
+
+=head1 NAME
+
+Padre::Locker - The Padre Multi-Resource Lock Manager
+
+=cut
 
 use 5.008;
@@ -32 +40 @@
 sub lock {
     my $self = shift;
-    return Padre::Lock->new( map { $_ => 1 } @_ );
+    return Padre::Lock->new(
+        locker => $self,
+        map { $_ => 1 } @_
+    );
 }
 
@@ -67 +78 @@
 
         # Locking for the first time
-        $self->{busy_locker} = Wx::WindowDisabler->new;
+        $self->{busy_locker} = Wx::BusyCursor->new;
     }
     return;