# HG changeset patch
# User sr
# Date 1143107414 -3600
# Node ID a816ef2ce5167163916f33ee08c73ff2c0b16c3e
# Parent  963042f2c474bc505bb8f4282d95dc3cca18456c
#imagePreView

    '(self componentAt:#imagePreView) subViews'

    throws exception, because 'subViews' is an empty array
    at closing the image editor

    fixed to
        return nil if subViews isEmptyOrNil

diff -r 963042f2c474 -r a816ef2ce516 ImageEditor.st
--- a/ImageEditor.st	Mon Mar 20 22:29:49 2006 +0100
+++ b/ImageEditor.st	Thu Mar 23 10:50:14 2006 +0100
@@ -2821,6 +2821,11 @@
 imagePreView
     "returns the preview of the image"
 
+    "subViews is an empty array at closing image Editor"
+    (self componentAt: #imagePreView) subViews isEmptyOrNil ifTrue:[
+        ^ nil
+    ].
+
     ^ (self componentAt: #imagePreView) subViews first 
 ! !