--- 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.
! !