hedgewars/hwengine.pas
branchsdl2transition
changeset 9694 e8d0fe885169
parent 9686 352393fc75be
child 9697 198c3ed28fe8
--- a/hedgewars/hwengine.pas	Fri Nov 08 14:22:22 2013 +0400
+++ b/hedgewars/hwengine.pas	Fri Nov 08 17:53:02 2013 +0400
@@ -165,6 +165,18 @@
                     if (GameState <> gsChat) and (GameState >= gsGame) then
                         ProcessKey(event.key);
 
+                SDL_MOUSEBUTTONDOWN:
+                    if GameState = gsConfirm then
+                        ParseCommand('quit', true)
+                    else
+                        if (GameState >= gsGame) then ProcessMouse(event.button, true);
+
+                SDL_MOUSEBUTTONUP:
+                    if (GameState >= gsGame) then ProcessMouse(event.button, false);
+
+                SDL_MOUSEWHEEL:
+                    ProcessMouseWheel(event.wheel.x, event.wheel.y);
+
                 SDL_WINDOWEVENT:
                     if event.window.event = SDL_WINDOWEVENT_SHOWN then
                     begin