Subversion Repositories Kolibri OS

Rev

Rev 6613 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6613 Rev 6647
Line 54... Line 54...
54 
    gets*	       : PROCEDURE [stdcall] (str, n: INTEGER): INTEGER;
 54 
    gets*	       : PROCEDURE [stdcall] (str, n: INTEGER): INTEGER;
55 
    gets2*	       : PROCEDURE [stdcall] (callback: gets2_callback; str, n: INTEGER): INTEGER;
 55 
    gets2*	       : PROCEDURE [stdcall] (callback: gets2_callback; str, n: INTEGER): INTEGER;
56 
    cls*	       : PROCEDURE [stdcall] ();
 56 
    cls*	       : PROCEDURE [stdcall] ();
57 
    get_cursor_pos*    : PROCEDURE [stdcall] (VAR x, y: INTEGER);
 57 
    get_cursor_pos*    : PROCEDURE [stdcall] (VAR x, y: INTEGER);
58 
    set_cursor_pos*    : PROCEDURE [stdcall] (x, y: INTEGER);
 58 
    set_cursor_pos*    : PROCEDURE [stdcall] (x, y: INTEGER);
- 
 
 59 
    set_title*	       : PROCEDURE [stdcall] (title: INTEGER);
Line 59... Line 60...
59 
 
 60 
 
60 
PROCEDURE open*(wnd_width, wnd_height, scr_width, scr_height: INTEGER; title: ARRAY OF CHAR);
 61 
PROCEDURE open*(wnd_width, wnd_height, scr_width, scr_height: INTEGER; title: ARRAY OF CHAR);
61 
BEGIN
 62 
BEGIN
62 
  init(wnd_width, wnd_height, scr_width, scr_height, sys.ADR(title[0]))
 63 
  init(wnd_width, wnd_height, scr_width, scr_height, sys.ADR(title[0]))
Line 92... Line 93...
92 
  GetProc(sys.ADR(gets),	      "con_gets");
 93 
  GetProc(sys.ADR(gets),	      "con_gets");
93 
  GetProc(sys.ADR(gets2),	      "con_gets2");
 94 
  GetProc(sys.ADR(gets2),	      "con_gets2");
94 
  GetProc(sys.ADR(cls), 	      "con_cls");
 95 
  GetProc(sys.ADR(cls), 	      "con_cls");
95 
  GetProc(sys.ADR(get_cursor_pos),    "con_get_cursor_pos");
 96 
  GetProc(sys.ADR(get_cursor_pos),    "con_get_cursor_pos");
96 
  GetProc(sys.ADR(set_cursor_pos),    "con_set_cursor_pos");
 97 
  GetProc(sys.ADR(set_cursor_pos),    "con_set_cursor_pos");
- 
 
 98 
  GetProc(sys.ADR(set_title),	      "con_set_title");
97 
END main;
 99 
END main;
Line 98... Line 100...
98 
 
 100 
 
99 
BEGIN
 101 
BEGIN
100 
  main
 102 
  main
101 
END ConsoleLib.
 103 
END ConsoleLib.