[Spiderape-cvs] SF.net SVN: spiderape: [44] plugins/ncurses/scripts/mouse.js
Status: Beta
Brought to you by:
sgbeal
|
From: <sg...@us...> - 2007-09-28 07:10:43
|
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.
|