author | Claus Gittinger <cg@exept.de> |
Mon, 26 Oct 2015 14:28:07 +0100 | |
changeset 4863 | 7864615b2921 |
parent 4861 | c71266965a81 |
child 4864 | 546c7a603752 |
child 4865 | eebc2638f2a7 |
--- 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"