equal
deleted
inserted
replaced
1162 "/ a hack !!!!!! Must be compatible to old MenuView |
1162 "/ a hack !!!!!! Must be compatible to old MenuView |
1163 args := selectorOrBlock copyFrom:2. |
1163 args := selectorOrBlock copyFrom:2. |
1164 selectorOrBlock := selectorOrBlock first. |
1164 selectorOrBlock := selectorOrBlock first. |
1165 ] ifFalse:[ |
1165 ] ifFalse:[ |
1166 |
1166 |
1167 arg2 := self. |
1167 arg2 := anItem. |
1168 |
1168 |
1169 "/ support for ST80 style applications |
1169 "/ support for ST80 style applications |
1170 "/ (expecting the message to go to the application |
1170 "/ (expecting the message to go to the application |
1171 "/ if not understood by the view) |
1171 "/ if not understood by the view) |
1172 "/ These expect the controller to be passed as argument. |
1172 "/ These expect the controller to be passed as argument. |
1217 ]. |
1217 ]. |
1218 hasPerformed := true. |
1218 hasPerformed := true. |
1219 ^ self "/ ^ selectorOrBlock |
1219 ^ self "/ ^ selectorOrBlock |
1220 |
1220 |
1221 "Modified: / 06-03-2012 / 14:49:00 / cg" |
1221 "Modified: / 06-03-2012 / 14:49:00 / cg" |
1222 "Modified: / 05-02-2018 / 12:30:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1222 "Modified: / 16-03-2018 / 10:18:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1223 ! |
1223 ! |
1224 |
1224 |
1225 acceptItem:anItemOrNil inMenu:aMenu |
1225 acceptItem:anItemOrNil inMenu:aMenu |
1226 |tgState topMenu| |
1226 |tgState topMenu| |
1227 |
1227 |