Mathematica Stack Exchange is a question and answer site for users of Wolfram Mathematica. It only takes a minute to sign up.
Sign up to join this community
I have a Graphics element which I edit with Drawing Tools. I have determined a technique using NotebookWrite to add hyperlinks to the selected shape. My question is, how might I disable and enable the hyperlinks so that I can edit the current shape and surround shapes without invoking the links. Other usability ideas are welcome
After messing around with several techniques I decided the CellTags was overly complicated and didn't work consist enough, so here is simplified version. Simply pass the Graphics element in as an argument to get alternative output.
disableClicks[i_] := Replace[i, {
EventHandler[w___, {"MouseClicked" :> x___, y___}, z___] ->
EventHandler[w, {"MouseClicked2" :> x, y}, z],
EventHandler[w___, "MouseClicked" :> x___, z___] ->
EventHandler[w, {"MouseClicked2" :> x}, z]
}, \[Infinity]];
enableClicks[i_] := Replace[i, {
EventHandler[w___, {"MouseClicked2" :> x___, y___}, z___] ->
EventHandler[w, {"MouseClicked" :> x, y}, z],
EventHandler[w___, "MouseClicked2" :> x___, z___] ->
EventHandler[w, {"MouseClicked" :> x}, z]
}, \[Infinity]];
Row[] instead of multiplying them. 2) from where do you know how to work with EventHandlerTag?
$\endgroup$
– Kuba♦
Aug 8 '13 at 6:08
ToBoxes@Graphics[EventHandler[Circle[]...]] to see the box form of the EventHandler. Yes it could change between versions.
$\endgroup$
– William
Aug 8 '13 at 6:34
EventHandlerTag.
$\endgroup$
– William
Aug 8 '13 at 6:40
EventHandler, not with Hyperlink, am I right?
$\endgroup$
– Kuba♦
Aug 8 '13 at 6:46
EventHandler[w, {"MouseClicked" :> x, y}, z] and EventHandler[w, "MouseClicked" :> x, y] which is why there are 2 replaces. Well it is definitely a lot shorter then it used to be.
$\endgroup$
– William
Aug 8 '13 at 6:53
