help.html: only input.focus().
[factor.git] / extra / hello-unicode / hello-unicode.factor
1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors ui.gadgets.panes ui.gadgets.borders ui io io.styles ;
4 IN: hello-unicode
5
6 : <hello-gadget> ( -- gadget )
7     [
8         { { font-size 24 } } [
9             "Hello" print
10             "Grüß dich" print
11             "Привет" print
12             "こんにちは" print
13             "안녕하세요" print
14             "שָׁלוֹם " print
15         ] with-style
16     ] make-pane { 10 10 } <border> ;
17
18 MAIN-WINDOW: hello-unicode { { title "გამარჯობა" } }
19     <hello-gadget> >>gadgets ;