On Monday, March 29, 2004, at 09:48  AM, Paul Bruneau wrote:

> Hi all-
>
> Is it true that the _useWFont option is not valid in the Appearance 
> Runtime? I am working to convert my application to the Appearance 
> runtime, and my buttons that have _useWFont are getting fouled up 
> (like a pushbutton turns into a checkbox).
>
> Must I use the APPEARANCE BUTTON statement to make buttons have small 
> text, or is there a way to have small text using the BUTTON statement 
> like I did with _useWFont in the FBII runtime?
>
> Thank you,
>
> Paul

Appearance Button is an aid, though you might can use it without this 
way when using Appearance runtime:
// Set button height to proper size (see Aqua HIG doc)
cfs.flags = _kControlUseFontMask_kControlUseJustMask
cfs.font = _kControlFontSmallSystemFont
def SetButtonFontStyle( btnID, cfs )

For pure Appearance method and needed declarations for the above as 
well , use the below.

 From Bernie's TWM, you can find out some approaches. The actual sizes 
for the control height per control type for large vs. small can be 
gleaned from Aqua HIG docs (and here's hoping B'man has them all right. 
  :) ) Small size height varies depending on control.

Robert

// For globals
#define ControlSize as UInt16
_kControlSizeNormal = 0
_kControlSizeSmall  = 1
_kControlSizeLarge  = 2
_kControlSizeTag    = _"size"


Local FN Window_Thing
dim as ControlFontStyleRec cfs
dim as Rect                r
dim as ControlSize       @ size
dim as Boolean           @ bool


cfs.flags = _kControlUseFontMask_kControlUseJustMask

//Smaller Checkbox
SetRect(r, 20, 77, 116, 95)
appearance button _cCheck1,¬
                   _activeBtn,¬
                   _kControlCheckBoxUncheckedValue,,, "Whole Word", @r,¬
                   _kControlCheckBoxAutoToggleProc
size = _kControlSizeSmall
def SetButtonData(_cCheck1, _kControlEntireControl, _kControlSizeTag, 
sizeof(ControlSize), size)
cfs.font = _kControlFontSmallSystemFont
def SetButtonFontStyle(_cCheck1, cfs)

// Smaller OS X regular Button
// Trick is making less tall, the other is to set the font size.
SetRect(r, 20, 242, 80, 259)
appearance button _cPush4,¬
                   _activeBtn,¬
                   ,,, "Done", @r,¬
                   _kControlPushButtonProc
def SetButtonFontStyle(_cPush4, cfs)

// To make default:
bool = _zTrue
def SetButtonData (_cPush4, _kControlEntireControl, 
_kControlPushButtonDefaultTag, sizeof(Boolean), bool)
end fn

FN Window_Thing