source: trunk/design/ui/source/wui-events-mouse-wheel.adb

Last change on this file was 5682, checked in by vadim.godunko, 3 years ago

Rename root package.

  • Property svn:keywords set to Author Date Revision
File size: 4.6 KB
Line 
1------------------------------------------------------------------------------
2-- --
3-- Matreshka Project --
4-- --
5-- Web Framework --
6-- --
7-- Runtime Library Component --
8-- --
9------------------------------------------------------------------------------
10-- --
11-- Copyright © 2016-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: 5682 $ $Date: 2017-01-10 21:55:53 +0000 (Tue, 10 Jan 2017) $
43------------------------------------------------------------------------------
44
45package body WUI.Events.Mouse.Wheel is
46
47 ------------------
48 -- Constructors --
49 ------------------
50
51 package body Constructors is
52
53 ----------------
54 -- Initialize --
55 ----------------
56
57 procedure Initialize
58 (Self : in out Mouse_Wheel_Event'Class;
59 Event : not null access WebAPI.UI_Events.Wheel.Wheel_Event'Class) is
60 begin
61 WUI.Events.Mouse.Constructors.Initialize (Self, Event);
62 end Initialize;
63
64 end Constructors;
65
66 -------------
67 -- Delta_X --
68 -------------
69
70 function Delta_X (Self : Mouse_Wheel_Event'Class) return Long_Float is
71 begin
72 return
73 Long_Float
74 (WebAPI.UI_Events.Wheel.Wheel_Event'Class
75 (Self.Event.all).Get_Delta_X);
76 end Delta_X;
77
78 -------------
79 -- Delta_Y --
80 -------------
81
82 function Delta_Y (Self : Mouse_Wheel_Event'Class) return Long_Float is
83 begin
84 return
85 Long_Float
86 (WebAPI.UI_Events.Wheel.Wheel_Event'Class
87 (Self.Event.all).Get_Delta_Y);
88 end Delta_Y;
89
90 -------------
91 -- Delta_Z --
92 -------------
93
94 function Delta_Z (Self : Mouse_Wheel_Event'Class) return Long_Float is
95 begin
96 return
97 Long_Float
98 (WebAPI.UI_Events.Wheel.Wheel_Event'Class
99 (Self.Event.all).Get_Delta_Z);
100 end Delta_Z;
101
102end WUI.Events.Mouse.Wheel;
Note: See TracBrowser for help on using the repository browser.