Re: Re: Zoom2D - V6 question
- To: mathgroup at smc.vnet.net
- Subject: [mg82744] Re: [mg82699] Re: Zoom2D - V6 question
- From: Syd Geraghty <sydgeraghty at mac.com>
- Date: Tue, 30 Oct 2007 03:30:49 -0500 (EST)
- References: <200710251008.GAA21713@smc.vnet.net> <ffsdd9$om6$1@smc.vnet.net> <200710291031.FAA06036@smc.vnet.net>
Hi Daniel,
In V6 I get an error flag on the option ... BoxForm`ClosingSaveDialog-
>False included in your code below.
I searched the documentation and found no such option. Running
without it did produce the pallette but using it also produced
error messages (Like "line is not a graphics primitive or directive")
and a red flagged 2-D graphic? There was however zooming capability.
Appreciate suggestions for a fix as it seems a nice function to have.
Thanks.
Cheers ... Syd
Syd Geraghty B.Sc., M.Sc.
sydgeraghty at mac.com
San Jose, CA
My System
Mathematic 6.0.1 for Mac OS X x86 (32 - bit) (June 19, 2007) License
L2983-5890
MacOS X V 10.4 .10
MacBook Pro 2.33 Ghz Intel Core 2 Duo 2GB RAM
On Oct 29, 2007, at 3:31 AM, dh wrote:
>
>
> Hello Murray,
>
> I posted it to this newsgroup, you may find it in the archive. To save
>
> you the trouble, here it is again in *.m format:
>
>
>
> ===========================================
>
> Zoom2D[g0_]:=Module[{g,g1,pp1,pp2},tt=g0;
>
> If[!MatchQ[Head[g0],Graphics|GraphicsBox],CreateDialog[{TextCell
> ["Zoom:
>
> No Input available."],DefaultButton[]}];Return[];
>
> ];
>
> g=If[Head[g0]=!=Graphics,ReplaceAll[g0,{GraphicsBox-
> >Graphics,LineBox->Line,FormBox[x1_,x2___]:>StringReplace[x1,"\""-
> >""]}],g0];
>
> g=g/.NCache[_,x_]:>x;
>
> {pp1,pp2}=(PlotRange/.AbsoluteOptions[g])//Transpose;
>
> g1=DynamicModule[{p1=pp1,p2=pp2,lp={0,0},aspect=1},Column
> [{LocatorPane[Dynamic[{p1,p2}],Show[{g,Graphics[{Opacity
> [0.1],Rectangle[Dynamic[p1],Dynamic[p2]]}]},ImageSize-
> >Small]],EventHandler[Show[g,PlotRange:>Dynamic[Transpose
> [{p1,p2}]],Frame->True,ImageSize->Full,AspectRatio->Dynamic
> [aspect]],{"MouseClicked":>(lp=MousePosition["Graphics"])}],Dynamic
> [lp]
>
> ,Row[{TextCell["AspectRatio fixed:
>
> "],Checkbox[Dynamic[aspect],{Automatic,1}]}]},Center]];
>
> CreateDocument[g1,WindowSize->{Small,All},WindowTitle->"Zoom-
> DH",WindowElements->{},WindowFrame-
> >"Palette",BoxForm`ClosingSaveDialog->False];]
>
>
>
> CreatePalette[Button["Zoom",Zoom2D[NotebookRead[SelectedNotebook
> []]]],WindowTitle->""];
>
> =====================================================
>
> Daniel
>
>
>
> Murray Eisenberg wrote:
>
>> Where is Zoom2D available?
>
>>
>
>> dh wrote:
>
>>> Hello,
>
>>>
>
>>> 4 weeks ago I posted the newest version of Zoom2D adapted to
>>> Mahematica
>
>>>
>
>>> 6.0.1. Since I received 2 complaints that the new version is not
>>> working
>
>>>
>
>>> because the command "BoxForm`ClosingSaveDialog -> False]" is
>>> marked red
>
>>>
>
>>> by Mathematica's editor.
>
>>>
>
>>> Well, I just made several plots (e.g. Plot[Sin[x],{x,0,10}]) and
>>> tried
>
>>>
>
>>> Zoom2D, this worked without problems. Looking at the code, it is
>>> true
>
>>>
>
>>> that the above command is flagged red, but this seems rather a
>>> bug of
>
>>>
>
>>> the editor than of Zoom2D.
>
>>>
>
>>> If somebody had a problem with Zoom2D, I beg that he sends me an
>>> example
>
>>>
>
>>> that I have a chance to look at it.
>
>>>
>
>>> Daniel
>
>>>
>
>>>
>
>>>
>
>>
>
>
>
- References:
- Zoom2D
- From: dh <dh@metrohm.ch>
- Re: Zoom2D
- From: dh <dh@metrohm.ch>
- Zoom2D