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: word-link add-recent-where recent-words ;
 | 
			
		||||
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 ;
 | 
			
		||||
 | 
			
		||||
: $recent ( element -- )
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -37,7 +37,7 @@ M: browser-gadget set-history-value
 | 
			
		|||
    model>> [ '[ _ print-topic ] try ] <pane-control> ;
 | 
			
		||||
 | 
			
		||||
: search-browser ( string browser -- )
 | 
			
		||||
    '[ <apropos> _ show-help ] unless-empty ;
 | 
			
		||||
    '[ <apropos-search> _ show-help ] unless-empty ;
 | 
			
		||||
 | 
			
		||||
: <search-field> ( browser -- field )
 | 
			
		||||
    '[ _ search-browser ] <action-field>
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue