@@ -196,12 +196,15 @@ receiving pokes. Here's the first, an agent that receives pokes:
196196|_ =bowl:gall
197197+* this .
198198 def ~(. (default-agent this %.n) bowl)
199+::
199200++ on-init
200201 ^- (quip card _this)
201202 `this
203+::
202204++ on-save
203205 ^- vase
204206 !>(state)
207+::
205208++ on-load
206209 |= old-state=vase
207210 ^- (quip card _this)
@@ -209,6 +212,7 @@ receiving pokes. Here's the first, an agent that receives pokes:
209212 ?- -.old
210213 %0 `this(state old)
211214 ==
215+::
212216++ on-poke
213217 |= [=mark =vase]
214218 ^- (quip card _this)
@@ -225,6 +229,7 @@ receiving pokes. Here's the first, an agent that receives pokes:
225229 `this(val (dec val))
226230 ==
227231 ==
232+::
228233++ on-watch on-watch:def
229234++ on-leave on-leave:def
230235++ on-peek on-peek:def
@@ -344,12 +349,15 @@ rather than updating its own state, it sends two pokes to `%pokeme`, so
344349|_ =bowl:gall
345350+* this .
346351 def ~(. (default-agent this %.n) bowl)
352+::
347353++ on-init
348354 ^- (quip card _this)
349355 `this
356+::
350357++ on-save
351358 ^- vase
352359 !>(state)
360+::
353361++ on-load
354362 |= old-state=vase
355363 ^- (quip card _this)
@@ -357,6 +365,7 @@ rather than updating its own state, it sends two pokes to `%pokeme`, so
357365 ?- -.old
358366 %0 `this(state old)
359367 ==
368+::
360369++ on-poke
361370 |= [=mark =vase]
362371 ^- (quip card _this)
@@ -377,9 +386,11 @@ rather than updating its own state, it sends two pokes to `%pokeme`, so
377386 ==
378387 ==
379388 ==
389+::
380390++ on-watch on-watch:def
381391++ on-leave on-leave:def
382392++ on-peek on-peek:def
393+::
383394++ on-agent
384395 |= [=wire =sign:agent:gall]
385396 ^- (quip card _this)
@@ -402,6 +413,7 @@ rather than updating its own state, it sends two pokes to `%pokeme`, so
402413 %- (slog '%pokeit: Decrement poke failed!' ~)
403414 `this
404415 ==
416+::
405417++ on-arvo on-arvo:def
406418++ on-fail on-fail:def
407419--