[ViewVC] Diff of: cvs/rxvt-unicode/src/perl/macosx-clipboard

Comparing rxvt-unicode/src/perl/macosx-clipboard (file contents):
Revision 1.1 by root, Thu Dec 7 20:59:59 2006 UTC vs.
Revision 1.2 by ayin, Mon Nov 12 14:41:42 2007 UTC

 use locale;
 use utf8;
 our($appkit, $pasteboard);
+$appkit = NSBundle->alloc->init->initWithPath_('/System/Library/Frameworks/AppKit.framework');
+$appkit->load if $appkit;
+if ($appkit->isLoaded) {
+   no strict 'refs';
+   for my $class (qw(NSPasteboard)) {
+      @{$class . '::ISA'} = 'PerlObjCBridge';
+   }
+} else {
+   undef $appkit;
+}
+$pasteboard = NSPasteboard->generalPasteboard;
 sub copy {
    my ($self) = @_;
    $pasteboard->declareTypes_owner_(NSArray->arrayWithObject_('NSStringPboardType'), undef);
    $pasteboard->setString_forType_($self->selection, 'NSStringPboardType');
       $self->tt_write($self->locale_encode($str));
    }
    ()
 }
-sub on_start {
-   my ($self) = @_;
-   $appkit = NSBundle->alloc->init->initWithPath_('/System/Library/Frameworks/AppKit.framework');
-   $appkit->load if $appkit;
-   if ($appkit->isLoaded) {
-      no strict 'refs';
-      for my $class (qw(NSPasteboard)) {
-         @{$class . '::ISA'} = 'PerlObjCBridge';
-      }
-   } else {
-      undef $appkit;
-   }
-   $pasteboard = NSPasteboard->generalPasteboard;
-   ()
-}
 sub on_user_command {
    my ($self, $cmd) = @_;
    if ($cmd eq "macosx-clipboard:copy") {
       $self->copy;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines