equal
deleted
inserted
replaced
1536 |
1536 |
1537 showImagePreview:image |
1537 showImagePreview:image |
1538 |imgView| |
1538 |imgView| |
1539 |
1539 |
1540 imgView := builder componentAt:#Preview. |
1540 imgView := builder componentAt:#Preview. |
1541 |
1541 (imgView isNil or:[imgView scrolledView]) isNil ifTrue:[^ self]. |
1542 imgView adjust:#fitBig. |
1542 imgView adjust:#fitBig. |
1543 imgView image:image. |
1543 imgView image:image. |
|
1544 |
|
1545 "Modified: / 05-02-2007 / 10:52:03 / cg" |
1544 ! |
1546 ! |
1545 |
1547 |
1546 showPreview |
1548 showPreview |
1547 |shownImage lbl previewLabel| |
1549 |shownImage lbl previewLabel| |
1548 |
1550 |
1867 ! ! |
1869 ! ! |
1868 |
1870 |
1869 !FileBrowserV2 class methodsFor:'documentation'! |
1871 !FileBrowserV2 class methodsFor:'documentation'! |
1870 |
1872 |
1871 version |
1873 version |
1872 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.163 2007-01-22 10:19:15 cg Exp $' |
1874 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.164 2007-02-05 09:52:42 cg Exp $' |
1873 ! ! |
1875 ! ! |
1874 |
1876 |
1875 FileBrowserV2 initialize! |
1877 FileBrowserV2 initialize! |