← Back to branch summary

~ubuntu-branches/ubuntu/trusty/gearhead/trusty

« back to all changes in this revision

Viewing changes to xterm-boxdrawing/crt.pp.diff

  • Committer: Bazaar Package Importer
  • Author(s): Kari Pahula
  • Date: 2005-12-02 02:46:05 UTC
  • Revision ID: james.westby@ubuntu.com-20051202024605-1xl6xngerqzxwhd2
Tags: upstream-1.000
Import upstream version 1.000

Show diffs side-by-side

added added

removed removed

Lines of Context:
xterm-boxdrawing/crt.pp.diff
 
1
--- crt.pp.O    2005-03-16 10:17:23.000000000 -0800
 
2
+++ crt.pp      2005-05-23 00:21:20.000000000 -0700
 
3
@@ -18,6 +18,9 @@
 
4
 
 
5
 {$i crth.inc}
 
6
 
 
7
+Procedure ShiftAltCharset;
 
8
+Procedure ShiftNormalCharset;
 
9
+
 
10
 Const
 
11
   { Controlling consts }
 
12
   Flushing     = false;               {if true then don't buffer output}
 
13
@@ -1436,15 +1439,25 @@
 
14
 
 
15
 procedure CursorOn;
 
16
 begin
 
17
-  ttySendStr(#27'[?2c');
 
18
+  ttySendStr(#27'[?25h');
 
19
 end;
 
20
 
 
21
 
 
22
 procedure CursorOff;
 
23
 begin
 
24
-  ttySendStr(#27'[?1c');
 
25
+  ttySendStr(#27'[?25l');
 
26
+end;
 
27
+
 
28
+
 
29
+Procedure ShiftAltCharset;
 
30
+begin
 
31
+  ttySendChar(#14);
 
32
 end;
 
33
 
 
34
+Procedure ShiftNormalCharset;
 
35
+begin
 
36
+  ttySendChar(#15);
 
37
+end;
 
38
 
 
39
 {******************************************************************************
 
40
                                Initialization
 
41
@@ -1611,8 +1624,9 @@
 
42
         CurrY:=1;
 
43
         ttySendStr(#27'[H');
 
44
       end;
 
45
-   {Reset Attribute (TextAttr=7 at startup)}
 
46
-      ttySendStr(#27'[m');
 
47
+   {Reset Attribute (TextAttr=7 at startup)
 
48
+    and enable ACS character set}
 
49
+      ttySendStr(#27'[m'#27')0');
 
50
     end;
 
51
 
 
52
 Finalization