_window = 1
begin enum output 1
  _scrollView
  _textView
end enum

void local fn BuildWindow
  CGRect r = fn CGRectMake( 0, 0, 550, 400 )
  window _window, @"Unicode Characters in FutureBasic", r

  scrollview _scrollView, r
  ViewSetAutoresizingMask( _scrollView, NSViewWidthSizable + NSViewHeightSizable )
  textview _textView,, _scrollView

  CFMutableStringRef testStr = fn MutableStringWithCapacity( 0 )

  MutableStringAppendString( testStr, @"\U0001F34C" )
  MutableStringAppendString( testStr, @"\U0001F444" )
  MutableStringAppendString( testStr, @"\U0001F41E" )
  MutableStringAppendString( testStr, @"\U0001F37A" )
  MutableStringAppendString( testStr, @"\U0001F41D" )
  MutableStringAppendString( testStr, @"\U0001F48A" )
  MutableStringAppendString( testStr, @"☎️" )
  MutableStringAppendString( testStr, @"\U0001F4A1" )
  MutableStringAppendString( testStr, @"🍎" )
  MutableStringAppendString( testStr, @"⚽️" )
  MutableStringAppendString( testStr, @"🚁" )
  MutableStringAppendString( testStr, @"⏰" )
  MutableStringAppendString( testStr, @"\u2699\uFE0F" )
  MutableStringAppendString( testStr, @"\U0001F69C" )
  MutableStringAppendString( testStr, @"\U0001F333" )
  MutableStringAppendString( testStr, @"\U0001F413" )
  MutableStringAppendString( testStr, @"\U0001F6A3" )
  MutableStringAppendString( testStr, @"\U0001F6C1" )

  TextSetString( _textView, testStr )

  CFMutableAttributedStringRef storage = (CFMutableAttributedStringRef)fn TextViewTextStorage( _textView )
  MutableAttributedStringSetFontWithName( storage, @"Menlo", 110 )

  WindowMakeFirstResponder( _window, _textView )
end fn

editmenu 1

fn BuildWindow

HandleEvents