Cách tạo sổ ghi chép Mathematica theo bảng

Question

Có cách nào để tạo và chỉnh sửa sổ tay (chuỗi các ô) trong giao diện tab không? Một giao diện như vậy có thể được thực hiện với TabView hoặc một số công cụ khác không? Tôi cho rằng điều này có thể xảy ra nếu tôi thực hiện giao diện người dùng từ đầu, nhưng có cách nào trong tiêu chuẩn Wolfram front-end không?

---

Hai điều thúc đẩy tôi hỏi điều này. Đầu tiên, tôi muốn tạo một thay thế cho Microsoft Office OneNote với sổ ghi chép Mathematica. Thứ hai, khi tôi đang làm việc trong Mathematica tôi thấy mình tự hỏi liệu một giao diện tab sẽ làm việc tốt hơn so với có nhiều cửa sổ riêng biệt mở.

Answer 1

Trong khi Mathematica không hỗ trợ trực tiếp cửa sổ sổ tay được gắn thẻ, bạn có thể sao chép một số hiệu ứng bằng cách sử dụng DockedCells. Giao diện Điều hướng Sách/Chức năng Ảo (từ menu trợ giúp) thực hiện điều này ... về cơ bản nó là một trình chiếu với hai trang trình bày, một cái giữ VB và một có chứa FN, với giao diện điều hướng DockedCells được điều khiển bởi NotebookFind trông hơi như các tab.

Dưới đây là ý chính về cách bạn có thể tự tạo một sổ ghi chép như vậy. Xin lỗi, có một số loại khái niệm nâng cao ở đây ... nếu có bất kỳ phần nào của giải pháp này mà bạn muốn tìm hiểu thêm về, có thể bạn có thể quay ra nhiều câu hỏi hơn.

(* 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"}] 

Chỉnh sửa: thay đổi NotebookFind[ButtonNotebook[],tag,All,CellTags], mà dường như không phải lúc nào di chuyển trình chiếu một cách chính xác, để NotebookLocate[tag]. Xem thảo luận trong nhận xét. Hai bit của mã nên, theo lý thuyết, là tương đương, nhưng một lỗi trong Mathematica 8 xuất hiện để làm cho chúng hành xử khác nhau đôi khi.