blob: 50f0372f06d02d0e8e56ef7f2a45099637edd877 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
From ed02c6538a758b92efb433f3d79746dd5a38c989 Mon Sep 17 00:00:00 2001
From: Zhu Qun-Ying <zhu.qunying@gmail.com>
Date: Sat, 8 Mar 2025 21:50:30 -0800
Subject: [PATCH 4/4] use unicode arrow characters
---
gui.tcl | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/gui.tcl b/gui.tcl
index 200ba53..349d644 100644
--- a/gui.tcl
+++ b/gui.tcl
@@ -480,7 +480,7 @@ if 0 {
searchboxNext search $t $wi 0
"
set manx(hitlist$t) {}
- button $w.search.next -text "\xdf" -font guisymbol -command "
+ button $w.search.next -text "⇓" -command "
incr stat(page-regexp-next)
# just before start to page through hits, open all sections with hits.
# subsequently abide by user's outlining changes
@@ -491,13 +491,13 @@ if 0 {
} else {searchboxNext search $t $wi}
catch {$t see hit}
"
- button $w.search.prev -text "\xdd" -font guisymbol -command "
+ button $w.search.prev -text "⇑" -command "
incr stat(page-regexp-prev)
searchboxPrev search $t $wi
manOutline $t 0 \$manx(hitlist$t); set manx(hitlist$t) {}
catch {$t see hit}
"
- menubutton [set mb $w.search.tags] -text "\xdf" -font guisymbol -menu [set m $mb.m]; menu $m -tearoff no
+ menubutton [set mb $w.search.tags] -text "⇓" -menu [set m $mb.m]; menu $m -tearoff no
foreach {name val} $manx(searchtags) {
$m add command -label $name -command "set manx(search,string$w) \"TAG:$val\"; $w.search.t icursor end"
#"$w.search.t insert insert TAG:$val"
--
2.46.3
|
