1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
/*
* 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;
}
|
