1 | ------------------------------------------------------------------------------ |
---|
2 | -- -- |
---|
3 | -- Matreshka Project -- |
---|
4 | -- -- |
---|
5 | -- Web Framework -- |
---|
6 | -- -- |
---|
7 | -- Runtime Library Component -- |
---|
8 | -- -- |
---|
9 | ------------------------------------------------------------------------------ |
---|
10 | -- -- |
---|
11 | -- Copyright © 2017, Vadim Godunko <vgodunko@gmail.com> -- |
---|
12 | -- All rights reserved. -- |
---|
13 | -- -- |
---|
14 | -- Redistribution and use in source and binary forms, with or without -- |
---|
15 | -- modification, are permitted provided that the following conditions -- |
---|
16 | -- are met: -- |
---|
17 | -- -- |
---|
18 | -- * Redistributions of source code must retain the above copyright -- |
---|
19 | -- notice, this list of conditions and the following disclaimer. -- |
---|
20 | -- -- |
---|
21 | -- * Redistributions in binary form must reproduce the above copyright -- |
---|
22 | -- notice, this list of conditions and the following disclaimer in the -- |
---|
23 | -- documentation and/or other materials provided with the distribution. -- |
---|
24 | -- -- |
---|
25 | -- * Neither the name of the Vadim Godunko, IE nor the names of its -- |
---|
26 | -- contributors may be used to endorse or promote products derived from -- |
---|
27 | -- this software without specific prior written permission. -- |
---|
28 | -- -- |
---|
29 | -- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -- |
---|
30 | -- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -- |
---|
31 | -- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -- |
---|
32 | -- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -- |
---|
33 | -- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -- |
---|
34 | -- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED -- |
---|
35 | -- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR -- |
---|
36 | -- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF -- |
---|
37 | -- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -- |
---|
38 | -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -- |
---|
39 | -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -- |
---|
40 | -- -- |
---|
41 | ------------------------------------------------------------------------------ |
---|
42 | -- $Revision: 5714 $ $Date: 2017-01-22 06:40:59 +0000 (Sun, 22 Jan 2017) $ |
---|
43 | ------------------------------------------------------------------------------ |
---|
44 | |
---|
45 | package body WUI.Widgets.Main_Windows is |
---|
46 | |
---|
47 | ------------------ |
---|
48 | -- Constructors -- |
---|
49 | ------------------ |
---|
50 | |
---|
51 | package body Constructors is |
---|
52 | |
---|
53 | type W_Main_Window_Internal_Access is access all W_Main_Window'Class; |
---|
54 | |
---|
55 | ------------ |
---|
56 | -- Create -- |
---|
57 | ------------ |
---|
58 | |
---|
59 | function Create |
---|
60 | (Element : not null WebAPI.HTML.Elements.HTML_Element_Access) |
---|
61 | return not null W_Main_Window_Access |
---|
62 | is |
---|
63 | Object : not null W_Main_Window_Internal_Access |
---|
64 | := new W_Main_Window; |
---|
65 | |
---|
66 | begin |
---|
67 | Initialize (Object.all, Element); |
---|
68 | |
---|
69 | return W_Main_Window_Access (Object); |
---|
70 | end Create; |
---|
71 | |
---|
72 | ---------------- |
---|
73 | -- Initialize -- |
---|
74 | ---------------- |
---|
75 | |
---|
76 | procedure Initialize |
---|
77 | (Self : in out W_Main_Window'Class; |
---|
78 | Element : not null WebAPI.HTML.Elements.HTML_Element_Access) is |
---|
79 | begin |
---|
80 | WUI.Widgets.Constructors.Initialize (Self, Element); |
---|
81 | end Initialize; |
---|
82 | |
---|
83 | end Constructors; |
---|
84 | |
---|
85 | end WUI.Widgets.Main_Windows; |
---|