On Saturday, August 3, 2002, at 10:45 AM, Craig Hoyt wrote: > Thanks for the feedback all, > > Button issue: > Staz said... >> you don't get to produce a framed button in carbon. not really. in x, >> the >> default button pulsates. that's a whole different animal. > RP said... >> Thus one solution might be for you to switch to the Appearance runtime. > > Since it is confirmed that this issue is not confined to my computer, > I'm > thinking this is a bug. A carbon compile running in 9.x should behave > the > same as a PPC compile. This does not. Here is a workaround that allows you to make a framed (pulsing in OS X) push-button in a Standard Basic Carbon compile. Clumsy, but it seems to do the job. #if def _appearanceRuntime compile shutdown "Demo for Standard Basic runtime only #endif #if CarbonLib toolbox fn SetControlData(ControlRef, ControlPartCode inPart, ¬ ResType inTagName, long inSize, ptr * inData) = OSErr local mode local fn ConvertBtnToShadow( btnNum as short ) dim as OSErr err dim as boolean @ bool bool = _zTrue err = fn SetControlData( button&( btnNum ), 0, _"dflt", 1, bool ) DrawOneControl( button&( 1 ) ) end fn #endif window 1 #if CarbonLib // special workaround button 1, _activeBtn, "OK", (100,100)-(200,120), _push fn ConvertBtnToShadow( 1 ) #else // normal code button 1, 1, "OK", (100,100)-(200,120), _shadow #endif do HandleEvents until 0 Robert P.