--- 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.