equal
deleted
inserted
replaced
629 ]. |
629 ]. |
630 |
630 |
631 "Created: / 16-01-2008 / 17:46:08 / cg" |
631 "Created: / 16-01-2008 / 17:46:08 / cg" |
632 ! |
632 ! |
633 |
633 |
634 useSketch:aFilename |
634 useSketchFile:aFilename |
635 sketchPainter := TOPFileDrawer new. |
635 |mime sketchPainterClass| |
|
636 |
|
637 mime := aFilename asFilename mimeTypeFromName. |
|
638 mime isNil ifTrue:[ |
|
639 mime := aFilename asFilename mimeTypeOfContents. |
|
640 ]. |
|
641 |
|
642 mime notNil ifTrue:[ |
|
643 mime = 'application/x-waltop-digital-notepad' ifTrue:[ |
|
644 sketchPainterClass := TOPFileDrawer. |
|
645 ]. |
|
646 ]. |
|
647 sketchPainterClass isNil ifTrue:[ |
|
648 self error:'unsupported sketch file format' |
|
649 ]. |
|
650 |
|
651 sketchPainter := sketchPainterClass new. |
636 sketchPainter targetView:self. |
652 sketchPainter targetView:self. |
637 sketchPainter readFile:aFilename. |
653 sketchPainter readFile:aFilename. |
638 sketchPainter ajustSketch. |
654 sketchPainter ajustSketch. |
639 self invalidate. |
655 self invalidate. |
640 |
656 |
641 "Created: / 16-01-2008 / 17:46:26 / cg" |
657 "Created: / 16-01-2008 / 17:46:26 / cg" |
|
658 |
642 ! ! |
659 ! ! |
643 |
660 |
644 !UIPainterView methodsFor:'event handling'! |
661 !UIPainterView methodsFor:'event handling'! |
645 |
662 |
646 keyPress:key x:x y:y view:aView |
663 keyPress:key x:x y:y view:aView |
1587 |
1604 |
1588 targetClass |
1605 targetClass |
1589 |cls| |
1606 |cls| |
1590 |
1607 |
1591 className isNil ifTrue:[ |
1608 className isNil ifTrue:[ |
1592 self warn:'No TargetClass defined !!'. |
1609 self warn:'No TargetClass defined !!'. |
1593 ^ nil |
1610 ^ nil |
1594 ]. |
1611 ]. |
1595 (cls := self resolveName:className) isNil ifTrue:[ |
1612 (cls := self resolveName:className) isNil ifTrue:[ |
1596 self warn:('Class ', className asString, ' does not exist !!'). |
1613 "/ self warn:('Class ', className asString, ' does not exist !!'). |
1597 ^ nil |
1614 ^ nil |
1598 ]. |
1615 ]. |
1599 ^ cls. |
1616 ^ cls. |
1600 ! ! |
1617 ! ! |
1601 |
1618 |
1602 !UIPainterView methodsFor:'grid manipulation'! |
1619 !UIPainterView methodsFor:'grid manipulation'! |