diff options
| author | hobbs <hobbs@noemail.net> | 2005-07-28 03:45:01 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2005-07-28 03:45:01 (GMT) |
| commit | c4763fa4a0e76f66331a1ede6cc2c7ef4f4e5ea6 (patch) | |
| tree | 718892b4287a0fc7482f4f9ef2aea943be834d84 /generic | |
| parent | bd034da10e39e7eb30860da59d6698c9a82390f0 (diff) | |
| download | tk-c4763fa4a0e76f66331a1ede6cc2c7ef4f4e5ea6.zip tk-c4763fa4a0e76f66331a1ede6cc2c7ef4f4e5ea6.tar.gz tk-c4763fa4a0e76f66331a1ede6cc2c7ef4f4e5ea6.tar.bz2 | |
* generic/tkInt.h: Swap TkUnsupported1Cmd for TkUnsupported1ObjCmd.
* generic/tkWindow.c: Ditto. (neil madden)
* macosx/tkMacOSXInt.h: Added TkMacOSXWindowClass decl
* macosx/tkMacOSXWm.c (TkMacOSXWinStyle) New function.
(TkUnsupported1ObjCmd): New function, replaces the un-objectified
version of the command, recognizes more classes and attributes.
(TkMacOSXWindowClass): private function to return OS X class of a
Tk window.
* macosx/tkMacOSXSubwindows.c (XMapWindow, XUnmapWindow):
recognize special show/hide functions for sheets
FossilOrigin-Name: e8bd5694961995b6db3b4bdd7992c8471bfce607
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkInt.h | 9 | ||||
| -rw-r--r-- | generic/tkWindow.c | 4 |
2 files changed, 7 insertions, 6 deletions
diff --git a/generic/tkInt.h b/generic/tkInt.h index 177cd28..fb52bdd 100644 --- a/generic/tkInt.h +++ b/generic/tkInt.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: $Id: tkInt.h,v 1.56.2.4 2005/01/11 10:46:39 dkf Exp $ + * RCS: $Id: tkInt.h,v 1.56.2.5 2005/07/28 03:45:03 hobbs Exp $ */ #ifndef _TKINT @@ -1177,11 +1177,12 @@ EXTERN int TkParsePadAmount _ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin, Tcl_Obj *objPtr, int *pad1Ptr, int *pad2Ptr)); -/* +/* * Unsupported commands. */ -EXTERN int TkUnsupported1Cmd _ANSI_ARGS_((ClientData clientData, - Tcl_Interp *interp, int argc, CONST char **argv)); +EXTERN int TkUnsupported1ObjCmd _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[])); # undef TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS DLLIMPORT diff --git a/generic/tkWindow.c b/generic/tkWindow.c index 35a16cc..92fa165 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWindow.c,v 1.56.2.5 2005/01/07 11:16:29 dkf Exp $ + * RCS: @(#) $Id: tkWindow.c,v 1.56.2.6 2005/07/28 03:45:03 hobbs Exp $ */ #include "tkPort.h" @@ -177,7 +177,7 @@ static TkCmd commands[] = { #if defined(MAC_TCL) || defined(MAC_OSX_TK) {"::tk::unsupported::MacWindowStyle", - TkUnsupported1Cmd, NULL, 1, 1}, + NULL, TkUnsupported1ObjCmd, 1, 1}, #endif {(char *) NULL, (int (*) _ANSI_ARGS_((ClientData, Tcl_Interp *, int, CONST char **))) NULL, NULL, 0} }; |