void ScrollLines( Word fldindex, Word sbarindex, int numLinesToScroll,
Boolean redraw )
{
FormPtr frm=FrmGetActiveForm();
FieldPtr fld;
fld = FrmGetObjectPtr( frm, FrmGetObjectIndex( frm, fldindex ) );
if( numLinesToScroll<0 )
FldScrollField( fld, -numLinesToScroll, up );
else
FldScrollField( fld, numLinesToScroll, down );
if( (FldGetNumberOfBlankLines(fld) && numLinesToScroll<0) || redraw )
UpdateScrollbar( fldindex, sbarindex );
}
/*----------------------------------------------------------------linesScroll-+
| |
+----------------------------------------------------------------------------*/
void linesScroll(int numLinesToScroll, Boolean redraw)
{
FormPtr frm = FrmGetActiveForm();
FieldPtr field = (FieldPtr)FrmGetObjectPtr(
frm,
FrmGetObjectIndex(frm, MainConsoleField)
);
if (numLinesToScroll < 0) {
FldScrollField(field, -numLinesToScroll, winUp);
}else {
FldScrollField(field, numLinesToScroll, winDown);
}
if ((FldGetNumberOfBlankLines(field) && numLinesToScroll < 0) || redraw) {
updateScroll();
}
}
