equal
deleted
inserted
replaced
257 m notNil ifTrue:[ |
257 m notNil ifTrue:[ |
258 " |
258 " |
259 codeViews do support #accept |
259 codeViews do support #accept |
260 ... add it after #inspectIt |
260 ... add it after #inspectIt |
261 " |
261 " |
262 (m indexOf:'Accept') == 0 ifTrue:[ |
262 (m indexOf:#accept) == 0 ifTrue:[ |
263 m |
263 m |
264 addItemList:#( |
264 addItemList:#( |
265 ('-') |
265 ('-') |
266 ('Accept' accept Accept) |
266 ('Accept' accept Accept) |
267 ) |
267 ) |
305 ]. |
305 ]. |
306 ]. |
306 ]. |
307 ^ m ? sub. |
307 ^ m ? sub. |
308 |
308 |
309 "Modified: / 20-10-2017 / 11:18:23 / cg" |
309 "Modified: / 20-10-2017 / 11:18:23 / cg" |
|
310 "Modified: / 28-08-2018 / 21:56:21 / Claus Gittinger" |
310 ! |
311 ! |
311 |
312 |
312 explain |
313 explain |
313 "explain action; |
314 "explain action; |
314 evaluate the explainBlock passing whole contents and |
315 evaluate the explainBlock passing whole contents and |