From 7af505bc05f05aa66e1b9b3d31039b35b6308276 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Wed, 20 Dec 2023 18:04:31 +1100 Subject: [PATCH] gel.demo.mouse_selection: Rid redundant procedure calls. --- .../demo/mouse/mouse_selection/launch_mouse_selection.adb | 3 --- 1 file changed, 3 deletions(-) diff --git a/4-high/gel/applet/demo/mouse/mouse_selection/launch_mouse_selection.adb b/4-high/gel/applet/demo/mouse/mouse_selection/launch_mouse_selection.adb index 1d9b200..0474c11 100644 --- a/4-high/gel/applet/demo/mouse/mouse_selection/launch_mouse_selection.adb +++ b/4-high/gel/applet/demo/mouse/mouse_selection/launch_mouse_selection.adb @@ -108,10 +108,7 @@ begin while the_Applet.is_open loop - the_Applet.gui_World.evolve; - the_Ball.respond; the_Applet.freshen; - next_render_Time := next_render_Time + gel.World.evolve_Period; delay until next_render_Time; end loop;