--- a/ImageEditor.st Fri Apr 01 18:12:37 2011 +0200
+++ b/ImageEditor.st Mon Apr 04 14:05:56 2011 +0200
@@ -1741,6 +1741,7 @@
label: 'Copy Color'
itemValue: copyColorFromColormap
translateLabel: true
+ shortcutKey: Copy
)
(MenuItem
enabled: hasColormapAndColorSelected
@@ -1752,6 +1753,7 @@
label: 'Paste Color'
itemValue: pasteColorIntoColormap
translateLabel: true
+ shortcutKey: Paste
)
(MenuItem
label: '-'
@@ -1784,10 +1786,10 @@
label: '-'
)
(MenuItem
+ enabled: hasColorSelectedHolder
label: 'Inspect Color'
itemValue: inspectColor
translateLabel: true
- enabled: hasColorSelectedHolder
)
(MenuItem
enabled: hasColormapHolder
@@ -1799,8 +1801,6 @@
nil
nil
)
-
- "Modified: / 04-07-2010 / 10:13:57 / cg"
!
menu
@@ -4018,20 +4018,39 @@
processEvent:anEvent
"Return true, if I have eaten the event"
- |p|
-
- anEvent view == self imagePreView ifTrue:[
- ((anEvent isButtonPressEvent and:[ anEvent button == 1 ])
- or:[ anEvent isButtonMotionEvent and:[ anEvent hasButton1 ]]) ifTrue:[
- p := anEvent x @ anEvent y.
- anEvent view transformation notNil ifTrue:[
- p := anEvent view transformation applyInverseTo:p.
+ |view focusView p transformation|
+
+ view := anEvent view.
+ view notNil ifTrue:[
+ view == self imagePreView ifTrue:[
+ ((anEvent isButtonPressEvent and:[ anEvent button == 1 ])
+ or:[ anEvent isButtonMotionEvent and:[ anEvent hasButton1 ]]) ifTrue:[
+ p := anEvent x @ anEvent y.
+ (transformation := view transformation) notNil ifTrue:[
+ p := transformation applyInverseTo:p.
+ ].
+ self imageEditView scrollToMakeVisible:p.
+ ^ true.
].
- self imageEditView scrollToMakeVisible:p.
- ^ true.
+ ].
+
+ anEvent isKeyPressEvent ifTrue:[
+ focusView := view windowGroup focusView ? view.
+ (focusView isComponentOf:(builder componentAt:#colorDataSetView)) ifTrue:[
+ anEvent key == #Paste ifTrue:[
+ self pasteColorIntoColormap.
+ ^ true.
+ ].
+ anEvent key == #Copy ifTrue:[
+ self copyColorFromColormap.
+ ^ true.
+ ].
+ ].
].
].
^ false.
+
+ "Modified: / 04-04-2011 / 13:50:09 / cg"
! !
!ImageEditor methodsFor:'help'!