Allow to load background from image file #useSketchFile:
authorStefan Vogel <sv@exept.de>
Mon, 18 Feb 2008 19:32:21 +0100
changeset 2278 8ff3bd6f0820
parent 2277 342f25e2c276
child 2279 f077161d5d57
Allow to load background from image file #useSketchFile:
UIPainterView.st
--- a/UIPainterView.st	Mon Feb 18 09:37:55 2008 +0100
+++ b/UIPainterView.st	Mon Feb 18 19:32:21 2008 +0100
@@ -708,6 +708,10 @@
         mime = 'application/x-waltop-digital-notepad' ifTrue:[
             sketchPainterClass := TOPFileDrawer.
         ].
+        (mime startsWith:'image') ifTrue:[
+            self viewBackground:(ImageReader fromFile:aFilename).
+            ^ self.
+        ].
     ].
     sketchPainterClass isNil ifTrue:[
         self error:'unsupported sketch file format'
@@ -720,7 +724,6 @@
     self invalidate.
 
     "Created: / 16-01-2008 / 17:46:26 / cg"
-
 ! !
 
 !UIPainterView methodsFor:'event handling'!