diff -r b63c0114077e -r 90b1f72eeb96 TextCollector.st --- a/TextCollector.st Thu Jun 06 11:25:52 2019 +0200 +++ b/TextCollector.st Thu Jun 06 11:26:22 2019 +0200 @@ -474,39 +474,6 @@ "Modified: / 9.11.1998 / 21:18:17 / cg" ! ! -!TextCollector methodsFor:'menu'! - -editMenu - "return my popUpMenu; that's the superClasses menu, - plus a 'Line Limit' item." - - - - |m sub sensor| - - m := super editMenu. - self showLineLimitInMenu ifTrue:[ - ((sensor := self sensor) notNil and:[sensor ctrlDown and:[sensor shiftDown not]]) ifTrue:[ - sub := m. - ] ifFalse:[ - sub := m subMenuAt:#others. - ]. - - sub notNil ifTrue:[ - sub - addItemList:#( - ('-' ) - ('Set Line Limit...' doSetLineLimit )) - resources:resources - after:#doPrint. - ]. - ]. - - ^ m. - - "Modified: / 06-06-2019 / 10:17:43 / Claus Gittinger" -! ! - !TextCollector methodsFor:'menu - actions'! doSetLineLimit