git.ucc.asn.au
/
tpg
/
acess2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Kernel - Fixing bugs in VT scrolling and keyboard mappings exposed by RHW tests
[tpg/acess2.git]
/
KernelLand
/
Kernel
/
drv
/
vterm_input.c
diff --git
a/KernelLand/Kernel/drv/vterm_input.c
b/KernelLand/Kernel/drv/vterm_input.c
index
a037b34
..
20e47db
100644
(file)
--- a/
KernelLand/Kernel/drv/vterm_input.c
+++ b/
KernelLand/Kernel/drv/vterm_input.c
@@
-91,6
+91,8
@@
void VT_KBCallBack(Uint32 Codepoint)
if(term->Mode != TERM_MODE_TEXT)
break;
if(term->Mode != TERM_MODE_TEXT)
break;
+// Log_Debug("VTerm", "Magic Ctrl-Alt-0x%x", term->RawScancode);
+
switch(term->RawScancode)
{
// Scrolling
switch(term->RawScancode)
{
// Scrolling
@@
-98,6
+100,7
@@
void VT_KBCallBack(Uint32 Codepoint)
if( term->Flags & VT_FLAG_ALTBUF )
return ;
term->ViewPos = MAX( 0, term->ViewPos - term->Width );
if( term->Flags & VT_FLAG_ALTBUF )
return ;
term->ViewPos = MAX( 0, term->ViewPos - term->Width );
+ VT_int_UpdateScreen(term, 1);
return;
case KEYSYM_PGDN:
if( term->Flags & VT_FLAG_ALTBUF )
return;
case KEYSYM_PGDN:
if( term->Flags & VT_FLAG_ALTBUF )
@@
-106,6
+109,7
@@
void VT_KBCallBack(Uint32 Codepoint)
term->ViewPos + term->Width,
term->Width * term->Height * giVT_Scrollback
);
term->ViewPos + term->Width,
term->Width * term->Height * giVT_Scrollback
);
+ VT_int_UpdateScreen(term, 1);
return;
}
break;
return;
}
break;
UCC
git Repository :: git.ucc.asn.au