Fetcher: Use a CONST for the window struct size

This commit is contained in:
Ry 2023-10-01 23:05:09 -07:00
parent 5b49163ba0
commit c2960e8fd7
4 changed files with 5 additions and 3 deletions

View File

@ -2,7 +2,7 @@ MODULE About;
IMPORT OS;
VAR aboutRunning: CHAR;
aboutWindow: ARRAY 36 OF CHAR;
aboutWindow: ARRAY WINDOW_STRUCT_SIZE OF CHAR;
PROCEDURE AboutMain();
BEGIN

View File

@ -2,7 +2,7 @@ MODULE Browser;
IMPORT OS, About, Desktop;
VAR browserRunning: CHAR;
browserWindow: ARRAY 36 OF CHAR;
browserWindow: ARRAY WINDOW_STRUCT_SIZE OF CHAR;
browserIcons: ARRAY 12 OF Fox32OSButtonWidget;
browserPage: INT;
browserNumberOfPages: INT;

View File

@ -2,7 +2,7 @@ MODULE Desktop;
IMPORT OS;
VAR desktopRunning: CHAR;
desktopWindow: ARRAY 36 OF CHAR;
desktopWindow: ARRAY WINDOW_STRUCT_SIZE OF CHAR;
desktopIcons: ARRAY 5 OF Fox32OSButtonWidget;
EXTERN diskIcon: ARRAY 1024 OF INT;

View File

@ -1,6 +1,8 @@
(* FIXME: this module should probably be moved somewhere global so all applications can use it *)
MODULE OS;
CONST WINDOW_STRUCT_SIZE = 36;
EXTERN PROCEDURE new_window, destroy_window, draw_str_to_overlay, get_window_overlay_number,
draw_widgets_to_window, draw_filled_rectangle_to_overlay, GetNextWindowEvent, DrawPixel,
save_state_and_yield_task, start_dragging_window, handle_widget_click, fill_window, fill_overlay,