ui-docs: mark an optional output parameter with the "/f" suffix
parent
632961798f
commit
646f14f249
|
@ -46,7 +46,7 @@ HELP: fullscreen?
|
|||
{ fullscreen? set-fullscreen } related-words
|
||||
|
||||
HELP: find-window
|
||||
{ $values { "quot" { $quotation ( world -- ? ) } } { "world" { $maybe world } } }
|
||||
{ $values { "quot" { $quotation ( world -- ? ) } } { "world/f" { $maybe world } } }
|
||||
{ $description "Finds a native window such that the gadget passed to " { $link open-window } " satisfies the quotation, outputting " { $link f } " if no such gadget could be found. The front-most native window is checked first." } ;
|
||||
|
||||
HELP: register-window
|
||||
|
|
|
@ -141,7 +141,7 @@ SYMBOL: ui-thread
|
|||
|
||||
PRIVATE>
|
||||
|
||||
: find-window ( quot: ( world -- ? ) -- world )
|
||||
: find-window ( quot: ( world -- ? ) -- world/f )
|
||||
[ ui-windows get-global values ] dip
|
||||
'[ dup children>> [ ] [ nip first ] if-empty @ ]
|
||||
find-last nip ; inline
|
||||
|
|
Loading…
Reference in New Issue