--- 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 $'
! !