475 ! !

   476 

   477 !TextCollector methodsFor:'menu'!

   478 

   479 editMenu

   480     "return my popUpMenu; that's the superClasses menu,

   481      plus a 'Line Limit' item."

   482 

   483     <resource: #programMenu>

   484 

   485     |m sub sensor|

   486 

   487     m := super editMenu.

   488     self showLineLimitInMenu ifTrue:[

   489         ((sensor := self sensor) notNil and:[sensor ctrlDown and:[sensor shiftDown not]]) ifTrue:[

   490             sub := m.

   491         ] ifFalse:[

   492             sub := m subMenuAt:#others.

   493         ].

   494 

   495         sub notNil ifTrue:[

   496             sub

   497                 addItemList:#(

   498                     ('-'                                                                    )

   499                     ('Set Line Limit...'               doSetLineLimit                         ))

   500                 resources:resources

   501                 after:#doPrint.

   502         ].

   503     ].

   504     

   505     ^ m.

   506 

   507     "Modified: / 06-06-2019 / 10:17:43 / Claus Gittinger"