equal
deleted
inserted
replaced
400 'Resize the image (preserving the old image).' |
400 'Resize the image (preserving the old image).' |
401 |
401 |
402 #editRotate |
402 #editRotate |
403 'Rotate the image.' |
403 'Rotate the image.' |
404 |
404 |
405 #fileGrabImage |
405 #fileGrabImageFromScreen |
406 'Pick an image from the screen.' |
406 'Pick an image from the screen (specify area).' |
|
407 |
|
408 #fileGrabImageFromWindow |
|
409 'Pick an image from a window on the screen (click on window).' |
407 |
410 |
408 #fileLoadFromClass |
411 #fileLoadFromClass |
409 'Select and load an image from a resource method.' |
412 'Select and load an image from a resource method.' |
410 |
413 |
411 #fileLoadFromFile |
414 #fileLoadFromFile |
2333 label: 'Load from File...' |
2336 label: 'Load from File...' |
2334 itemValue: doLoadFromFile |
2337 itemValue: doLoadFromFile |
2335 translateLabel: true |
2338 translateLabel: true |
2336 ) |
2339 ) |
2337 (MenuItem |
2340 (MenuItem |
2338 activeHelpKey: fileGrabImage |
2341 activeHelpKey: fileGrabImageFromScreen |
2339 label: 'Grab from Screen...' |
2342 label: 'Grab from Screen...' |
2340 itemValue: grabScreenImage |
2343 itemValue: grabScreenImage |
|
2344 translateLabel: true |
|
2345 ) |
|
2346 (MenuItem |
|
2347 activeHelpKey: fileGrabImageFromWindow |
|
2348 label: 'Grab from Window...' |
|
2349 itemValue: grabWindowImage |
2341 translateLabel: true |
2350 translateLabel: true |
2342 ) |
2351 ) |
2343 (MenuItem |
2352 (MenuItem |
2344 enabled: imageHasNextImage |
2353 enabled: imageHasNextImage |
2345 label: 'Next in Sequence' |
2354 label: 'Next in Sequence' |
5914 ! |
5923 ! |
5915 |
5924 |
5916 grabScreenImage |
5925 grabScreenImage |
5917 "let user choose an area and grab that are for editing" |
5926 "let user choose an area and grab that are for editing" |
5918 |
5927 |
|
5928 self grabScreenImageUsing:[ Image fromUser ]. |
|
5929 ! |
|
5930 |
|
5931 grabScreenImageUsing:aBlock |
|
5932 "let user choose an area and grab that are for editing" |
|
5933 |
5919 self checkModified ifFalse:[ ^ self ]. |
5934 self checkModified ifFalse:[ ^ self ]. |
5920 |
5935 |
5921 Processor |
5936 Processor |
5922 addTimedBlock:[ |
5937 addTimedBlock:[ |
5923 |image d8image img| |
5938 |image d8image img| |
5924 |
5939 |
5925 imageSeqNr := nil. |
5940 imageSeqNr := nil. |
5926 image := Image fromUser. |
5941 image := aBlock value. |
5927 image isNil ifFalse:[ |
5942 image isNil ifFalse:[ |
5928 image depth > 8 ifTrue:[ |
5943 image depth > 8 ifTrue:[ |
5929 false ifTrue:[ |
5944 false ifTrue:[ |
5930 Error handle:[:ex | |sig| |
5945 Error handle:[:ex | |sig| |
5931 (sig := ex signal) == HaltInterrupt ifTrue:[ex reject]. |
5946 (sig := ex signal) == HaltInterrupt ifTrue:[ex reject]. |
5952 |
5967 |
5953 "Created: / 29.7.1998 / 21:24:42 / cg" |
5968 "Created: / 29.7.1998 / 21:24:42 / cg" |
5954 "Modified: / 16.11.2001 / 16:21:19 / cg" |
5969 "Modified: / 16.11.2001 / 16:21:19 / cg" |
5955 ! |
5970 ! |
5956 |
5971 |
|
5972 grabWindowImage |
|
5973 "let user choose an area and grab that are for editing" |
|
5974 |
|
5975 self grabScreenImageUsing:[ |
|
5976 |v| |
|
5977 |
|
5978 (v := Screen current viewFromUser) notNil ifTrue:[ |
|
5979 Image fromView:(v topView) |
|
5980 ]. |
|
5981 ]. |
|
5982 ! |
|
5983 |
5957 nextImageInSequence |
5984 nextImageInSequence |
5958 "display the next image in the image sequence" |
5985 "display the next image in the image sequence" |
5959 |img seq frame listOfColors| |
5986 |img seq frame listOfColors| |
5960 |
5987 |
5961 imageEditView releaseUndos. |
5988 imageEditView releaseUndos. |