35 lines
840 B
Text
35 lines
840 B
Text
// 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
|