Some more state munging

This commit is contained in:
ronreg-ribdev 2020-12-03 03:19:10 -08:00
parent 87411236e3
commit 6379f38489

View File

@ -3,14 +3,19 @@
::
|%
+$ versioned-state
$% state-0
$% [%0 state-0]
==
+$ state-0 $:
[%access count=@]
==
+$ state-0 [%0 [%ping-count count=@]]
+$ card card:agent:gall
--
^- agent:gall
=<
=* state [%0 [%ping-count count=0]]
=* state :- %0
:*
[%access count=0]
==
|_ bol=bowl:gall
+* this .
browsermanager-core +>
@ -50,9 +55,8 @@
^- (quip card _this)
?+ mark
(on-poke:def mark vase)
%noun ~& 'Browser Manager'
~& mark
~& vase
%noun ~& 'Browser Manager state'
~& state
`this
%browsermanager-action
=/ action !<(action:browsermanager vase)