Tk Source Code

Check-in [514d588f]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Fix [119bb094af]: wm-iconbitmap-1.4 and wm-iconbitmap-2.1 fail on macOS
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 514d588f38e58bb49a52af8d98129d054ebac8a8b478c0f398a2687dd2e44b3e
User & Date: fvogel 2018-07-04 07:08:10
Context
2018-07-04
07:12
Fix [6ca257310a]: wm resizable does not disable single dimension resizing on macOS. Patch from Marc Culler. check-in: 155ec67d user: fvogel tags: core-8-6-branch
07:08
Fix [119bb094af]: wm-iconbitmap-1.4 and wm-iconbitmap-2.1 fail on macOS check-in: 50d0ece3 user: fvogel tags: trunk
07:08
Fix [119bb094af]: wm-iconbitmap-1.4 and wm-iconbitmap-2.1 fail on macOS check-in: 514d588f user: fvogel tags: core-8-6-branch
07:04
Fix [68b78ef96a]: wm-attributes-1.2.5 fails on macOS check-in: e90dd890 user: fvogel tags: core-8-6-branch
2018-06-28
19:54
Fix [119bb094af]: wm-iconbitmap-2.1 fails on macOS Closed-Leaf check-in: 3691982a user: fvogel tags: bug-119bb094af
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/wm.test.

733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
} -result {wrong # args: should be "wm iconbitmap window ?bitmap?"}
test wm-iconbitmap-1.2.2 {usage} -constraints win -returnCodes error -body {
    wm iconbitmap .t 12 13 14
} -result {wrong # args: should be "wm iconbitmap window ?-default? ?image?"}
test wm-iconbitmap-1.3 {usage} -constraints win -returnCodes error -body {
    wm iconbitmap .t 12 13
} -result {illegal option "12" must be "-default"}
test wm-iconbitmap-1.4 {usage} -returnCodes error -body {
    wm iconbitmap .t bad-bitmap
} -result {bitmap "bad-bitmap" not defined}

test wm-iconbitmap-2.1 {setting and reading values} -setup {
    set result {}
} -body {
    lappend result [wm iconbitmap .t]
    wm iconbitmap .t hourglass
    lappend result [wm iconbitmap .t]
    wm iconbitmap .t {}
    lappend result [wm iconbitmap .t]






|



|







733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
} -result {wrong # args: should be "wm iconbitmap window ?bitmap?"}
test wm-iconbitmap-1.2.2 {usage} -constraints win -returnCodes error -body {
    wm iconbitmap .t 12 13 14
} -result {wrong # args: should be "wm iconbitmap window ?-default? ?image?"}
test wm-iconbitmap-1.3 {usage} -constraints win -returnCodes error -body {
    wm iconbitmap .t 12 13
} -result {illegal option "12" must be "-default"}
test wm-iconbitmap-1.4 {usage} -constraints notAqua -returnCodes error -body {
    wm iconbitmap .t bad-bitmap
} -result {bitmap "bad-bitmap" not defined}

test wm-iconbitmap-2.1 {setting and reading values} -constraints notAqua -setup {
    set result {}
} -body {
    lappend result [wm iconbitmap .t]
    wm iconbitmap .t hourglass
    lappend result [wm iconbitmap .t]
    wm iconbitmap .t {}
    lappend result [wm iconbitmap .t]