Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 14 May 2002 14:22:41 +0200
changeset 3661 b9f9c28b1d01
parent 3660 e7c944b64655
child 3662 925e26a21892
*** empty log message ***
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FileBrowser.st	Tue May 14 14:09:09 2002 +0200
+++ b/FileBrowser.st	Tue May 14 14:22:41 2002 +0200
@@ -3562,14 +3562,15 @@
 
 openImagePreview
     [self loadImageAndPerform:[:img |
-                                |i top viewer|
+                                |i top viewer imgFileName|
 
                                 top := StandardSystemView new.
 
                                 viewer := ImageView origin:0.0@0.0 corner:1.0@1.0 in:top.
                                 i := img.
                                 top extent:200@200.
-                                top label:(img fileName asFilename directoryName asFilename baseName , '/' , img fileName asFilename baseName).
+                                imgFileName := img fileName asFilename.
+                                top label:(imgFileName directoryName asFilename baseName , '/' , imgFileName baseName).
                                 top openAndWait.
 
                                 (i width > 200 or:[i height > 200]) ifTrue:[
@@ -7806,5 +7807,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.467 2002-05-14 09:26:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.468 2002-05-14 12:22:41 cg Exp $'
 ! !
hg/stx-libtool