diff options
| author | culler <culler> | 2018-12-17 20:28:36 (GMT) |
|---|---|---|
| committer | culler <culler> | 2018-12-17 20:28:36 (GMT) |
| commit | be0681043b753334bead0bdbb13c3a2fefc01e45 (patch) | |
| tree | d0a9c1598789a483e094c82ed3c55e275ad1464d /macosx | |
| parent | ffbffcbec913bd431f27b7097320dcf22dee7a55 (diff) | |
| download | tk-be0681043b753334bead0bdbb13c3a2fefc01e45.zip tk-be0681043b753334bead0bdbb13c3a2fefc01e45.tar.gz tk-be0681043b753334bead0bdbb13c3a2fefc01e45.tar.bz2 | |
On Aqua make "wm attribute pathname -type" return "unsupported" instead of crashing.
Diffstat (limited to 'macosx')
| -rw-r--r-- | macosx/tkMacOSXWm.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/macosx/tkMacOSXWm.c b/macosx/tkMacOSXWm.c index 3887001..b7357b9 100644 --- a/macosx/tkMacOSXWm.c +++ b/macosx/tkMacOSXWm.c @@ -1447,6 +1447,9 @@ WmGetAttribute( case WMATT_TRANSPARENT: result = Tcl_NewBooleanObj(wmPtr->flags & WM_TRANSPARENT); break; + case WMATT_TYPE: + result = Tcl_NewStringObj("unsupported", -1); + break; case _WMATT_LAST_ATTRIBUTE: default: break; |