FileBrowserV2.st
changeset 17861 9dbfb502867b
parent 17832 5af985ef9e00
child 17887 12f95a14b043
--- a/FileBrowserV2.st	Fri Dec 22 15:18:48 2017 +0100
+++ b/FileBrowserV2.st	Fri Dec 22 15:19:48 2017 +0100
@@ -2236,38 +2236,39 @@
         previewProcess notNil ifTrue:[
             previewProcess terminate
         ].
-        previewProcess := [
-                                |oldBg lbl|
+        previewProcess := 
+                [
+                    |oldBg lbl|
 
-                                oldBg := previewLabel backgroundColor.
-                                [
-                                    previewLabel backgroundColor:(Color red lightened).
+                    oldBg := previewLabel backgroundColor.
+                    [
+                        previewLabel backgroundColor:(Color red lightened).
 
-                                    shownImage := self selectedImage.
+                        shownImage := self selectedImage.
 
-                                    lbl := shownImage isNil 
-                                                ifTrue:'Preview' 
-                                                ifFalse:[ shownImage fileName asFilename baseName ].
+                        lbl := shownImage isNil 
+                                    ifTrue:'Preview' 
+                                    ifFalse:[ shownImage fileName asFilename baseName ].
 
-                                    previewLabel label:lbl; forceResizeHorizontally.
+                        previewLabel label:lbl; forceResizeHorizontally.
 
-                                    imgView := builder componentAt:#Preview.
-                                    (imgView notNil and:[imgView scrolledView notNil]) ifTrue:[
-                                        imgView image:nil.
-                                        imgView adjust:#fitBig.
+                        imgView := builder componentAt:#Preview.
+                        (imgView notNil and:[imgView scrolledView notNil]) ifTrue:[
+                            imgView image:nil.
+                            imgView adjust:#fitBig.
 
-                                        shownImage notNil ifTrue:[
-                                            imgView image:shownImage.
-                                            previewLabel backgroundColor:(Color red lightened lightened).
-                                            imgView scrolledView repairDamage.
-                                            imgView adjust:#smoothFitBig.
-                                        ].
-                                    ].
-                                    previewProcess := nil.
-                                ] ensure:[
-                                    previewLabel backgroundColor:oldBg.
-                                ].
-                          ] forkAt:7.
+                            shownImage notNil ifTrue:[
+                                imgView image:shownImage.
+                                previewLabel backgroundColor:(Color red lightened lightened).
+                                imgView scrolledView repairDamage.
+                                imgView adjust:#smoothFitBig.
+                            ].
+                        ].
+                        previewProcess := nil.
+                    ] ensure:[
+                        previewLabel backgroundColor:oldBg.
+                    ].
+              ] forkAt:7.
     ] ifFalse:[
         imgView notNil ifTrue:[
             imgView image:nil.