MathGroup Archive 2008

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

Search the Archive


Hi Everyone,
Very recently I started using Mathematica with the hopes of accomplishing the following. I have had some progress by using extensively the documentation center, however, any help will be really appreciated. I have 2 questions in particular and have described them below:

I have created 3 notebooks with the following command:
lst = Table[
   NotebookCreate[WindowSize -> {240, 240}, WindowTitle -> "new", 
    WindowMargins -> {{RandomInteger[{0, 100}], Automatic}, { Automatic, 
       RandomInteger[{0, 50}]}}], {3}];

>From all the open notebooks I get the 3 newly generated notebooks and get their locations. The following command does work however, it gives me a red symbol in Mathematica which I assume means that something is missing. Any ideas as to what is missing?:
newlst=Map[WindowMargins /. Options@# &, 
  StringMatchQ[("WindowTitle" /. NotebookInformation[#]), "new"] &]]

I then retrieve the notebook locations for the 3 notebooks. 
coord =  Map[({#[[1, 1]], #[[2, 2]] }) &, newlst]

Finally, I want to create locators for each of the above notebooks, such that when I move the locators the notebooks are moved. In other words, the {x,y} position of the locators is mapped to the WindowMargins of that particular notebook. I have successfully created the locators but I have no clue how to map the locators such that the notebooks are moved. Below is the code for it: 

DynamicModule[{pt = new1}, 
   ListPlot[pt, AxesOrigin -> {0, 0}, PlotRange -> {{0, 100}, {0, 50}}]]]

I can move the locators, but with the moving of locators I need to the move corresponding notebook. Any help would be of great help

Thanks in advance,

  • Prev by Date: Re: Mathematica student certification now available
  • Next by Date: Re: Re: For help about NSolve
  • Previous by thread: Re: DSolve Issues
  • Next by thread: Re: Locator