#OTHER
authorClaus Gittinger <cg@exept.de>
Mon, 26 Oct 2015 14:28:07 +0100
changeset 4863 7864615b2921
parent 4861 c71266965a81
child 4864 546c7a603752
child 4865 eebc2638f2a7
#OTHER class: VT100TerminalView changed: #deleteCharacters huh - nil parameter
VT100TerminalView.st
--- a/VT100TerminalView.st	Thu Oct 15 16:37:53 2015 +0200
+++ b/VT100TerminalView.st	Mon Oct 26 14:28:07 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1998 by eXept Software AG
               All Rights Reserved
@@ -307,7 +305,9 @@
 
     |n|
 
-    n := ((parameters at: 1) max: 1).
+    n := parameters at: 1.
+    n isNil ifTrue:[^ self].
+    n := n max: 1.
     self deleteFromLine:cursorLine col:cursorCol toLine:cursorLine col:cursorCol+n-1.
 
     "Created: / 12.6.1998 / 21:19:02 / cg"