use ?self to address pointer ownership warnings

This commit is contained in:
sheaf 2021-04-25 01:59:15 +02:00
parent 36a6a3ca4b
commit c3bcce58a7
5 changed files with 16 additions and 8 deletions

View file

@ -24,6 +24,17 @@ package hmatrix
-- location: https://github.com/haskell/mtl
-- tag: c8af65eb8437aebefd7f3ff1664316a0240f2157
source-repository-package
type: git
location: https://github.com/haskell-gi/haskell-gi
tag: fad0097a80b942137b7c423f6d9698fff4abeb28
source-repository-package
type: git
location: https://github.com/haskell-gi/haskell-gi
tag: fad0097a80b942137b7c423f6d9698fff4abeb28
subdir: base
-- GHC 9.0 compatibility for 'generics-lens' version 1.2
source-repository-package
type: git

View file

@ -67,9 +67,6 @@ import qualified GI.Gdk as GDK
-- gi-gio
import qualified GI.Gio as GIO
-- gi-gobject
import qualified GI.GObject as GObject
-- gi-gtk
import qualified GI.Gtk as GTK
@ -1140,7 +1137,7 @@ instance HandleAction KeyboardPress where
-> do
----------------------------------------------------------
-- With the pen tool, pressing control moves
-- the partial point control point to the mouse position.
-- the partial path control point to the mouse position.
tool <- STM.readTVarIO toolTVar
mbMousePos <- STM.readTVarIO mousePosTVar
mbPartialPath <- STM.readTVarIO partialPathTVar

View file

@ -1,6 +1,7 @@
{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE DeriveTraversable #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE MonoLocalBinds #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}

View file

@ -1,5 +1,6 @@
{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE ImplicitParams #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeApplications #-}
@ -70,9 +71,9 @@ handleEvents elts@( UIElements { viewport = Viewport {..}, .. } ) vars = do
void $ GTK.afterEventControllerScrollScroll viewportScrollController
( handleScrollEvent elts vars )
void $ GTK.afterGestureClickPressed viewportClicksController
( handleMouseButtonEvent elts vars eventOrigin viewportClicksController )
( handleMouseButtonEvent elts vars eventOrigin ?self )
void $ GTK.afterGestureClickReleased viewportClicksController
( handleMouseButtonRelease elts vars eventOrigin viewportClicksController )
( handleMouseButtonRelease elts vars eventOrigin ?self )
--------------------------------------------------------------------------------
-- Mouse events.

View file

@ -6,8 +6,6 @@ module MetaBrush.UI.InfoBar
import qualified GI.Gtk as GTK
-- MetaBrush
import MetaBrush.Asset.Colours
( Colours )
import {-# SOURCE #-} MetaBrush.Context
( Variables )
import MetaBrush.Document