Tk Source Code

Check-in [48cfc4fa]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add minimal test of -justify for ttk::button
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-442
Files: files | file ages | folders
SHA1:48cfc4fa18b4f52d33fbd20fa9e328c09ca3e5c3
User & Date: fvogel 2017-03-13 14:18:42
Context
2017-03-21
20:54
merge trunk Closed-Leaf check-in: 8f000256 user: fvogel tags: tip-442
2017-03-13
14:18
Add minimal test of -justify for ttk::button check-in: 48cfc4fa user: fvogel tags: tip-442
14:10
Document -font for ttk::progressbar check-in: 4089f161 user: fvogel tags: tip-442
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/ttk/ttk.test.

130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
    .t.b invoke
    list [winfo exists .t] [winfo exists .t.b]
} -result [list 0 0]

#
# Basic tests.
#
test ttk-1.1 "Create button" -body {
    pack [ttk::button .t] -expand true -fill both
    update
}

test ttk-1.2 "Check style" -body {
    .t cget -style
} -result {}








|
|







130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
    .t.b invoke
    list [winfo exists .t] [winfo exists .t.b]
} -result [list 0 0]

#
# Basic tests.
#
test ttk-1.1 "Create multiline button showing justified text" -body {
    pack [ttk::button .t -text "Hello\nWorld!!" -justify center] -expand true -fill both
    update
}

test ttk-1.2 "Check style" -body {
    .t cget -style
} -result {}