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 7597
Line 1... Line 1...
1
(*
1
(*
2
    Copyright 2016 Anton Krotov
2
    Copyright 2016, 2018 Anton Krotov
Line 3... Line 3...
3
 
3
 
4
    This program is free software: you can redistribute it and/or modify
4
    This program is free software: you can redistribute it and/or modify
5
    it under the terms of the GNU Lesser General Public License as published by
5
    it under the terms of the GNU Lesser General Public License as published by
6
    the Free Software Foundation, either version 3 of the License, or
6
    the Free Software Foundation, either version 3 of the License, or
Line 63... Line 63...
63
    res.com_area := 0;
63
    res.com_area := 0;
64
    res.type := 0;
64
    res.type := 0;
65
    res.color_type := 0;
65
    res.color_type := 0;
66
    res.procinfo := sys.ADR(res.procinf[0]);
66
    res.procinfo := sys.ADR(res.procinf[0]);
67
    res.com_area_name := sys.ADR(res.s_com_area_name[0]);
67
    res.com_area_name := sys.ADR(res.s_com_area_name[0]);
68
    res.start_path := sys.ADR("/rd/1/colrdial");
68
    res.start_path := sys.SADR("/rd/1/colrdial");
69
    res.draw_window := draw_window;
69
    res.draw_window := draw_window;
70
    res.status := 0;
70
    res.status := 0;
71
    res.X := 0;
71
    res.X := 0;
72
    res.Y := 0;
72
    res.Y := 0;
73
    res.color := 0;
73
    res.color := 0;
Line 84... Line 84...
84
END Destroy;
84
END Destroy;
Line 85... Line 85...
85
 
85
 
86
PROCEDURE Load;
86
PROCEDURE Load;
Line 87... Line 87...
87
VAR Lib: INTEGER;
87
VAR Lib: INTEGER;
88
 
88
 
89
  PROCEDURE GetProc(v: INTEGER; name: ARRAY OF CHAR);
89
  PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
90
  VAR a: INTEGER;
90
  VAR a: INTEGER;
91
  BEGIN
91
  BEGIN
92
    a := KOSAPI.GetProcAdr(name, Lib);
92
    a := KOSAPI.GetProcAdr(name, Lib);
93
    ASSERT(a # 0);
93
    ASSERT(a # 0);
Line 94... Line 94...
94
    sys.PUT(v, a)
94
    sys.PUT(v, a)
95
  END GetProc;
95
  END GetProc;
96
 
96
 
97
BEGIN
97
BEGIN
98
  Lib := KOSAPI.LoadLib("/rd/1/Lib/Proc_lib.obj");
98
  Lib := KOSAPI.LoadLib("/rd/1/Lib/Proc_lib.obj");
Line 99... Line 99...
99
  GetProc(sys.ADR(Dialog_init), "ColorDialog_init");
99
  GetProc(Lib, sys.ADR(Dialog_init), "ColorDialog_init");
100
  GetProc(sys.ADR(Dialog_start), "ColorDialog_start");
100
  GetProc(Lib, sys.ADR(Dialog_start), "ColorDialog_start");
101
END Load;
101
END Load;
102
 
102