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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
#! /usr/bin/env tclsh
package require Tk 8.5-
# Copyright (c) 2005-2023 Keith Nash.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
### This demo explores corner cases in scrolling (with thanks to Gregor Cramer
### and Francois Vogel for revised_text).
### For a short example, see ntextExample.tcl
### To explore the ntext options, try ntextDemoBindings.tcl
### To explore ntext indentation, try ntextDemoIndent.tcl
### To explore vertical scrolling on the Mac, try ntextDemoMacScrolling.tcl
image create photo example -data {
R0lGODlhEAAQALMAAAAAAISEAMbGxv//AP//////////////////////////////////////////
/////yH5BAEAAAIALAAAAAAQABAAAAQ4UMhJq6Ug3wpm7xsHZqBFCsBADGTLrbCqllIaxzSKt3wm
A4GgUPhZAYfDEQuZ9ByZAVqPF6paLxEAOw==
}
# This string defines the text that will be displayed in each widget:
set message1 { Try scrolling with the scrollbars, keyboard or mousewheel.
A different font size.
Now show an embedded image.
1. Now some extra words to lengthen the text.
2. Now some extra words to lengthen the text.
3. Now some extra words to lengthen the text.
4. Now some extra words to lengthen the text.
5. Now some extra words to lengthen the text.}
# End of string for widget text.
set message2 { This demo has some very tall lines; try scrolling with the scrollbars, keyboard or mousewheel.
To test scrolling with very tall lines, this line will use a huge font size.
1. Now some extra words to lengthen the text.
2. Now some extra words to lengthen the text.
3. Now some extra words to lengthen the text.
4. Now some extra words to lengthen the text.
5. Now some extra words to lengthen the text.
Try any text-widget operation, and test whether ntext is satisfactory. Ntext is part of Tklib - please report any bugs to:
https://core.tcl-lang.org/tklib/reportlist}
# End of string for widget text.
package require ntext 1.0
### Indentation is disabled by default. Set this variable to 0 to enable it:
set ::ntext::classicWrap 0
# Activate the traditional "extra" bindings so these can be tested too:
set ::ntext::classicExtras 1
set col #e0dfde
. configure -bg $col
proc textAndScroll {w col ht message bt {img {}}} {
frame $w -bg $col
pack [scrollbar $w.scroll -command [list $w.txt yview]] -fill y -side right
pack [text $w.txt -yscrollcommand [list $w.scroll set]] -fill both -side right -expand 1
bindtags $w.txt [list $w.txt $bt . all]
if {$bt eq {Ntext}} {
set bg white
} else {
set bt Text
set bg #FFFFCC
}
$w.txt configure -wrap word -undo 1
$w.txt configure -width 44 -height $ht -font TkFixedFont -bg $bg
$w.txt insert end " I use the $bt bindings.\n\n$message"
$w.txt edit separator
if {$img ne {}} {
$w.txt image create $img -image example
}
if {$bt eq {Ntext}} {
::ntext::wrapIndent $w.txt
}
return $w
}
textAndScroll .topright $col 13 $message1 Ntext 7.21
textAndScroll .topleft $col 13 $message1 Text 7.21
textAndScroll .botright $col 10 $message2 Ntext
textAndScroll .botleft $col 10 $message2 Text
grid .topleft .topright -sticky nsew
grid .botleft .botright -sticky nsew -pady {10p 0}
grid columnconfigure . all -weight 1
grid columnconfigure . all -weight 1
grid rowconfigure . 0 -weight 1
# What is the largest font such that the demo will fit on the screen?
# Allow 100 pixels or 1 inch for desktop panels that are not counted in wm maxsize.
# Reduce the font if necessary.
set siz [font actual TkFixedFont -size]
set maxPts [expr { ([lindex [wm maxsize .] 1] - 12 - max (100., 72. * [tk scaling])) * $siz / ([winfo reqheight .topright.txt] + [winfo reqheight .botright.txt] - 12) }]
set siz [expr { int(min($siz, $maxPts)) }]
font configure TkFixedFont -size $siz
set fam [font actual TkFixedFont -family]
set TitleFixedFont [list $fam $siz bold]
set large [expr {($siz * 3) / 2}]
set huge [expr {($siz * 12)}]
.topleft.txt tag add red 1.0 2.0
.topright.txt tag add blue 1.0 2.0
.botleft.txt tag add red 1.0 2.0
.botright.txt tag add blue 1.0 2.0
.topleft.txt tag configure red -foreground #A00000 -font $TitleFixedFont
.topright.txt tag configure blue -foreground #0000A0 -font $TitleFixedFont
.botleft.txt tag configure red -foreground #A00000 -font $TitleFixedFont
.botright.txt tag configure blue -foreground #0000A0 -font $TitleFixedFont
.topleft.txt tag add tall 5.0 6.0
.topright.txt tag add tall 5.0 6.0
.botleft.txt tag add tall 5.0 6.0
.botright.txt tag add tall 5.0 6.0
.topleft.txt tag configure tall -font [list $fam $large]
.topright.txt tag configure tall -font [list $fam $large]
.botleft.txt tag configure tall -font [list $fam $huge]
.botright.txt tag configure tall -font [list $fam $huge]
|
