6152 ! |
6152 ! |
6153 |
6153 |
6154 methodCategoryMenu |
6154 methodCategoryMenu |
6155 <resource: #keyboard (#Cmdn)> |
6155 <resource: #keyboard (#Cmdn)> |
6156 |
6156 |
6157 |labels selectors shorties i m| |
6157 |labels selectors shorties i m varSel s| |
6158 |
6158 |
6159 currentClass isNil ifTrue:[ |
6159 currentClass isNil ifTrue:[ |
6160 methodCategoryListView flash. |
6160 methodCategoryListView flash. |
6161 ^ nil |
6161 ^ nil |
6162 ]. |
6162 ]. |
6163 |
6163 |
6164 currentMethodCategory isNil ifTrue:[ |
6164 labels := #(). |
6165 labels := #( |
6165 selectors := #(). |
6166 'find method here ...' |
6166 |
6167 'find method ...' |
6167 currentMethodCategory notNil ifTrue:[ |
6168 '-' |
6168 labels := labels , #( |
6169 'new category ...' |
|
6170 'copy category ...' |
|
6171 'create access methods' |
|
6172 ). |
|
6173 selectors := #( |
|
6174 methodCategoryFindMethod |
|
6175 methodCategoryFindAnyMethod |
|
6176 nil |
|
6177 methodCategoryNewCategory |
|
6178 methodCategoryCopyCategory |
|
6179 methodCategoryCreateAccessMethods |
|
6180 ). |
|
6181 ] ifFalse:[ |
|
6182 labels := #( |
|
6183 'fileOut' |
6169 'fileOut' |
6184 'fileOut all' |
6170 'fileOut all' |
6185 'printOut' |
6171 'printOut' |
6186 '-' |
6172 '-' |
6187 'SPAWN_METHODCATEGORY' |
6173 'SPAWN_METHODCATEGORY' |
6188 'spawn category' |
6174 'spawn category' |
6189 '-' |
6175 '-' |
6190 'find method here ...' |
6176 ). |
6191 'find method ...' |
6177 |
6192 '-' |
6178 selectors := selectors , #( |
6193 'new category ...' |
|
6194 'copy category ...' |
|
6195 'create access methods' |
|
6196 '-' |
|
6197 'rename ...' |
|
6198 'remove' |
|
6199 ). |
|
6200 selectors := #( |
|
6201 methodCategoryFileOut |
6179 methodCategoryFileOut |
6202 methodCategoryFileOutAll |
6180 methodCategoryFileOutAll |
6203 methodCategoryPrintOut |
6181 methodCategoryPrintOut |
6204 nil |
6182 nil |
6205 methodCategorySpawn |
6183 methodCategorySpawn |
6206 methodCategorySpawnCategory |
6184 methodCategorySpawnCategory |
6207 nil |
6185 nil |
6208 methodCategoryFindMethod |
6186 ). |
6209 methodCategoryFindAnyMethod |
6187 ]. |
6210 nil |
6188 |
6211 methodCategoryNewCategory |
6189 labels := labels , #( |
6212 methodCategoryCopyCategory |
6190 'find method here ...' |
6213 methodCategoryCreateAccessMethods |
6191 'find method ...' |
|
6192 '-' |
|
6193 'new category ...' |
|
6194 'copy category ...' |
|
6195 ). |
|
6196 selectors := selectors , #( |
|
6197 methodCategoryFindMethod |
|
6198 methodCategoryFindAnyMethod |
|
6199 nil |
|
6200 methodCategoryNewCategory |
|
6201 methodCategoryCopyCategory |
|
6202 ). |
|
6203 |
|
6204 (variableListView notNil |
|
6205 and:[(varSel := variableListView selectionValue) notNil]) ifTrue:[ |
|
6206 s := 'create access methods (for ''%1'')' |
|
6207 ] ifFalse:[ |
|
6208 s := 'create access methods (for all)' |
|
6209 ]. |
|
6210 s := resources string:s with:varSel. |
|
6211 labels := labels , (Array with:s). |
|
6212 selectors := selectors , #( |
|
6213 methodCategoryCreateAccessMethods |
|
6214 ). |
|
6215 |
|
6216 currentMethodCategory notNil ifTrue:[ |
|
6217 labels := labels , #( |
|
6218 '-' |
|
6219 'rename ...' |
|
6220 'remove' |
|
6221 ). |
|
6222 |
|
6223 selectors := selectors , #( |
6214 nil |
6224 nil |
6215 methodCategoryRename |
6225 methodCategoryRename |
6216 methodCategoryRemove |
6226 methodCategoryRemove |
6217 ). |
6227 ). |
6218 ]. |
6228 ]. |