--- a/TextCollector.st Tue Feb 28 22:52:21 1995 +0100
+++ b/TextCollector.st Mon Mar 06 20:29:54 1995 +0100
@@ -23,7 +23,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.14 1995-02-08 03:19:20 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.15 1995-03-06 19:29:31 claus Exp $
'!
!TextCollector class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.14 1995-02-08 03:19:20 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.15 1995-03-06 19:29:31 claus Exp $
"
!
@@ -164,22 +164,23 @@
entryStream nextPutAllBlock:[:something | self nextPutAll:something]
!
-initializeMiddleButtonMenu
- |idx|
+editMenu
+ |m idx|
- super initializeMiddleButtonMenu.
+ m := super editMenu.
"
textcollectors do not support #accept
remove it from the menu (and the preceeding separating line)
"
- idx := middleButtonMenu indexOf:#accept.
+ idx := m indexOf:#accept.
idx ~~ 0 ifTrue:[
- middleButtonMenu remove:idx.
- (middleButtonMenu labels at:(idx - 1)) = '-' ifTrue:[
- middleButtonMenu remove:idx - 1
+ m remove:idx.
+ (m labels at:(idx - 1)) = '-' ifTrue:[
+ m remove:idx - 1
].
].
+ ^ m
!
reinitialize