TextView.st
changeset 447 ed41e1bbd9a1
parent 441 e170bca66a78
child 458 14e994e20eb5
--- a/TextView.st	Fri Mar 01 19:16:46 1996 +0100
+++ b/TextView.st	Fri Mar 01 19:44:55 1996 +0100
@@ -575,10 +575,12 @@
 keyPress:key x:x y:y
     "handle some keyboard input (there is not much to be done here)"
 
-    <resource: #keyboard (#Find #Copy #FindNext #FindPrev #SelectAll #SaveAs)>
+    <resource: #keyboard (#Find #Copy #FindNext #FindPrev 
+                          #GotoLine #SelectAll #SaveAs)>
 
     (key == #Find) ifTrue:[self search. ^self].
     (key == #Copy) ifTrue:[self copySelection. ^self].
+    (key == #GotoLine) ifTrue:[self gotoLine. ^self].
 
     (key == #FindNext) ifTrue:[self searchFwd. ^self].
     (key == #FindPrev) ifTrue:[self searchBwd. ^self].
@@ -607,7 +609,7 @@
 
     super keyPress:key x:x y:y
 
-    "Modified: 28.2.1996 / 18:53:37 / cg"
+    "Modified: 1.3.1996 / 18:42:53 / cg"
 !
 
 mapped 
@@ -721,7 +723,9 @@
 defaultForGotoLine
     "return a default value to show in the gotoLine box"
 
-    ^ nil
+    ^ selectionStartLine
+
+    "Modified: 1.3.1996 / 18:44:36 / cg"
 !
 
 editMenu
@@ -1876,5 +1880,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.38 1996-03-01 13:01:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.39 1996-03-01 18:44:55 cg Exp $'
 ! !