equal
deleted
inserted
replaced
1555 self specTool specification hierarchicalList:editor selectorName asSymbol. |
1555 self specTool specification hierarchicalList:editor selectorName asSymbol. |
1556 self modifiedChannel value:true. |
1556 self modifiedChannel value:true. |
1557 self accept |
1557 self accept |
1558 ] |
1558 ] |
1559 ] |
1559 ] |
1560 ! |
|
1561 |
|
1562 setMaxExtent |
|
1563 "set the windows maxExtent from its current extent" |
|
1564 |
|
1565 self painter setMaxExtent |
|
1566 |
|
1567 "Modified: / 27.10.1997 / 03:22:58 / cg" |
|
1568 ! |
|
1569 |
|
1570 setMinExtent |
|
1571 "set the windows minExtent from its current extent" |
|
1572 |
|
1573 self painter setMinExtent |
|
1574 |
|
1575 "Modified: / 27.10.1997 / 03:23:10 / cg" |
|
1576 ! ! |
1560 ! ! |
1577 |
1561 |
1578 !UIPainter methodsFor:'aspects'! |
1562 !UIPainter methodsFor:'aspects'! |
1579 |
1563 |
1580 canMoveOrAlignSelection |
1564 canMoveOrAlignSelection |
2633 |cls app infoMessage| |
2617 |cls app infoMessage| |
2634 |
2618 |
2635 self isModified ifTrue:[ |
2619 self isModified ifTrue:[ |
2636 (self confirm:'accept change made in ' , tabSelection printString , ' section ?') ifTrue:[ |
2620 (self confirm:'accept change made in ' , tabSelection printString , ' section ?') ifTrue:[ |
2637 self accept. |
2621 self accept. |
2638 self painter isModified ifTrue:[ |
2622 "/ "XXX must be fixed - canvas changes are not recorded in the history |
|
2623 "/ so isModified returns false here |
|
2624 "/ |
|
2625 "/ self painter isModified ifTrue:[ |
|
2626 "/ |
2639 (self confirm:'reinstall the new spec ?' withCRs) ifTrue:[ |
2627 (self confirm:'reinstall the new spec ?' withCRs) ifTrue:[ |
2640 self doInstallSpec |
2628 self doInstallSpec |
2641 ] |
2629 ] |
2642 ]. |
2630 "/ ]. |
2643 ] |
2631 ] |
2644 ]. |
2632 ]. |
2645 self painter isModified ifTrue:[ |
2633 self painter isModified ifTrue:[ |
2646 (self confirm:'the changed spec has not yet been reinstalled.\\Start anyway (based upon the previous interface) ?' withCRs) ifFalse:[ |
2634 (self confirm:'the changed spec has not yet been reinstalled.\\Start anyway (based upon the previous interface) ?' withCRs) ifFalse:[ |
2647 ^ self |
2635 ^ self |
2671 (app respondsTo:#openInterface:) ifFalse:[ |
2659 (app respondsTo:#openInterface:) ifFalse:[ |
2672 ^ self warn:('The application does not respond to the ''openInterface:'' message.\\(maybe its supposed to be used as subApplication/subCanvas)') withCRs. |
2660 ^ self warn:('The application does not respond to the ''openInterface:'' message.\\(maybe its supposed to be used as subApplication/subCanvas)') withCRs. |
2673 ]. |
2661 ]. |
2674 app openInterface:specSelector |
2662 app openInterface:specSelector |
2675 |
2663 |
2676 "Modified: / 26.10.1997 / 22:57:30 / cg" |
2664 "Modified: / 29.10.1997 / 19:01:50 / cg" |
2677 ! |
2665 ! |
2678 |
2666 |
2679 doWindowSpec |
2667 doWindowSpec |
2680 "create the window specification but do not write to application; instead |
2668 "create the window specification but do not write to application; instead |
2681 open a view |
2669 open a view |