diff options
Diffstat (limited to 'MeshSketch.hs')
-rw-r--r-- | MeshSketch.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/MeshSketch.hs b/MeshSketch.hs index 14b3ebc..15af94f 100644 --- a/MeshSketch.hs +++ b/MeshSketch.hs | |||
@@ -724,9 +724,11 @@ onEvent w realized ev = do | |||
724 | Nothing -> case inputSource of | 724 | Nothing -> case inputSource of |
725 | Just InputSourcePen -> do | 725 | Just InputSourcePen -> do |
726 | writeIORef (stPenDown st) False | 726 | writeIORef (stPenDown st) False |
727 | {- | ||
727 | d <- pushRing w st True h k red | 728 | d <- pushRing w st True h k red |
728 | Just win <- getWidgetWindow w | 729 | Just win <- getWidgetWindow w |
729 | windowInvalidateRect win Nothing False | 730 | windowInvalidateRect win Nothing False |
731 | -} | ||
730 | _ -> do | 732 | _ -> do |
731 | updateCameraRotation w st h k | 733 | updateCameraRotation w st h k |
732 | sanitizeCamera st | 734 | sanitizeCamera st |