Backspace now moves back to the previous link. In addition, if there is no previous page, both a @PREV link and backspace will attempt to get back to the starting KEYWORD before finally resorting to INDEX

This commit is contained in:
mysticbbs 2012-02-15 01:10:00 -05:00
parent 8f71d8b564
commit 1a3c6a2f9c
1 changed files with 18 additions and 1 deletions

View File

@ -364,10 +364,27 @@ Begin
End; End;
End Else Begin End Else Begin
Case Ch of Case Ch of
#08 : Begin
If LastPos = 0 Then
CurKey := Keyword
Else Begin
CurKey := LastKey[LastPos];
Dec (LastPos);
End;
OK := ReadKeywordData;
If Not OK Then Begin
CurKey := 'INDEX';
OK := ReadKeywordData;
End;
Break;
End;
#13 : If Text[TopPage + CurLine - 1].Links > 0 Then Begin #13 : If Text[TopPage + CurLine - 1].Links > 0 Then Begin
If Text[TopPage + CurLine - 1].Link[CurLPos].Key = '@PREV' Then Begin If Text[TopPage + CurLine - 1].Link[CurLPos].Key = '@PREV' Then Begin
If LastPos = 0 Then If LastPos = 0 Then
CurKey := 'INDEX' CurKey := Keyword
Else Begin Else Begin
CurKey := LastKey[LastPos]; CurKey := LastKey[LastPos];
Dec (LastPos); Dec (LastPos);