[Spiderape-cvs] SF.net SVN: spiderape: [44] plugins/ncurses/scripts/mouse.js

[<sg...@us...>]

Revision: 44
          http://spiderape.svn.sourceforge.net/spiderape/?rev=44&view=rev
Author:   sgbeal
Date:     2007-09-28 00:10:42 -0700 (Fri, 28 Sep 2007)

Log Message:
-----------
egg

Added Paths:
-----------
    plugins/ncurses/scripts/mouse.js

Added: plugins/ncurses/scripts/mouse.js
===================================================================
--- plugins/ncurses/scripts/mouse.js	                        (rev 0)
+++ plugins/ncurses/scripts/mouse.js	2007-09-28 07:10:42 UTC (rev 44)
@@ -0,0 +1,35 @@
+assert(open_dll('../ncurses.so'));
+
+nc_initscr();
+nc_scrollok(stdscr,true);
+nc_noecho();
+var sub = nc_subwin(stdscr,3,4,5,6);
+nc_wbkgd( sub, ncurses["-"] | nc_color("white","red"));
+nc_capture_cout(stdscr);
+nc_wmove(stdscr,12,0);
+print("nc_getparyx(sub) ==",nc_getparyx(sub).toSource());
+print("nc_getparyx(sub).y ==",nc_getparyx(sub).y);
+print("nc_getpary(sub) ==",nc_getpary(sub));
+print("nc_getparx(sub) ==",nc_getparx(sub));
+
+if( 0 ) {
+	for( var i = 0; i < 4; ++i ) {
+		print("nc_curs_set("+i+") ==",nc_curs_set(i));
+		nc_getch();
+	}
+}
+if( 1 ) {
+	print( "mouse ?? ==",ncurses.MOUSE_VERSION );
+	print("Play with the mouse. Tap 'q' to quit.");
+	var key = 0;
+	while( ascii('q') != (key = nc_wgetch(stdscr)) ) {
+		if( key == ncurses.KEY_MOUSE ) {
+			var evt = nc_getmouse();
+			print( "mouse :",key,evt.toSource() );
+		}
+	}
+}
+
+print("Tap any key to exit.");
+nc_wgetch(stdscr);
+nc_endwin();


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.