--- a/FileBrowserV2.st	Mon Nov 18 11:08:45 2002 +0100
+++ b/FileBrowserV2.st	Mon Nov 18 11:09:00 2002 +0100
@@ -456,7 +456,7 @@
           #label: #FileBrowser
           #name: #FileBrowser
           #min: #(#Point 10 10)
-          #bounds: #(#Rectangle 16 46 816 646)
+          #bounds: #(#Rectangle -135 48 665 648)
           #menu: #mainMenu
           #icon: #applicationIcon
         )
@@ -656,11 +656,11 @@
                  #(#LabelSpec
                     #label: 'Shown Files'
                     #name: 'Label1'
-                    #layout: #(#LayoutFrame -50 1 1 0.0 1 1 1 1.0)
+                    #layout: #(#LayoutFrame -188 1 1 0.0 1 1 1 1.0)
                     #level: -1
                     #translateLabel: true
                     #labelChannel: #shownFiles
-                    #adjust: #left
+                    #adjust: #right
                     #postBuildCallback: #postBuildFilterBox:
                   )
                  )
@@ -678,7 +678,7 @@
               #translateLabel: true
             )
            #(#ArbitraryComponentSpec
-              #name: 'ImagePreview'
+              #name: 'Preview'
               #layout: #(#LayoutFrame 0 0.5 63 0 -147 1 -319 1)
               #level: 1
               #visibilityChannel: #previewVisibleHolder
@@ -1140,15 +1140,26 @@
     ^ nil.
 !
 
-showPreview:image
+showImagePreview:image
     |imgView|
 
-    imgView := builder componentAt:#ImagePreview.
+    imgView := builder componentAt:#Preview.
 
     imgView adjust:#fitBig.
     imgView image:image.
 !
 
+showPreview
+    |shownImage lbl previewLabel|
+
+    shownImage := self selectedImage.
+    lbl := shownImage ifNil:'Preview' ifNotNil:[ shownImage fileName asFilename baseName ].
+
+    previewLabel := builder componentAt:#PreviewLabel.
+    previewLabel label:lbl; forceResizeHorizontally.     
+    self enqueueMessage:#'showImagePreview:' for:self arguments:(Array with:shownImage).        
+!
+
 update:something with:aParameter from:changedObject
 
 
@@ -1182,7 +1193,7 @@
     |previewLabel imgView shownImage plug|
 
     shownImage := nil.
-    imgView := builder componentAt:#ImagePreview.
+    imgView := builder componentAt:#Preview.
     previewLabel := builder componentAt:#PreviewLabel.
 
     self previewVisibleHolder value ifTrue:[
@@ -1201,10 +1212,7 @@
                                 oldBg := previewLabel backgroundColor.
                                 previewLabel backgroundColor:(Color red lightened lightened).
                                 [
-                                    shownImage := self selectedImage.
-                                    lbl := shownImage ifNil:'Preview' ifNotNil:[ shownImage fileName asFilename baseName ].
-                                    previewLabel label:lbl; forceResizeHorizontally.     
-                                    self enqueueMessage:#'showPreview:' for:self arguments:(Array with:shownImage).        
+                                    self showPreview.
                                     previewProcess := nil.
                                 ] ensure:[
                                     previewLabel backgroundColor:oldBg.
@@ -1473,7 +1481,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.49 2002-11-15 21:11:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.50 2002-11-18 10:09:00 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!