Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-07-04 20:29:34 +00:00
Code Issues Projects Releases Wiki Activity

Fixes to scrolling, cursor positioning.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2020-07-12 18:19:06 -04:00
parent 1849e63590
commit 419bcf4e5c
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
apps/edit.c
View File

@ -3,6 +3,8 @@
// Bobbi July 2020
/////////////////////////////////////////////////////////////////////////////
// TODO: Scroll-up / scroll-down should not mess with cursor position (but
// they do it we hit EOF or BOF)
// TODO: it is possible to scroll off beginning or end of doc
// TODO: Probably should convert tabs to space in loading and when tab key
// is pressed. Much easier to deal with. Implications for reading
@ -16,7 +18,7 @@
#include <peekpoke.h>
#define NCOLS 80 // Width of editing screen
#define NROWS 21 // Height of editing screen
#define NROWS 23 // Height of editing screen
#define CURSORROW 10 // Row cursor is initially shown on (if enough text)
#define EOL '\r' // For ProDOS
@ -462,10 +464,8 @@ void cursor_right(void) {
*/
void cursor_up(void) {
uint8_t i;
if (cursrow == 0) {
if (cursrow == 0)
scroll_up();
++cursrow;
}
for (i = 0; i < curscol; ++i)
gapbuf[gapend--] = gapbuf[--gapbegin];
--cursrow;
@ -482,10 +482,8 @@ void cursor_up(void) {
*/
void cursor_down(void) {
uint8_t i;
if (cursrow == NROWS) {
if (cursrow == NROWS - 1)
scroll_down();
--cursrow;
}
for (i = 0; i < rowlen[cursrow] - curscol; ++i)
gapbuf[gapbegin++] = gapbuf[++gapend];
++cursrow;