TerminalView.st
changeset 4603 e6736a82809f
parent 4602 a5c14fbf63cf
child 4604 1ac8aff09094
--- a/TerminalView.st	Mon Jun 02 15:19:02 2014 +0200
+++ b/TerminalView.st	Mon Jun 02 15:20:36 2014 +0200
@@ -920,7 +920,7 @@
         ^ true.
     ].
     aKey == #CursorUp ifTrue:[
-        lineBufferHistoryPosition > 1 ifFalse:[
+        (lineBufferHistoryPosition notNil and:[lineBufferHistoryPosition > 1]) ifFalse:[
             self beep.
             ^ true
         ].
@@ -938,7 +938,7 @@
         ^ true.    
     ].
     aKey == #CursorDown ifTrue:[
-        lineBufferHistoryPosition < lineBufferHistory size ifFalse:[
+        (lineBufferHistoryPosition notNil and:[lineBufferHistoryPosition < lineBufferHistory size]) ifFalse:[
             self beep.
             ^ true
         ].
@@ -2465,11 +2465,11 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.185 2014-06-02 13:19:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.186 2014-06-02 13:20:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.185 2014-06-02 13:19:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.186 2014-06-02 13:20:36 cg Exp $'
 ! !