# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1200581400 -3600
# Node ID 720b0784c6f2563a0fc6bd7812146c3dda34aab0
# Parent  a1a7ec09adff42cf64c5d4641c0c65d83215beea
*** empty log message ***

diff -r a1a7ec09adff -r 720b0784c6f2 UIPainterView.st
--- a/UIPainterView.st	Thu Jan 17 15:49:03 2008 +0100
+++ b/UIPainterView.st	Thu Jan 17 15:50:00 2008 +0100
@@ -631,14 +631,31 @@
     "Created: / 16-01-2008 / 17:46:08 / cg"
 !
 
-useSketch:aFilename
-    sketchPainter := TOPFileDrawer new.
+useSketchFile:aFilename 
+    |mime sketchPainterClass|
+
+    mime := aFilename asFilename mimeTypeFromName.
+    mime isNil ifTrue:[
+        mime := aFilename asFilename mimeTypeOfContents.
+    ].
+
+    mime notNil ifTrue:[
+        mime = 'application/x-waltop-digital-notepad' ifTrue:[
+            sketchPainterClass := TOPFileDrawer.
+        ].
+    ].
+    sketchPainterClass isNil ifTrue:[
+        self error:'unsupported sketch file format'
+    ].
+
+    sketchPainter := sketchPainterClass new.
     sketchPainter targetView:self.
     sketchPainter readFile:aFilename.
     sketchPainter ajustSketch.
     self invalidate.
 
     "Created: / 16-01-2008 / 17:46:26 / cg"
+
 ! !
 
 !UIPainterView methodsFor:'event handling'!
@@ -1589,12 +1606,12 @@
     |cls|
 
     className isNil ifTrue:[
-	self warn:'No TargetClass defined !!'.
-	^ nil
+        self warn:'No TargetClass defined !!'.
+        ^ nil
     ].
     (cls := self resolveName:className) isNil ifTrue:[
-	self warn:('Class ', className asString, ' does not exist !!').
-	^ nil
+"/        self warn:('Class ', className asString, ' does not exist !!').
+        ^ nil
     ].
     ^ cls.
 ! !