Import Tk 8.6.6 (as of svn r86089)
This commit is contained in:
Zachary Ware
390
macosx/tkMacOSXPrivate.h
Normal file
390
macosx/tkMacOSXPrivate.h
Normal file
@@ -0,0 +1,390 @@
|
||||
/*
|
||||
* tkMacOSXPrivate.h --
|
||||
*
|
||||
* Macros and declarations that are purely internal & private to TkAqua.
|
||||
*
|
||||
* Copyright (c) 2005-2009 Daniel A. Steffen <das@users.sourceforge.net>
|
||||
* Copyright 2008-2009, Apple Inc.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution
|
||||
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
*
|
||||
* RCS: @(#) $Id$
|
||||
*/
|
||||
|
||||
#ifndef _TKMACPRIV
|
||||
#define _TKMACPRIV
|
||||
|
||||
#if !__OBJC__
|
||||
#error Objective-C compiler required
|
||||
#endif
|
||||
|
||||
#define TextStyle MacTextStyle
|
||||
#import <ApplicationServices/ApplicationServices.h>
|
||||
#import <Cocoa/Cocoa.h>
|
||||
#ifndef NO_CARBON_H
|
||||
#import <Carbon/Carbon.h>
|
||||
#endif
|
||||
#undef TextStyle
|
||||
#import <objc/runtime.h> /* for sel_isEqual() */
|
||||
|
||||
#ifndef _TKMACINT
|
||||
#include "tkMacOSXInt.h"
|
||||
#endif
|
||||
#ifndef _TKMACDEFAULT
|
||||
#include "tkMacOSXDefault.h"
|
||||
#endif
|
||||
|
||||
/* Macros for Mac OS X API availability checking */
|
||||
#define TK_IF_MAC_OS_X_API(vers, symbol, ...) \
|
||||
tk_if_mac_os_x_10_##vers(symbol != NULL, 1, __VA_ARGS__)
|
||||
#define TK_ELSE_MAC_OS_X(vers, ...) \
|
||||
tk_else_mac_os_x_10_##vers(__VA_ARGS__)
|
||||
#define TK_IF_MAC_OS_X_API_COND(vers, symbol, cond, ...) \
|
||||
tk_if_mac_os_x_10_##vers(symbol != NULL, cond, __VA_ARGS__)
|
||||
#define TK_ELSE(...) \
|
||||
} else { __VA_ARGS__
|
||||
#define TK_ENDIF \
|
||||
}
|
||||
/* Private macros that implement the checking macros above */
|
||||
#define tk_if_mac_os_x_yes(chk, cond, ...) \
|
||||
if (cond) { __VA_ARGS__
|
||||
#define tk_else_mac_os_x_yes(...) \
|
||||
} else {
|
||||
#define tk_if_mac_os_x_chk(chk, cond, ...) \
|
||||
if ((chk) && (cond)) { __VA_ARGS__
|
||||
#define tk_else_mac_os_x_chk(...) \
|
||||
} else { __VA_ARGS__
|
||||
#define tk_if_mac_os_x_no(chk, cond, ...) \
|
||||
if (0) {
|
||||
#define tk_else_mac_os_x_no(...) \
|
||||
} else { __VA_ARGS__
|
||||
/* Private mapping macros defined according to Mac OS X version requirements */
|
||||
/* 10.5 Leopard */
|
||||
#if MAC_OS_X_VERSION_MIN_REQUIRED >= 1050
|
||||
#define tk_if_mac_os_x_min_10_5 tk_if_mac_os_x_yes
|
||||
#define tk_else_mac_os_x_min_10_5 tk_else_mac_os_x_yes
|
||||
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1050
|
||||
#define tk_if_mac_os_x_10_5 tk_if_mac_os_x_yes
|
||||
#define tk_else_mac_os_x_10_5 tk_else_mac_os_x_yes
|
||||
#endif /* MAC_OS_X_VERSION_MAX_ALLOWED */
|
||||
#else /* MAC_OS_X_VERSION_MIN_REQUIRED */
|
||||
#define tk_if_mac_os_x_min_10_5 tk_if_mac_os_x_chk
|
||||
#define tk_else_mac_os_x_min_10_5 tk_else_mac_os_x_chk
|
||||
#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1050
|
||||
#define tk_if_mac_os_x_10_5 tk_if_mac_os_x_chk
|
||||
#define tk_else_mac_os_x_10_5 tk_else_mac_os_x_chk
|
||||
#endif /* MAC_OS_X_VERSION_MAX_ALLOWED */
|
||||
#endif /* MAC_OS_X_VERSION_MIN_REQUIRED */
|
||||
#if MAC_OS_X_VERSION_MAX_ALLOWED < 1050
|
||||
#define tk_if_mac_os_x_10_5 tk_if_mac_os_x_no
|
||||
#define tk_else_mac_os_x_10_5 tk_else_mac_os_x_no
|
||||
#endif /* MAC_OS_X_VERSION_MAX_ALLOWED */
|
||||
|
||||
/*
|
||||
* Macros for DEBUG_ASSERT_MESSAGE et al from Debugging.h.
|
||||
*/
|
||||
|
||||
#undef kComponentSignatureString
|
||||
#undef COMPONENT_SIGNATURE
|
||||
#define kComponentSignatureString "TkMacOSX"
|
||||
#define COMPONENT_SIGNATURE 'Tk '
|
||||
|
||||
/*
|
||||
* Macros abstracting checks only active in a debug build.
|
||||
*/
|
||||
|
||||
#ifdef TK_MAC_DEBUG
|
||||
#define TKLog(f, ...) NSLog(f, ##__VA_ARGS__)
|
||||
|
||||
/*
|
||||
* Macro to do debug message output.
|
||||
*/
|
||||
#define TkMacOSXDbgMsg(m, ...) \
|
||||
do { \
|
||||
TKLog(@"%s:%d: %s(): " m, strrchr(__FILE__, '/')+1, \
|
||||
__LINE__, __func__, ##__VA_ARGS__); \
|
||||
} while (0)
|
||||
|
||||
/*
|
||||
* Macro to do debug API failure message output.
|
||||
*/
|
||||
#define TkMacOSXDbgOSErr(f, err) \
|
||||
do { \
|
||||
TkMacOSXDbgMsg("%s failed: %d", #f, (int)(err)); \
|
||||
} while (0)
|
||||
|
||||
/*
|
||||
* Macro to do very common check for noErr return from given API and output
|
||||
* debug message in case of failure.
|
||||
*/
|
||||
#define ChkErr(f, ...) ({ \
|
||||
OSStatus err = f(__VA_ARGS__); \
|
||||
if (err != noErr) { \
|
||||
TkMacOSXDbgOSErr(f, err); \
|
||||
} \
|
||||
err;})
|
||||
|
||||
#else /* TK_MAC_DEBUG */
|
||||
#define TKLog(f, ...)
|
||||
#define TkMacOSXDbgMsg(m, ...)
|
||||
#define TkMacOSXDbgOSErr(f, err)
|
||||
#define ChkErr(f, ...) ({f(__VA_ARGS__);})
|
||||
#endif /* TK_MAC_DEBUG */
|
||||
|
||||
/*
|
||||
* Macro abstracting use of TkMacOSXGetNamedSymbol to init named symbols.
|
||||
*/
|
||||
|
||||
#define TkMacOSXInitNamedSymbol(module, ret, symbol, ...) \
|
||||
static ret (* symbol)(__VA_ARGS__) = (void*)(-1L); \
|
||||
if (symbol == (void*)(-1L)) { \
|
||||
symbol = TkMacOSXGetNamedSymbol(STRINGIFY(module), \
|
||||
STRINGIFY(symbol)); \
|
||||
}
|
||||
|
||||
/*
|
||||
* Structure encapsulating current drawing environment.
|
||||
*/
|
||||
|
||||
typedef struct TkMacOSXDrawingContext {
|
||||
CGContextRef context;
|
||||
NSView *view;
|
||||
HIShapeRef clipRgn;
|
||||
CGRect portBounds;
|
||||
int focusLocked;
|
||||
} TkMacOSXDrawingContext;
|
||||
|
||||
/*
|
||||
* Variables internal to TkAqua.
|
||||
*/
|
||||
|
||||
MODULE_SCOPE CGFloat tkMacOSXZeroScreenHeight;
|
||||
MODULE_SCOPE CGFloat tkMacOSXZeroScreenTop;
|
||||
MODULE_SCOPE long tkMacOSXMacOSXVersion;
|
||||
|
||||
/*
|
||||
* Prototypes for TkMacOSXRegion.c.
|
||||
*/
|
||||
|
||||
#if 0
|
||||
MODULE_SCOPE void TkMacOSXEmtpyRegion(TkRegion r);
|
||||
MODULE_SCOPE int TkMacOSXIsEmptyRegion(TkRegion r);
|
||||
#endif
|
||||
MODULE_SCOPE HIShapeRef TkMacOSXGetNativeRegion(TkRegion r);
|
||||
MODULE_SCOPE void TkMacOSXSetWithNativeRegion(TkRegion r,
|
||||
HIShapeRef rgn);
|
||||
MODULE_SCOPE void TkMacOSXOffsetRegion(TkRegion r, short dx, short dy);
|
||||
MODULE_SCOPE HIShapeRef TkMacOSXHIShapeCreateEmpty(void);
|
||||
MODULE_SCOPE HIMutableShapeRef TkMacOSXHIShapeCreateMutableWithRect(
|
||||
const CGRect *inRect);
|
||||
MODULE_SCOPE OSStatus TkMacOSXHIShapeSetWithShape(
|
||||
HIMutableShapeRef inDestShape,
|
||||
HIShapeRef inSrcShape);
|
||||
#if 0
|
||||
MODULE_SCOPE OSStatus TkMacOSXHIShapeSetWithRect(HIMutableShapeRef inShape,
|
||||
const CGRect *inRect);
|
||||
#endif
|
||||
MODULE_SCOPE OSStatus TkMacOSHIShapeDifferenceWithRect(
|
||||
HIMutableShapeRef inShape, const CGRect *inRect);
|
||||
MODULE_SCOPE OSStatus TkMacOSHIShapeUnionWithRect(HIMutableShapeRef inShape,
|
||||
const CGRect *inRect);
|
||||
MODULE_SCOPE OSStatus TkMacOSHIShapeUnion(HIShapeRef inShape1,
|
||||
HIShapeRef inShape2, HIMutableShapeRef outResult);
|
||||
|
||||
/*
|
||||
* Prototypes of TkAqua internal procs.
|
||||
*/
|
||||
|
||||
MODULE_SCOPE void * TkMacOSXGetNamedSymbol(const char *module,
|
||||
const char *symbol);
|
||||
MODULE_SCOPE void TkMacOSXDisplayChanged(Display *display);
|
||||
MODULE_SCOPE int TkMacOSXUseAntialiasedText(Tcl_Interp *interp,
|
||||
int enable);
|
||||
MODULE_SCOPE int TkMacOSXInitCGDrawing(Tcl_Interp *interp, int enable,
|
||||
int antiAlias);
|
||||
MODULE_SCOPE int TkMacOSXGenerateFocusEvent(TkWindow *winPtr,
|
||||
int activeFlag);
|
||||
MODULE_SCOPE WindowClass TkMacOSXWindowClass(TkWindow *winPtr);
|
||||
MODULE_SCOPE int TkMacOSXIsWindowZoomed(TkWindow *winPtr);
|
||||
MODULE_SCOPE int TkGenerateButtonEventForXPointer(Window window);
|
||||
MODULE_SCOPE EventModifiers TkMacOSXModifierState(void);
|
||||
MODULE_SCOPE NSBitmapImageRep* BitmapRepFromDrawableRect(Drawable drawable,
|
||||
int x, int y, unsigned int width, unsigned int height);
|
||||
MODULE_SCOPE int TkMacOSXSetupDrawingContext(Drawable d, GC gc,
|
||||
int useCG, TkMacOSXDrawingContext *dcPtr);
|
||||
MODULE_SCOPE void TkMacOSXRestoreDrawingContext(
|
||||
TkMacOSXDrawingContext *dcPtr);
|
||||
MODULE_SCOPE void TkMacOSXSetColorInContext(GC gc, unsigned long pixel,
|
||||
CGContextRef context);
|
||||
MODULE_SCOPE int TkMacOSXMakeFullscreen(TkWindow *winPtr,
|
||||
NSWindow *window, int fullscreen,
|
||||
Tcl_Interp *interp);
|
||||
MODULE_SCOPE void TkMacOSXEnterExitFullscreen(TkWindow *winPtr,
|
||||
int active);
|
||||
MODULE_SCOPE NSWindow* TkMacOSXDrawableWindow(Drawable drawable);
|
||||
MODULE_SCOPE NSView* TkMacOSXDrawableView(MacDrawable *macWin);
|
||||
MODULE_SCOPE void TkMacOSXWinCGBounds(TkWindow *winPtr, CGRect *bounds);
|
||||
MODULE_SCOPE HIShapeRef TkMacOSXGetClipRgn(Drawable drawable);
|
||||
MODULE_SCOPE void TkMacOSXInvalidateViewRegion(NSView *view,
|
||||
HIShapeRef rgn);
|
||||
MODULE_SCOPE CGImageRef TkMacOSXCreateCGImageWithDrawable(Drawable drawable);
|
||||
MODULE_SCOPE NSImage* TkMacOSXGetNSImageWithTkImage(Display *display,
|
||||
Tk_Image image, int width, int height);
|
||||
MODULE_SCOPE NSImage* TkMacOSXGetNSImageWithBitmap(Display *display,
|
||||
Pixmap bitmap, GC gc, int width, int height);
|
||||
MODULE_SCOPE CGColorRef TkMacOSXCreateCGColor(GC gc, unsigned long pixel);
|
||||
MODULE_SCOPE NSColor* TkMacOSXGetNSColor(GC gc, unsigned long pixel);
|
||||
MODULE_SCOPE Tcl_Obj * TkMacOSXGetStringObjFromCFString(CFStringRef str);
|
||||
MODULE_SCOPE TkWindow* TkMacOSXGetTkWindow(NSWindow *w);
|
||||
MODULE_SCOPE NSFont* TkMacOSXNSFontForFont(Tk_Font tkfont);
|
||||
MODULE_SCOPE NSDictionary* TkMacOSXNSFontAttributesForFont(Tk_Font tkfont);
|
||||
MODULE_SCOPE NSModalSession TkMacOSXGetModalSession(void);
|
||||
MODULE_SCOPE void TkMacOSXSelDeadWindow(TkWindow *winPtr);
|
||||
MODULE_SCOPE void TkMacOSXApplyWindowAttributes(TkWindow *winPtr,
|
||||
NSWindow *macWindow);
|
||||
MODULE_SCOPE int TkMacOSXStandardAboutPanelObjCmd(ClientData clientData,
|
||||
Tcl_Interp *interp, int objc,
|
||||
Tcl_Obj *const objv[]);
|
||||
MODULE_SCOPE int TkMacOSXIconBitmapObjCmd(ClientData clientData,
|
||||
Tcl_Interp *interp, int objc,
|
||||
Tcl_Obj *const objv[]);
|
||||
|
||||
#pragma mark Private Objective-C Classes
|
||||
|
||||
#define VISIBILITY_HIDDEN __attribute__((visibility("hidden")))
|
||||
|
||||
enum { tkMainMenu = 1, tkApplicationMenu, tkWindowsMenu, tkHelpMenu};
|
||||
|
||||
VISIBILITY_HIDDEN
|
||||
@interface TKMenu : NSMenu {
|
||||
@private
|
||||
void *_tkMenu;
|
||||
NSUInteger _tkOffset, _tkItemCount, _tkSpecial;
|
||||
}
|
||||
- (void)setSpecial:(NSUInteger)special;
|
||||
- (BOOL)isSpecial:(NSUInteger)special;
|
||||
@end
|
||||
|
||||
VISIBILITY_HIDDEN
|
||||
@interface TKApplication : NSApplication {
|
||||
@private
|
||||
Tcl_Interp *_eventInterp;
|
||||
NSMenu *_servicesMenu;
|
||||
TKMenu *_defaultMainMenu, *_defaultApplicationMenu;
|
||||
NSArray *_defaultApplicationMenuItems, *_defaultWindowsMenuItems;
|
||||
NSArray *_defaultHelpMenuItems;
|
||||
NSWindow *_windowWithMouse;
|
||||
NSAutoreleasePool *_mainPool;
|
||||
#ifdef __i386__
|
||||
/* The Objective C runtime used on i386 requires this. */
|
||||
BOOL _poolProtected;
|
||||
#endif
|
||||
}
|
||||
@property BOOL poolProtected;
|
||||
@end
|
||||
@interface TKApplication(TKInit)
|
||||
- (NSString *)tkFrameworkImagePath:(NSString*)image;
|
||||
- (void)_resetAutoreleasePool;
|
||||
@end
|
||||
@interface TKApplication(TKEvent)
|
||||
- (NSEvent *)tkProcessEvent:(NSEvent *)theEvent;
|
||||
@end
|
||||
@interface TKApplication(TKMouseEvent)
|
||||
- (NSEvent *)tkProcessMouseEvent:(NSEvent *)theEvent;
|
||||
@end
|
||||
@interface TKApplication(TKKeyEvent)
|
||||
- (NSEvent *)tkProcessKeyEvent:(NSEvent *)theEvent;
|
||||
@end
|
||||
@interface TKApplication(TKMenu)
|
||||
- (void)tkSetMainMenu:(TKMenu *)menu;
|
||||
@end
|
||||
@interface TKApplication(TKClipboard)
|
||||
- (void)tkProvidePasteboard:(TkDisplay *)dispPtr;
|
||||
- (void)tkCheckPasteboard;
|
||||
@end
|
||||
@interface TKApplication(TKHLEvents)
|
||||
- (void) terminate: (id) sender;
|
||||
- (void) preferences: (id) sender;
|
||||
- (void) handleQuitApplicationEvent: (NSAppleEventDescriptor *)event
|
||||
withReplyEvent: (NSAppleEventDescriptor *)replyEvent;
|
||||
- (void) handleOpenApplicationEvent: (NSAppleEventDescriptor *)event
|
||||
withReplyEvent: (NSAppleEventDescriptor *)replyEvent;
|
||||
- (void) handleReopenApplicationEvent: (NSAppleEventDescriptor *)event
|
||||
withReplyEvent: (NSAppleEventDescriptor *)replyEvent;
|
||||
- (void) handleShowPreferencesEvent: (NSAppleEventDescriptor *)event
|
||||
withReplyEvent: (NSAppleEventDescriptor *)replyEvent;
|
||||
- (void) handleOpenDocumentsEvent: (NSAppleEventDescriptor *)event
|
||||
withReplyEvent: (NSAppleEventDescriptor *)replyEvent;
|
||||
- (void) handlePrintDocumentsEvent: (NSAppleEventDescriptor *)event
|
||||
withReplyEvent: (NSAppleEventDescriptor *)replyEvent;
|
||||
- (void) handleDoScriptEvent: (NSAppleEventDescriptor *)event
|
||||
withReplyEvent: (NSAppleEventDescriptor *)replyEvent;
|
||||
@end
|
||||
|
||||
VISIBILITY_HIDDEN
|
||||
@interface TKContentView : NSView <NSTextInput> {
|
||||
@private
|
||||
/*Remove private API calls.*/
|
||||
#if 0
|
||||
id _savedSubviews;
|
||||
BOOL _subviewsSetAside;
|
||||
#endif
|
||||
NSString *privateWorkingText;
|
||||
}
|
||||
@end
|
||||
|
||||
@interface TKContentView(TKKeyEvent)
|
||||
- (void) deleteWorkingText;
|
||||
@end
|
||||
|
||||
@interface TKContentView(TKWindowEvent)
|
||||
- (void) drawRect: (NSRect) rect;
|
||||
- (void) generateExposeEvents: (HIShapeRef) shape;
|
||||
- (void) generateExposeEvents: (HIShapeRef) shape childrenOnly: (int) childrenOnly;
|
||||
- (void) viewDidEndLiveResize;
|
||||
- (void) tkToolbarButton: (id) sender;
|
||||
- (BOOL) isOpaque;
|
||||
- (BOOL) wantsDefaultClipping;
|
||||
- (BOOL) acceptsFirstResponder;
|
||||
- (void) keyDown: (NSEvent *) theEvent;
|
||||
@end
|
||||
|
||||
VISIBILITY_HIDDEN
|
||||
@interface TKWindow : NSWindow
|
||||
@end
|
||||
|
||||
@interface NSWindow(TKWm)
|
||||
- (NSPoint) convertPointToScreen:(NSPoint)point;
|
||||
- (NSPoint) convertPointFromScreen:(NSPoint)point;
|
||||
@end
|
||||
|
||||
#pragma mark NSMenu & NSMenuItem Utilities
|
||||
|
||||
@interface NSMenu(TKUtils)
|
||||
+ (id)menuWithTitle:(NSString *)title;
|
||||
+ (id)menuWithTitle:(NSString *)title menuItems:(NSArray *)items;
|
||||
+ (id)menuWithTitle:(NSString *)title submenus:(NSArray *)submenus;
|
||||
- (NSMenuItem *)itemWithSubmenu:(NSMenu *)submenu;
|
||||
- (NSMenuItem *)itemInSupermenu;
|
||||
@end
|
||||
|
||||
@interface NSMenuItem(TKUtils)
|
||||
+ (id)itemWithSubmenu:(NSMenu *)submenu;
|
||||
+ (id)itemWithTitle:(NSString *)title submenu:(NSMenu *)submenu;
|
||||
+ (id)itemWithTitle:(NSString *)title action:(SEL)action;
|
||||
+ (id)itemWithTitle:(NSString *)title action:(SEL)action
|
||||
target:(id)target;
|
||||
+ (id)itemWithTitle:(NSString *)title action:(SEL)action
|
||||
keyEquivalent:(NSString *)keyEquivalent;
|
||||
+ (id)itemWithTitle:(NSString *)title action:(SEL)action
|
||||
target:(id)target keyEquivalent:(NSString *)keyEquivalent;
|
||||
+ (id)itemWithTitle:(NSString *)title action:(SEL)action
|
||||
keyEquivalent:(NSString *)keyEquivalent
|
||||
keyEquivalentModifierMask:(NSUInteger)keyEquivalentModifierMask;
|
||||
+ (id)itemWithTitle:(NSString *)title action:(SEL)action
|
||||
target:(id)target keyEquivalent:(NSString *)keyEquivalent
|
||||
keyEquivalentModifierMask:(NSUInteger)keyEquivalentModifierMask;
|
||||
@end
|
||||
|
||||
#endif /* _TKMACPRIV */
|
||||
Reference in New Issue
Block a user