999 ! |
999 ! |
1000 |
1000 |
1001 endResize |
1001 endResize |
1002 "cleanup after object resize |
1002 "cleanup after object resize |
1003 " |
1003 " |
1004 |object| |
1004 |object savedSelection| |
1005 |
1005 |
1006 object := resizeData object. |
1006 object := resizeData object. |
1007 resizeData := nil. |
1007 resizeData := nil. |
1008 |
1008 |
1009 self invertOutlineOf:object. |
1009 self invertOutlineOf:object. |
|
1010 |
|
1011 "/ temporarily hide the selection, in order to allow the container to move the |
|
1012 "/ element around... |
|
1013 savedSelection := selection. |
|
1014 self selection:nil. |
|
1015 "/ handle any expose events (for subcomponents) before |
|
1016 "/ redrawing the handles. |
|
1017 self windowGroup processExposeEvents. |
|
1018 |
1010 self setDefaultActions. |
1019 self setDefaultActions. |
1011 self elementChangedSize:object. |
1020 self elementChangedSize:object. |
1012 |
1021 |
1013 "/ handle any expose events (for subcomponents) before |
1022 "/ handle any expose events (for subcomponents) before |
1014 "/ redrawing the handles. |
1023 "/ redrawing the handles. |
1015 Delay waitForSeconds:0.05. |
1024 Delay waitForSeconds:0.05. |
1016 [self sensor hasExposeEventFor:nil] whileTrue:[ |
1025 [self sensor hasExposeEventFor:nil] whileTrue:[ |
1017 self windowGroup processExposeEvents |
1026 self windowGroup processExposeEvents |
1018 ]. |
1027 ]. |
1019 |
1028 |
|
1029 self forEach:savedSelection do:[:aView | |
|
1030 self recomputeShapeIfTransparentBox:aView. |
|
1031 ]. |
|
1032 self layoutChanged. |
|
1033 |
|
1034 self selection:savedSelection. |
1020 self setSelection:object withRedraw:true. |
1035 self setSelection:object withRedraw:true. |
1021 self forEach:self selection do:[:aView | |
|
1022 self recomputeShapeIfTransparentBox:aView. |
|
1023 ]. |
|
1024 self layoutChanged. |
|
1025 ! |
1036 ! |
1026 |
1037 |
1027 layoutChanged |
1038 layoutChanged |
1028 ! |
1039 ! |
1029 |
1040 |