[0401] 表格单元格边框添加斜线选项 (#3308)

Author: yinyuscloor

TeXmacs/misc/pixmaps/liii-night/16x16/focus/tm_border_a.svg

@@ -750,6 +750,14 @@
   (:argument b "Top border width")
   (cell-set-borders b #f #f #f b #f #f #f))
 
+(tm-define (cell-set-dborder b)
+  (:argument b "Diagonal border width")
+  (cell-set-format* "cell-dborder" b))
+
+(tm-define (cell-set-aborder b)
+  (:argument b "Anti-diagonal border width")
+  (cell-set-format* "cell-aborder" b))
+
 (define cell-current-pen-width "1ln")
 
 (define (cell-test-pen-width? pen)

TeXmacs/misc/pixmaps/liii-night/16x16/focus/tm_border_d.svg

@@ -210,7 +210,11 @@
     ((icon "tm_border_rtb.xpm")
      (cell-set-borders width width "0ln" width #f #f #f #f))
     ((icon "tm_border_lrtb.xpm")
-     (cell-set-borders width width width width #f #f #f #f))))
+     (cell-set-borders width width width width #f #f #f #f))
+    ((icon "tm_border_d.xpm")
+     (cell-set-format* "cell-dborder" width))
+    ((icon "tm_border_a.xpm")
+     (cell-set-format* "cell-aborder" width))))
 
 (menu-bind cell-borders-icons-menu
   (with width (cell-get-pen-width)
@@ -243,13 +247,15 @@
   ("Left" (interactive cell-set-lborder))
   ("Right" (interactive cell-set-rborder))
   ("Bottom" (interactive cell-set-bborder))
-  ("Top" (interactive cell-set-tborder)))
+  ("Top" (interactive cell-set-tborder))
+  ("Diagonal" (interactive cell-set-dborder))
+  ("Anti-diagonal" (interactive cell-set-aborder)))
 
 (menu-bind cell-alt-border-menu
   (tile 4 (link cell-border-icons-menu))
-  (if (selection-active-table?)
-      ---
-      (tile 4 (link cell-borders-icons-menu))))
+  (when (selection-active-table?)
+    ---
+    (tile 4 (link cell-borders-icons-menu))))
 
 (menu-bind cell-padding-menu
   ("All" (interactive cell-set-padding))

TeXmacs/misc/pixmaps/liii/16x16/focus/tm_border_a.svg

@@ -196,7 +196,13 @@
 	       (list (cell-get-format "cell-tborder") "0ln" "1ln") "6em"))
       (item (text "Bottom:")
 	(input (cell-set-format* "cell-bborder" answer) "string"
-	       (list (cell-get-format "cell-bborder") "0ln" "1ln") "6em")))))
+	       (list (cell-get-format "cell-bborder") "0ln" "1ln") "6em"))
+      (item (text "Diagonal:")
+	(input (cell-set-format* "cell-dborder" answer) "string"
+	       (list (cell-get-format "cell-dborder") "0ln" "1ln") "6em"))
+      (item (text "Anti-diagonal:")
+	(input (cell-set-format* "cell-aborder" answer) "string"
+	       (list (cell-get-format "cell-aborder") "0ln" "1ln") "6em")))))
 
 (tm-widget (cell-padding-widget)
   (horizontal

TeXmacs/misc/pixmaps/liii/16x16/focus/tm_border_d.svg

@@ -0,0 +1,28 @@
+# [0401] 表格单元格边框添加斜线选项
+
+## 如何测试
+1. 打开 Mogan STEM，新建一个空白文档。
+2. 插入一个表格（如 2x2）。
+3. 选中某个单元格。
+4. 点击菜单栏 **单元格 -> 边框**，或点击工具栏的 **改变单元格边框** 图标。
+5. 确认边界选项面板中**出现两个斜线图标按钮**（与其他边框选项样式一致）。
+   - **对角线**（╲）：从左上到右下
+   - **反对角线**（╱）：从右上到左下
+6. 点击**对角线**图标，确认单元格中出现从左上到右下的斜线，**斜线两端应紧贴单元格边缘，不留空隙**。
+7. 取消对角线，点击**反对角线**图标，确认出现从右上到左下的斜线，同样紧贴边缘。
+8. 同时选中两个斜线图标，确认单元格中出现交叉斜线（×）。
+9. 打开 **单元格属性** 面板（右键单元格 -> 单元格属性），确认边框区域有 "对角线" 和 "反对角线" 两个输入框，可手动输入线宽（如 `1ln`）。
+
+## 2026/05/11
+### what
+在表格单元格的边框设置中新增两种斜线选项，使用户可以为单元格添加斜线边框。具体包括：
+- 底层新增 `cell-dborder`（对角线）和 `cell-aborder`（反对角线）环境变量和对应渲染支持
+- `cell_box` 新增斜线绘制逻辑：
+  - `dborder`：从左上到右下的斜线（╱）
+  - `aborder`：从右上到左下的斜线（╲）
+- 斜线通过多边形填充绘制，两端延伸至单元格实际边界，避免边缘空隙
+- 在边框图标面板（`cell-border-icons-menu`）中新增两个斜线图标按钮
+- 在 `cell-border-menu` 菜单和单元格属性面板中新增斜线设置入口
+
+### why
+用户需要在表格单元格中绘制斜线（如表头斜线分割），而原有系统仅支持上下左右四条边，不满足该需求。