mirror of
https://gitlab.com/sheaf/metabrush.git
synced 2024-11-23 15:34:06 +00:00
pen + brush mode = no op
This commit is contained in:
parent
6a9dca211a
commit
71f42894f8
|
@ -1034,7 +1034,10 @@ instance HandleAction MouseClick where
|
|||
_ -> do
|
||||
STM.writeTVar mouseHoldTVar ( Just $ SelectionHold pos )
|
||||
pure Don'tModifyDoc
|
||||
Pen -> do
|
||||
Pen -> case mode of
|
||||
BrushMode -> pure Don'tModifyDoc
|
||||
MetaMode -> pure Don'tModifyDoc
|
||||
PathMode -> do
|
||||
-- Pen tool in path mode: start or continue a drawing operation.
|
||||
mbPartialPath <- STM.readTVar partialPathTVar
|
||||
mbSelBrush <- STM.readTVar selectedBrushTVar
|
||||
|
|
|
@ -119,10 +119,6 @@ import MetaBrush.Stroke
|
|||
import MetaBrush.Unique
|
||||
( Unique )
|
||||
|
||||
|
||||
import Debug.Utils
|
||||
( trace )
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Subdivision.
|
||||
|
||||
|
|
Loading…
Reference in a new issue