mirror of
https://gitlab.com/sheaf/metabrush.git
synced 2024-11-05 14:53:37 +00:00
use ?self to address pointer ownership warnings
This commit is contained in:
parent
36a6a3ca4b
commit
c3bcce58a7
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -1,6 +1,7 @@
|
|||
{-# LANGUAGE BlockArguments #-}
|
||||
{-# LANGUAGE DeriveTraversable #-}
|
||||
{-# LANGUAGE DerivingStrategies #-}
|
||||
{-# LANGUAGE MonoLocalBinds #-}
|
||||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue