Changeset 10022

Timestamp:

12/28/09 18:41:44 (2 years ago)

Author:

submersible_toaster

Message:

indirectly related to issues discussed in #390 , put the selection to the X11 buffer when the editor looses focus.

File:

• trunk/Padre/lib/Padre/Wx/Editor.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Wx/Editor.pm

@@ -74 +74 @@
     Wx::Event::EVT_SET_FOCUS( $self, \&on_focus );
     Wx::Event::EVT_MIDDLE_UP( $self, \&on_middle_up );
-
+    Wx::Event::EVT_KILL_FOCUS( $self, \&on_kill_focus );
     # Smart highlighting:
     # Selecting a word or small block of text causes all other occurrences to be highlighted
@@ -904 +904 @@
 }
 
+# Manipulate the window manager selection buffer when editor looses focus
+sub on_kill_focus {
+    my ($self,$event) = @_;
+    if ( Padre::Constant::WXGTK ) {
+        my $selection = $self->GetSelectedText;
+        Wx::wxTheClipboard->Open;
+        Wx::wxTheClipboard->UsePrimarySelection(1);
+        my $clip = Wx::TextDataObject->new;
+        $clip->SetText($selection);
+        Wx::wxTheClipboard->SetData($clip);
+        Wx::wxTheClipboard->UsePrimarySelection(0);
+        Wx::wxTheClipboard->Close;
+    }
+
+}
+
+
 sub on_right_down {
     my $self  = shift;