diff options
Diffstat (limited to 'mac/tkMacAppearanceStubs.c')
-rwxr-xr-x | mac/tkMacAppearanceStubs.c | 104 |
1 files changed, 0 insertions, 104 deletions
diff --git a/mac/tkMacAppearanceStubs.c b/mac/tkMacAppearanceStubs.c deleted file mode 100755 index 898b21e..0000000 --- a/mac/tkMacAppearanceStubs.c +++ /dev/null @@ -1,104 +0,0 @@ -/* - * tkMacAppearanceStubs.c -- - * - * This file contains stubs for some MacOS8.6+ Toolbox calls that - * are not contained in any of the CFM68K stubs libraries. Their - * use must be conditionalized by checks (usually for Appearance version - * greater than 1.1), so they will never get called on a CFM68k system. - * Putting in the stubs means I don't have to clutter the code BOTH - * with appearance version checks & #ifdef GENERATING_CFM68K... - * - * Copyright (c) 1999 Scriptics Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * - */ - -#include <MacWindows.h> -#include <Appearance.h> - -/* Export these calls from the Tk library, since we may need to use - * them in shell calls. - */ - -pascal OSStatus -MoveWindowStructure( - WindowPtr window, - short hGlobal, - short vGlobal) -{ - Tcl_Panic("Error: Running stub for PPC-Only routine"); - return noErr; - -} - -pascal OSStatus -CreateNewWindow( - WindowClass windowClass, - WindowAttributes attributes, - const Rect *bounds, - WindowPtr *outWindow) -{ - Tcl_Panic("Error: Running stub for PPC-Only routine"); - return noErr; - -} - -pascal WindowPtr -FrontNonFloatingWindow() -{ - Tcl_Panic("Error: Running stub for PPC-Only routine"); - return NULL; -} - -pascal OSStatus -GetWindowClass( - WindowPtr window, - WindowClass *outClass) -{ - Tcl_Panic("Error: Running stub for PPC-Only routine"); - return noErr; -} - -pascal OSStatus -ApplyThemeBackground( - ThemeBackgroundKind inKind, - const Rect* bounds, - ThemeDrawState inState, - SInt16 inDepth, - Boolean inColorDev) -{ - Tcl_Panic("Error: Running stub for PPC-Only routine"); - return noErr; -} - -pascal OSStatus -InitFloatingWindows(void) -{ - Tcl_Panic("Error: Running stub for PPC-Only routine"); - return noErr; -} - -pascal OSStatus -ShowFloatingWindows(void) -{ - Tcl_Panic("Error: Running stub for PPC-Only routine"); - return noErr; -} - -pascal OSStatus -HideFloatingWindows(void) -{ - Tcl_Panic("Error: Running stub for PPC-Only routine"); - return noErr; -} - -pascal Boolean -IsValidWindowPtr(GrafPtr grafPort) -{ - Tcl_Panic("Error: Running stub for PPC-Only routine"); - return true; -} - |