equal
deleted
inserted
replaced
878 !UIObjectView methodsFor:'private handles'! |
878 !UIObjectView methodsFor:'private handles'! |
879 |
879 |
880 handleAffectedViews:aViewOrSeqOfViews |
880 handleAffectedViews:aViewOrSeqOfViews |
881 "update affected views |
881 "update affected views |
882 " |
882 " |
883 |bw| |
883 |c| |
884 |
884 |
885 self forEach:aViewOrSeqOfViews do:[:v| |
885 self forEach:aViewOrSeqOfViews do:[:v| |
886 v shown ifTrue:[ |
886 v shown ifTrue:[ |
887 v fill:v viewBackground. |
887 v fill:v viewBackground. |
888 bw := v borderWidth. |
888 v borderWidth ~~ 0 ifTrue:[ |
889 bw ~~ 0 ifTrue:[ |
889 c := v borderColor. |
890 v borderWidth:(bw - 1). |
890 v borderColor:(Color colorId:1). |
891 v borderWidth:bw. |
891 v borderColor:c. |
892 ]. |
892 ]. |
893 v exposeX:0 y:0 width:9999 height:9999 |
893 v exposeX:0 y:0 width:9999 height:9999 |
894 ] |
894 ] |
895 ] |
895 ] |
896 ! |
896 ! |
904 dlt := dlt - (3@3). |
904 dlt := dlt - (3@3). |
905 ext := 6@6. |
905 ext := 6@6. |
906 |
906 |
907 self class handlesOf:aComponent do:[:pnt :wht | |
907 self class handlesOf:aComponent do:[:pnt :wht | |
908 aTwoArgAction value:(pnt + dlt extent:ext) value:wht |
908 aTwoArgAction value:(pnt + dlt extent:ext) value:wht |
909 ] |
|
910 ! |
|
911 |
|
912 showSelected:aComponent |
|
913 "show object selected |
|
914 " |
|
915 |wasClipped| |
|
916 |
|
917 selectionHiddenLevel == 0 ifTrue:[ |
|
918 self paint:Color black. |
|
919 |
|
920 (wasClipped := clipChildren) ifTrue:[ |
|
921 self clippedByChildren:(clipChildren := false). |
|
922 ]. |
|
923 |
|
924 self handlesOf:aComponent do:[:rectangle :what| |
|
925 what == #view ifTrue:[self displayRectangle:rectangle] |
|
926 ifFalse:[self fillRectangle:rectangle] |
|
927 ]. |
|
928 |
|
929 wasClipped ifTrue:[ |
|
930 self clippedByChildren:(clipChildren := true). |
|
931 ] |
|
932 ] |
909 ] |
933 ! |
910 ! |
934 |
911 |
935 showUnselected:aComponent |
912 showUnselected:aComponent |
936 "show object unselected |
913 "show object unselected |