steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

< Press Enter to see the Survival Guide >

db4
Joe Groff 2009-10-24 15:34:32 -05:00
parent 7159474be3
commit 7c6e67b5ec
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/tools/listener/listener.factor
View File

@ -379,12 +379,16 @@ interactor "completion" f {
{ T{ key-down f { C+ } "r" } history-completion-popup } { T{ key-down f { C+ } "r" } history-completion-popup }
} define-command-map } define-command-map
: introduction. ( -- )
tip-of-the-day. nl
{ $strong "Press " { $snippet "F1" } " at any time for help." } print-content nl nl ;
: listener-thread ( listener -- ) : listener-thread ( listener -- )
dup listener-streams [ dup listener-streams [
[ com-browse ] help-hook set [ com-browse ] help-hook set
'[ [ _ input>> ] 2dip debugger-popup ] error-hook set '[ [ _ input>> ] 2dip debugger-popup ] error-hook set
error-summary? off error-summary? off
tip-of-the-day. nl introduction.
listener listener
nl nl
"The listener has exited. To start it again, click “Restart Listener”." print "The listener has exited. To start it again, click “Restart Listener”." print