static void RulesSetScrolling (void) { FieldPtr field; field = FrmGetObjectPtr (rulesFrm, FrmGetObjectIndex (rulesFrm, rulesText)); FrmUpdateScrollers (rulesFrm, FrmGetObjectIndex (rulesFrm, rulesScrollUp), FrmGetObjectIndex (rulesFrm, rulesScrollDown), FldScrollable (field, winUp), FldScrollable (field, winDown)); }
/********************************************************************** UPDATE_FIELD_SCROLLERS IN: frm, fld, up_scroller, down_scroller = various UI doodads OUT: nothing PURPOSE: Update the given scroller widgets (for the given field (in the given form)), according to whether the field is scrollable in the "up" and "down" directions. **********************************************************************/ void update_field_scrollers(FormPtr frm, FieldPtr fld, Word up_scroller, Word down_scroller) { Boolean u, d; u = FldScrollable(fld, winUp); d = FldScrollable(fld, winDown); FrmUpdateScrollers(frm, FrmGetObjectIndex(frm, up_scroller), FrmGetObjectIndex(frm, down_scroller), u, d); return; }