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 |