add support for wheel left / right in MouseClick

phil294 · Feb 27, 2023 · 85a2cd8 · 85a2cd8
1 parent 9c145a6
commit 85a2cd8
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/cmd/x11/mouse/mouse-click.cr b/src/cmd/x11/mouse/mouse-click.cr
@@ -8,6 +8,8 @@ class Cmd::X11::Mouse::MouseClick < Cmd::Base
 		when "middle", "m" then XDo::Button::Middle
 		when "wheelup", "wu" then XDo::Button::ScrollUp
 		when "wheeldown", "wd" then XDo::Button::ScrollDown
+		when "wheelleft", "wl" then XDo::Button::ScrollLeft
+		when "wheelright", "wr" then XDo::Button::ScrollRight
 		when "xbutton1", "x1" then XDo::Button::Button8
 		when "xbutton2", "x2" then XDo::Button::Button9
 		else XDo::Button::Left