ilusha/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython synced 2026-09-29 12:10:30 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

Updated for Universal Headers 3.4.

Browse source
This commit is contained in:
Just van Rossum 2001-12-12 22:40:27 +00:00
parent 485d92e127
commit e0b9fdca0d
4 changed files with 2655 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

2309
Mac/Modules/ctl/_Ctlmodule.c
View file

File diff suppressed because it is too large Load diff

33
Mac/Modules/ctl/ctlscan.py
View file

@ -36,6 +36,11 @@ class MyScanner(Scanner):
self.defsfile.write("from TextEdit import *\n")
self.defsfile.write("from QuickDraw import *\n")
self.defsfile.write("from Dragconst import *\n")
self.defsfile.write("from CarbonEvents import *\n")
self.defsfile.write("from Appearance import *\n")
self.defsfile.write("kDataBrowserItemAnyState = -1\n")
self.defsfile.write("kControlBevelButtonCenterPopupGlyphTag = -1\n")
self.defsfile.write("kDataBrowserClientPropertyFlagsMask = 0xFF << 24 # kDataBrowserClientPropertyFlagsOffset\n")
self.defsfile.write("\n")
def makeblacklistnames(self):
@ -48,7 +53,8 @@ class MyScanner(Scanner):
'SetControlData', # Generated manually
'GetControlData', # Generated manually
'kControlBevelButtonCenterPopupGlyphTag', # Constant with funny definition
'kControlProgressBarIndeterminateTag', # ditto
'kDataBrowserClientPropertyFlagsMask', # ditto
'kDataBrowserItemAnyState', # and ditto
# The following are unavailable for static 68k (appearance manager)
## 'GetBevelButtonMenuValue',
## 'SetBevelButtonMenuValue',
@ -80,6 +86,14 @@ class MyScanner(Scanner):
'SetControlProperty',
'GetControlPropertySize',
'SendControlMessage', # Parameter changed from long to void* from UH3.3 to UH3.4
# unavailable in Just's CW6 + UH 3.4 libs
'CreateDisclosureButtonControl',
'CreateRelevanceBarControl',
'DisableControl',
'EnableControl',
'IsControlEnabled',
'CreateEditUnicodeTextControl',
'CopyDataBrowserEditText',
]
def makegreylist(self):
@ -138,6 +152,23 @@ class MyScanner(Scanner):
'ControlDefSpec', # Don't know how to do this yet
'ControlDefSpec_ptr', # ditto
'Collection', # Ditto
# not-yet-supported stuff in Universal Headers 3.4:
'ControlColorUPP',
'ControlKind', # XXX easy: 2-tuple containing 2 OSType's
'ControlTabEntry_ptr', # XXX needed for tabs
'ControlButtonContentInfo', # XXX ugh: a union
'ControlButtonContentInfo_ptr', # XXX ugh: a union
'ListDefSpec_ptr', # XXX see _Listmodule.c, tricky but possible
'DataBrowserItemID_ptr', # XXX array of UInt32, for BrowserView
'DataBrowserItemUPP',
'DataBrowserItemDataRef', # XXX void *
'DataBrowserCallbacks', # difficult struct
'DataBrowserCallbacks_ptr',
'DataBrowserCustomCallbacks',
'DataBrowserCustomCallbacks_ptr',
'DataBrowserTableViewColumnDesc',
'DataBrowserListViewColumnDesc',
'CFDataRef',
]
def makerepairinstructions(self):

32
Mac/Modules/ctl/ctlsupport.py
View file

@ -48,6 +48,38 @@ ControlID_ptr = ControlID
DragTrackingMessage = Type("DragTrackingMessage", "h")
DragReference = OpaqueByValueType("DragReference", "DragObj")
CFStringRef = OpaqueByValueType("CFStringRef", "CFStringRefObj")
CFMutableStringRef = OpaqueByValueType("CFMutableStringRef", "CFMutableStringRefObj")
CFDataRef = OpaqueByValueType("CFDataRef", "CFDataRefObj")
ControlTabSize = UInt16
ControlTabDirection = UInt16
ControlPopupArrowOrientation = UInt16
ControlPopupArrowSize = UInt16
ControlClockType = UInt16
ControlClockFlags = UInt32
ControlRoundButtonSize = SInt16
DataBrowserViewStyle = OSType
DataBrowserItemID = UInt32
DataBrowserEditCommand = UInt32
DataBrowserSelectionAnchorDirection = UInt32
DataBrowserItemState = UInt32
DataBrowserPropertyID = UInt32
DataBrowserRevealOptions = UInt8
DataBrowserSortOrder = UInt16
DataBrowserSelectionFlags = UInt32
DataBrowserPropertyFlags = UInt32
DataBrowserPropertyPart = OSType
DataBrowserTableViewColumnID = DataBrowserPropertyID
#DataBrowserTableViewColumnDesc = DataBrowserPropertyDesc
DataBrowserTableViewHiliteStyle = UInt32
DataBrowserTableViewRowIndex = UInt32
DataBrowserTableViewColumnIndex = UInt32
DataBrowserPropertyType = OSType
ControlDisclosureTriangleOrientation = UInt16
includestuff = includestuff + """
#ifdef WITHOUT_FRAMEWORKS
#include <Controls.h>