issue #358: Finish renaming <apropos> to <apropos-search>
parent
de9997dea3
commit
efbdf222a7
|
@ -17,7 +17,7 @@ GENERIC: add-recent-where ( obj -- obj symbol )
|
||||||
M: link add-recent-where recent-articles ;
|
M: link add-recent-where recent-articles ;
|
||||||
M: word-link add-recent-where recent-words ;
|
M: word-link add-recent-where recent-words ;
|
||||||
M: vocab-spec add-recent-where recent-vocabs ;
|
M: vocab-spec add-recent-where recent-vocabs ;
|
||||||
M: apropos add-recent-where recent-searches ;
|
M: apropos-search add-recent-where recent-searches ;
|
||||||
M: object add-recent-where f ;
|
M: object add-recent-where f ;
|
||||||
|
|
||||||
: $recent ( element -- )
|
: $recent ( element -- )
|
||||||
|
|
|
@ -37,7 +37,7 @@ M: browser-gadget set-history-value
|
||||||
model>> [ '[ _ print-topic ] try ] <pane-control> ;
|
model>> [ '[ _ print-topic ] try ] <pane-control> ;
|
||||||
|
|
||||||
: search-browser ( string browser -- )
|
: search-browser ( string browser -- )
|
||||||
'[ <apropos> _ show-help ] unless-empty ;
|
'[ <apropos-search> _ show-help ] unless-empty ;
|
||||||
|
|
||||||
: <search-field> ( browser -- field )
|
: <search-field> ( browser -- field )
|
||||||
'[ _ search-browser ] <action-field>
|
'[ _ search-browser ] <action-field>
|
||||||
|
|
Loading…
Reference in New Issue