equal
deleted
inserted
replaced
332 submenuChannel: servicesMenu |
332 submenuChannel: servicesMenu |
333 ) |
333 ) |
334 (MenuItem |
334 (MenuItem |
335 label: 'Debug' |
335 label: 'Debug' |
336 translateLabel: true |
336 translateLabel: true |
337 submenu: |
337 submenuChannel: debugMenu |
338 (Menu |
|
339 ( |
|
340 (MenuItem |
|
341 label: 'Inspect ' |
|
342 itemValue: inspectView |
|
343 translateLabel: true |
|
344 ) |
|
345 (MenuItem |
|
346 label: 'Inspect Syntax Elements' |
|
347 itemValue: inspectSyntaxElements |
|
348 translateLabel: true |
|
349 ) |
|
350 (MenuItem |
|
351 label: 'Inspect Selected Selector' |
|
352 itemValue: inspectSelectedSelector |
|
353 translateLabel: true |
|
354 ) |
|
355 ) |
|
356 nil |
|
357 nil |
|
358 ) |
|
359 ) |
338 ) |
360 ) |
339 ) |
361 nil |
340 nil |
362 nil |
341 nil |
363 ) |
342 ) |
1563 |
1542 |
1564 editMenu |
1543 editMenu |
1565 | editMenu superEditMenu moreMenu moreMenuItem | |
1544 | editMenu superEditMenu moreMenu moreMenuItem | |
1566 |
1545 |
1567 superEditMenu := textView superEditMenu. |
1546 superEditMenu := textView superEditMenu. |
1568 moreMenu := superEditMenu subMenuAt: superEditMenu numberOfItems. |
|
1569 |
1547 |
1570 textView sensor ctrlDown ifTrue:[ |
1548 textView sensor ctrlDown ifTrue:[ |
1571 ^superEditMenu |
1549 ^superEditMenu |
1572 ]. |
1550 ]. |
|
1551 |
|
1552 "/ install the standard 'more' menu into my own menu |
|
1553 moreMenu := superEditMenu subMenuAt: superEditMenu numberOfItems. |
1573 |
1554 |
1574 editMenu := self class editMenu decodeAsLiteralArray. |
1555 editMenu := self class editMenu decodeAsLiteralArray. |
1575 moreMenuItem := editMenu menuItemLabeled: 'More'. |
1556 moreMenuItem := editMenu menuItemLabeled: 'More'. |
1576 moreMenuItem submenu: moreMenu asMenu. |
1557 moreMenuItem submenu: moreMenu asMenu. |
1577 editMenu findGuiResourcesIn: self. |
1558 editMenu findGuiResourcesIn: self. |
3554 ! ! |
3535 ! ! |
3555 |
3536 |
3556 !CodeView2 class methodsFor:'documentation'! |
3537 !CodeView2 class methodsFor:'documentation'! |
3557 |
3538 |
3558 version |
3539 version |
3559 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.92 2013-06-28 08:34:09 cg Exp $' |
3540 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.93 2013-06-30 07:12:03 cg Exp $' |
3560 ! |
3541 ! |
3561 |
3542 |
3562 version_CVS |
3543 version_CVS |
3563 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.92 2013-06-28 08:34:09 cg Exp $' |
3544 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.93 2013-06-30 07:12:03 cg Exp $' |
3564 ! |
3545 ! |
3565 |
3546 |
3566 version_SVN |
3547 version_SVN |
3567 ^ '$Id: Tools__CodeView2.st,v 1.92 2013-06-28 08:34:09 cg Exp $' |
3548 ^ '$Id: Tools__CodeView2.st,v 1.93 2013-06-30 07:12:03 cg Exp $' |
3568 ! ! |
3549 ! ! |
3569 |
3550 |
3570 |
3551 |
3571 CodeView2 initialize! |
3552 CodeView2 initialize! |