@@ -87,7 +87,9 @@ test entry-1.8 "Index is between 0 and end" -body {
8787
8888test entry-1.done "Cleanup" -body { destroy .e }
8989
90- # Scrollbar tests.
90+ #
91+ # Section 2. Scrollbar tests
92+ #
9193
9294test entry-2.1 "Create entry before scrollbar" -body {
9395 pack [ttk::entry .te -xscrollcommand [list .tsb set]] \
@@ -123,7 +125,7 @@ test entry-2.2 "Initial scroll position" -body {
123125# NOTE: result can vary depending on font.
124126
125127#
126- # Test section 3.*: Bounding box / scrolling tests.
128+ # Section 3. Bounding box / scrolling tests
127129#
128130
129131#
@@ -188,7 +190,9 @@ test entry-3.last "Series 3 cleanup" -body {
188190 destroy .e
189191}
190192
191- # Selection tests:
193+ #
194+ # Section 4. Selection tests
195+ #
192196
193197test entry-4.0 "Selection test - setup" -body {
194198 ttk::entry .e
@@ -246,7 +250,9 @@ test entry-4.7 {sel.first and sel.last gravity} -body {
246250 lappend result [.e index sel.first] [.e index sel.last] [.e get]
247251} -result {5 9 5 12 01XXX2YYY3456789}
248252
249- # Self-destruct tests.
253+ #
254+ # Section 5. Self-destruct tests
255+ #
250256
251257test entry-5.1 {widget deletion while active} -body {
252258 destroy .e
@@ -259,8 +265,9 @@ test entry-5.1 {widget deletion while active} -body {
259265
260266# TODO: test killing .e in -validatecommand, -invalidcommand, variable trace;
261267
262-
263- # -textvariable tests.
268+ #
269+ # Section 6. -textvariable tests
270+ #
264271
265272test entry-6.1 {Update linked variable in write trace} -body {
266273 catch {destroy .e}
0 commit comments