1457 ! ! |
1457 ! ! |
1458 |
1458 |
1459 !CodeView2 methodsFor:'menus-dynamic'! |
1459 !CodeView2 methodsFor:'menus-dynamic'! |
1460 |
1460 |
1461 editMenu |
1461 editMenu |
1462 | editMenu superEditMenu moreMenu moreMenuItem showGutterItem | |
1462 | editMenu superEditMenu moreMenu moreMenuItem | |
1463 |
1463 |
1464 editMenu := self class editMenu decodeAsLiteralArray. |
|
1465 superEditMenu := textView superEditMenu. |
1464 superEditMenu := textView superEditMenu. |
1466 moreMenu := superEditMenu subMenuAt: superEditMenu numberOfItems. |
1465 moreMenu := superEditMenu subMenuAt: superEditMenu numberOfItems. |
|
1466 |
|
1467 textView sensor ctrlDown ifTrue:[ |
|
1468 ^superEditMenu |
|
1469 ]. |
|
1470 |
|
1471 editMenu := self class editMenu decodeAsLiteralArray. |
1467 moreMenuItem := editMenu menuItemLabeled: 'More'. |
1472 moreMenuItem := editMenu menuItemLabeled: 'More'. |
1468 showGutterItem := editMenu atNameKey: #ShowGutter. |
|
1469 showGutterItem notNil ifTrue:[ showGutterItem indication: showGutterChannel ]. |
|
1470 moreMenuItem submenu: moreMenu asMenu. |
1473 moreMenuItem submenu: moreMenu asMenu. |
1471 editMenu findGuiResourcesIn: self. |
1474 editMenu findGuiResourcesIn: self. |
1472 ^editMenu |
1475 ^editMenu |
1473 |
1476 |
1474 "Created: / 25-12-2007 / 10:10:01 / janfrog" |
1477 "Created: / 25-12-2007 / 10:10:01 / janfrog" |
1475 "Modified: / 25-12-2007 / 19:50:53 / janfrog" |
1478 "Modified: / 25-12-2007 / 19:50:53 / janfrog" |
1476 "Modified: / 18-10-2008 / 20:31:16 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1479 "Modified: / 18-10-2008 / 20:31:16 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1477 "Modified: / 23-06-2010 / 19:13:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1478 "Modified: / 08-07-2011 / 13:35:31 / cg" |
1480 "Modified: / 08-07-2011 / 13:35:31 / cg" |
|
1481 "Modified: / 07-10-2011 / 17:58:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1479 ! |
1482 ! |
1480 |
1483 |
1481 implementorsMenu |
1484 implementorsMenu |
1482 |
1485 |
1483 | selectorAndSelectedText selector selectedText implementors | |
1486 | selectorAndSelectedText selector selectedText implementors | |
2792 ! ! |
2795 ! ! |
2793 |
2796 |
2794 !CodeView2 class methodsFor:'documentation'! |
2797 !CodeView2 class methodsFor:'documentation'! |
2795 |
2798 |
2796 version |
2799 version |
2797 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.28 2011-10-06 12:17:22 cg Exp $' |
2800 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.29 2011-10-07 17:02:04 vrany Exp $' |
2798 ! |
2801 ! |
2799 |
2802 |
2800 version_CVS |
2803 version_CVS |
2801 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.28 2011-10-06 12:17:22 cg Exp $' |
2804 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.29 2011-10-07 17:02:04 vrany Exp $' |
2802 ! |
2805 ! |
2803 |
2806 |
2804 version_SVN |
2807 version_SVN |
2805 ^ '§Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 §' |
2808 ^ '§Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 §' |
2806 ! ! |
2809 ! ! |