Fetcher: Use a CONST for the window struct size
This commit is contained in:
parent
5b49163ba0
commit
c2960e8fd7
|
@ -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
|
||||
|
|
|
@ -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;
|
||||
|
|
|
@ -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;
|
||||
|
|
|
@ -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,
|
||||
|
|
Loading…
Reference in New Issue
Block a user