equal
deleted
inserted
replaced
2568 |
2568 |
2569 canChangeLayoutOfView:aView |
2569 canChangeLayoutOfView:aView |
2570 "returns true if the view can change its layout. |
2570 "returns true if the view can change its layout. |
2571 This is dependent on its parent view." |
2571 This is dependent on its parent view." |
2572 |
2572 |
2573 |item parent granny| |
2573 |item parent| |
2574 |
2574 |
2575 item := treeView itemOfView:aView. |
2575 item := treeView itemOfView:aView. |
2576 item isNil ifTrue:[ |
2576 item isNil ifTrue:[ |
2577 "/ I dont know anything about that view (cg: how can this happen ?) |
2577 "/ I dont know anything about that view (cg: how can this happen ?) |
2578 "/ self breakPoint:#cg. |
2578 "/ self breakPoint:#cg. |
2582 parent isNil ifTrue:[ |
2582 parent isNil ifTrue:[ |
2583 "/ that view has no parent (cg: does this mean its the canvas itself ?) |
2583 "/ that view has no parent (cg: does this mean its the canvas itself ?) |
2584 "/ self breakPoint:#cg. |
2584 "/ self breakPoint:#cg. |
2585 ^ false |
2585 ^ false |
2586 ]. |
2586 ]. |
2587 granny := parent parent. |
2587 parent contents view == self ifTrue:[ |
2588 granny isNil ifTrue:[ |
2588 "aView is a direct subview of the canvas |
2589 "/ cg: why that ? |
2589 -- and the canvas supports layout changes of its subviews" |
2590 "/ self breakPoint:#cg. |
2590 ^ true. |
2591 ^ true |
|
2592 ]. |
2591 ]. |
2593 ^ parent contents spec class isLayoutContainer not |
2592 ^ parent contents spec class isLayoutContainer not |
2594 ! |
2593 ! |
2595 |
2594 |
2596 canExchangeSelectionLayouts |
2595 canExchangeSelectionLayouts |
2687 parent := item parent. |
2686 parent := item parent. |
2688 parent isNil ifTrue:[ |
2687 parent isNil ifTrue:[ |
2689 "/ that view has no parent (cg: does this mean its the canvas itself ?) |
2688 "/ that view has no parent (cg: does this mean its the canvas itself ?) |
2690 "/ self breakPoint:#cg. |
2689 "/ self breakPoint:#cg. |
2691 ^ false |
2690 ^ false |
|
2691 ]. |
|
2692 parent contents view == self ifTrue:[ |
|
2693 "aView is a direct subview of the canvas |
|
2694 -- and the canvas supports resizing of its subviews" |
|
2695 ^ true. |
2692 ]. |
2696 ]. |
2693 ^ parent contents spec class canResizeSubComponents |
2697 ^ parent contents spec class canResizeSubComponents |
2694 ! |
2698 ! |
2695 |
2699 |
2696 canUngroup |
2700 canUngroup |