Subversion Repositories Kolibri OS

Rev

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

Rev 9630 Rev 9645
Line 47... Line 47...
47 
		(* The following struct members are not used by the users of API *)
 47 
		(* The following struct members are not used by the users of API *)
48 
		offset, cl_curs_x, cl_curs_y, shift, shift_old, height, char_width: INTEGER
 48 
		offset, cl_curs_x, cl_curs_y, shift, shift_old, height, char_width: INTEGER
49 
	END;
 49 
	END;
Line 50... Line -...
50 
 
 - 
 
51 
 
 - 
 
52 
VAR
 50 
 
53 
 
 51 
 
54 
	draw      *: PROCEDURE (eb: tEditBox);
 52 
PROCEDURE [stdcall, "box_lib.obj", "edit_box_draw"]     draw* (eb: tEditBox); END;
55 
	mouse     *: PROCEDURE (eb: tEditBox);
 53 
PROCEDURE [stdcall, "box_lib.obj", "edit_box_mouse"]    mouse* (eb: tEditBox); END;
56 
	_setValue  : PROCEDURE (eb: tEditBox; text: INTEGER);
 - 
 
Line 57... Line 54...
57 
	key       *: PROCEDURE (eb: tEditBox; key: INTEGER);
 54 
PROCEDURE [stdcall, "box_lib.obj", "edit_box_set_text"] _setValue (eb: tEditBox; text: INTEGER); END;
58 
 
 55 
PROCEDURE [stdcall, "box_lib.obj", "edit_box_key_safe"] key* (eb: tEditBox; key: INTEGER); END;
59 
 
 56 
 
Line 106... Line 103...
106 
    editbox.mouse_variable := 0;
 103 
    editbox.mouse_variable := 0;
107 
    editbox.flags := {14}
 104 
    editbox.flags := {14}
108 
END create;
 105 
END create;
Line 109... Line -...
109 
 
 - 
 
110 
 
 - 
 
111 
PROCEDURE GetProc (Lib, v: INTEGER; name: ARRAY OF CHAR);
 - 
 
112 
VAR
 - 
 
113 
	a: INTEGER;
 - 
 
114 
BEGIN
 - 
 
115 
	a := KOSAPI.GetProcAdr(name, Lib);
 - 
 
116 
	ASSERT(a # 0);
 - 
 
117 
	SYSTEM.PUT(v, a)
 - 
 
118 
END GetProc;
 - 
 
119 
 
 - 
 
120 
 
 - 
 
121 
PROCEDURE main;
 - 
 
122 
VAR
 - 
 
123 
	Lib: INTEGER;
 - 
 
124 
BEGIN
 - 
 
125 
	Lib := KOSAPI.LoadLib("/sys/lib/box_lib.obj");
 - 
 
126 
	ASSERT(Lib # 0);
 - 
 
127 
	GetProc(Lib, SYSTEM.ADR(draw),      "edit_box_draw");
 - 
 
128 
	GetProc(Lib, SYSTEM.ADR(key),       "edit_box_key_safe");
 - 
 
129 
	GetProc(Lib, SYSTEM.ADR(mouse),     "edit_box_mouse");
 - 
 
130 
	GetProc(Lib, SYSTEM.ADR(_setValue), "edit_box_set_text");
 - 
 
131 
END main;
 - 
 
132 
 
 - 
 
133 
 
 - 
 
134 
BEGIN
 106 
 
135 
	main
 107