开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
Curses.pm.svn-base
资源名称：openkore-2.0.7.zip　[点击查看]
上传用户：market2
上传日期：2018-11-18
资源大小：18786k
文件大小：17k
源码类别：

外挂编程

开发平台：

Windows_Unix

Curses.pm.svn-base：源码内容
  1. #!/usr/bin/perl
  2. #########################################################################
  3. #  OpenKore - Interface::Console::Curses
  4. #  You need Curses (the Perl bindings for (n)curses)
  5. #
  6. #  Copyright (c) 2004 OpenKore development team 
  7. #
  8. #  This program is free software; you can redistribute it and/or modify
  9. #  it under the terms of the GNU General Public License as published by
  10. #  the Free Software Foundation; either version 2 of the License, or
  11. #  (at your option) any later version.
  12. #
  13. #  This program is distributed in the hope that it will be useful,
  14. #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. #  GNU General Public License for more details.
  17. #
  18. #
  19. #  $Revision$
  20. #  $Id$
  21. #
  22. #########################################################################
  23. package Interface::Console::Curses;
  25. use strict;
  26. use Curses;
  27. use Time::HiRes qw(time usleep);
  29. use Globals;
  30. use Utils;
  31. use base qw(Interface::Console);
  32. use Modules;
  34. use constant MAXHISTORY => 50;
  36. sub new {
  37. my %interface = ();
  38. bless %interface, __PACKAGE__;
  39. my $self = %interface;
  41. initscr;
  42. idlok 1;
  43. idcok 1;
  44. nonl;
  45. cbreak;
  46. noecho;
  47. intrflush 1;
  48. keypad 1;
  49. nodelay 1;
  50. start_color;
  51. use_default_colors;
  52. init_pair(1, COLOR_BLACK, -1);
  53. init_pair(2, COLOR_RED, -1);
  54. init_pair(3, COLOR_GREEN, -1);
  55. init_pair(4, COLOR_YELLOW, -1);
  56. init_pair(5, COLOR_BLUE, -1);
  57. init_pair(6, COLOR_MAGENTA, -1);
  58. init_pair(7, COLOR_CYAN, -1);
  59. init_pair(8, COLOR_WHITE, -1);
  60. $self->{winStatus} = newwin(4, 0, 0, 0);
  61. $self->{winObjects} = newwin($LINES-5, 15, 4, $COLS-15);
  62. $self->{winLog} = newwin($LINES-5, $COLS-15, 4, 0);
  63. scrollok $self->{winLog}, 1;
  64. $self->{winInput} = newwin(1, 0, $LINES-1, 0);
  65. $self->updateLayout;
  66. $self->setCursor;
  68. $self->{time_start} = time;
  70. return %interface;
  71. }
  73. sub DESTROY {
  74. my $self = shift;
  76. delwin $self->{winHelp} if ($self->{winHelp});
  77. delwin $self->{winInput};
  78. delwin $self->{winChat} if ($self->{winChat});
  79. delwin $self->{winLog};
  80. delwin $self->{winFight} if ($self->{winFight});
  81. delwin $self->{winObjects} if ($self->{winObjects});
  82. delwin $self->{winStatus};
  83. endwin;
  84. }
  86. sub iterate {
  87. my $self = shift;
  89. return if (!timeOut($self->{time_refresh}, 0.5));
  90. $self->{time_refresh} = time;
  92. if ($self->{lines} != $LINES || $self->{cols} != $COLS) {
  93. $self->updateLayout;
  94. } else {
  95. $self->updatePeriodic;
  96. }
  97. $self->setCursor;
  98. }
  100. sub getInput {
  101. my $self = shift;
  102. my $timeout = shift;
  104. my $msg;
  105. if ($timeout < 0) {
  106. while (!defined($msg)) {
  107. $msg = $self->readEvents;
  108. usleep 10000 unless defined $msg;
  109. }
  111. } elsif ($timeout > 0) {
  112. my $startTime = time;
  113. while (!timeOut($startTime, $timeout)) {
  114. $msg = $self->readEvents;
  115. last if (defined $msg);
  116. usleep 10000;
  117. }
  119. } else {
  120. $msg = $self->readEvents;
  121. }
  123. undef $msg if (defined $msg && $msg eq "");
  124. return $msg;
  125. }
  127. sub writeOutput {
  128. my $self = shift;
  129. my $type = shift;
  130. my $msg = shift;
  131. my $domain = shift;
  133. my @localtime = localtime time;
  134. my $time = sprintf("%02d:%02d:%02d", $localtime[2], $localtime[1], $localtime[0]);
  135. my $color = $consoleColors{$type}{$domain} ne "" ? lc($consoleColors{$type}{$domain}) : lc($consoleColors{$type}{default});
  136. $color = "bold|" . $color unless $color eq "" || $color =~ /^dark/;
  137. $color =~ s/^dark//g;
  138. $color =~ s/gr[ae]y/white/g;
  139. $color = "{" . $color . "}" unless $color eq "";
  140. foreach my $s (split("n", $msg)) {
  141. if ($self->{winFight} && existsInList("attackMon,attackMonMiss,attacked,attackedMiss,skill,parseMsg_damage", $domain)) {
  142. scroll $self->{winFight};
  143. $self->printw($self->{winFight}, $self->{winFightHeight} - 2, 0, "{normal}@<<<<<<< $color@*", $time, $s);
  144. } elsif ($self->{winChat} && existsInList("emotion,gmchat,guildchat,partychat,pm,publicchat,selfchat", $domain)) {
  145. scroll $self->{winChat};
  146. $self->printw($self->{winChat}, $self->{winChatHeight} - 2, 0, "{normal}@<<<<<<< $color@*", $time, $s);
  147. } else {
  148. scroll $self->{winLog};
  149. $self->printw($self->{winLog}, $self->{winLogHeight} - 1, 0, "{normal}@<<<<<<< $color@*", $time, $s);
  150. }
  151. }
  152. noutrefresh $self->{winFight} if $self->{winFight};
  153. noutrefresh $self->{winLog};
  154. noutrefresh $self->{winChat} if $self->{winChat};
  155. $self->updatePopups;
  156. $self->setCursor;
  157. }
  159. sub title {
  160. my $self = shift;
  161. my $title = shift;
  162. }
  164. sub displayUsage {
  165. my $self = shift;
  166. my $text = shift;
  168. print $text;
  169. }
  171. sub errorDialog {
  172. my $self = shift;
  173. my $msg = shift;
  174. my $fatal = shift;
  176. # FIXME: Need better error dialog
  177. print "ERROR: $msg";
  178. }
  180. ################################
  182. sub readEvents {
  183. my $self = shift;
  185. my $ch = getch();
  186. return undef if ($ch eq ERR);
  188. my $ret;
  189. while ($ch ne ERR) {
  190. if ($ch eq "r" || $ch eq KEY_ENTER) {
  191. # Enter
  192. $ret = $self->{inputBuffer};
  193. undef $self->{inputBuffer};
  194. $self->{inputPos} = 0;
  195. if (length($ret) > 0 && $ret ne $self->{inputHistory}[0]) {
  196. unshift @{$self->{inputHistory}}, $ret;
  197. pop @{$self->{inputHistory}} if (@{$self->{inputHistory}} > MAXHISTORY);
  198. }
  199. $self->{inputHistoryPos} = 0;
  200. last;
  201. } elsif ((ord($ch) == 9 || ord($ch) == 127 || $ch eq KEY_BACKSPACE) && $self->{inputBuffer}) {
  202. # Backspace
  203. $self->{inputBuffer} = substr($self->{inputBuffer}, 0, $self->{inputPos} - 1) . substr($self->{inputBuffer}, $self->{inputPos});
  204. $self->{inputPos}--;
  205. } elsif (ord($ch) == 12) {
  206. # Ctrl-L
  207. clear;
  208. $self->updateLayout;
  209. } elsif (ord($ch) == 21) {
  210. # Ctrl-U
  211. undef $self->{inputBuffer};
  212. $self->{inputPos} = 0;
  213. $self->{inputHistoryPos} = 0;
  214. } elsif ($ch == KEY_LEFT) {
  215. # Cursor left
  216. $self->{inputPos}-- if ($self->{inputPos} > 0);
  217. } elsif ($ch == KEY_RIGHT) {
  218. # Cursor right
  219. $self->{inputPos}++ if ($self->{inputPos} < length($self->{inputBuffer}));
  220. } elsif ($ch == KEY_UP) {
  221. # Input history
  222. $self->{inputHistoryPos}++ if (defined $self->{inputHistory}[$self->{inputHistoryPos}]);
  223. $self->{inputBuffer} = $self->{inputHistory}[$self->{inputHistoryPos}-1];
  224. $self->{inputPos} = length($self->{inputBuffer});
  225. } elsif ($ch == KEY_DOWN) {
  226. # Input history
  227. $self->{inputHistoryPos}-- if ($self->{inputHistoryPos} > 0);
  228. $self->{inputBuffer} = $self->{inputHistoryPos} ? $self->{inputHistory}[$self->{inputHistoryPos}-1] : "";
  229. $self->{inputPos} = length($self->{inputBuffer});
  230. } elsif ($ch == KEY_PPAGE) {
  231. # TODO: Scrollback buffer
  232. } elsif ($ch == KEY_NPAGE) {
  233. # TODO: Scrollback buffer
  234. } elsif ($ch == KEY_F(1)) {
  235. # Toggle help window
  236. $self->toggleWindow("Help");
  237. $self->updateLayout;
  238. } elsif ($ch == KEY_F(2)) {
  239. # Toggle objects window
  240. $self->toggleWindow("Objects");
  241. $self->updateLayout;
  242. } elsif ($ch == KEY_F(3)) {
  243. # Toggle fight window
  244. $self->toggleWindow("Fight");
  245. $self->updateLayout;
  246. } elsif ($ch == KEY_F(4)) {
  247. # Toggle chat window
  248. $self->toggleWindow("Chat");
  249. $self->updateLayout;
  250. } elsif (ord($ch) >= 32 && ord($ch) <= 126) {
  251. # Normal character
  252. $self->{inputBuffer} = substr($self->{inputBuffer}, 0, $self->{inputPos}) . $ch . substr($self->{inputBuffer}, $self->{inputPos});
  253. $self->{inputPos} += length($ch);
  254. }
  255. $ch = getch();
  256. }
  258. my $pos = 0;
  259. $pos += 10 while (length($self->{inputBuffer}) - $pos >= $COLS);
  260. erase $self->{winInput};
  261. addstr $self->{winInput}, 0, 0, substr($self->{inputBuffer}, $pos);
  262. noutrefresh $self->{winInput};
  263. $self->setCursor;
  265. return ($ret ne "") ? $ret : undef;
  266. }
  268. sub printw {
  269. my $self = shift;
  270. my $win = shift;
  271. my $line = shift;
  272. my $col = shift;
  273. my $picture = shift;
  274. my @params = @_;
  276. my %attrtable = (
  277. normal => A_NORMAL,
  278. underline => A_UNDERLINE,
  279. reverse => A_REVERSE,
  280. blink => A_BLINK,
  281. dim => A_DIM,
  282. bold => A_BOLD,
  283. black => COLOR_PAIR(1),
  284. red => COLOR_PAIR(2),
  285. green => COLOR_PAIR(3),
  286. yellow => COLOR_PAIR(4),
  287. blue => COLOR_PAIR(5),
  288. magenta => COLOR_PAIR(6),
  289. cyan => COLOR_PAIR(7),
  290. white => COLOR_PAIR(8)
  291. );
  293. $^A = '';
  294. formline $picture, @params;
  295. my @text = split(/{([^}]+)}/, $^A);
  296. move $win, $line, $col;
  297. for (my $i = 0; $i < @text; $i += 2) {
  298. addstr $win, $text[$i];
  299. if ($text[$i+1] ne "") {
  300. attrset $win, A_NORMAL;
  301. foreach my $attr (split(/|/, $text[$i+1])) {
  302. attron $win, $attrtable{$attr} if $attrtable{$attr};
  303. }
  304. }
  305. }
  306. }
  308. sub makeBar {
  309. my $self = shift;
  310. my $len = shift;
  311. my $cur = shift;
  312. my $max = shift;
  313. my $color1 = shift;
  314. my $treshold = shift;
  315. my $color2 = shift;
  317. $len -= 2;
  318. my $pct = $max ? ($cur / $max * 100) : 0;
  319. my $cnt = int($len * $pct / 100);
  321. my $color = ($color1 ne "") ? (($pct >= $treshold && $color2 ne "") ? $color2 : $color1) : undef;
  322. my $bar = "";
  323. $bar .= "{normal}" if $color ne "";
  324. $bar .= "[";
  325. if (!$cur && !$max) {
  326. $bar .= (" " x $len);
  327. } else {
  328. $bar .= "{".$color."}" if $color ne "";
  329. $bar .= ("#" x $cnt);
  330. $bar .= "{normal}" if $color ne "";
  331. $bar .= ("-" x ($len-$cnt));
  332. }
  333. $bar .= "]";
  335. return $bar;
  336. }
  338. sub toggleWindow {
  339. my $self = shift;
  340. my $name = shift;
  342. if (!$self->{"win".$name}) {
  343. $self->{"win".$name} = newwin(5, 0, 0, 0);
  344. scrollok $self->{"win".$name}, 1 if ($name eq "Fight" || $name eq "Chat");
  345. } else {
  346. delwin $self->{"win".$name};
  347. undef $self->{"win".$name};
  348. }
  349. }
  351. sub updateLayout {
  352. my $self = shift;
  354. # Calculate window sizes
  355. $self->{winStatusHeight} = 5;
  356. $self->{winStatusWidth} = $COLS;
  357. $self->{winObjectsHeight} = $LINES - $self->{winStatusHeight} - 2;
  358. $self->{winObjectsWidth} = int($COLS * 0.20);
  359. $self->{winObjectsWidth} = 0 unless ($self->{winObjects});
  360. $self->{winChatHeight} = int(($LINES - $self->{winStatusHeight} - 2) * 0.20);
  361. $self->{winChatHeight} = 0 unless ($self->{winChat});
  362. $self->{winChatWidth} = $COLS - $self->{winObjectsWidth};
  363. $self->{winFightHeight} = int(($LINES - $self->{winStatusHeight} - 2) * 0.20);
  364. $self->{winFightHeight} = 0 unless ($self->{winFight});
  365. $self->{winFightWidth} = $COLS - $self->{winObjectsWidth};
  366. $self->{winLogHeight} = $LINES - $self->{winStatusHeight} - $self->{winFightHeight} - $self->{winChatHeight} - 2;
  367. $self->{winLogWidth} = $COLS - $self->{winObjectsWidth};
  369. # Status window
  370. resize $self->{winStatus}, $self->{winStatusHeight}-1, $self->{winStatusWidth};
  371. mvwin $self->{winStatus}, 0, 0;
  372. hline $self->{winStatusHeight}-1, 0, 0, $self->{winStatusWidth};
  373. # Objects window
  374. if ($self->{winObjects}) {
  375. resize $self->{winObjects}, $self->{winObjectsHeight}, $self->{winObjectsWidth}-1;
  376. mvwin $self->{winObjects}, $self->{winStatusHeight}, $self->{winLogWidth}+1;
  377. vline $self->{winStatusHeight}, $self->{winLogWidth}, 0, $self->{winObjectsHeight};
  378. }
  379. # Fight window
  380. if ($self->{winFight}) {
  381. resize $self->{winFight}, $self->{winFightHeight}-1, $self->{winFightWidth};
  382. mvwin $self->{winFight}, $self->{winStatusHeight}, 0;
  383. hline $self->{winStatusHeight} + $self->{winFightHeight} - 1, 0, 0, $self->{winFightWidth};
  384. }
  385. # Log Window
  386. if ($self->{winLog}) {
  387. resize $self->{winLog}, $self->{winLogHeight}, $self->{winLogWidth};
  388. mvwin $self->{winLog}, $self->{winStatusHeight} + $self->{winFightHeight}, 0;
  389. }
  390. # Chat window
  391. if ($self->{winChat}) {
  392. hline $self->{winStatusHeight} + $self->{winFightHeight} + $self->{winLogHeight}, 0, 0, $self->{winChatWidth};
  393. resize $self->{winChat}, $self->{winChatHeight}-1, $self->{winChatWidth};
  394. mvwin $self->{winChat}, $self->{winStatusHeight} + $self->{winFightHeight} + $self->{winLogHeight} + 1, 0;
  395. }
  396. # Input window
  397. hline $LINES-2, 0, 0, $COLS;
  398. resize $self->{winInput}, 1, $COLS;
  399. mvwin $self->{winInput}, $LINES-1, 0;
  400. noutrefresh;
  402. $self->{lines} = $LINES;
  403. $self->{cols} = $COLS;
  405. $self->updateAll;
  406. }
  408. sub updateAll {
  409. my $self = shift;
  411. $self->updateStatus;
  412. $self->updateObjects;
  413. noutrefresh $self->{winFight} if ($self->{winFight});
  414. noutrefresh $self->{winLog};
  415. noutrefresh $self->{winChat} if ($self->{winChat});
  416. noutrefresh $self->{winInput};
  417. $self->updatePopups;
  418. }
  420. sub updatePeriodic {
  421. my $self = shift;
  423. $self->updateStatus;
  424. $self->updateObjects;
  425. $self->updatePopups;
  426. }
  428. sub updatePopups {
  429. my $self = shift;
  431. $self->updateHelp;
  432. }
  434. sub updateStatus {
  435. my $self = shift;
  437. return if (!$char || !$self->{winStatus});
  439. erase $self->{winStatus};
  440. my $width = int($self->{winStatusWidth} / 2);
  442. $self->printw($self->{winStatus}, 0, 0, "{bold|yellow} Char: {bold|white}@*{normal} (@*@*@*@*",
  443. $char->{name}, $jobs_lut{$char->{jobID}}, " - ", $sex_lut{$char->{sex}}, ")");
  444. my $bexpbar = $self->makeBar($width-24, $char->{exp}, $char->{exp_max});
  445. $self->printw($self->{winStatus}, 1, 0, "{bold|yellow}   Base:{normal} @<< $bexpbar (@#.##%)",
  446. $char->{lv}, $char->{exp_max} ? $char->{exp} / $char->{exp_max} * 100 : 0);
  447. my $jexpbar = $self->makeBar($width-24, $char->{exp_job}, $char->{exp_job_max});
  448. $self->printw($self->{winStatus}, 2, 0, "{bold|yellow}    Job:{normal} @<< $jexpbar (@#.##%)",
  449. $char->{lv_job}, $char->{exp_job_max} ? $char->{exp_job} / $char->{exp_job_max} * 100 : 0);
  450. $self->printw($self->{winStatus}, 3, 0, "{bold|yellow}    Map:{normal} @* (@*,@*)",
  451. $field{name}, $char->{pos}{x}, $char->{pos}{y});
  453. vline $self->{winStatus}, 0, $width-1, 0, $self->{winStatusHeight};
  454. my $hpbar = $self->makeBar($width-29, $char->{hp}, $char->{hp_max}, "bold|red", 15, "bold|green");
  455. $self->printw($self->{winStatus}, 0, $width, "{bold|yellow}     HP:{normal} @####/@#### $hpbar (@##%)",
  456. $char->{hp}, $char->{hp_max}, $char->{hp_max} ? int($char->{hp} / $char->{hp_max} * 100) : 0);
  457. my $spbar = $self->makeBar($width-29, $char->{sp}, $char->{sp_max}, "bold|blue");
  458. $self->printw($self->{winStatus}, 1, $width, "{bold|yellow}     SP:{normal} @####/@#### $spbar (@##%)",
  459. $char->{sp}, $char->{sp_max}, $char->{sp_max} ? int($char->{sp} / $char->{sp_max} * 100) : 0);
  460. my $weightbar = $self->makeBar($width-29, $char->{weight}, $char->{weight_max}, "cyan", 50, "red");
  461. $self->printw($self->{winStatus}, 2, $width, "{bold|yellow} Weight:{normal} @####/@#### $weightbar (@##%)",
  462. $char->{weight}, $char->{weight_max}, $char->{weight_max} ? int($char->{weight} / $char->{weight_max} * 100) : 0);
  463. my $statuses = ($char->{statuses}) ? join(",", keys %{$char->{statuses}}) : "none";
  464. $self->printw($self->{winStatus}, 3, $width, "{bold|yellow} Status:{normal} @*",
  465. $statuses);
  467. $self->{heartBeat} = !$self->{heartBeat};
  468. addstr $self->{winStatus}, 0, 0, $self->{heartBeat} ? ":" : ".";
  470. noutrefresh $self->{winStatus};
  471. }
  473. sub updateObjects {
  474. my $self = shift;
  476. return if (!$self->{winObjects});
  478. my $line = 0;
  479. my $namelen = $self->{winObjectsWidth} - 8;
  480. erase $self->{winObjects};
  482. # Players
  483. for (my $i = 0; $i < @playersID && $line < $self->{winObjectsHeight}; $i++) {
  484. my $id = $playersID[$i];
  485. next if ($id eq "");
  486. my $name = $players{$id}{name};
  487. my $dist = distance($char->{pos}, $players{$id}{pos});
  488. $self->printw($self->{winObjects}, $line++, 0, "{bold|cyan}@# {cyan}@".("<"x$namelen)." {normal}@#", $i, $name, $dist);
  489. }
  491. # Monsters
  492. for (my $i = 0; $i < @monstersID && $line < $self->{winObjectsHeight}; $i++) {
  493. my $id = $monstersID[$i];
  494. next if ($id eq "");
  495. my $name = $monsters{$id}{name};
  496. my $dist = distance($char->{pos}, $monsters{$id}{pos});
  497. $self->printw($self->{winObjects}, $line++, 0, "{bold|red}@# {red}@".("<"x$namelen)." {normal}@#", $i, $name, $dist);
  498. }
  500. # Items
  501. for (my $i = 0; $i < @itemsID && $line < $self->{winObjectsHeight}; $i++) {
  502. my $id = $itemsID[$i];
  503. next if ($id eq "");
  504. my $name = $items{$id}{name};
  505. my $dist = distance($char->{pos}, $items{$id}{pos});
  506. $self->printw($self->{winObjects}, $line++, 0, "{bold|green}@# {green}@".("<"x$namelen)." {normal}@#", $i, $name, $dist);
  507. }
  509. # NPCs
  510. for (my $i = 0; $i < @npcsID && $line < $self->{winObjectsHeight}; $i++) {
  511. my $id = $npcsID[$i];
  512. next if ($id eq "");
  513. my $name = $npcs{$id}{name};
  514. my $dist = distance($char->{pos}, $npcs{$id}{pos});
  515. $self->printw($self->{winObjects}, $line++, 0, "{bold|blue}@# {blue}@".("<"x$namelen)." {normal}@#", $i, $name, $dist);
  516. }
  518. noutrefresh $self->{winObjects};
  519. }
  521. sub updateHelp {
  522. my $self = shift;
  524. return if (!$self->{winHelp});
  526. my $height = 15;
  527. my $width = 70;
  528. resize $self->{winHelp}, $height, $width;
  529. mvwin $self->{winHelp}, int(($LINES-$height)/2), int(($COLS-$width)/2);
  531. erase $self->{winHelp};
  532. box $self->{winHelp}, 0, 0;
  533. my $center = "@" . ("|" x ($width-7));
  534. $self->printw($self->{winHelp}, 1, 1, " {bold|white} $center {normal}",
  535. "OpenKore v$Settings::VERSION");
  536. $self->printw($self->{winHelp}, 3, 1, " {bold|white}<F1>{normal}        Show/hide this help window");
  537. $self->printw($self->{winHelp}, 4, 1, " {bold|white}<F2>{normal}        Show/hide objects (players,monsters,items,NPCs) pane");
  538. $self->printw($self->{winHelp}, 5, 1, " {bold|white}<F3>{normal}        Show/hide fight message pane");
  539. $self->printw($self->{winHelp}, 6, 1, " {bold|white}<F4>{normal}        Show/hide chat message pane");
  540. $self->printw($self->{winHelp}, 8, 1, " {bold|white}<Ctrl-L>{normal}    Redraw screen");
  541. $self->printw($self->{winHelp}, 9, 1, " {bold|white}<Ctrl-U>{normal}    Clear input line");
  542. $self->printw($self->{winHelp}, 11, 1, " {bold|white}<Up>{normal}/{bold|white}<Down>{normal} Input history");
  543. $self->printw($self->{winHelp}, 13, 1, " {bold|blue} $center {normal}",
  544. "Visit http://openkore.sourceforge.net/ for more stuff");
  546. noutrefresh $self->{winHelp};
  547. }
  549. sub setCursor {
  550. my $self = shift;
  552. my $pos = $self->{inputPos};
  553. $pos -= 10 while ($pos >= $COLS);
  554. move $LINES - 1, $pos;
  555. noutrefresh;
  556. doupdate;
  557. }
  559. 1;