equal
deleted
inserted
replaced
3363 imageSeqNr := nil. |
3363 imageSeqNr := nil. |
3364 image := Image fromUser. |
3364 image := Image fromUser. |
3365 image isNil ifFalse:[ |
3365 image isNil ifFalse:[ |
3366 image depth > 8 ifTrue:[ |
3366 image depth > 8 ifTrue:[ |
3367 Object errorSignal handle:[:ex | |sig| |
3367 Object errorSignal handle:[:ex | |sig| |
3368 (sig := ex signal) == Object haltSignal ifTrue:[ex reject]. |
3368 (sig := ex signal) == HaltInterrupt ifTrue:[ex reject]. |
3369 sig == Signal noHandlerSignal ifTrue:[ex reject]. |
3369 sig == Signal noHandlerSignal ifTrue:[ex reject]. |
3370 |
3370 |
3371 self warn:'Could not convert to depth8 image (too many colors)'. |
3371 self warn:'Could not convert to depth8 image (too many colors)'. |
3372 d8image := nil. |
3372 d8image := nil. |
3373 ] do:[ |
3373 ] do:[ |
3386 ] |
3386 ] |
3387 ] |
3387 ] |
3388 afterSeconds:1 |
3388 afterSeconds:1 |
3389 |
3389 |
3390 "Created: / 29.7.1998 / 21:24:42 / cg" |
3390 "Created: / 29.7.1998 / 21:24:42 / cg" |
3391 "Modified: / 10.9.1998 / 16:01:23 / cg" |
3391 "Modified: / 16.11.2001 / 16:21:19 / cg" |
3392 ! |
3392 ! |
3393 |
3393 |
3394 nextImageInSequence |
3394 nextImageInSequence |
3395 "display the next image in the image sequence" |
3395 "display the next image in the image sequence" |
3396 |img seq frame listOfColors| |
3396 |img seq frame listOfColors| |