Чи є спосіб змінити опис смужки заголовка Mathematica?

Чи є спосіб змінити опис рядка заголовка переднього кінця Mathematica? Це було б дуже корисно для розмежування між ними при запуску двох екземплярів програми (наприклад, за допомогою тривалих обчислень в одному).

windows mathematica title-bar

— Szabolcs
джерело

Ви можете використовувати доковану комірку з номером версії. Ось відправна точка:

SetOptions[$FrontEndSession, 
 DockedCells -> 
  Cell[BoxData[
    ToBoxes[NumberForm[$VersionNumber, {2, 1}], StandardForm]], 
   "DockedCells", ShowStringCharacters -> False
   ]]

(Зверніть увагу, що $FrontEndSessionминуле не залишатиметься виходу з передньої частини.)

Редагувати

Ось версія з помаранчевим фоном, яка йде від краю до краю. Ключовий варіант CellMargins:

SetOptions[$FrontEndSession, 
 DockedCells -> 
  Cell[BoxData[
    ToBoxes[NumberForm[$VersionNumber, {2, 1}], StandardForm]], 
   "DockedCells", ShowStringCharacters -> False, 
   CellMargins -> {{0, 0}, {0, 0}}, Background -> Orange]]

— Чемпіон Бретта
джерело

Це дуже корисно, воно показує стиковану клітинку на кожному ноутбуці. Я шукав спосіб змінити назву вікна головного вікна Mathematica, тому я міг також розмежувати кнопки панелі завдань, але це вже дуже добре. Я хотів би використовувати колірне кодування, подібне: SetOptions[$FrontEndSession, DockedCells -> Cell[BoxData[""], "DockedCells", Background -> Orange]]. Як би я зробив клітинку трохи вужчою і повністю наповненою кольором? (Межі все ще білі.)

— Szabolcs

Дякуємо за редагування! Це було досить похмуро: коли я спробував свій приклад, іноді у нього були поля, а іноді й не було, залежно від того, що я намагався раніше на тому ж сеансі. Тепер я пам'ятаю, що ви також використовували цю техніку у відповіді на повідомлення SO.

— Szabolcs