Tk Source Code

Check-in [4a310eb1cb]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Aug 20.

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

Overview
Comment:Fix [119bb094af]: wm-iconbitmap-1.4 fails on macOS
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-119bb094af
Files: files | file ages | folders
SHA3-256:4a310eb1cb218e5db006d6ba9e2860f8924337216dc9830d998b20287cc9b594
User & Date: fvogel 2018-06-28 19:42:42
References
2018-06-28
19:43 Ticket [119bb094af] wm-iconbitmap-1.4 fails on macOS status still Open with 5 other changes artifact: 36d3baab6c user: fvogel
Context
2018-06-28
19:54
Fix [119bb094af]: wm-iconbitmap-2.1 fails on macOS Closed-Leaf check-in: 3691982a19 user: fvogel tags: bug-119bb094af
19:42
Fix [119bb094af]: wm-iconbitmap-1.4 fails on macOS check-in: 4a310eb1cb user: fvogel tags: bug-119bb094af
2018-06-18
07:44
Sync tcl.m4 with Tcl, and regenerate configure script check-in: 984c527aa8 user: jan.nijtmans tags: core-8-6-branch
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
} -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]







|







733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
} -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} -setup {
    set result {}
} -body {
    lappend result [wm iconbitmap .t]