equal
deleted
inserted
replaced
776 |
776 |
777 "Created: / 16-01-2008 / 17:46:08 / cg" |
777 "Created: / 16-01-2008 / 17:46:08 / cg" |
778 ! |
778 ! |
779 |
779 |
780 useSketchFile:aFilename |
780 useSketchFile:aFilename |
|
781 "a little neat goody: allow for a tablet-sketch file (WALTROP digital notepad) |
|
782 to be used as a background of the UIPainter window. This allows for sketches to |
|
783 be drawn, shown in the UIPainter, and then used as a placement hint (manual placement) |
|
784 for the user. Not a high-tech solution, but helped a lot, when we protoyped GUIs." |
|
785 |
781 |mime sketchPainterClass| |
786 |mime sketchPainterClass| |
782 |
787 |
783 mime := aFilename asFilename mimeTypeFromName. |
788 mime := aFilename asFilename mimeTypeFromName. |
784 mime isNil ifTrue:[ |
789 mime isNil ifTrue:[ |
785 mime := aFilename asFilename mimeTypeOfContents. |
790 mime := aFilename asFilename mimeTypeOfContents. |