Changeset 6538 for extensions/pLoader/trunk/src/Uploader/GUI/ListCtrlProgress.pm

Timestamp:

Jun 16, 2010, 11:43:09 AM (14 years ago)

Author:

ronosman

Message:

Ability to clear progress list. Only available when no batch is running. The cancel processing is available when a batch is running.

File:

• extensions/pLoader/trunk/src/Uploader/GUI/ListCtrlProgress.pm (modified) (4 diffs)

extensions/pLoader/trunk/src/Uploader/GUI/ListCtrlProgress.pm

@@ -31 +31 @@
 
     $self->thumb_size(48);
-
+    $self->reset_all;
+
+
+
+    Wx::Event::EVT_PAINT(
+        $self,
+        sub {
+            my ( $self, $event ) = @_;
+
+            eval { $self->paint_progress_bars; };
+            $event->Skip;
+        }
+    );
+
+
+    $self;
+}
+
+
+sub reset_all {
+    my ( $self ) = @_;
+    
+    delete $self->{_y_top};
     $self->progress_bars([]);
     $self->item_data([]);
@@ -39 +61 @@
         )
     );
-
-
+    $self->wx_images([]);
     $self->SetImageList( $self->wx_imagelist, wxIMAGE_LIST_SMALL ) ;
-
-
-    $self->wx_images([]);
-
-    Wx::Event::EVT_PAINT(
-        $self,
-        sub {
-            my ( $self, $event ) = @_;
-
-            eval { $self->paint_progress_bars; };
-            $event->Skip;
-        }
-    );
-
-
-    $self;
 }
 
@@ -112 +117 @@
 }
 
+
 sub add_progress_items {
     my ( $self, $added_items ) = @_;
 
     push @{$self->item_data}, @{$added_items};
-
-    $self->SetItemCount(scalar @{$self->item_data});
-}
-
+    
+    my $item_count = scalar @{$self->item_data};
+    $self->SetItemCount($item_count);
+}
+
+
+sub clear_progress_items {
+    my ( $self ) = @_;
+
+    $self->{_y_top} = 100000;
+    $self->paint_progress_bars;
+
+    $self->reset_all;
+    $self->DeleteAllItems;
+}
 
 sub OnGetItemText {
@@ -188 +205 @@
 
 
+
+
 sub paint_progress_bars {
     my ( $self ) = @_;