Locator

• To: mathgroup at smc.vnet.net
• Subject: [mg88328] Locator
• From: Ekta Obheroi <ektaobheroi at yahoo.ca>
• Date: Fri, 2 May 2008 03:41:16 -0400 (EDT)

```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@# &,
Select[Notebooks[],
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},
LocatorPane[Dynamic[pt],
Dynamic@
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