basis/bootstrap/ui/ui.factor

   1 USING: alien namespaces system combinators kernel sequences
   2 vocabs vocabs.loader ;
   3 IN: bootstrap.ui
   4
   5 "bootstrap.compiler" vocab [
   6     "ui-backend" get [
   7         {
   8             { [ os macosx? ] [ "cocoa" ] }
   9             { [ os windows? ] [ "windows" ] }
  10             { [ os unix? ] [ "x11" ] }
  11         } cond
  12     ] unless* "ui.backend." prepend require
  13
  14     "ui-text-backend" get [
  15         {
  16             { [ os macosx? ] [ "core-text" ] }
  17             { [ os windows? ] [ "pango" ] }
  18             { [ os unix? ] [ "pango" ] }
  19         } cond
  20     ] unless* "ui.text." prepend require
  21 ] when