first commit

1 files changed, 49 insertions, 0 deletions

diff --git a/urxvt/ext/vtwheel b/urxvt/ext/vtwheel
new file mode 100644
index 0000000..7f51226
--- /dev/null
+++ b/urxvt/ext/vtwheel
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+# Implements a scrollwheel just like in good old vt100's mices
+
+sub simulate_keypress {
+    my ($self, $type) = @_; #type: 0:up, 1:down
+
+    my $keycode_up = 111;
+    my $keycode_down = 116;
+
+    my $numlines = 3;
+
+    my $keycode = 0;
+    if ($type eq 0) {
+        $keycode = $keycode_up;
+    } elsif ($type eq 1) {
+        $keycode = $keycode_down;
+    } else {
+        return;
+    }
+
+    for (my $i = 0 ; $i ne $numlines ; $i++) {
+        $self->key_press(0,$keycode);
+        $self->key_release(0,$keycode);
+    }
+}
+
+sub on_button_release {
+    my ($self, $event) = @_;
+
+    #my $res_ss = $self->resource("secondaryScroll");
+    #warn("ressource ss is <$res_ss>");
+
+    !$self->current_screen and return ();
+
+    #warn("foo, event: <$event->{button}>\n");
+    if ($event->{button} eq "4") { # scroll up
+        $self->simulate_keypress(0);
+		return 1;
+    } elsif ($event->{button} eq "5") { # scroll down
+        $self->simulate_keypress(1);
+		return 1;
+    }
+
+    return ();
+}