[1287] 采用 QML 重新实现渐变选择器弹窗并恢复实时预览功能 (#4529)

Co-authored-by: Claude <noreply@anthropic.com>

Author: da-liii

TeXmacs/plugins/lang/dic/en_US/zh_CN.scm

@@ -489,6 +489,7 @@
 ("browse web" "浏览网页")
 ("browse" "浏览")
 ("Browse" "浏览")
+("Pick" "选色")
 ("browser" "浏览器")
 ("buffer management" "标签页管理")
 ("buffer" "文档")
@@ -1108,6 +1109,7 @@
 ("go" "转到")
 ("gothic" "")
 ("gradient" "渐变")
+("Gradient selector" "渐变选择器")
 ("grain" "粒度")
 ("Graphics mode" "绘图模式")
 ("graphical effects" "图形效果")
@@ -2075,6 +2077,7 @@
 ("preview before printing" "")
 ("preview command" "预览程序")
 ("preview" "预览")
+("Live preview" "实时预览")
 ("previous comment" "前一处批注")
 ("previous difference" "前一处差异")
 ("previous field" "前一个区域")

TeXmacs/progs/generic/pattern-selector.scm

@@ -547,22 +547,22 @@
 
 (tm-define (open-gradient-selector cmd . opt-old)
   (:interactive #t)
-  (when (or global-picture?
-          (not global-gradient?)
-          (== (get-name) "neutral-pattern.png")
-        ) ;or
-    (set! global-picture? #f)
-    (set! global-gradient? #t)
-    (set! global-pattern-color '(pattern "vertical-white-black.png" "100%"
-                                  "100%"))
-  ) ;when
-  (when (nnull? opt-old)
-    (set! global-pattern-color (car opt-old))
-  ) ;when
-  (with u
-    (current-buffer)
-    (dialogue-window (pattern-selector u) cmd "Gradient selector")
-  ) ;with
+  (let* ((old-col (if (nnull? opt-old)
+                    (car opt-old)
+                    '(pattern "vertical-white-black.png" "100%" "100%")
+                  ) ;if
+         ) ;old-col
+         (tree-col (if (tree? old-col) old-col (stree->tree old-col)))
+         (res (cpp-gradient-selector-dialog tree-col))
+         (s-res (tree->stree res))
+        ) ;
+    (when (and (pair? s-res) (== (car s-res) 'tuple) (nnull? (cdr s-res)))
+      (let ((col (cadr s-res)))
+        (insert-preferred-list "my patterns" col 16)
+        (cmd col)
+      ) ;let
+    ) ;when
+  ) ;let*
 ) ;tm-define
 
 (tm-define (open-background-picture-selector cmd . opt-old)