105 |
105 |
106 !UILayoutTool class methodsFor:'help specs'! |
106 !UILayoutTool class methodsFor:'help specs'! |
107 |
107 |
108 helpSpec |
108 helpSpec |
109 "return a dictionary filled with helpKey -> helptext associations. |
109 "return a dictionary filled with helpKey -> helptext associations. |
110 These are used by the activeHelp tool. |
110 These are used by the activeHelp tool." |
111 " |
111 |
|
112 " |
|
113 UIHelpTool openOnClass:UILayoutTool |
|
114 " |
|
115 |
112 ^ super helpSpec addPairsFrom:#( |
116 ^ super helpSpec addPairsFrom:#( |
113 |
117 |
114 #leftAbsolute |
118 #leftAbsolute |
115 'offset of the left edge; positive |
119 'offset of the left edge; positive is to the right, negative to the left' |
116 is to the right, negative to the left' |
|
117 |
120 |
118 #originY |
121 #originY |
119 'absolute origin y' |
122 'absolute origin y' |
120 |
123 |
121 #cornerY |
124 #cornerY |
122 'absolute corner y' |
125 'absolute corner y' |
123 |
126 |
124 #makeLeftAbsolute |
127 #makeLeftAbsolute |
125 'compute current left offset and relative |
128 'compute current left offset and relative origin x to an absolute origin x' |
126 origin x to an absolute origin x' |
|
127 |
129 |
128 #topAbsolute |
130 #topAbsolute |
129 'offset of the top edge; positive |
131 'offset of the top edge; positive is to the bottom, negative to the top' |
130 is to the bottom, negative to the top' |
|
131 |
132 |
132 #makeTopRelative |
133 #makeTopRelative |
133 'compute current relative origin y and offset |
134 'compute current relative origin y and offset of the top edge to a relative origin y' |
134 of the top edge to a relative origin y' |
|
135 |
135 |
136 #leftRelative |
136 #leftRelative |
137 'relative origin x' |
137 'relative origin x' |
138 |
138 |
139 #makeLeftRelative |
139 #makeLeftRelative |
140 'compute current relative origin x and offset |
140 'compute current relative origin x and offset of the left edge to a relative origin x' |
141 of the left edge to a relative origin x' |
|
142 |
141 |
143 #topRelative |
142 #topRelative |
144 'relative origin y' |
143 'relative origin y' |
145 |
144 |
146 #originX |
145 #originX |
685 selection |
683 selection |
686 ^ selection |
684 ^ selection |
687 ! |
685 ! |
688 |
686 |
689 selection:aSelection |
687 selection:aSelection |
690 |appl slice| |
688 |appl slice sel| |
691 |
689 |
692 selection = aSelection ifFalse:[ |
690 aSelection isNumber ifTrue:[ |
693 (selection := aSelection) notNil ifTrue:[ |
691 aSelection ~~ 0 ifTrue:[sel := tabList at:aSelection] |
|
692 ] ifFalse:[ |
|
693 sel := aSelection |
|
694 ]. |
|
695 selection = sel ifFalse:[ |
|
696 (selection := sel) notNil ifTrue:[ |
694 slice := self selectedSlice. |
697 slice := self selectedSlice. |
695 appl := slice last asString. |
698 appl := slice last asString. |
696 appl := Smalltalk classNamed:(self class name asString, '::', appl). |
699 appl := Smalltalk classNamed:(self class name asString, '::', appl). |
697 appl := appl new. |
700 appl := appl new. |
698 appl masterApplication:self. |
701 appl masterApplication:self. |
699 modifiedHolder value:true. |
702 modifiedHolder value:true. |
700 ]. |
703 ]. |
701 self noteBookView client:appl. |
704 self noteBookView client:appl. |
702 ]. |
705 ]. |
703 self update |
706 self update |
|
707 |
704 ! ! |
708 ! ! |
705 |
709 |
706 !UILayoutTool::AlignmentOrigin class methodsFor:'help specs'! |
710 !UILayoutTool::AlignmentOrigin class methodsFor:'help specs'! |
707 |
711 |
708 helpSpec |
712 helpSpec |
709 "return a dictionary filled with helpKey -> helptext associations. |
713 "return a dictionary filled with helpKey -> helptext associations. |
710 These are used by the activeHelp tool. |
714 These are used by the activeHelp tool." |
711 " |
715 |
|
716 " |
|
717 UIHelpTool openOnClass:UILayoutTool::AlignmentOrigin |
|
718 " |
|
719 |
712 ^ super helpSpec addPairsFrom:#( |
720 ^ super helpSpec addPairsFrom:#( |
713 |
721 |
714 #alignVertical 'vertical inset to the location point of the component' |
722 #alignLeftCenter |
715 #alignHorizontal 'horizontal inset to the location point of the component' |
723 'align components leftCenter to location' |
716 |
724 |
717 #alignTopLeft 'align components topLeft to location' |
725 #alignBottomCenter |
718 #alignLeftCenter 'align components leftCenter to location' |
726 'align components bottomCenter to location' |
719 #alignBottomLeft 'align components bottomLeft to location' |
727 |
720 |
728 #alignHorizontal |
721 #alignTopRight 'align components topRight to location' |
729 'horizontal inset to the location point of the component' |
722 #alignRightCenter 'align components rightCenter to location' |
730 |
723 #alignBottomRight 'align components bottomRight to location' |
731 #alignBottomRight |
724 |
732 'align components bottomRight to location' |
725 #alignTopCenter 'align components topCenter to location' |
733 |
726 #alignCenter 'align components center to location' |
734 #alignTopCenter |
727 #alignBottomCenter 'align components bottomCenter to location' |
735 'align components topCenter to location' |
|
736 |
|
737 #alignTopLeft |
|
738 'align components topLeft to location' |
|
739 |
|
740 #alignTopRight |
|
741 'align components topRight to location' |
|
742 |
|
743 #alignCenter |
|
744 'align components center to location' |
|
745 |
|
746 #alignVertical |
|
747 'vertical inset to the location point of the component' |
|
748 |
|
749 #alignBottomLeft |
|
750 'align components bottomLeft to location' |
|
751 |
|
752 #alignRightCenter |
|
753 'align components rightCenter to location' |
728 |
754 |
729 ) |
755 ) |
730 ! ! |
756 ! ! |
731 |
757 |
732 !UILayoutTool::AlignmentOrigin class methodsFor:'interface specs'! |
758 !UILayoutTool::AlignmentOrigin class methodsFor:'interface specs'! |
1012 |
1038 |
1013 !UILayoutTool::Extent class methodsFor:'help specs'! |
1039 !UILayoutTool::Extent class methodsFor:'help specs'! |
1014 |
1040 |
1015 helpSpec |
1041 helpSpec |
1016 "return a dictionary filled with helpKey -> helptext associations. |
1042 "return a dictionary filled with helpKey -> helptext associations. |
1017 These are used by the activeHelp tool. |
1043 These are used by the activeHelp tool." |
1018 " |
1044 |
|
1045 " |
|
1046 UIHelpTool openOnClass:UILayoutTool::Extent |
|
1047 " |
|
1048 |
1019 ^ super helpSpec addPairsFrom:#( |
1049 ^ super helpSpec addPairsFrom:#( |
1020 |
1050 |
1021 #vrtExtent 'vertical extent of the component' |
1051 #vrtExtent |
1022 #hrzExtent 'horizontal extent of the component' |
1052 'vertical extent of the component' |
|
1053 |
|
1054 #hrzExtent |
|
1055 'horizontal extent of the component' |
1023 |
1056 |
1024 ) |
1057 ) |
1025 ! ! |
1058 ! ! |
1026 |
1059 |
1027 !UILayoutTool::Extent class methodsFor:'interface specs'! |
1060 !UILayoutTool::Extent class methodsFor:'interface specs'! |
1114 |
1147 |
1115 !UILayoutTool::LayoutFrame class methodsFor:'help specs'! |
1148 !UILayoutTool::LayoutFrame class methodsFor:'help specs'! |
1116 |
1149 |
1117 helpSpec |
1150 helpSpec |
1118 "return a dictionary filled with helpKey -> helptext associations. |
1151 "return a dictionary filled with helpKey -> helptext associations. |
1119 These are used by the activeHelp tool. |
1152 These are used by the activeHelp tool." |
1120 " |
1153 |
|
1154 " |
|
1155 UIHelpTool openOnClass:UILayoutTool::LayoutFrame |
|
1156 " |
|
1157 |
1121 ^ super helpSpec addPairsFrom:#( |
1158 ^ super helpSpec addPairsFrom:#( |
1122 |
1159 |
1123 #makeRightRelative |
1160 #makeRightRelative |
1124 'compute current relative corner x and offset |
1161 'compute current relative corner x and offset of the right edge to a relative corner x' |
1125 of the right edge to a relative corner x' |
1162 |
|
1163 #makeBottomAbsolute |
|
1164 'compute current bottom offset and relative corner y to an absolute corner y' |
|
1165 |
|
1166 #bottomAbsolute |
|
1167 'offset of the bottom edge; positive is to the bottom, negative to the top' |
|
1168 |
|
1169 #rightRelative |
|
1170 'relative corner x' |
1126 |
1171 |
1127 #makeBottomRelative |
1172 #makeBottomRelative |
1128 'compute current relative corner y and offset |
1173 'compute current relative corner y and offset of the bottom edge to a relative corner y' |
1129 of the bottom edge to a relative corner y' |
|
1130 |
|
1131 #makeBottomAbsolute |
|
1132 'compute current bottom offset and relative |
|
1133 corner y to an absolute corner y' |
|
1134 |
1174 |
1135 #makeRightAbsolute |
1175 #makeRightAbsolute |
1136 'compute current right offset and relative |
1176 'compute current right offset and relative corner x to an absolute corner x' |
1137 corner x to an absolute corner x' |
1177 |
1138 |
1178 #bottomRelative |
1139 #bottomAbsolute |
1179 'relative corner y' |
1140 'offset of the bottom edge; positive |
|
1141 is to the bottom, negative to the top' |
|
1142 |
1180 |
1143 #rightAbsolute |
1181 #rightAbsolute |
1144 'offset of the right edge; positive |
1182 'offset of the right edge; positive is to the right, negative to the left' |
1145 is to the right, negative to the left' |
|
1146 |
|
1147 #rightRelative 'relative corner x' |
|
1148 #bottomRelative 'relative corner y' |
|
1149 |
1183 |
1150 ) |
1184 ) |
1151 ! ! |
1185 ! ! |
1152 |
1186 |
1153 !UILayoutTool::LayoutFrame class methodsFor:'interface specs'! |
1187 !UILayoutTool::LayoutFrame class methodsFor:'interface specs'! |