Re: NotebookOpen Function
- To: mathgroup at smc.vnet.net
- Subject: [mg86468] Re: NotebookOpen Function
- From: Albert Retey <awnl at arcor.net>
- Date: Wed, 12 Mar 2008 00:11:06 -0500 (EST)
- References: <fr5e4m$o9q$1@smc.vnet.net>
Hi,
> nb =
> NotebookPut[Notebook[{Cell[BoxData[RowBox[{"Plot",
> "[", RowBox[{"x", \
> ",", " ", RowBox[{"{
> ", RowBox[{"x", ",", " ", "1
> ", ",", " ", "
> 5"}], "}"}]}], "]"}]], "Input
> "]}, WindowSize -> {200, 300}]];
> SelectionMove[nb, All, CellContents];
> SelectionEvaluate[nb];
>
The option WindowMargins for Notebook will do what you want. Look it up
in the documentation to learn the details. Here is one example:
WindowMargins -> {{0, Automatic}, {Automatic, 0}}
hth,
albert