Tworzenie kart z notatnikiem Mathematica

Question

Czy istnieje sposób na tworzenie i edytowanie notatników (sekwencji komórek) w interfejsie z kartami? Czy taki interfejs można wykonać przy pomocy TabView lub innego narzędzia? Zakładam, że byłoby to możliwe, jeśli zrobiłem front-end od zera, ale czy jest jakiś sposób w standardowym interfejsie Wolfram?

---

Dwie rzeczy motywują mnie do zadania tego. Najpierw chciałbym zastąpić Microsoft Office OneNote notebookami Mathematica. Po drugie, kiedy pracuję w Mathematica, zastanawiam się, czy interfejs z kartami działa lepiej, niż gdy wiele oddzielnych okien jest otwartych.

Answer 1

Chociaż program Mathematica nie obsługuje bezpośrednio okien z kartami, możliwe jest odtworzenie efektu podobnego za pomocą DockedCells. Interfejs Virtual Book/Function Navigator (z menu pomocy) robi to ... jest to zasadniczo pokaz slajdów z dwoma slajdami, z których jeden zawiera VB, a drugi zawiera FN, z interfejsem nawigacyjnym DockedCells sterowanym przez NotebookFind, który wygląda nieco jak karty.

Oto podstawowe informacje o tym, jak można zrobić samodzielny notebook. Przepraszam, są tu jakieś zaawansowane koncepcje ... jeśli jest jakaś część tego rozwiązania, o której chcesz dowiedzieć się więcej, być może będziesz mógł udzielić więcej pytań.

(* make a single page of the notebook *) 
page[tag_String] := 
    Cell@CellGroupData[{Cell["", "SlideShowNavigationBar", 
     CellTags -> {tag}], Cell[tag, "Title"]}]; 
(* make a single tab-like button which selects the page *) 
button[tag_String] := 
    Button[Dynamic[ 
    Setter[Dynamic[ 
     CurrentValue[EvaluationNotebook[], {TaggingRules, "page"}, 
     tag]], tag]], 
    CurrentValue[EvaluationNotebook[], {TaggingRules, "page"}] = tag; 
    NotebookLocate[tag], 
    Appearance -> None]; 
(* make a notebook based upon a list of strings which are names of tabs *) 
makeTabbedNotebook[nameList_List] := 
    NotebookPut@Notebook[page /@ nameList, 
    DockedCells -> 
    ToBoxes[ExpressionCell[Row[button /@ nameList], 
     "DockedCell"]][[1]], 
    ScreenStyleEnvironment -> "SlideShow"]; 

makeTabbedNotebook[{"First", "Second", "Third"}] 

Edit: zmienił NotebookFind[ButtonNotebook[],tag,All,CellTags], który wydaje się nie zawsze prawidłowo przewinąć pokaz slajdów, aby NotebookLocate[tag]. Zobacz dyskusję w komentarzach. Te dwa bity kodu powinny teoretycznie być równoważne, ale błąd w Mathematica 8 wydaje się sprawiać, że czasami zachowują się inaczej.