612 #'hasHorizontalScrollBar:' true |
617 #'hasHorizontalScrollBar:' true |
613 #'hasVerticalScrollBar:' true |
618 #'hasVerticalScrollBar:' true |
614 ) |
619 ) |
615 #(#LabelSpec |
620 #(#LabelSpec |
616 #'name:' 'HTMLViewLabel' |
621 #'name:' 'HTMLViewLabel' |
617 #'layout:' #(#LayoutFrame 93 0 179 0 158 0 193 0) |
622 #'layout:' #(#LayoutFrame 93 0 179 0 183 0 193 0) |
618 #'label:' 'HTMLView' |
623 #'label:' 'HTMLView' |
|
624 #'style:' |
|
625 #(#FontDescription |
|
626 #helvetica #medium |
|
627 #roman #'10' |
|
628 ) |
619 #'adjust:' #left |
629 #'adjust:' #left |
620 #'canUIDrag:' false |
630 #'canUIDrag:' false |
621 ) |
631 ) |
622 #(#LabelSpec |
632 #(#LabelSpec |
623 #'name:' 'label1' |
633 #'name:' 'label1' |
624 #'layout:' #(#LayoutFrame 93 0 83 0 155 0 97 0) |
634 #'layout:' #(#LayoutFrame 93 0 83 0 183 0 97 0) |
625 #'label:' 'EditText' |
635 #'label:' 'EditText' |
|
636 #'style:' |
|
637 #(#FontDescription |
|
638 #helvetica #medium |
|
639 #roman #'10' |
|
640 ) |
626 #'adjust:' #left |
641 #'adjust:' #left |
627 #'canUIDrag:' false |
642 #'canUIDrag:' false |
628 ) |
643 ) |
629 #(#LabelSpec |
644 #(#LabelSpec |
630 #'name:' 'label2' |
645 #'name:' 'label2' |
631 #'layout:' #(#LayoutFrame 295 0 83 0 382 0 97 0) |
646 #'layout:' #(#LayoutFrame 295 0 83 0 387 0 97 0) |
632 #'label:' 'SelectionInList' |
647 #'label:' 'SelectionInList' |
|
648 #'style:' |
|
649 #(#FontDescription |
|
650 #helvetica #medium |
|
651 #roman #'10' |
|
652 ) |
633 #'adjust:' #left |
653 #'adjust:' #left |
634 #'canUIDrag:' false |
654 #'canUIDrag:' false |
635 ) |
655 ) |
636 #(#LabelSpec |
656 #(#LabelSpec |
637 #'name:' 'labelInLabel' |
657 #'name:' 'labelInLabel' |
638 #'layout:' #(#LayoutFrame 226 0 142 0 260 0 156 0) |
658 #'layout:' #(#LayoutFrame 226 0 142 0 275 0 156 0) |
639 #'label:' 'Label' |
659 #'label:' 'Label' |
|
660 #'style:' |
|
661 #(#FontDescription |
|
662 #helvetica #medium |
|
663 #roman #'10' |
|
664 ) |
640 #'adjust:' #left |
665 #'adjust:' #left |
641 #'canUIDrag:' false |
666 #'canUIDrag:' false |
642 ) |
667 ) |
643 ) |
668 ) |
644 ) |
669 ) |
707 ) |
737 ) |
708 #(#LabelSpec |
738 #(#LabelSpec |
709 #'name:' 'viewLabel' |
739 #'name:' 'viewLabel' |
710 #'layout:' #(#LayoutFrame 19 0 118 0 70 0 135 0) |
740 #'layout:' #(#LayoutFrame 19 0 118 0 70 0 135 0) |
711 #'label:' 'View' |
741 #'label:' 'View' |
|
742 #'style:' |
|
743 #(#FontDescription |
|
744 #helvetica #medium |
|
745 #roman #'10' |
|
746 ) |
712 #'adjust:' #left |
747 #'adjust:' #left |
713 #'canUIDrag:' false |
748 #'canUIDrag:' false |
714 ) |
749 ) |
715 #(#LabelSpec |
750 #(#LabelSpec |
716 #'name:' 'Seperators' |
751 #'name:' 'Seperators' |
717 #'layout:' #(#LayoutFrame 199 0 125 0 270 0 143 0) |
752 #'layout:' #(#LayoutFrame 199 0 125 0 270 0 143 0) |
718 #'label:' 'Seperators' |
753 #'label:' 'Seperators' |
|
754 #'style:' |
|
755 #(#FontDescription |
|
756 #helvetica #medium |
|
757 #roman #'10' |
|
758 ) |
719 #'adjust:' #left |
759 #'adjust:' #left |
720 #'canUIDrag:' false |
760 #'canUIDrag:' false |
721 ) |
761 ) |
722 #(#RegionSpec |
762 #(#RegionSpec |
723 #'name:' 'Region' |
763 #'name:' 'Region' |
724 #'layout:' #(#LayoutFrame 377 0 14 0 467 0 104 0) |
764 #'layout:' #(#LayoutFrame 373 0 14 0 473 0 104 0) |
725 #'lineWidth:' 2 |
765 #'lineWidth:' 2 |
726 #'regionType:' #ellipse |
766 #'regionType:' #ellipse |
727 ) |
767 ) |
728 #(#LabelSpec |
768 #(#LabelSpec |
729 #'name:' 'RegionLabel' |
769 #'name:' 'RegionLabel' |
730 #'layout:' #(#LayoutFrame 388 0 50 0 459 0 68 0) |
770 #'layout:' #(#LayoutFrame 388 0 50 0 459 0 68 0) |
731 #'label:' 'Region' |
771 #'label:' 'Region' |
|
772 #'style:' |
|
773 #(#FontDescription |
|
774 #helvetica #medium |
|
775 #roman #'10' |
|
776 ) |
|
777 #'canUIDrag:' false |
|
778 ) |
|
779 #(#UISubSpecification |
|
780 #'name:' 'UISubSpecification' |
|
781 #'layout:' #(#LayoutFrame 373 0 116 0 473 0 188 0) |
|
782 ) |
|
783 #(#LabelSpec |
|
784 #'name:' 'SubSpec label 1' |
|
785 #'layout:' #(#LayoutFrame 403 0 132 0 442 0 150 0) |
|
786 #'label:' 'UISub-' |
|
787 #'style:' |
|
788 #(#FontDescription |
|
789 #helvetica #medium |
|
790 #roman #'10' |
|
791 ) |
|
792 #'canUIDrag:' false |
|
793 ) |
|
794 #(#LabelSpec |
|
795 #'name:' 'SubSpec label 2' |
|
796 #'layout:' #(#LayoutFrame 383 0 146 0 455 0 164 0) |
|
797 #'label:' 'Specification' |
|
798 #'style:' |
|
799 #(#FontDescription |
|
800 #helvetica #medium |
|
801 #roman #'10' |
|
802 ) |
732 #'canUIDrag:' false |
803 #'canUIDrag:' false |
733 ) |
804 ) |
734 ) |
805 ) |
735 ) |
806 ) |
736 ) |
807 ) |
1077 handlesOf:aComponent do:aOneArgBlock |
1150 handlesOf:aComponent do:aOneArgBlock |
1078 "evaluate the block on each handle; the argument to the block |
1151 "evaluate the block on each handle; the argument to the block |
1079 is a rectangle |
1152 is a rectangle |
1080 " |
1153 " |
1081 aComponent notNil ifTrue:[ |
1154 aComponent notNil ifTrue:[ |
1082 aOneArgBlock value:(aComponent origin - (4@4) extent:7@7). |
1155 aOneArgBlock value:(aComponent origin - (2@2) extent:6@6). |
1083 aOneArgBlock value:(aComponent corner - (4@4) extent:7@7). |
1156 aOneArgBlock value:(aComponent corner - (1@1) extent:6@6). |
1084 aOneArgBlock value:(aComponent topRight - (4@4) extent:7@7). |
1157 aOneArgBlock value:(aComponent topRight - (1@2) extent:6@6). |
1085 aOneArgBlock value:(aComponent bottomLeft - (4@4) extent:7@7). |
1158 aOneArgBlock value:(aComponent bottomLeft - (2@1) extent:6@6). |
1086 aOneArgBlock value:(aComponent leftCenter - (4@4) extent:7@7). |
1159 aOneArgBlock value:(aComponent leftCenter - (2@0) extent:6@6). |
1087 aOneArgBlock value:(aComponent rightCenter - (4@4) extent:7@7). |
1160 aOneArgBlock value:(aComponent rightCenter - (1@0) extent:6@6). |
1088 aOneArgBlock value:(aComponent topCenter - (4@4) extent:7@7). |
1161 aOneArgBlock value:(aComponent topCenter - (0@2) extent:6@6). |
1089 aOneArgBlock value:(aComponent bottomCenter - (4@4) extent:7@7). |
1162 aOneArgBlock value:(aComponent bottomCenter - (0@1) extent:6@6). |
1090 ] |
1163 ] |
1091 |
1164 |
1092 ! |
1165 ! |
1093 |
1166 |
1094 selection:anObject |
1167 selection:anObject |
1126 ! |
1199 ! |
1127 |
1200 |
1128 showUnselected |
1201 showUnselected |
1129 "show unselected |
1202 "show unselected |
1130 " |
1203 " |
1131 |r| |
1204 |r currSel| |
1132 |
1205 |
1133 selection isNil ifTrue:[ |
1206 (currSel := selection) isNil ifTrue:[ |
1134 ^ self |
1207 ^ self |
1135 ]. |
1208 ]. |
1136 |
1209 selection := nil. |
1137 self clippedByChildren:false. |
1210 self clippedByChildren:false. |
1138 |
1211 |
1139 self handlesOf:selection do:[:aRectangle| |
1212 self handlesOf:currSel do:[:aRectangle| |
1140 self clearRectangle:aRectangle |
1213 self clearRectangle:aRectangle |
1141 ]. |
1214 ]. |
1142 self clippedByChildren:true. |
1215 self clippedByChildren:true. |
1143 |
1216 r := currSel bounds. |
1144 "must redraw all components which are affected b the handles |
1217 |
1145 " |
1218 subViews do:[:sv| |
1146 r := (selection originRelativeTo:self) - (4@4) extent:(selection extent + (4@4)). |
|
1147 |
|
1148 self subViews do:[:aComponent | |
|
1149 |absOrg absFrame| |
1219 |absOrg absFrame| |
1150 |
1220 |
1151 aComponent ~~ inputView ifTrue:[ |
1221 sv ~~ inputView ifTrue:[ |
1152 absOrg := aComponent originRelativeTo:self. |
1222 (sv bounds intersects:r) ifTrue:[ |
1153 absFrame := absOrg extent:(aComponent extent). |
1223 sv borderColor:(Color gray:5). |
1154 |
1224 sv borderColor:(Color black). |
1155 (absFrame intersects:r) ifTrue:[ |
1225 |
1156 aComponent withAllSubViewsDo:[:aView| |
1226 sv withAllSubViewsDo:[:v| |
1157 aView clear. |
1227 v fill:v viewBackground. |
1158 aView exposeX:0 y:0 width:9999 height:9999. |
1228 v exposeX:0 y:0 width:9999 height:9999. |
1159 ] |
1229 ] |
1160 ] |
1230 ] |
1161 ] |
1231 ] |
1162 ] |
1232 ]. |
1163 |
1233 selection := currSel. |
1164 |
1234 |
1165 ! ! |
1235 ! ! |
1166 |
1236 |
1167 !UISelectionPanel::Canvas::DropSpecification class methodsFor:'instance creation'! |
1237 !UISelectionPanel::Canvas::DropSpecification class methodsFor:'instance creation'! |
1168 |
1238 |
1193 DisplayObject colorMap:(Array with:Color white with:Color black). |
1263 DisplayObject colorMap:(Array with:Color white with:Color black). |
1194 DisplayObject fill:(Color colorId:0). |
1264 DisplayObject fill:(Color colorId:0). |
1195 DisplayObject paint:(Color colorId:1). |
1265 DisplayObject paint:(Color colorId:1). |
1196 DisplayObject displayRectangleX:0 y:0 width:aView extent x height:aView extent y. |
1266 DisplayObject displayRectangleX:0 y:0 width:aView extent x height:aView extent y. |
1197 ]. |
1267 ]. |
|
1268 aSpec class == UISubSpecification ifTrue:[ |
|
1269 aSpec layout:(LayoutOrigin fromPoint:0@0) |
|
1270 ]. |
1198 ^ self new theObject:aSpec |
1271 ^ self new theObject:aSpec |
1199 |
1272 |
1200 |
1273 |
1201 ! ! |
1274 ! ! |
1202 |
1275 |