equal
deleted
inserted
replaced
958 #(#ResourceRetriever |
958 #(#ResourceRetriever |
959 #UIPainter #iconStepDown |
959 #UIPainter #iconStepDown |
960 ) |
960 ) |
961 ) |
961 ) |
962 #(#MenuItem |
962 #(#MenuItem |
963 #'label:' '' |
|
964 ) |
|
965 #(#MenuItem |
|
966 #'label:' 'stepIn' |
963 #'label:' 'stepIn' |
967 #'value:' #doStepIn |
964 #'value:' #doStepIn |
968 #'enabled:' #canStepIn |
965 #'enabled:' #canStepIn |
969 #'labelImage:' |
966 #'labelImage:' |
970 #(#ResourceRetriever |
967 #(#ResourceRetriever |
978 #'labelImage:' |
975 #'labelImage:' |
979 #(#ResourceRetriever |
976 #(#ResourceRetriever |
980 #UIPainter #iconStepOut |
977 #UIPainter #iconStepOut |
981 ) |
978 ) |
982 ) |
979 ) |
983 ) nil |
980 ) |
|
981 #( 2 ) |
984 nil |
982 nil |
985 ) |
983 ) |
986 ! |
984 ! |
987 |
985 |
988 menuPullDown |
986 menuPullDown |
1238 ]. |
1236 ]. |
1239 |
1237 |
1240 cls notNil ifTrue:[ |
1238 cls notNil ifTrue:[ |
1241 (aspect := specTool specification menu) notNil ifTrue:[ |
1239 (aspect := specTool specification menu) notNil ifTrue:[ |
1242 aspect := aspect asSymbol |
1240 aspect := aspect asSymbol |
|
1241 ] ifFalse:[ |
|
1242 aspect := treeView propertySelected. |
|
1243 aspect notNil ifTrue:[ |
|
1244 aspect := aspect view asMenu. |
|
1245 ] |
1243 ]. |
1246 ]. |
|
1247 |
1244 editor := MenuEditor new. |
1248 editor := MenuEditor new. |
1245 editor masterApplication:self. |
1249 editor masterApplication:self. |
1246 editor activeHelpTool:(self activeHelpTool). |
1250 editor activeHelpTool:(self activeHelpTool). |
1247 editor openModalOnClass:cls andSelector:aspect |
1251 editor openModalOnClass:cls andSelector:aspect |
1248 ] |
1252 ] |