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

Working on error-list tool

db4
Slava Pestov 2009-04-11 21:26:36 -05:00
parent 410654c324
commit 26356ffc63
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/help/lint/lint.factor
View File

@ -4,6 +4,7 @@ USING: assocs continuations fry help help.lint.checks
help.topics io kernel namespaces parser sequences help.topics io kernel namespaces parser sequences
source-files.errors tools.vocabs vocabs words classes source-files.errors tools.vocabs vocabs words classes
locals ; locals ;
FROM: help.lint.checks => all-vocabs ;
IN: help.lint IN: help.lint
SYMBOL: lint-failures SYMBOL: lint-failures
@ -38,7 +39,7 @@ PRIVATE>
: check-word ( word -- ) : check-word ( word -- )
[ with-file-vocabs ] vocabs-quot set [ with-file-vocabs ] vocabs-quot set
dup word-help [ dup word-help [
dup '[ [ >link ] keep '[
_ dup word-help _ dup word-help
[ check-values ] [ check-values ]
[ check-class-description ] [ check-class-description ]

8
basis/ui/tools/error-list/error-list.factor
View File

@ -139,16 +139,16 @@ TUPLE: error-display < track ;
vertical error-display new-track vertical error-display new-track
add-toolbar add-toolbar
swap error>> >>model swap error>> >>model
dup model>> [ print-error ] <pane-control> <scroller> 1 track-add ; dup model>> [ [ print-error ] when* ] <pane-control> <scroller> 1 track-add ;
: com-inspect ( error-display -- ) : com-inspect ( error-display -- )
model>> value>> inspector ; model>> value>> [ inspector ] when* ;
: com-help ( error-display -- ) : com-help ( error-display -- )
model>> value>> error>> error-help-window ; model>> value>> [ error>> error-help-window ] when* ;
: com-edit ( error-display -- ) : com-edit ( error-display -- )
model>> value>> edit-error ; model>> value>> [ edit-error ] when* ;
error-display "toolbar" f { error-display "toolbar" f {
{ f com-inspect } { f com-inspect }