44 lines
1.4 KiB
Plaintext
44 lines
1.4 KiB
Plaintext
|
MODULE Browser;
|
||
|
|
IMPORT OS;
|
||
|
|
|
||
|
|
VAR browserRunning: CHAR;
|
||
|
|
browserWindow: ARRAY 36 OF CHAR;
|
||
|
|
browserIcons: ARRAY 31 OF Fox32OSButtonWidget;
|
||
|
|
|
||
|
|
PROCEDURE BrowserMain(diskId: INT;);
|
||
|
|
BEGIN
|
||
|
|
browserRunning := 1;
|
||
|
|
|
||
|
|
(* create the window and fill it with white *)
|
||
|
|
new_window(PTROF(browserWindow), "Fetcher", 384, 192, 64, 64, 0, PTROF(browserIcons));
|
||
|
|
fill_window(0FFFFFFFFH, PTROF(browserWindow));
|
||
|
|
(*draw_widgets_to_window(PTROF(browserWindow));*)
|
||
|
|
|
||
|
|
WHILE browserRunning DO
|
||
|
|
GetNextWindowEvent(PTROF(browserWindow));
|
||
|
|
|
||
|
|
(* mouse click event *)
|
||
|
|
IF eventArgs[0] = PTROF(EVENT_TYPE_MOUSE_CLICK) THEN
|
||
|
|
IF (eventArgs[1] <| 8) & (eventArgs[2] <| 16) THEN
|
||
|
|
destroy_window(PTROF(browserWindow));
|
||
|
|
browserRunning := 0;
|
||
|
|
ELSIF eventArgs[2] <| 16 THEN
|
||
|
|
start_dragging_window(PTROF(browserWindow));
|
||
|
|
END;
|
||
|
|
handle_widget_click(PTROF(browserWindow), eventArgs[1], eventArgs[2]);
|
||
|
|
|
||
|
|
(* mouse click event *)
|
||
|
|
ELSIF eventArgs[0] = PTROF(EVENT_TYPE_BUTTON_CLICK) THEN
|
||
|
|
HandleIconClick(eventArgs[1]);
|
||
|
|
END;
|
||
|
|
|
||
|
|
save_state_and_yield_task();
|
||
|
|
END;
|
||
|
|
END;
|
||
|
|
|
||
|
|
PROCEDURE HandleIconClick(buttonId: INT;);
|
||
|
|
BEGIN
|
||
|
|
(* TODO *)
|
||
|
|
END;
|
||
|
|
END.
|