! Copyright (C) 2009 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: ui.gadgets.panes ui.gadgets.borders ui io io.styles ;
+! See https://factorcode.org/license.txt for BSD license.
+USING: accessors ui.gadgets.panes ui.gadgets.borders ui io io.styles ;
IN: hello-unicode
: <hello-gadget> ( -- gadget )
{ { font-size 24 } } [
"Hello" print
"Grüß dich" print
- "здÑ\80авÑ\81Ñ\82вÑ\83йÑ\82е" print
+ "Ð\9fÑ\80ивеÑ\82" print
"こんにちは" print
"안녕하세요" print
"שָׁלוֹם " print
] with-style
] make-pane { 10 10 } <border> ;
-: hello-unicode ( -- ) <hello-gadget> "გამარჯობა" open-window ;
-
-MAIN: hello-unicode
\ No newline at end of file
+MAIN-WINDOW: hello-unicode { { title "გამარჯობა" } }
+ <hello-gadget> >>gadgets ;