Subversion Repositories Kolibri OS

Rev

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

Rev 9628 Rev 9630
Line 49... Line 49...
49 
	END;
 49 
	END;
Line 50... Line 50...
50 
 
 50 
 
Line 51... Line 51...
51 
 
 51 
 
52 
VAR
 52 
VAR
53 
 
 53 
 
54 
	paint     *: PROCEDURE (eb: tEditBox);
 54 
	draw      *: PROCEDURE (eb: tEditBox);
Line 122... Line 122...
122 
VAR
 122 
VAR
123 
	Lib: INTEGER;
 123 
	Lib: INTEGER;
124 
BEGIN
 124 
BEGIN
125 
	Lib := KOSAPI.LoadLib("/sys/lib/box_lib.obj");
 125 
	Lib := KOSAPI.LoadLib("/sys/lib/box_lib.obj");
126 
	ASSERT(Lib # 0);
 126 
	ASSERT(Lib # 0);
127 
	GetProc(Lib, SYSTEM.ADR(paint),     "edit_box_draw");
 127 
	GetProc(Lib, SYSTEM.ADR(draw),      "edit_box_draw");
128 
	GetProc(Lib, SYSTEM.ADR(key),       "edit_box_key_safe");
 128 
	GetProc(Lib, SYSTEM.ADR(key),       "edit_box_key_safe");
129 
	GetProc(Lib, SYSTEM.ADR(mouse),     "edit_box_mouse");
 129 
	GetProc(Lib, SYSTEM.ADR(mouse),     "edit_box_mouse");
130 
	GetProc(Lib, SYSTEM.ADR(_setValue), "edit_box_set_text");
 130 
	GetProc(Lib, SYSTEM.ADR(_setValue), "edit_box_set_text");
131 
END main;
 131 
END main;