nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gel.demo.mouse_selection: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2023-12-20 18:02:55 +11:00
parent 8db0ba7b2c
commit d6ad5d67c5
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
4-high/gel/applet/demo/mouse/mouse_selection/launch_mouse_selection.adb
View File

@@ -35,14 +35,13 @@ begin
lace.Event.utility.use_text_Logger ("events"); lace.Event.utility.use_text_Logger ("events");
lace.Event.utility.Logger.ignore (to_Kind (gel.Mouse.motion_Event'Tag)); lace.Event.utility.Logger.ignore (to_Kind (gel.Mouse.motion_Event'Tag));
the_Applet := gel.Forge.new_gui_Applet ("mouse_Demo", the_Applet := gel.Forge.new_gui_Applet ("mouse_Demo",
space_Kind => physics.Bullet); space_Kind => physics.Bullet);
declare declare
use ada.Calendar; use ada.Calendar;
the_Ball : constant gel.Sprite.view := gel.Forge.new_ball_Sprite (the_Applet.World (1), the_Ball : constant gel.Sprite.view := gel.Forge.new_ball_Sprite (the_Applet.World (1),
mass => 1.0); Mass => 1.0);
type retreat_Sprite is new lace.Response.item with type retreat_Sprite is new lace.Response.item with
@@ -78,7 +77,7 @@ begin
Self.Sprite.Site_is (Self.Sprite.Site + the_Applet.gui_Camera.Spin * [0.0, 0.0, 1.0]); Self.Sprite.Site_is (Self.Sprite.Site + the_Applet.gui_Camera.Spin * [0.0, 0.0, 1.0]);
end respond; end respond;
advance_Sprite_Response : aliased advance_Sprite := (lace.Response.Item with sprite => the_Ball); advance_Sprite_Response : aliased advance_Sprite := (lace.Response.item with Sprite => the_Ball);