Some more state munging
This commit is contained in:
parent
87411236e3
commit
6379f38489
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user