Message Boards

WOLFRAM COMMUNITY

10240 Views

7 Replies

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematica User Interface

Split window

Ulrich Utiger

Posted 9 years ago

Is there a mean to split horizontally the Mathematica window? This would be very useful in comparing code within a notebook that contains a lot of code of several pages. Please introduce this in your next version of Mathematica.

POSTED BY: Ulrich Utiger

7 Replies

Sort By:

Ulrich Utiger

Posted 4 years ago

Hey Jos, thanks for your suggestion. I will try this out...

POSTED BY: Ulrich Utiger

Jos Klaps

Jos Klaps, Home / Hobbyist

Posted 4 years ago

Maybe this will help? Hyperlink["https://mathematica.stackexchange.com/questions/9280/open-\ two-copies-of-the-same-notebook", \ CreatePalette[ Button["Duplicate Active Notebook", NotebookPut[ NotebookGet[ InputNotebook[]] /. {Rule[DockedCells, _] :> Sequence[], Rule[WindowMargins, _] :> Rule[WindowMargins, {{0, Automatic}, {0, Automatic}}], Cell[x___] :> Cell[x, Evaluatable -> False]}, Background -> GrayLevel[0.95], Editable -> False, "ClosingSaveDialog" -> False, DockedCells -> With[{sourcenb = InputNotebook[]}, Cell[BoxData[ ToBoxes[Button["Update", SelectionMove[InputNotebook[], All, Notebook]; NotebookWrite[InputNotebook[], NotebookGet[sourcenb] /. Cell[x___] :> Cell[x, Evaluatable -> False]]]]], "DockedCell", CellContext -> Cell]], WindowTitle -> "Duplicate of " <> AbsoluteOptions[InputNotebook[], WindowTitle][[1, 2]]]; SetSelectedNotebook[InputNotebook[]]], WindowTitle -> "Duplicate"]; Regards,...Jos

Maybe this will help?

Hyperlink["https://mathematica.stackexchange.com/questions/9280/open-\ two-copies-of-the-same-notebook", \

CreatePalette[
  Button["Duplicate Active Notebook", 
   NotebookPut[
    NotebookGet[
      InputNotebook[]] /. {Rule[DockedCells, _] :> Sequence[], 
      Rule[WindowMargins, _] :> 
       Rule[WindowMargins, {{0, Automatic}, {0, Automatic}}], 
      Cell[x___] :> Cell[x, Evaluatable -> False]}, 
    Background -> GrayLevel[0.95], Editable -> False, 
    "ClosingSaveDialog" -> False, 
    DockedCells -> 
     With[{sourcenb = InputNotebook[]}, 
      Cell[BoxData[
        ToBoxes[Button["Update", 
          SelectionMove[InputNotebook[], All, Notebook];

          NotebookWrite[InputNotebook[], 
           NotebookGet[sourcenb] /. 
            Cell[x___] :> Cell[x, Evaluatable -> False]]]]], 
       "DockedCell", CellContext -> Cell]], 
    WindowTitle -> 
     "Duplicate of " <> 
      AbsoluteOptions[InputNotebook[], WindowTitle][[1, 2]]];
   SetSelectedNotebook[InputNotebook[]]], WindowTitle -> "Duplicate"];

Regards,...Jos

POSTED BY: Jos Klaps