@@ -234,15 +234,15 @@ added to the decoration chain with #decorateWith:.'>
234
234
]
235
235
236
236
answer [
237
- " Give the control back to the owner, i.e, the widget which showed me .
237
+ " Give the control back to the owner, i.e, the widget which showed the receiver .
238
238
Answer self"
239
239
< category: ' control flow' >
240
240
241
241
^ self answer: self
242
242
]
243
243
244
244
answer: anAnswer [
245
- " Give the control back to the owner, i.e, the widget which showed me .
245
+ " Give the control back to the owner, i.e, the widget which showed the receiver .
246
246
Answer <anAnswer>"
247
247
< category: ' control flow' >
248
248
@@ -255,7 +255,7 @@ added to the decoration chain with #decorateWith:.'>
255
255
]
256
256
257
257
retrieveControl [
258
- " Get the control back to the receiver from any showed widget, and make it answer nil"
258
+ " Give the control back to the receiver, and make any showed widget answer nil"
259
259
< category: ' control flow' >
260
260
261
261
self decoratorsDo: [:each |
@@ -265,15 +265,15 @@ added to the decoration chain with #decorateWith:.'>
265
265
266
266
show: aWidget [
267
267
" Show another widget instead of the receiver.
268
- I am also implicitely marked dirty"
268
+ The receiver is also implicitely marked dirty"
269
269
< category: ' control flow' >
270
270
271
271
self show: aWidget onAnswer: [:ans | ]
272
272
]
273
273
274
274
show: aWidget onAnswer: aBlock [
275
275
" Show another widget instead of the receiver and catch the answer in <aBlock>.
276
- I am also implicitely marked dirty"
276
+ The receiver is also implicitely marked dirty"
277
277
< category: ' control flow' >
278
278
279
279
self
@@ -300,16 +300,27 @@ added to the decoration chain with #decorateWith:.'>
300
300
decorateWith: answerHandler
301
301
]
302
302
303
- printJsonOn: aStream [
304
- < category: ' printing' >
305
- self build printJsonOn: aStream
303
+ addDependentWidget: aWidget [
304
+ " Add <aWidget> to my dependent widgets.
305
+ Each dependent widget will be rebuilt on AJAX requests whenever
306
+ I am rebuilt"
307
+ < category: ' control flow' >
308
+
309
+ (dependentWidgets includes: aWidget) ifFalse: [
310
+ dependentWidgets add: aWidget]
311
+ ]
312
+
313
+ removeDependentWidget: aWidget [
314
+ < category: ' control flow' >
315
+ (dependentWidgets includes: aWidget) ifTrue: [
316
+ dependentWidgets remove: aWidget]
306
317
]
307
318
308
319
markDirty [
309
- " Mark the widget as 'dirty', ie ,
310
- The widget will be rebuilt on Ajax requests.
311
- You do not need to mark subwidgets as dirty.
312
- They will be automatically rebuilt too "
320
+ " Mark the receiver as 'dirty',
321
+ so the widget will be rebuilt on Ajax requests.
322
+ You do not need to mark subwidgets as dirty,
323
+ they will be rebuilt together with the receiver "
313
324
< category: ' states' >
314
325
315
326
self owner
@@ -325,20 +336,9 @@ added to the decoration chain with #decorateWith:.'>
325
336
^ self session addToDirtyWidgets: self
326
337
]
327
338
328
- addDependentWidget: aWidget [
329
- " Add <aWidget> to my dependent widgets.
330
- Each dependent widget will be rebuilt on AJAX requests whenever
331
- I am rebuilt"
332
- < category: ' control flow' >
333
-
334
- (dependentWidgets includes: aWidget) ifFalse: [
335
- dependentWidgets add: aWidget]
336
- ]
337
-
338
- removeDependentWidget: aWidget [
339
- < category: ' control flow' >
340
- (dependentWidgets includes: aWidget) ifTrue: [
341
- dependentWidgets remove: aWidget]
339
+ printJsonOn: aStream [
340
+ < category: ' printing' >
341
+ self build printJsonOn: aStream
342
342
]
343
343
344
344
newRootElement [
@@ -359,4 +359,3 @@ added to the decoration chain with #decorateWith:.'>
359
359
aHead add: e]]]
360
360
]
361
361
]
362
-
0 commit comments