equal
deleted
inserted
replaced
21 |
21 |
22 TextCollector comment:' |
22 TextCollector comment:' |
23 COPYRIGHT (c) 1989 by Claus Gittinger |
23 COPYRIGHT (c) 1989 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.14 1995-02-08 03:19:20 claus Exp $ |
26 $Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.15 1995-03-06 19:29:31 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !TextCollector class methodsFor:'documentation'! |
29 !TextCollector class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.14 1995-02-08 03:19:20 claus Exp $ |
47 $Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.15 1995-03-06 19:29:31 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
162 entryStream := ActorStream new. |
162 entryStream := ActorStream new. |
163 entryStream nextPutBlock:[:something | self nextPut:something]. |
163 entryStream nextPutBlock:[:something | self nextPut:something]. |
164 entryStream nextPutAllBlock:[:something | self nextPutAll:something] |
164 entryStream nextPutAllBlock:[:something | self nextPutAll:something] |
165 ! |
165 ! |
166 |
166 |
167 initializeMiddleButtonMenu |
167 editMenu |
168 |idx| |
168 |m idx| |
169 |
169 |
170 super initializeMiddleButtonMenu. |
170 m := super editMenu. |
171 |
171 |
172 " |
172 " |
173 textcollectors do not support #accept |
173 textcollectors do not support #accept |
174 remove it from the menu (and the preceeding separating line) |
174 remove it from the menu (and the preceeding separating line) |
175 " |
175 " |
176 idx := middleButtonMenu indexOf:#accept. |
176 idx := m indexOf:#accept. |
177 idx ~~ 0 ifTrue:[ |
177 idx ~~ 0 ifTrue:[ |
178 middleButtonMenu remove:idx. |
178 m remove:idx. |
179 (middleButtonMenu labels at:(idx - 1)) = '-' ifTrue:[ |
179 (m labels at:(idx - 1)) = '-' ifTrue:[ |
180 middleButtonMenu remove:idx - 1 |
180 m remove:idx - 1 |
181 ]. |
181 ]. |
182 ]. |
182 ]. |
|
183 ^ m |
183 ! |
184 ! |
184 |
185 |
185 reinitialize |
186 reinitialize |
186 "recreate access-semaphore; image could have been save (theoretically) |
187 "recreate access-semaphore; image could have been save (theoretically) |
187 with the semaphore locked - int this case, we had a deadlock" |
188 with the semaphore locked - int this case, we had a deadlock" |