Re: Impossible to move objects in dynamic graphics

*To*: mathgroup at smc.vnet.net*Subject*: [mg122688] Re: Impossible to move objects in dynamic graphics*From*: Chris Hill <chill at wolfram.com>*Date*: Sun, 6 Nov 2011 05:55:12 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

The ContentSelectable option controls this behavior. To eliminate the double click step use ContentSelectable->True. Dynamic@Style[ Graphics[{Text["TEXT", Dynamic[p]], AbsolutePointSize[10], Point[Dynamic[q]]}, PlotRange -> 1, ContentSelectable -> True], Editable -> True] Chris Hill Wolfram Research At 02:04 PM 11/5/2011, DrMajorBob wrote: >p = {-.5, 0}; q = {.5, 0}; > >Dynamic@Style[ > Graphics[{Text["TEXT", Dynamic[p]], AbsolutePointSize[10], > Point[Dynamic[q]]}, PlotRange -> 1], Editable -> True] > >The Text and Point are stubbornly stationary. > >But wait! Neither you you mentioned that you first have to double click >the graphic! > >NOW they move, and adding these: > >Dynamic[p] > >Dynamic[p] >{-0.317301,-0.369128} > >Dynamic[q] >{0.220358,0.175242} > >allows one to see where they've been dragged. > >Bobby > >On Sat, 05 Nov 2011 04:47:05 -0500, Chris Hill <chill at wolfram.com> wrote: > >>At 06:03 AM 11/4/2011, nicolas at virtualdynamics.fr wrote: >>>Since version 8 it is no more possible to move objects with dynamic >>>positions in a dynamic graphics. >>> >>>For example in the graphics below, the text and the point can be >>>moved : >>> >>>p = {-.5, 0}; q = {.5, 0}; {Dynamic@p, Dynamic@q} >>>Graphics[{Text["TEXT", Dynamic[p]], AbsolutePointSize[10], >>> Point[Dynamic[q]]}, PlotRange -> 1] >>> >>>But not in that one which is just wrapped in a Dynamic >>> >>>Dynamic@Graphics[{Text["TEXT", Dynamic[p]], AbsolutePointSize[10], >>> Point[Dynamic[q]]}, PlotRange -> 1] >>> >>>I expect that to work. Is it a bug ? Or if something has been changed, >>>how can I now get back to previous (good) behaviour ? >>> >>>Thanks >>> >>>Nicolas >> >>You can restore the old behavior like this: >> >>Dynamic@Style[ >> Graphics[{Text["TEXT", Dynamic[p]], AbsolutePointSize[10], >> Point[Dynamic[q]]}, PlotRange -> 1], Editable -> True] >> >>Editing content inside a Dynamic is generally not desirable so >>Dynamic will set Editable->False for it's contents. >> >>Starting in version 8 graphics primitives can't be dragged when >>Editable is False, earlier versions allowed dragging. >> >>Style[Graphics[{AbsolutePointSize[100], Point[{0, 0}]}, PlotRange -> 1], >> Editable -> False] >> >>Chris Hill >>Wolfram Research >> > > >-- >DrMajorBob at yahoo.com