equal
deleted
inserted
replaced
2745 canMove:something |
2745 canMove:something |
2746 "checks whether something is not nil and if all widgets derived from |
2746 "checks whether something is not nil and if all widgets derived from |
2747 something can change their layout ( move, align, ... operation ). |
2747 something can change their layout ( move, align, ... operation ). |
2748 " |
2748 " |
2749 something notNil ifTrue:[ |
2749 something notNil ifTrue:[ |
2750 self forEach:something do:[:aView| |
2750 something doIfNotNil:[:aView| |
2751 (self canChangeLayoutOfView:aView) ifFalse:[^ false] |
2751 (self canChangeLayoutOfView:aView) ifFalse:[^ false] |
2752 ]. |
2752 ]. |
2753 ^ true |
2753 ^ true |
2754 ]. |
2754 ]. |
2755 ^ false |
2755 ^ false |
|
2756 |
|
2757 "Modified: / 11-04-2018 / 18:19:47 / stefan" |
2756 ! |
2758 ! |
2757 |
2759 |
2758 canMoveOrAlignSelection |
2760 canMoveOrAlignSelection |
2759 "returns true if a selection exists and all elements in the selection |
2761 "returns true if a selection exists and all elements in the selection |
2760 can be moved or aligned |
2762 can be moved or aligned |
2765 canResize:something |
2767 canResize:something |
2766 "checks whether something is not nil and if all widgets derived from |
2768 "checks whether something is not nil and if all widgets derived from |
2767 something can be resized." |
2769 something can be resized." |
2768 |
2770 |
2769 something notNil ifTrue:[ |
2771 something notNil ifTrue:[ |
2770 self forEach:something do:[:aView| |
2772 something doIfNotNil:[:aView| |
2771 (self canResizeView:aView) ifFalse:[^ false] |
2773 (self canResizeView:aView) ifFalse:[^ false] |
2772 ]. |
2774 ]. |
2773 ^ true |
2775 ^ true |
2774 ]. |
2776 ]. |
2775 ^ false |
2777 ^ false |
|
2778 |
|
2779 "Modified: / 11-04-2018 / 18:20:09 / stefan" |
2776 ! |
2780 ! |
2777 |
2781 |
2778 canResizeSelection |
2782 canResizeSelection |
2779 "returns true if a selection exists and all elements in the selection |
2783 "returns true if a selection exists and all elements in the selection |
2780 can be resized" |
2784 can be resized" |
2833 transaction:aType objects:something do:aOneArgBlock |
2837 transaction:aType objects:something do:aOneArgBlock |
2834 "opens a transaction and evaluates a block within the transaction; the |
2838 "opens a transaction and evaluates a block within the transaction; the |
2835 argument to the block is a view from derived from something |
2839 argument to the block is a view from derived from something |
2836 " |
2840 " |
2837 self withinTransaction:aType objects:something do:[ |
2841 self withinTransaction:aType objects:something do:[ |
2838 self forEach:something do:aOneArgBlock |
2842 something doIfNotNil:aOneArgBlock |
2839 ] |
2843 ] |
|
2844 |
|
2845 "Modified: / 11-04-2018 / 18:20:27 / stefan" |
2840 ! |
2846 ! |
2841 |
2847 |
2842 withinTransaction:aType objects:objects do:aNoArgBlock |
2848 withinTransaction:aType objects:objects do:aNoArgBlock |
2843 "evaluate a block within a transaction" |
2849 "evaluate a block within a transaction" |
2844 |
2850 |
2949 ] |
2955 ] |
2950 ] |
2956 ] |
2951 ! |
2957 ! |
2952 |
2958 |
2953 undoCreate:something |
2959 undoCreate:something |
2954 "undo method for creating or pasting an object |
2960 "undo method for creating or pasting an object" |
2955 " |
2961 |
2956 self forEach:something do:[:anId|self remove:(self findViewWithId:anId)]. |
2962 something doIfNotNil:[:anId|self remove:(self findViewWithId:anId)]. |
|
2963 |
|
2964 "Modified: / 11-04-2018 / 18:20:46 / stefan" |
2957 ! |
2965 ! |
2958 |
2966 |
2959 undoHistory |
2967 undoHistory |
2960 ^ undoHistory |
2968 ^ undoHistory |
2961 |
2969 |