equal
deleted
inserted
replaced
789 mime isNil ifTrue:[ |
789 mime isNil ifTrue:[ |
790 mime := aFilename asFilename mimeTypeOfContents. |
790 mime := aFilename asFilename mimeTypeOfContents. |
791 ]. |
791 ]. |
792 |
792 |
793 mime notNil ifTrue:[ |
793 mime notNil ifTrue:[ |
794 mime = 'application/x-waltop-digital-notepad' ifTrue:[ |
|
795 sketchPainterClass := TOPFileDrawer. |
|
796 ]. |
|
797 (mime startsWith:'image') ifTrue:[ |
794 (mime startsWith:'image') ifTrue:[ |
798 self viewBackground:(ImageReader fromFile:aFilename). |
795 self viewBackground:(ImageReader fromFile:aFilename). |
799 ^ self. |
796 ^ self. |
800 ]. |
797 ]. |
|
798 mime = 'application/x-waltop-digital-notepad' ifTrue:[ |
|
799 sketchPainterClass := TOPFileDrawer. |
|
800 ]. |
801 ]. |
801 ]. |
802 sketchPainterClass isNil ifTrue:[ |
802 sketchPainterClass isNil ifTrue:[ |
803 self error:'unsupported sketch file format' |
803 self error:'Unsupported sketch file format' |
804 ]. |
804 ]. |
805 |
805 |
806 sketchPainter := sketchPainterClass new. |
806 sketchPainter := sketchPainterClass new. |
807 sketchPainter targetView:self. |
807 sketchPainter targetView:self. |
808 sketchPainter readFile:aFilename. |
808 sketchPainter readFile:aFilename. |