github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-22 15:17:49 +00:00
Code Issues Projects Releases Wiki Activity

Fix missing return types on functions, convert some functions with always ignored results to void.

Browse Source
This commit is contained in:
Nick Briggs
2017-05-28 15:08:42 -07:00
parent 65ddb5a968
commit 691645d048
83 changed files with 587 additions and 549 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
src/xscroll.c
View File

@@ -30,47 +30,11 @@ static char *id = "$Id: xscroll.c,v 1.2 1999/01/03 02:07:48 sybalsky Exp $ Copyr
int ScrollPitch = SCROLL_PITCH;
JumpScrollVer( dsp, y )
DspInterface dsp;
{
Scroll( dsp, dsp->Vissible.x, (int)((dsp->Display.width *y) / dsp->Vissible.height));
}
JumpScrollHor( dsp, x )
DspInterface dsp;
{
Scroll( dsp, (int)((dsp->Display.width *x) / dsp->Vissible.width), dsp->Vissible.y);
}
ScrollLeft( dsp )
DspInterface dsp;
{
Scroll( dsp, dsp->Vissible.x - ScrollPitch, dsp->Vissible.y);
}
ScrollRight( dsp )
DspInterface dsp;
{
Scroll( dsp, dsp->Vissible.x + ScrollPitch, dsp->Vissible.y);
}
ScrollUp( dsp )
DspInterface dsp;
{
Scroll( dsp, dsp->Vissible.x, dsp->Vissible.y - ScrollPitch);
}
ScrollDown( dsp )
DspInterface dsp;
{
Scroll( dsp, dsp->Vissible.x, dsp->Vissible.y + ScrollPitch);
}
/* Move the DisplayWindow and the ScrollButtons to a new */
/* position. newX, newY refers to the uppre left corner */
/* of the LispDisplay */
Scroll( dsp, newX, newY)
void Scroll( dsp, newX, newY)
DspInterface dsp;
int newX, newY;
{
@@ -87,3 +51,39 @@ Scroll( dsp, newX, newY)
(dsp->bitblt_to_screen)( dsp, 0, dsp->Vissible.x, dsp->Vissible.y,
dsp->Vissible.width, dsp->Vissible.height);
}/* end Scroll */
void JumpScrollVer( dsp, y )
DspInterface dsp;
{
Scroll( dsp, dsp->Vissible.x, (int)((dsp->Display.width *y) / dsp->Vissible.height));
}
void JumpScrollHor( dsp, x )
DspInterface dsp;
{
Scroll( dsp, (int)((dsp->Display.width *x) / dsp->Vissible.width), dsp->Vissible.y);
}
void ScrollLeft( dsp )
DspInterface dsp;
{
Scroll( dsp, dsp->Vissible.x - ScrollPitch, dsp->Vissible.y);
}
void ScrollRight( dsp )
DspInterface dsp;
{
Scroll( dsp, dsp->Vissible.x + ScrollPitch, dsp->Vissible.y);
}
void ScrollUp( dsp )
DspInterface dsp;
{
Scroll( dsp, dsp->Vissible.x, dsp->Vissible.y - ScrollPitch);
}
void ScrollDown( dsp )
DspInterface dsp;
{
Scroll( dsp, dsp->Vissible.x, dsp->Vissible.y + ScrollPitch);
}