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

Add search button to help tool

slava 2006-07-06 20:54:26 +00:00
parent 910d6de129
commit 3ae55cb96a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/ui/tools/help.factor
View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
IN: gadgets-help IN: gadgets-help
USING: gadgets gadgets-buttons gadgets-frames gadgets-panes USING: gadgets gadgets-buttons gadgets-frames gadgets-panes
gadgets-presentations gadgets-scrolling help kernel models gadgets-presentations gadgets-search gadgets-scrolling help
namespaces sequences ; kernel models namespaces sequences ;
TUPLE: help-gadget history ; TUPLE: help-gadget history ;
@ -22,6 +22,8 @@ TUPLE: help-gadget history ;
"Back" [ history-action go-back ] <bevel-button> , "Back" [ history-action go-back ] <bevel-button> ,
"Forward" [ history-action go-forward ] <bevel-button> , "Forward" [ history-action go-forward ] <bevel-button> ,
"Home" [ find-help-gadget go-home ] <bevel-button> , "Home" [ find-help-gadget go-home ] <bevel-button> ,
<spacing> ,
"Search" [ drop search-help-window ] <bevel-button> ,
] make-toolbar ; ] make-toolbar ;
: <help-pane> ( -- gadget ) : <help-pane> ( -- gadget )