equal
deleted
inserted
replaced
307 |fn mime image| |
307 |fn mime image| |
308 |
308 |
309 super fileSelectionChanged. |
309 super fileSelectionChanged. |
310 ((fn := self filenameHolder value) notNil and:[ fn exists ]) ifTrue:[ |
310 ((fn := self filenameHolder value) notNil and:[ fn exists ]) ifTrue:[ |
311 (mime := fn mimeTypeFromName) notNil ifTrue:[ |
311 (mime := fn mimeTypeFromName) notNil ifTrue:[ |
312 mime isImage ifTrue:[ |
312 mime isImageType ifTrue:[ |
313 image := Image fromFile:fn. |
313 image := Image fromFile:fn. |
314 imagePreview image:image. |
314 imagePreview image:image. |
315 ]. |
315 ]. |
316 ]. |
316 ]. |
317 ]. |
317 ]. |
328 ! ! |
328 ! ! |
329 |
329 |
330 !FileDialogWithPreview class methodsFor:'documentation'! |
330 !FileDialogWithPreview class methodsFor:'documentation'! |
331 |
331 |
332 version |
332 version |
333 ^ '$Header: /cvs/stx/stx/libtool/FileDialogWithPreview.st,v 1.5 2013-06-07 13:23:56 cg Exp $' |
333 ^ '$Header: /cvs/stx/stx/libtool/FileDialogWithPreview.st,v 1.6 2013-12-07 10:46:29 cg Exp $' |
334 ! |
334 ! |
335 |
335 |
336 version_CVS |
336 version_CVS |
337 ^ '$Header: /cvs/stx/stx/libtool/FileDialogWithPreview.st,v 1.5 2013-06-07 13:23:56 cg Exp $' |
337 ^ '$Header: /cvs/stx/stx/libtool/FileDialogWithPreview.st,v 1.6 2013-12-07 10:46:29 cg Exp $' |
338 ! ! |
338 ! ! |
339 |
339 |