diff options
| author | jingham <jingham> | 2000-02-10 08:55:18 (GMT) |
|---|---|---|
| committer | jingham <jingham> | 2000-02-10 08:55:18 (GMT) |
| commit | 824761dbcda694ee8ba6b108a373eb3c2aec026f (patch) | |
| tree | f43637344ebdd7b323a38445d97180d1e32e880d /mac/tkMacMenus.c | |
| parent | e082656eda18c1458feedf3392c25a00f88b92ef (diff) | |
| download | tk-824761dbcda694ee8ba6b108a373eb3c2aec026f.zip tk-824761dbcda694ee8ba6b108a373eb3c2aec026f.tar.gz tk-824761dbcda694ee8ba6b108a373eb3c2aec026f.tar.bz2 | |
Add support for Appearance Manager 1.2 Floating windows, and the new window classes in unsupported1
Diffstat (limited to 'mac/tkMacMenus.c')
| -rw-r--r-- | mac/tkMacMenus.c | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/mac/tkMacMenus.c b/mac/tkMacMenus.c index 0d9fa31..2230f7a 100644 --- a/mac/tkMacMenus.c +++ b/mac/tkMacMenus.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacMenus.c,v 1.4 1999/05/22 06:33:41 jingham Exp $ + * RCS: @(#) $Id: tkMacMenus.c,v 1.5 2000/02/10 08:56:03 jingham Exp $ */ #include "tcl.h" @@ -120,7 +120,11 @@ TkMacHandleMenuSelect( break; case kCloseItem: /* Send close event */ - window = TkMacGetXWindow(FrontWindow()); + if (TkMacHaveAppearance() >= 0x110) { + window = TkMacGetXWindow(FrontNonFloatingWindow()); + } else { + window = TkMacGetXWindow(FrontWindow()); + } dispPtr = TkGetDisplayList(); tkwin = Tk_IdToWindow(dispPtr->display, window); TkGenWMDestroyEvent(tkwin); @@ -255,7 +259,11 @@ GenerateEditEvent( Window window; TkDisplay *dispPtr; - window = TkMacGetXWindow(FrontWindow()); + if (TkMacHaveAppearance() >= 0x110) { + window = TkMacGetXWindow(FrontNonFloatingWindow()); + } else { + window = TkMacGetXWindow(FrontWindow()); + } dispPtr = TkGetDisplayList(); tkwin = Tk_IdToWindow(dispPtr->display, window); tkwin = (Tk_Window) ((TkWindow *) tkwin)->dispPtr->focusPtr; |