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

document MAIN-WINDOW:

db4
Joe Groff 2010-01-15 17:06:50 -08:00
parent 4beb8192c9
commit 5c52732c0a
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/ui/ui-docs.factor
View File

@ -2,7 +2,7 @@ USING: help.markup help.syntax strings quotations debugger
namespaces ui.backend ui.gadgets ui.gadgets.worlds namespaces ui.backend ui.gadgets ui.gadgets.worlds
ui.gadgets.tracks ui.gadgets.packs ui.gadgets.grids ui.gadgets.tracks ui.gadgets.packs ui.gadgets.grids
ui.gadgets.private math.rectangles colors ui.text fonts ui.gadgets.private math.rectangles colors ui.text fonts
kernel ui.private classes sequences ; kernel ui.private vocabs.loader classes sequences ;
IN: ui IN: ui
HELP: windows HELP: windows
@ -325,6 +325,20 @@ HELP: normal-title-bar
HELP: textured-background HELP: textured-background
{ $description "Asks for a window to have a background that blends seamlessly with the window frame. Factor will leave the window background transparent and pass mouse button gestures not handled directly by a gadget through to the window system so that the window can be dragged from anywhere on its background." } ; { $description "Asks for a window to have a background that blends seamlessly with the window frame. Factor will leave the window background transparent and pass mouse button gestures not handled directly by a gadget through to the window system so that the window can be dragged from anywhere on its background." } ;
HELP: MAIN-WINDOW:
{ $syntax "MAIN-WINDOW: window-word { attributes }
attribute-code ;" }
{ $description "Defines a " { $link POSTPONE: MAIN: } " word for the current vocabulary named " { $snippet "window-word" } " that opens a UI window when the vocabulary is " { $link run } ". The " { $snippet "attributes" } " specify the key-value pairs of the window's " { $link world-attributes } ". The " { $snippet "attribute-code" } " is run with the " { $snippet "world-attributes" } " on the stack; this allows the word to construct gadget objects to place in the " { $snippet "gadget" } " slot or set other runtime-dependent world attributes." }
{ $examples
"From the " { $vocab-link "hello-ui" } " vocabulary. Creates a window with the title \"Hi\" containing a label reading \"Hello world\":"
{ $code
"""USING: accessors ui ui.gadgets.labels ;
IN: hello-ui
MAIN-WINDOW: hello { { title "Hi" } }
"Hello world" <label> >>gadgets ;"""
} } ;
ARTICLE: "ui.gadgets.worlds-window-controls" "Window controls" ARTICLE: "ui.gadgets.worlds-window-controls" "Window controls"
"The following window controls can be placed in a " { $link world } " window:" "The following window controls can be placed in a " { $link world } " window:"
{ $subsections { $subsections

2
basis/ui/ui.factor
View File

@ -249,7 +249,7 @@ HOOK: beep ui-backend ( -- )
: define-main-window ( word attributes quot -- ) : define-main-window ( word attributes quot -- )
[ [
'[ [ f _ @ open-window ] with-ui ] (( -- )) define-declared '[ [ f _ clone @ open-window ] with-ui ] (( -- )) define-declared
] [ 2drop current-vocab (>>main) ] 3bi ; ] [ 2drop current-vocab (>>main) ] 3bi ;
SYNTAX: MAIN-WINDOW: SYNTAX: MAIN-WINDOW: