launch: create new state-version for %serve
$% [%0 state-zero]
[%1 state-two]
[%2 state-two]
+ [%3 state-two]
==
+$ state-zero
$: tiles=(set tile:launch)
[%pass /who %arvo %e %serve [~ /who] desk /gen/who/hoon ~]
--
::
-=| [%2 state-two]
+=| [%3 state-two]
=* state -
%- agent:dbug
^- agent:gall
def ~(. (default-agent this %|) bol)
++ on-init
^- (quip card _this)
- :_ this(state *[%2 state-two])
+ :_ this(state *[%3 state-two])
:~ (launch-who q.byk.bol)
[%pass / %arvo %e %connect [~ /] %launch]
==
::
%1
=/ new-state=state-two
- => [old-state .]
+ =, old-state
:* (~(del in tiles) [%contact-view /primary])
(~(del by data) %contact-view)
(~(del by path-to-tile) /primary)
first-time
==
- $(old-state [%2 new-state], cards [(launch-who q.byk.bol) cards])
+ $(old-state [%2 new-state])
::
- %2 [(flop cards) this(state old-state)]
+ %2
+ $(old-state [%3 +.old-state], cards [(launch-who q.byk.bol) cards])
+ ::
+ %3
+ [(flop cards) this(state old-state)]
==
::
++ on-poke
