RE: Re: 6.0 Get Graphics Coordinates...

*To*: mathgroup at smc.vnet.net*Subject*: [mg78126] RE: [mg77996] Re: 6.0 Get Graphics Coordinates...*From*: "Ingolf Dahl" <ingolf.dahl at telia.com>*Date*: Sat, 23 Jun 2007 07:14:51 -0400 (EDT)*References*: <f4on38$7sg$1@smc.vnet.net><200706140911.FAA05973@smc.vnet.net> <200706210938.FAA25789@smc.vnet.net>

Hi Alessandro, I am not sure you have done it in the right way. It would be correct for a palette distributed as notebook, but sounds not correct for this palette, given by code for palette creation. Try: 1. Copy the code into a cell in a Mathematica notebook. Please use the latest code, from mg78046 (also given below). 2. Run the code to create the palette. 3. Move the palette to another position on the screen. (This point is not logical, it is just Mathematica 6.0.0 magic. This will probably be corrected before version 17.2.4) 4. Try to close the palette. If Mathematica behaves as it should, you should be questioned if and where to save the palette. I think you have an "Applications" folder somewhere, check the value of $UserBaseDirectory to see where. Create there a subdirectory chain "Palettes/FrontEnd/Palettes, and save the file there. 5. Close Mathematica and reopen it. If the palette does not appear in the palette list, then do Install palette... 6. If Mathematica crashes during on of these steps, try again one or two times. Mathematica 6 is fantastic, but occasionally has crashed some times for me. But be confident, such behavior will be eliminated in version 6.0.1, arriving soon ;) Best regards Ingolf Dahl Here is the new code again: CreatePalette[ Column[{Button["Add LocatorPane", SelectionMove[InputNotebook[], All, CellContents]; NotebookWrite[ InputNotebook[], (DynamicModuleBox[{$CellContext`pts$$ = {{0., 0.}}}, LocatorPaneBox[Dynamic[$CellContext`pts$$], #, LocatorAutoCreate -> True], DynamicModuleValues :> {}]) &@ NotebookRead[InputNotebook[]]]], "Use Alt+Click to add or delete locators!", Button["Copy locator positions", SelectionMove[InputNotebook[], All, Cell]; FrontEndExecute[FrontEndToken["Copy"]]; SelectionMove[InputNotebook[], All, CellContents]; Module[{b}, b = NotebookRead[InputNotebook[]]; If[And[Length[b] >= 3, MatchQ[b[[2]], _LocatorPaneBox]], b = b[[1, 1]]; $LocatorPositions = b; SelectionMove[ClipboardNotebook[], All, Notebook]; NotebookWrite[ClipboardNotebook[], ToBoxes[b], All]; SelectionMove[ClipboardNotebook[], All, Notebook]]]], Button["Remove LocatorPane", SelectionMove[InputNotebook[], All, CellContents]; Module[{b}, b = NotebookRead[InputNotebook[]]; If[And[Length[b] >= 3, MatchQ[b[[2]], _LocatorPaneBox]], NotebookWrite[InputNotebook[], b[[2, 2]]]]]], Dynamic[MousePosition["Graphics"]]}], WindowTitle -> "Get Graphics Coordinates"]; > -----Original Message----- > From: alexxx.magni at gmail.com [mailto:alexxx.magni at gmail.com] > Sent: den 21 juni 2007 11:39 > To: mathgroup at smc.vnet.net > Subject: [mg77996] Re: 6.0 Get Graphics Coordinates... > > This is a beautiful solution! > Can you please help me to understand how to install it under > the "Palettes" menu? > If I do simply Install Palette -> From Clipboard (after > having copied there your code) it crashes Mathematica with SIGSEGV ... > > thanks! > > Alessandro Magni

**References**:**Re: 6.0 Get Graphics Coordinates...***From:*Jens-Peer Kuska <kuska@informatik.uni-leipzig.de>

**Re: 6.0 Get Graphics Coordinates...***From:*"alexxx.magni@gmail.com" <alexxx.magni@gmail.com>