• R/O
  • SSH
  • HTTPS

ttssh2: Commit


Commit MetaInfo

Revision5564 (tree)
Time2014-03-31 17:30:11
Authordoda

Log Message

画面全体消去(ED 2)時に、カーソル位置をホームに移動するよう動作を変更可能にした。
# DECSET 8200 で設定

Change Summary

Incremental Difference

--- trunk/teraterm/teraterm/vtterm.c (revision 5563)
+++ trunk/teraterm/teraterm/vtterm.c (revision 5564)
@@ -66,6 +66,7 @@
6666 static BOOL RelativeOrgMode;
6767 static BOOL InsertMode;
6868 static BOOL LFMode;
69+static BOOL ClearThenHome;
6970 static BOOL AutoWrapMode;
7071 static BOOL FocusReportMode;
7172 static BOOL AltScr;
@@ -259,6 +260,7 @@
259260 MouseReportMode = IdMouseTrackNone;
260261 MouseReportExtMode = IdMouseTrackExtNone;
261262 DecLocatorFlag = 0;
263+ ClearThenHome = FALSE;
262264
263265 ChangeTerminalID();
264266
@@ -1538,6 +1540,14 @@
15381540 // Erase screen (scroll out)
15391541 BuffClearScreen();
15401542 UpdateWindow(HVTWin);
1543+ if (ClearThenHome && !isCursorOnStatusLine) {
1544+ if (RelativeOrgMode) {
1545+ MoveCursor(0, 0);
1546+ }
1547+ else {
1548+ MoveCursor(CursorLeftM, CursorTop);
1549+ }
1550+ }
15411551 break;
15421552 }
15431553 }
@@ -2715,6 +2725,9 @@
27152725 AcceptWheelToCursor = TRUE;
27162726 }
27172727 break;
2728+ case 8200: // ClearThenHome
2729+ ClearThenHome = TRUE;
2730+ break;
27182731 case 14001: // NetTerm mouse mode
27192732 if (ts.MouseEventTracking)
27202733 MouseReportMode = IdMouseTrackNetTerm;
@@ -2856,6 +2869,9 @@
28562869 case 7786: // Wheel to Cursor translation
28572870 AcceptWheelToCursor = FALSE;
28582871 break;
2872+ case 8200: // ClearThenHome
2873+ ClearThenHome = FALSE;
2874+ break;
28592875 case 14001: // NetTerm mouse mode
28602876 MouseReportMode = IdMouseTrackNone;
28612877 break;
@@ -3235,6 +3251,12 @@
32353251 else
32363252 resp = 2;
32373253 break;
3254+ case 8200: // ClearThenHome
3255+ if (ClearThenHome)
3256+ resp = 1;
3257+ else
3258+ resp = 2;
3259+ break;
32383260 case 14001: // NetTerm Mouse Reporting (TT)
32393261 if (!ts.MouseEventTracking)
32403262 resp = 4;
Show on old repository browser