Cut, copy & paste node tree editing icons.
This commit is contained in:
parent
38f7380ff1
commit
ea63230b0e
@ -21,11 +21,22 @@ Class {
|
||||
],
|
||||
#classInstVars : [
|
||||
'dockingBar',
|
||||
'recentNotebooks'
|
||||
'recentNotebooks',
|
||||
'cacheNode'
|
||||
],
|
||||
#category : #'Grafoscopio-UI'
|
||||
}
|
||||
|
||||
{ #category : #accessing }
|
||||
GrafoscopioGUI class >> cacheNode [
|
||||
^ cacheNode
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
GrafoscopioGUI class >> cacheNode: anObject [
|
||||
cacheNode := anObject
|
||||
]
|
||||
|
||||
{ #category : #specs }
|
||||
GrafoscopioGUI class >> defaultSpec [
|
||||
<spec: #default>
|
||||
|
@ -203,14 +203,20 @@ GrafoscopioNotebook >> newWindowMainMenu [
|
||||
group addItem: [ :item |
|
||||
item
|
||||
name: nil;
|
||||
description: 'Undo';
|
||||
icon: Smalltalk ui icons smallUndoIcon;
|
||||
description: 'Cut';
|
||||
icon: Smalltalk ui icons smallCutIcon;
|
||||
action: [ self inform: 'To be implemented...' ] ].
|
||||
group addItem: [ :item |
|
||||
item
|
||||
name: nil;
|
||||
description: 'Redo';
|
||||
icon: Smalltalk ui icons smallRedoIcon;
|
||||
description: 'Copy';
|
||||
icon: Smalltalk ui icons smallCopyIcon;
|
||||
action: [ self inform: 'To be implemented...' ] ].
|
||||
group addItem: [ :item |
|
||||
item
|
||||
name: nil;
|
||||
description: 'Paste';
|
||||
icon: Smalltalk ui icons smallPasteIcon;
|
||||
action: [ self inform: 'To be implemented...' ] ]];
|
||||
addGroup: [ :group |
|
||||
group addItem: [ :item |
|
||||
|
Loading…
Reference in New Issue
Block a user