Re: Using package functions in Manipulate/DynamicModule

*To*: mathgroup at smc.vnet.net*Subject*: [mg109140] Re: Using package functions in Manipulate/DynamicModule*From*: Hannes Kessler <HannesKessler at hushmail.com>*Date*: Mon, 19 Apr 2010 04:10:21 -0400 (EDT)*References*: <hq0mqd$k0u$1@smc.vnet.net>

On 13 Apr., 05:01, Rui <rui.r... at gmail.com> wrote: > Hey. My objective is to deploy in a Mathematica Player file a document > which has some interactive stuff, without any code visible. Ideally, > it would be all in a single file but I can live with sending a .m > package file too. So far so good. > > Inside a DynamicModule I used some functions from a .m file I had > created some time ago. As expected, when I close the file and reopen > it, the dynamic gives errors everywhere. > > First I thought there might be something magical similar to > SaveDefinitions that would automatically store in the cell everything > it needs to work fine. But I coulnd't find it. I tried wrapping it up > in a Manipulate with SaveDefinitons->True but doesn't work either. > > So, I decided to try for the cell to just load the package whenever it > needs to be displayed for the first time. > "Initialization:>Needs["AddOns'"]" seemed to be perfect. However, it > doesn't work as expected. > For example: (SS and IListPlot are from AddOns.m) > Manipulate[ > IListPlot[SS[p, 100] @@ Range[100]], {p, 1, 100, 1}, > Initialization -> Needs["AddOns`"], SaveDefinitions -> True] > doesn't work and tells me there are double definitions in Global` and > AddOns` of IListPlot and SS (right after starting the kernel) > > The few times I've tried to use "Initialization" it gave me a > headache. I would have thought it just executes that whenever the > dynamicmodule/manipulate is displayed for the first time, but evidence > proves it isn't that simple, and I don't get it. > > Perhaps I should put all of my package's variables in the > DynamicModule and copy the whole package inside? > When something that strikes me as useful and common is getting > convoluted and messy, it's a sign I'm overseing something and needing > your help. > > Thanks a lot! ;D Try the following: Needs["AddOns`"]; DynamicModule[{p}, Column[{ Slider[Dynamic[p], {1, 100, 1}] , Dynamic @ IListPlot[SS[p, 100] @@ Range[100]] }], Initialization :> AbortProtect[Needs["AddOns`"]]] The first Needs makes sure the package is loaded when the DynamicModule is created. The second Needs initializes the package after quitting Mathematica and re-opening the notebook. It is important to use a RuleDelayed and not a Rule: Initialization -> Needs["AddOns`"] loads the output of Needs["AddOns`"] generated when the DynamicModule is created. This output is Null. Thus the package would not be loaded when the notebook is re-opened after quitting Mathematica. AbortProtect prevents time out errors in case the package needs a longer time to load. Best regards, Hannes Kessler