Re: Can you minimize a notebook window from a notebook in Version
- To: mathgroup at smc.vnet.net
- Subject: [mg84853] Re: Can you minimize a notebook window from a notebook in Version
- From: dh <dh at metrohm.ch>
- Date: Wed, 16 Jan 2008 23:03:44 -0500 (EST)
- References: <fmkfig$a06$1@smc.vnet.net>
Hi Bob,
you may simply set the Option "Visible" of the notebook object to False.
Here is an example:
nbo=NotebookOpen["d:/tmp/test.nb"];
Pause[1];
SetOptions[nbo,Visible->False];
Pause[1];
SetOptions[nbo,Visible->True];
hope this helps, Daniel
deepyogurt at gmail.com wrote:
> Is there a way to minimize a Mathematica notebook window from within
> another Mathematica notebook that opened it with a call to
> NotebookOpen (I am using version 6 on a Mac if it matters), once the
> notebook is open? I have a notebook that opens several notebooks, but
> I only want a couple of them to show up on the screen initially, and
> then later just making them visible is a single mouse-click away. Is
> there a way to minimize the just opened notebook windows? Some way to
> use the "Minimize Window" command (Apple-M on a Mac and Windows
> version does not have the same menu command) or ??. I need to do this
> from inside of Mathematica not from the OS.
>
> For example there is routine called "FrontEndTokenExecute" that will
> do 'some' of the menu commands, but not the "Window/Minimize" (it will
> only do the "StackWindows", "TileWindowsWide" and "TileWindowsTall"
> menu commands according the Doc Center). I have noticed that if you
> open a notebook with something like:
>
> docpath = ToFileName[{"/Volumes", "Data"}, "test"];
> nb1 = NotebookOpen[ToFileName[docpath, "testingminimizewindow.nb"],
> WindowMargins -> {{10, Automatic}, {Automatic, 0}}, WindowSize ->
> {957, 786}]
>
> you get back a button looking thing in the output cell that has a
> small icon at the left side of the button which if you position the
> cursor on top of it, you get a tooltip that says "Bring this notebook
> to the front" and if it were minimized or behind some other windows,
> it would be brought up to be entirely visible. If you use "Cell/Show
> Expression" to look at the underlying code in this output cell it
> looks like(I have changed this a tiny bit to not use the real
> filename):
>
> Cell[BoxData[
> InterpretationBox[
> RowBox[{"NotebookObject", "[",
> PanelBox[GridBox[{
> {
> TooltipBox[
> ButtonBox[
> StyleBox[
> DynamicBox[FEPrivate`FrontEndResource[
> "FEBitmaps", "ManipulatePasteIcon"],
> ImageSizeCache->{13., {4., 9.}}],
> DynamicUpdating->True],
> BaseStyle->{},
> ButtonFrame->None,
> ButtonFunction:>FrontEndExecute[{
> FrontEnd`SetSelectedNotebook[
> NotebookObject[
> FrontEndObject[
> LinkObject["eni_shm", 1, 1]], 31]]}],
> Evaluator->None,
> Method->"Queued"],
> DynamicBox[
> FEPrivate`FrontEndResource["FEStrings",
> "NotebookObjectToTheFront"]]],
>
> TagBox[
> TooltipBox["\<\"testingminimizewindow.nb\"\>",
> "\"/Volumes/Data/test/testingminimizewindow.nb\""],
> Annotation[#,
> "/Volumes/Data/test/testingminimizewindow.nb", "Tooltip"]& ]}
> },
> GridBoxAlignment->{
> "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" ->
> {{Baseline}},
> "RowsIndexed" -> {}}],
> FrameMargins->{{4, 5}, {4, 4}}], "]"}],
> NotebookObject[
> FrontEndObject[
> LinkObject["eni_shm", 1, 1]], 31],
> Editable->False]], "Output",
> CellChangeTimes->{3.409452101304728*^9}]
>
> Of which I thought an interesting command is:
>
> FEPrivate`FrontEndResource["FEStrings",
> "NotebookObjectToTheFront"]]],
>
> I tried something similar using "NotebookObjectToTheRear" and
> "NotebookObjectToTheBack" but no luck, but perhaps this is only some
> info related to the tooltip and nothing to do with the underlying
> functions that bring the window to the front. Anyone know where these
> type of function calls are documented or any other ideas?? Ideally, I
> would like something that will work on both Mac and Windows versions
> of Mathematica 6.
>
> On a similar note, I cannot find anywhere in the Doc Center that
> documents a routine called DynamicModuleBox. In fact there seems to be
> a lot of things missing in the Doc Center about many of the low level
> routines I see when I look at cells with "Show Expression". With
> version 5, I could look just about everything up either online or in
> the Stephen Wolfram "The Mathematica Book, 5th Editino" (the 1500 page
> mMathematica bible). Anybody have any suggestion about how to look up
> these low level routines??
>
> Thanks very much...
>
> -Bob F
>