Changeset 5422

Timestamp:

06/20/09 21:41:35 (3 years ago)

Author:

azawawi

Message:

[Ecliptic] Ctrl-~ Quick Fix is now more generic and can be used by other plugins.

Location:

trunk/Padre-Plugin-Ecliptic/lib/Padre/Plugin

Files:

• Ecliptic.pm (modified) (2 diffs)
• Ecliptic/QuickFixDialog.pm (modified) (3 diffs)

trunk/Padre-Plugin-Ecliptic/lib/Padre/Plugin/Ecliptic.pm

@@ -13 +13 @@
 # is a subclass of Padre::Plugin
 use base 'Padre::Plugin';
+
+
+# accessors
+use Class::XSAccessor accessors => {
+    quick_fix_items  => 'quick_fix_items',  # Public Quick fix items
+};
+
 
 #
@@ -236 +243 @@
     my $self = shift;
 
+    if(not defined $self->quick_fix_items) {
+        my @empty_list = ();
+        $self->quick_fix_items(\@empty_list);
+
+        my @items = ( 
+            {
+                text     => '123...', 
+                listener => sub { 
+                    print "123...\n";
+                } 
+            },
+            {
+                text     => '456...', 
+                listener => sub { 
+                    print "456...\n";
+                } 
+            },
+        );
+
+        push @{$self->quick_fix_items}, @items;
+
+    }
+    
     #Create and show the dialog
     require Padre::Plugin::Ecliptic::QuickFixDialog;

trunk/Padre-Plugin-Ecliptic/lib/Padre/Plugin/Ecliptic/QuickFixDialog.pm

@@ -19 +19 @@
     _sizer             => '_sizer',              # window sizer
     _list              => '_list',               # key bindings list
+    _listeners         => '_listeners',          # hash of quick fix listener
 };
 
@@ -106 +107 @@
     });
 
+    Wx::Event::EVT_LIST_ITEM_ACTIVATED( $self, $self->_list, sub {
+
+        my $selection = $self->_list->GetFirstSelected;
+        if($selection != -1) {
+            my $listener = $self->_listeners->{$selection};
+            if($listener) {
+                &{$listener}();
+            }
+        }
+        return;
+    });
+    
 }
 
@@ -132 +145 @@
     $self->_list->SetColumnWidth( 0, $list_width - 5 );
     
-    my $item;
+    # add list items from callbacks
+    my %listeners = ();
+    my $item_count = 0;
+    foreach my $item (@{ $self->_plugin->quick_fix_items }) {
+        # add the list item
+        $self->_list->InsertStringItem($item_count, $item->{text});
 
-    $item = Wx::ListItem->new();
-    $item->SetText("Inline variable...");
-    $self->_list->InsertItem($item);
+        # and register its action
+        $listeners{$item_count} = $item->{listener}; 
+
+        #next item...
+        $item_count++;
+    }
+    $self->_listeners(\%listeners);
+
+    #XXX- any empty quick fix must display "No suggestions" like Eclipse
     
-    $item = Wx::ListItem->new();
-    $item->SetText("Toggle Comment...");
-    $self->_list->InsertItem($item);
-    
-    if($self->_list->GetItemCount()) {
+    if($item_count) {
         $self->_list->Select(0, 1);
     }