-
-ControlHandle UMANewControl(WindowPtr owningWindow,
- const Rect * boundsRect,
- ConstStr255Param controlTitle,
- Boolean initiallyVisible,
- SInt16 initialValue,
- SInt16 minimumValue,
- SInt16 maximumValue,
- SInt16 procID,
- SInt32 controlReference)
-{
- ControlHandle theControl = NULL ;
-#if UMA_USE_APPEARANCE
- if ( UMAHasAppearance() )
- {
- theControl = NewControl( owningWindow , boundsRect , controlTitle , initiallyVisible ,
- initialValue , minimumValue , maximumValue , procID , controlReference ) ;
- }
- else
-#endif
-#if !TARGET_CARBON
- {
- theControl = AGANewControl( owningWindow , boundsRect , controlTitle , initiallyVisible ,
- initialValue , minimumValue , maximumValue , procID , controlReference ) ;
- }
-#else
- {
- }
-#endif
- return theControl ;
-}
-
-void UMADisposeControl (ControlHandle theControl)
-{
- if ( UMAHasAppearance() )
- {
- ::DisposeControl( theControl ) ;
- }
- else
- {
- ::DisposeControl( theControl ) ;
- }
-}
-
-
-void UMAHiliteControl (ControlHandle theControl,
- ControlPartCode hiliteState)
- {
- if ( UMAHasAppearance() )
- {
- ::HiliteControl( theControl , hiliteState ) ;
- }
- else
- {
- ::HiliteControl( theControl , hiliteState ) ;
- }
-}
-
-
-void UMAShowControl (ControlHandle theControl)
-{
- if ( UMAHasAppearance() )
- {
- ::ShowControl( theControl ) ;
- }
- else
- {
- ::ShowControl( theControl ) ;
- }
-}
-
-
-void UMAHideControl (ControlHandle theControl)
-{
- if ( UMAHasAppearance() )
- {
- ::HideControl( theControl ) ;
- }
- else
- {
- ::HideControl( theControl ) ;
- }
-}
-
-
-void UMASetControlVisibility (ControlHandle inControl,
- Boolean inIsVisible,
- Boolean inDoDraw)
- {
- if ( UMAHasAppearance() )
- {
-#if UMA_USE_APPEARANCE
- ::SetControlVisibility( inControl , inIsVisible, inDoDraw ) ;
-#endif
- }
-}
-
-
-
-bool UMAIsControlActive (ControlHandle inControl)
-{
-#if TARGET_CARBON
- return IsControlActive( inControl ) ;
-#else
-#if UMA_USE_APPEARANCE
- if ( UMAHasAppearance() )
- {
- return IsControlActive( inControl ) ;
- }
- else
-#endif
- return (**inControl).contrlHilite == 0 ;
-#endif
-}
-
-
-bool UMAIsControlVisible (ControlHandle inControl)
-{
-#if UMA_USE_APPEARANCE
- if ( UMAHasAppearance() )
- {
- return IsControlVisible( inControl ) ;
- }
-#endif
- return true ;
-}
-
-OSErr UMAGetBestControlRect (ControlHandle inControl,
- Rect * outRect,
- SInt16 * outBaseLineOffset)
-{
-#if UMA_USE_APPEARANCE
- if ( UMAHasAppearance() )
- {
- return GetBestControlRect( inControl , outRect , outBaseLineOffset ) ;
- }
- else
-#endif
-#if !TARGET_CARBON
- {
- return AGAGetBestControlRect( inControl , outRect , outBaseLineOffset ) ;
- }
-#else
- {
- return noErr ;
- }
-#endif
-}
-
-
-OSErr UMASetControlFontStyle (ControlHandle inControl,
- const ControlFontStyleRec * inStyle)
-{
-#if UMA_USE_APPEARANCE
- if ( UMAHasAppearance() )
- {
- return ::SetControlFontStyle( inControl , inStyle ) ;
- }
- else
-#endif
-#if !TARGET_CARBON
- return AGASetControlFontStyle( inControl , inStyle ) ;
-#else
- {
- return noErr ;
- }
-#endif
-}
-
-
-
-// control hierarchy
-
-OSErr UMACreateRootControl (WindowPtr inWindow,
- ControlHandle * outControl)
-{
-#if UMA_USE_APPEARANCE
- if ( UMAHasAppearance() )
- {
- return CreateRootControl( inWindow , outControl ) ;
- }
- else
-#endif
-#if !TARGET_CARBON
- return AGACreateRootControl( inWindow , outControl ) ;
-#else
- {
- return noErr ;
- }
-#endif
-}
-
-
-
-OSErr UMAEmbedControl (ControlHandle inControl,
- ControlHandle inContainer)
-{
-#if UMA_USE_APPEARANCE
- if ( UMAHasAppearance() )
- {
- return EmbedControl( inControl , inContainer ) ;
- }
- else
-#endif
-#if !TARGET_CARBON
- return AGAEmbedControl( inControl , inContainer ) ; ;
-#else
- {
- return noErr ;
- }
-#endif
-}
-
-
-