equal
deleted
inserted
replaced
3463 (MenuItem |
3463 (MenuItem |
3464 activeHelpKey: fileGrabImageFromWindow |
3464 activeHelpKey: fileGrabImageFromWindow |
3465 label: 'Grab from Window...' |
3465 label: 'Grab from Window...' |
3466 itemValue: grabWindowImage |
3466 itemValue: grabWindowImage |
3467 ) |
3467 ) |
|
3468 (MenuItem |
|
3469 activeHelpKey: fileGrabFullSreenImage |
|
3470 label: 'Grab from whole Screen' |
|
3471 itemValue: grabFullScreenImage |
|
3472 ) |
3468 ) |
3473 ) |
3469 nil |
3474 nil |
3470 nil |
3475 nil |
3471 ) |
3476 ) |
3472 ) |
3477 ) |
3556 ) |
3561 ) |
3557 nil |
3562 nil |
3558 nil |
3563 nil |
3559 ) |
3564 ) |
3560 |
3565 |
3561 "Modified: / 18-02-2017 / 00:41:36 / cg" |
3566 "Modified: / 25-02-2017 / 12:40:30 / cg" |
3562 ! |
3567 ! |
3563 |
3568 |
3564 menuMouseButtonColors |
3569 menuMouseButtonColors |
3565 "This resource specification was automatically generated |
3570 "This resource specification was automatically generated |
3566 by the MenuEditor of ST/X." |
3571 by the MenuEditor of ST/X." |
8164 self updateAfterImageChange. |
8169 self updateAfterImageChange. |
8165 |
8170 |
8166 "Modified (comment): / 16-02-2017 / 10:22:19 / cg" |
8171 "Modified (comment): / 16-02-2017 / 10:22:19 / cg" |
8167 ! |
8172 ! |
8168 |
8173 |
|
8174 grabFullScreenImage |
|
8175 "grab all for editing" |
|
8176 |
|
8177 self grabScreenImageUsing:[ |
|
8178 Image fromScreen |
|
8179 ]. |
|
8180 |
|
8181 "Created: / 25-02-2017 / 12:41:29 / cg" |
|
8182 ! |
|
8183 |
8169 grabScreenImage |
8184 grabScreenImage |
8170 "let user choose an area and grab that are for editing" |
8185 "let user choose an area and grab that area for editing" |
8171 |
8186 |
8172 self grabScreenImageUsing:[ |
8187 self grabScreenImageUsing:[ |
8173 |r| |
8188 |r| |
8174 |
8189 |
8175 [Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05]. |
8190 [Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05]. |
8179 ] ifFalse:[ |
8194 ] ifFalse:[ |
8180 lastGrabbedScreenArea := r. |
8195 lastGrabbedScreenArea := r. |
8181 Image fromScreen:r |
8196 Image fromScreen:r |
8182 ] |
8197 ] |
8183 ]. |
8198 ]. |
|
8199 |
|
8200 "Modified (comment): / 25-02-2017 / 12:41:00 / cg" |
8184 ! |
8201 ! |
8185 |
8202 |
8186 grabScreenImageFromLastArea |
8203 grabScreenImageFromLastArea |
8187 "grab again from the previous area for editing" |
8204 "grab again from the previous area for editing" |
8188 |
8205 |
8190 Image fromScreen:lastGrabbedScreenArea |
8207 Image fromScreen:lastGrabbedScreenArea |
8191 ]. |
8208 ]. |
8192 ! |
8209 ! |
8193 |
8210 |
8194 grabScreenImageUsing:aBlock |
8211 grabScreenImageUsing:aBlock |
8195 "let user choose an area and grab that are for editing" |
8212 "let user choose an area and grab that area for editing" |
8196 |
8213 |
8197 self checkModified ifFalse:[ ^ self ]. |
8214 self checkModified ifFalse:[ ^ self ]. |
8198 |
8215 |
8199 Processor |
8216 Processor |
8200 addTimedBlock:[ |
8217 addTimedBlock:[ |
8226 ] |
8243 ] |
8227 ] |
8244 ] |
8228 ] |
8245 ] |
8229 afterSeconds:1 |
8246 afterSeconds:1 |
8230 |
8247 |
8231 "Created: / 29.7.1998 / 21:24:42 / cg" |
8248 "Created: / 29-07-1998 / 21:24:42 / cg" |
8232 "Modified: / 16.11.2001 / 16:21:19 / cg" |
8249 "Modified: / 16-11-2001 / 16:21:19 / cg" |
|
8250 "Modified (comment): / 25-02-2017 / 12:41:06 / cg" |
8233 ! |
8251 ! |
8234 |
8252 |
8235 grabWindowImage |
8253 grabWindowImage |
8236 "let user choose an area and grab that are for editing" |
8254 "let user choose a window and grab its area for editing" |
8237 |
8255 |
8238 self grabScreenImageUsing:[ |
8256 self grabScreenImageUsing:[ |
8239 |v topView| |
8257 |v topView| |
8240 |
8258 |
8241 (v := Screen current viewFromUser) notNil ifTrue:[ |
8259 (v := Screen current viewFromUser) notNil ifTrue:[ |
8243 topView raise; makeFullyVisible. |
8261 topView raise; makeFullyVisible. |
8244 Delay waitForSeconds:0.5. "/ give view a chance to redraw itself. |
8262 Delay waitForSeconds:0.5. "/ give view a chance to redraw itself. |
8245 Image fromView:topView |
8263 Image fromView:topView |
8246 ]. |
8264 ]. |
8247 ]. |
8265 ]. |
|
8266 |
|
8267 "Modified (comment): / 25-02-2017 / 12:41:20 / cg" |
8248 ! ! |
8268 ! ! |
8249 |
8269 |
8250 !ImageEditor methodsFor:'user actions-saving'! |
8270 !ImageEditor methodsFor:'user actions-saving'! |
8251 |
8271 |
8252 doPrint |
8272 doPrint |