Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Question on Dynamic with "DockedCell"

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104173] Re: Question on Dynamic with "DockedCell"
  • From: David Reiss <dbreiss at gmail.com>
  • Date: Wed, 21 Oct 2009 06:33:55 -0400 (EDT)
  • References: <hbjtn3$606$1@smc.vnet.net>

Hi Jason,

I have run into this as well when I wanted to create a menu in a
DockedCell that displayed the current set of files in a particular
directory.  One issue is that one has to trigger any Dynamic that is
in the cell, and for some cases one doesn't want something constantly
testing the cou=mputer's filesystem for changes.  I had played with
Refresh and things like that.

A solution that I came up with, that served my particular application
needs was to create a reason for a menu to update.

So, my menu was generated through a function likethe following.  Note
that it has an argument, but the parameter in the arrument is not used
in the funtion:

myMenu[z_] :=
 ActionMenu["Open...",
  FileNameTake[#, -1] :> SystemOpen[#] & /@
   FileNames[{"*"}, {$UserDocumentsDirectory}]]

Note that if you create a cell with this menu in it it will not update
if you add or remove a file in $UserDocumentsDirector:

TextCell[Dynamic[myMenu[1]], "Text"] // CellPrint

The trick now is to introduce a new function which has as its only
purpose to change the value of a parameter: $MysteryParameter.  Make
sure that that parameter is Unprotected if it is in a Package.
$MysteryParameter will be used in the argument to myMenu to force it
to trigger the Dynamic. And this will be acomplished by having the
Cell that contains the menu have a CellEventAction.

$MysteryParameter = 1;

Toggle$MysteryParameter[] :=
  Switch[$MysteryParameter,

   1,
   $MysteryParameter = 2,

   2,
   $MysteryParameter = 1,

   _,
   $MysteryParameter = 1];

And finally one intruduces a CellEventAction to the cell that causes
the value of $MysteryParameter to change and thereby causes the myMenu
in the Dynamic to update because its argument has changed.

TextCell[Dynamic[myMenu[$MysteryParameter]], "Text",
  CellEventActions -> {"MouseMoved" :> (Toggle$MysteryParameter
[])}] // \
CellPrint

Or, in a DockedCell

SetOptions[EvaluationNotebook[],
 DockedCells -> {
   MakeBoxes@
    TextCell[Dynamic[myMenu[$MysteryParameter]], "DockedCell",
     CellEventActions -> {"MouseMoved" :> (Toggle$MysteryParameter
[])},
     StripOnInput -> True]}
 ]

I hope this helps....

--David
http://scientificarts.com/worklife




On Oct 20, 4:51 am, Jason Ledbetter <jasonbr... at gmail.com> wrote:
> Folk,
> I'm attempting to create a dynamically-appearing set of choices/menus usi=
ng
> ButtonBar in a notebook window but I've been unable to get the desired
> affect to date. I've cobbled together the following code which almost doe=
s
> what I'm looking for but I could use some pointers in getting the rest of
> the way.
>
> The goal here is for the "topMenu" items to appear when the notebook is
> first instantiated and for the "secondMenu" option to appear when a
> "topMenu" option is selected. As it stands now, I'm having to start with =
the
> "secondMenu" option pre-defined to a bogus value.
>
> If I were to abstract my goal some more, I'm trying to figure out how to
> dynamically add/remove RowBox items that include ButtonBars from the
> notebook based on options that are selected.
>
> I'm guessing that I somehow need to programmatically generate the content=
s
> of a Dynamically wrapped RowBox (e.g., Dynamic[RowBox[...]]) but I'm not
> quite sure how to go about that just yet.
>
> Any help is greatly appreciated...
>
> Here's what I have thus far:
>
> --snip--
> Module[
>
>   {topMenu, secondMenu},
>
>   topMenu = {"option1", "option2"};
>   secondMenu = {"No option selected"};
>
>   menuChoice[choice_] := Module[{},
>     Switch[choice,
>      "option1", secondMenu = {"one", "selected"},
>      "option2", secondMenu = {"two", "selected"}, _, Print[choice=
]
>      ]];
>
>   CreateWindow[DockedCells -> Cell[
>      RowBox[
>       {
>        ToBoxes[
>         ButtonBar[ToString[#] :> menuChoice[#] & /@ topMenu]
>         ],
>        ToBoxes[
>         Dynamic[
>          ButtonBar[ToString[#] :> menuChoice[#] & /@ secondMenu=
]
>          ]
>         ]
>        }
>       ],
>      "DockedCell"],
>    TextAlignment -> Center
>    ]
>   ];
>
> --snip--
>
> thanks,
>
> -jbl



  • Prev by Date: Re: Multi-Colored Filling in DateListPlot
  • Next by Date: Re: Question on Dynamic with "DockedCell"
  • Previous by thread: Re: Question on Dynamic with "DockedCell"
  • Next by thread: Re: Re: Question on Dynamic with "DockedCell"