瀏覽代碼

Hanging spaces are highlighted

Artur Efimov 6 年之前
父節點
當前提交
a1f7646b24
共有 2 個文件被更改,包括 8 次插入2 次删除
  1. 6 0
      src/Editor.Mod
  2. 2 2
      src/FreeOberon.Mod

+ 6 - 0
src/Editor.Mod

@@ -373,6 +373,12 @@ BEGIN
       GetToken(s, i, class, len, comLevel);
       fg := GetTokenColor(class)
     END
+  END;
+  DEC(i);
+  WHILE (i >= 0) & (s[i] = ' ') DO
+    DEC(x);
+    T.PutChar(x, y, 0FAX, 3, bg);
+    DEC(i)
   END
 END PutStringH;
 

+ 2 - 2
src/FreeOberon.Mod

@@ -16,11 +16,11 @@ GNU General Public License for more details.
 You should have received a copy of the GNU General Public License
 along with Free Oberon.  If not, see <http://www.gnu.org/licenses/>.
 *)
-IMPORT G := Graph, T := Terminal, Text := EditorText, Files,
+IMPORT G := Graph, T := Terminal, Files,
        OV, Editor, Term, Config, Strings, Out;
 CONST
   needFullscreen = TRUE;
-  version* = '1.0.1';
+  version* = '1.0.2';
 
   (* Direction of Selection *)
   dirLeft  = 0;