// Terminal control/Hiding the cursor
// https://rosettacode.org/wiki/Terminal_control/Hiding_the_cursor#


_window = 1
begin enum 1
  _scrollView
  _textView
end enum

void local fn BuildWindow
  CGRect r = fn NSMakeRect(0,0,550,400)
  window _window, @"Hide Cursor", r
  scrollview _scrollView, r
  ViewSetAutoresizingMask( _scrollView, NSViewWidthSizable + NSViewHeightSizable )
  textview _textView,, _scrollView
  TextSetString( _textView, @"Cursor hides every two seconds. " )
  WindowMakeFirstResponder( _window, _textView )
end fn

editmenu 1

fn BuildWindow

local fn HiddenCursorToggle
  if fn TextViewIsEditable(_textView)
    TextViewSetEditable(_textView,_false)
  else
    TextViewSetEditable(_textView,_true)
  end if
end fn

fn AppSetTimer( 2, @Fn HiddenCursorToggle, _true )  // hide cursor every two seconds

HandleEvents