# HG changeset patch # User Stefan Vogel # Date 1203359541 -3600 # Node ID 8ff3bd6f082091599ca4de47bc192deff9bf3dd7 # Parent 342f25e2c2761d74a535d76ab932a9f34ab0f381 Allow to load background from image file #useSketchFile: diff -r 342f25e2c276 -r 8ff3bd6f0820 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'!