--- a/Tools__CodeView2.st Thu Aug 29 12:20:29 2013 +0100
+++ b/Tools__CodeView2.st Thu Aug 29 21:55:45 2013 +0100
@@ -223,126 +223,113 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: 'Implementors...'
- itemValue: browseImplementorsOfIt
- translateLabel: true
- submenuChannel: implementorsMenu
- shortcutKey: ImplementorsOfIt
- )
- (MenuItem
- label: 'Senders...'
- itemValue: browseSendersOfIt
- translateLabel: true
- submenuChannel: sendersMenu
- shortcutKey: SendersOfIt
- )
- (MenuItem
- label: 'Refactor'
- nameKey: refactor
- translateLabel: true
- isVisible: false
- shortcutKey: Shift
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Accept'
- itemValue: accept
- translateLabel: true
- shortcutKey: Accept
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Cut'
- itemValue: cut
- translateLabel: true
- shortcutKey: Cut
- )
- (MenuItem
- label: 'Copy'
- itemValue: copySelection
- translateLabel: true
- shortcutKey: Copy
- )
- (MenuItem
- label: 'Paste'
- itemValue: pasteOrReplace
- translateLabel: true
- shortcutKey: Paste
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Undo'
- itemValue: undo
- translateLabel: true
- shortcutKey: Undo
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Do it'
- itemValue: doIt
- translateLabel: true
- shortcutKey: DoIt
- )
- (MenuItem
- label: 'Print it'
- itemValue: printIt
- translateLabel: true
- shortcutKey: PrintIt
- )
- (MenuItem
- label: 'Inspect it'
- itemValue: inspectIt
- translateLabel: true
- shortcutKey: InspectIt
- )
- (MenuItem
- label: 'Profile it'
- itemValue: profileIt
- translateLabel: true
- shortcutKey: InspectIt
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Show Gutter'
- nameKey: ShowGutter
- translateLabel: true
- indication: showGutterChannel
- )
- (MenuItem
- label: 'More'
- nameKey: More
- translateLabel: true
- )
- (MenuItem
- label: 'Services'
- translateLabel: true
- submenuChannel: servicesMenu
- )
- (MenuItem
- label: 'Debug'
- translateLabel: true
- submenuChannel: debugMenu
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'Implementors...'
+ itemValue: browseImplementorsOfIt
+ submenuChannel: implementorsMenu
+ shortcutKey: ImplementorsOfIt
+ )
+ (MenuItem
+ label: 'Senders...'
+ itemValue: browseSendersOfIt
+ submenuChannel: sendersMenu
+ shortcutKey: SendersOfIt
+ )
+ (MenuItem
+ label: 'Refactor'
+ nameKey: refactor
+ isVisible: false
+ shortcutKey: Shift
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Accept'
+ itemValue: accept
+ shortcutKey: Accept
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Cut'
+ itemValue: cut
+ shortcutKey: Cut
+ )
+ (MenuItem
+ label: 'Copy'
+ itemValue: copySelection
+ shortcutKey: Copy
+ )
+ (MenuItem
+ label: 'Paste'
+ itemValue: pasteOrReplace
+ shortcutKey: Paste
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Undo'
+ itemValue: undo
+ shortcutKey: Undo
+ )
+ (MenuItem
+ label: 'Redo'
+ itemValue: redo
+ shortcutKey: Redo
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Do it'
+ itemValue: doIt
+ shortcutKey: DoIt
+ )
+ (MenuItem
+ label: 'Print it'
+ itemValue: printIt
+ shortcutKey: PrintIt
+ )
+ (MenuItem
+ label: 'Inspect it'
+ itemValue: inspectIt
+ shortcutKey: InspectIt
+ )
+ (MenuItem
+ label: 'Profile it'
+ itemValue: profileIt
+ shortcutKey: InspectIt
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Show Gutter'
+ nameKey: ShowGutter
+ indication: showGutterChannel
+ )
+ (MenuItem
+ label: 'More'
+ nameKey: More
+ )
+ (MenuItem
+ label: 'Services'
+ submenuChannel: servicesMenu
+ )
+ (MenuItem
+ label: 'Debug'
+ submenuChannel: debugMenu
+ )
+ )
+ nil
+ nil
)
-
- "Modified: / 08-03-2012 / 12:36:18 / cg"
!
editMenu_stxStyle