equal
deleted
inserted
replaced
886 |
886 |
887 imageFromFile := false. |
887 imageFromFile := false. |
888 (image := aGC registeredImageAt: fileName name asSymbol) isNil |
888 (image := aGC registeredImageAt: fileName name asSymbol) isNil |
889 ifTrue:[ |
889 ifTrue:[ |
890 size < maxImageFileSize ifTrue:[ |
890 size < maxImageFileSize ifTrue:[ |
891 Object errorSignal handle: [:ex|] |
891 Error handle: [:ex|] |
892 do:[ |
892 do:[ |
893 (image := Image fromFile: fileName name) notNil ifTrue:[ |
893 (image := Image fromFile: fileName name) notNil ifTrue:[ |
894 image extent y > 22 ifTrue:[ |
894 image extent y > 22 ifTrue:[ |
895 image := image magnifiedBy: 22/image extent y |
895 image := image magnifiedBy: 22/image extent y |
896 ]. |
896 ]. |
899 ] |
899 ] |
900 ]. |
900 ]. |
901 ]. |
901 ]. |
902 image notNil ifTrue: [imageFromFile := true. iconKey := fileName name asSymbol]. |
902 image notNil ifTrue: [imageFromFile := true. iconKey := fileName name asSymbol]. |
903 ^image |
903 ^image |
904 |
|
905 |
|
906 |
|
907 ! |
904 ! |
908 |
905 |
909 size |
906 size |
910 size isNumber ifFalse:[^ size]. |
907 size isNumber ifFalse:[^ size]. |
911 size < 1000 ifTrue: [^ size printString]. |
908 size < 1000 ifTrue: [^ size printString]. |
970 !DirectoryView class methodsFor:'documentation'! |
967 !DirectoryView class methodsFor:'documentation'! |
971 |
968 |
972 version |
969 version |
973 ^ '$Header$' |
970 ^ '$Header$' |
974 ! ! |
971 ! ! |
|
972 |