extra/hello-unicode/hello-unicode.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See https://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 ;