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

gel.demo.mouse_selection: Rid redundant procedure calls.

Browse Source
This commit is contained in:
Rod Kay
2023-12-20 18:04:31 +11:00
parent d6ad5d67c5
commit 7af505bc05
1 changed files with 0 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -108,10 +108,7 @@ begin
while the_Applet.is_open while the_Applet.is_open
loop loop
the_Applet.gui_World.evolve;
the_Ball.respond;
the_Applet.freshen; the_Applet.freshen;
next_render_Time := next_render_Time + gel.World.evolve_Period; next_render_Time := next_render_Time + gel.World.evolve_Period;
delay until next_render_Time; delay until next_render_Time;
end loop; end loop;