--- a/WorkspaceApplication.st Sat Dec 20 00:03:00 2008 +0100
+++ b/WorkspaceApplication.st Sat Dec 20 00:21:59 2008 +0100
@@ -525,7 +525,7 @@
label: 'Cut'
itemValue: cutSelection
translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary cut16x16Icon2)
+ labelImage: (ResourceRetriever ToolbarIconLibrary cut16x16Icon)
isButton: true
)
(MenuItem
@@ -548,6 +548,25 @@
label: '-'
)
(MenuItem
+ activeHelpKey: editUndo
+ label: 'Undo'
+ itemValue: undo
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary undo16x16Icon)
+ isButton: true
+ )
+ (MenuItem
+ activeHelpKey: editRedo
+ label: 'Redo'
+ itemValue: redo
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary redo16x16Icon)
+ isButton: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
activeHelpKey: editSearch
label: 'Search'
itemValue: search
@@ -559,6 +578,14 @@
label: '-'
)
(MenuItem
+ activeHelpKey: doUndent
+ label: 'Undent'
+ itemValue: undent
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary undent16x16Icon)
+ )
+ (MenuItem
activeHelpKey: doIndent
label: 'Indent'
itemValue: indent
@@ -566,14 +593,6 @@
isButton: true
labelImage: (ResourceRetriever ToolbarIconLibrary indent16x16Icon)
)
- (MenuItem
- activeHelpKey: doUndent
- label: 'Undent'
- itemValue: undent
- translateLabel: true
- isButton: true
- labelImage: (ResourceRetriever ToolbarIconLibrary undent16x16Icon)
- )
)
nil
nil
@@ -2498,5 +2517,5 @@
!WorkspaceApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.172 2008-12-19 23:02:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.173 2008-12-19 23:21:59 cg Exp $'
! !