pen + brush mode = no op

This commit is contained in:
sheaf 2024-10-21 10:43:13 +02:00
parent 6a9dca211a
commit 71f42894f8
2 changed files with 46 additions and 47 deletions

View file

@ -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

View file

@ -119,10 +119,6 @@ import MetaBrush.Stroke
import MetaBrush.Unique
( Unique )
import Debug.Utils
( trace )
--------------------------------------------------------------------------------
-- Subdivision.