Graph2: Stop and Resume Timer

src/Allegro5.Mod

@@ -416,6 +416,8 @@ PROCEDURE get_mouse_event_source* ["al_get_mouse_event_source"] (): PEventSource
 PROCEDURE get_display_event_source* ["al_get_display_event_source"] (display: Display): PEventSource;
 PROCEDURE get_timer_event_source* ["al_get_timer_event_source"] (timer: Timer): PEventSource;
 PROCEDURE start_timer* ["al_start_timer"] (timer: Timer);
+PROCEDURE stop_timer* ["al_stop_timer"] (timer: Timer);
+PROCEDURE resume_timer* ["al_resume_timer"] (timer: Timer);
 PROCEDURE register_event_source* ["al_register_event_source"] (queue: EventQueue; source: PEventSource);
 PROCEDURE init_user_event_source* ["al_init_user_event_source"] (VAR src: EventSource);
 PROCEDURE emit_user_event* ["al_emit_user_event"] (VAR src: EventSource; VAR event: Event; dtor: ADRINT): BOOLEAN;

src/Graph2.Mod

@@ -1171,6 +1171,14 @@ PROCEDURE StartTimer*(timer: Timer);
 BEGIN Al.start_timer(timer.tmr)
 END StartTimer;
 
+PROCEDURE StopTimer*(timer: Timer);
+BEGIN Al.stop_timer(timer.tmr)
+END StopTimer;
+
+PROCEDURE ResumeTimer*(timer: Timer);
+BEGIN Al.resume_timer(timer.tmr)
+END ResumeTimer;
+
 (* Font *)
 
 PROCEDURE GetMonoFontSize*(font: Font; VAR charW, charH: INTEGER);