ncurses

This topic contains 1 reply, has 1 voice, and was last updated by Simon Armstrong 1 year, 9 months ago.

Viewing 2 posts - 1 through 2 (of 2 total)

Author

Posts

July 1, 2017 at 4:46 am #9068

Simon Armstrong

Participant

ncurses allows you to draw all over a terminal window and build interactive menus and apps on Mac and Linux

[edit] now with mouse events

July 2, 2017 at 1:38 am #9078

Simon Armstrong

Participant

' ncurses.monkey2

' linux console control for monkey2
' sudo apt-get install ncurses-dev

#Import "<libc>"
#Import "<libncurses.a>"

#Import "<ncurses.h>"

Extern

struct MEVENT
	field id:short
	field x:int
	field y:int
	field z:int
	field bstate:int
end

struct mmask_t
end

class WINDOW
end

const ALL_MOUSE_EVENTS:mmask_t

const OK:int

const A_STANDOUT:int
const A_UNDERLINE:int
const A_REVERSE:int
const A_PROTECT:int
const A_INVIS:int
const A_DIM:int
const A_BOLD:int
const A_BLINK:int
const A_ALTCHARSET:int

const A_ATTRIBUTES:int
const A_CHARTEXT:int
const A_COLOR:int

global COLS:int
global LINES:int

const KEY_MOUSE:int
const KEY_DOWN:int
const KEY_UP:int
const KEY_LEFT:int
const KEY_RIGHT:int
const KEY_HOME:int
const KEY_BACKSPACE:int
const KEY_DC:int
const KEY_IC:int
const KEY_ENTER:int
const KEY_F1:int
const KEY_F2:int
const KEY_F3:int

const COLOR_BLACK:int
const COLOR_BLUE:int
const COLOR_GREEN:int
const COLOR_CYAN:int
const COLOR_RED:int
const COLOR_MAGENTA:int
const COLOR_YELLOW:int
const COLOR_WHITE:int

Function initscr()
Function noecho()
Function echo()
Function raw()
Function noraw()
Function printw:Int(text:CString)
Function refresh:Int()
function clear:int()
Function getch:Int()
function curs_set(cursor:int)

function newwin:WINDOW(w:int,h:int,x:int,y:int)
function wclear(window:WINDOW)
function wrefresh(window:WINDOW)
function box(window:WINDOW,a:int,b:int)
function wprintw(window:WINDOW,text:CString)
function mvwprintw(window:WINDOW,x:int,y:int,text:CString)
function delwin(window:WINDOW)
Function wgetch:Int(window:WINDOW)
Function endwin:Int()

function wattron(window:WINDOW,attribute:int)
function wattroff(window:WINDOW,attribute:int)

function keypad(window:WINDOW,enable:bool)

function getmouse:int(event:MEVENT ptr)

function mousemask:mmask_t(events:mmask_t, oldmask:mmask_t ptr)

Public

Function Main()

	initscr()
	noecho()
	curs_set(0)

	local w:=newwin(10,32,4,(COLS-32)/2)

	local oldmask:mmask_t
	local newmask:=mousemask(ALL_MOUSE_EVENTS, varptr oldmask)

	box(w,0,0)
	mvwprintw(w,3,2,"HELLO")
	wattron(w,A_BOLD)
	mvwprintw(w,4,2,"("+LINES+","+COLS+")")
	wattroff(w,A_BOLD)
	mvwprintw(w,8,2,"Escape To Quit")

	wrefresh(w)

	keypad(w,true)

	local e:MEVENT
	
	while true
		local key:=wgetch(w)
		mvwprintw(w,6,2,"key="+key)
		if key=27 exit
		if key=113 exit
		if key=KEY_MOUSE
			local r:=getmouse(varptr e)
			if r=OK
				mvwprintw(w,6,2,"mouse="+e.id+","+e.x+","+e.y+","+e.z+","+e.bstate+"  ")
			endif
		endif
	wend
	wclear(w)
	wrefresh(w)

	delwin(w)
	endwin()
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

' ncurses.monkey2

' linux console control for monkey2

' sudo apt-get install ncurses-dev

#Import "<libc>"

#Import "<libncurses.a>"

#Import "<ncurses.h>"

Extern

struct MEVENT

field id:short

field x:int

field y:int

field z:int

field bstate:int

end

struct mmask_t

end

class WINDOW

end

const ALL_MOUSE_EVENTS:mmask_t

const OK:int

const A_STANDOUT:int

const A_UNDERLINE:int

const A_REVERSE:int

const A_PROTECT:int

const A_INVIS:int

const A_DIM:int

const A_BOLD:int

const A_BLINK:int

const A_ALTCHARSET:int

const A_ATTRIBUTES:int

const A_CHARTEXT:int

const A_COLOR:int

global COLS:int

global LINES:int

const KEY_MOUSE:int

const KEY_DOWN:int

const KEY_UP:int

const KEY_LEFT:int

const KEY_RIGHT:int

const KEY_HOME:int

const KEY_BACKSPACE:int

const KEY_DC:int

const KEY_IC:int

const KEY_ENTER:int

const KEY_F1:int

const KEY_F2:int

const KEY_F3:int

const COLOR_BLACK:int

const COLOR_BLUE:int

const COLOR_GREEN:int

const COLOR_CYAN:int

const COLOR_RED:int

const COLOR_MAGENTA:int

const COLOR_YELLOW:int

const COLOR_WHITE:int

Function initscr()

Function noecho()

Function echo()

Function raw()

Function noraw()

Function printw:Int(text:CString)

Function refresh:Int()

function clear:int()

Function getch:Int()

function curs_set(cursor:int)

function newwin:WINDOW(w:int,h:int,x:int,y:int)

function wclear(window:WINDOW)

function wrefresh(window:WINDOW)

function box(window:WINDOW,a:int,b:int)

function wprintw(window:WINDOW,text:CString)

function mvwprintw(window:WINDOW,x:int,y:int,text:CString)

function delwin(window:WINDOW)

Function wgetch:Int(window:WINDOW)

Function endwin:Int()

function wattron(window:WINDOW,attribute:int)

function wattroff(window:WINDOW,attribute:int)

function keypad(window:WINDOW,enable:bool)

function getmouse:int(event:MEVENT ptr)

function mousemask:mmask_t(events:mmask_t, oldmask:mmask_t ptr)

Public

Function Main()

initscr()

noecho()

curs_set(0)

local w:=newwin(10,32,4,(COLS-32)/2)

local oldmask:mmask_t

local newmask:=mousemask(ALL_MOUSE_EVENTS, varptr oldmask)

box(w,0,0)

mvwprintw(w,3,2,"HELLO")

wattron(w,A_BOLD)

mvwprintw(w,4,2,"("+LINES+","+COLS+")")

wattroff(w,A_BOLD)

mvwprintw(w,8,2,"Escape To Quit")

wrefresh(w)

keypad(w,true)

local e:MEVENT

while true

local key:=wgetch(w)

mvwprintw(w,6,2,"key="+key)

if key=27 exit

if key=113 exit

if key=KEY_MOUSE

local r:=getmouse(varptr e)

if r=OK

mvwprintw(w,6,2,"mouse="+e.id+","+e.x+","+e.y+","+e.z+","+e.bstate+" ")

endif

wend

wclear(w)

wrefresh(w)

delwin(w)

endwin()

End

Author

Posts

Viewing 2 posts - 1 through 2 (of 2 total)

You must be logged in to reply to this topic.

ncurses

Archives

Recent Replies

What is this?