Start rewriting fetcher logic

parent 82b9032e
......@@ -584,9 +584,15 @@ cmd-class class{ groups
object class{ fetcher
value: state
value: data
method fetch ( -- )
method fetching ( size total -- )
method got-it ( -- )
0
enum want#
enum fetching#
enum have#
drop
}class
\\\
......
......@@ -1701,18 +1701,18 @@ event: :>dispose-widget ( widget -- )
\ special modified chat commands for GUI
scope{ /chat
chat-cmds uclass chat-cmd-o
end-class gui-chat-cmds
gui-chat-cmds new Constant gui-chat-cmd-o
gui-chat-cmd-o to chat-cmd-o
scope{ /chat
' drop is ./otr-info
' .imgs is /imgs
}scope
text-chat-cmd-o to chat-cmd-o
}scope
\ top box
......@@ -1824,7 +1824,7 @@ Variable invitation-stack
: net2o-gui ( -- )
[IFDEF] set-net2o-hints set-net2o-hints [THEN]
/chat:gui-chat-cmd-o to chat-cmd-o
gui-chat-cmd-o to chat-cmd-o
n2o-frame to top-widget
n2o-frame to md-frame
"PASSPHRASE" getenv 2dup d0= IF 2drop
......@@ -1840,7 +1840,7 @@ Variable invitation-stack
1config !widgets
get-order n>r ['] /chat >body 1 set-order
['] widgets-loop catch
/chat:text-chat-cmd-o to chat-cmd-o
text-chat-cmd-o to chat-cmd-o
nr> set-order throw ;
' net2o-gui is run-gui
......
This diff is collapsed.
......@@ -838,3 +838,11 @@ scope{ /chat
' start-n2o is process-args
\\\
Local Variables:
forth-local-words:
(
(("\\U") immediate (font-lock-comment-face . 1)
"[\n]" nil comment (font-lock-comment-face . 1))
)
End:
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment