equal
deleted
inserted
replaced
6800 |
6800 |
6801 grabWindowImage |
6801 grabWindowImage |
6802 "let user choose an area and grab that are for editing" |
6802 "let user choose an area and grab that are for editing" |
6803 |
6803 |
6804 self grabScreenImageUsing:[ |
6804 self grabScreenImageUsing:[ |
6805 |v| |
6805 |v topView| |
6806 |
6806 |
6807 (v := Screen current viewFromUser) notNil ifTrue:[ |
6807 (v := Screen current viewFromUser) notNil ifTrue:[ |
6808 v topView raise. |
6808 topView := v topView. |
6809 v topView makeFullyVisible. |
6809 topView raise; makeFullyVisible. |
6810 Delay waitForSeconds:0.5. "/ give view a chance to redraw itself. |
6810 Delay waitForSeconds:0.5. "/ give view a chance to redraw itself. |
6811 Image fromView:(v topView) |
6811 Image fromView:topView |
6812 ]. |
6812 ]. |
6813 ]. |
6813 ]. |
6814 ! ! |
6814 ! ! |
6815 |
6815 |
6816 !ImageEditor methodsFor:'user actions-saving'! |
6816 !ImageEditor methodsFor:'user actions-saving'! |