Helper core

This commit is contained in:
ronreg-ribdev 2020-11-29 03:16:07 -08:00
parent d9b9edc7e1
commit af2826a07c

View File

@ -5,6 +5,7 @@
+$ card card:agent:gall +$ card card:agent:gall
-- --
^- agent:gall ^- agent:gall
=<
|_ bol=bowl:gall |_ bol=bowl:gall
+* this . +* this .
browsermanager-core +> browsermanager-core +>
@ -50,9 +51,7 @@
`this `this
%browsermanager-action %browsermanager-action
=/ action !<(action:browsermanager vase) =/ action !<(action:browsermanager vase)
~& 'Browser Manager action' [(handle-action action) this]
~& >>> action
`this
== ==
++ on-save on-save:def ++ on-save on-save:def
++ on-load on-load:def ++ on-load on-load:def
@ -60,3 +59,12 @@
++ on-peek on-peek:def ++ on-peek on-peek:def
++ on-fail on-fail:def ++ on-fail on-fail:def
-- --
:: Helper core
|%
++ handle-action
|= action=action:browsermanager
^- (list card)
~& 'Browser Manager action'
~& >> action
~
--