[Python-checkins] CVS: python/dist/src/Mac/Modules/ctl _Ctlmodule.c,1.8,1.9

Jack Jansen jackjansen@users.sourceforge.net
Fri, 14 Dec 2001 14:47:16 -0800


Update of /cvsroot/python/python/dist/src/Mac/Modules/ctl
In directory usw-pr-cvs1:/tmp/cvs-serv15874/Python/Mac/Modules/ctl

Modified Files:
	_Ctlmodule.c 
Log Message:
Many of the new calls are Carbon-only. Flagged them as such.

Index: _Ctlmodule.c
===================================================================
RCS file: /cvsroot/python/python/dist/src/Mac/Modules/ctl/_Ctlmodule.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** _Ctlmodule.c	2001/12/13 21:24:37	1.8
--- _Ctlmodule.c	2001/12/14 22:47:13	1.9
***************
*** 597,600 ****
--- 597,602 ----
  }
  
+ #if TARGET_API_MAC_CARBON
+ 
  static PyObject *CtlObj_SetControlTitleWithCFString(ControlObject *_self, PyObject *_args)
  {
***************
*** 615,618 ****
--- 617,623 ----
[...1467 lines suppressed...]
  	{"CreatePopupButtonControl", (PyCFunction)Ctl_CreatePopupButtonControl, 1,
  	 "(WindowPtr window, Rect boundsRect, CFStringRef title, SInt16 menuID, Boolean variableWidth, SInt16 titleWidth, SInt16 titleJustification, Style titleStyle) -> (ControlHandle outControl)"},
+ #endif
+ 
+ #if TARGET_API_MAC_CARBON
  	{"CreateRadioGroupControl", (PyCFunction)Ctl_CreateRadioGroupControl, 1,
  	 "(WindowPtr window, Rect boundsRect) -> (ControlHandle outControl)"},
+ #endif
+ 
+ #if TARGET_API_MAC_CARBON
  	{"CreateScrollingTextBoxControl", (PyCFunction)Ctl_CreateScrollingTextBoxControl, 1,
  	 "(WindowPtr window, Rect boundsRect, SInt16 contentResID, Boolean autoScroll, UInt32 delayBeforeAutoScroll, UInt32 delayBetweenAutoScroll, UInt16 autoScrollAmount) -> (ControlHandle outControl)"},
+ #endif
+ 
+ #if TARGET_API_MAC_CARBON
  	{"CreateDataBrowserControl", (PyCFunction)Ctl_CreateDataBrowserControl, 1,
  	 "(WindowPtr window, Rect boundsRect, OSType style) -> (ControlHandle outControl)"},
+ #endif
  	{"FindControlUnderMouse", (PyCFunction)Ctl_FindControlUnderMouse, 1,
  	 "(Point inWhere, WindowPtr inWindow) -> (ControlHandle _rv, SInt16 outPart)"},