saphir/Saphir.HC

19 lines
No EOL
423 B
HolyC

U0 SaphirTask() {
I64 count;
I64 i;
CTask *task;
while (1) {
count = @windowed_task_count;
for (i = 0; i < count; i++) {
task = @windowed_task_index(i);
@set_border_doc_for_win(task);
@set_cursor_for_focused_win(task);
@draw_saphir_border_for_win(task);
@ensure_win_no_overlap_status_bar(task);
}
@update_status_bar;
Sleep(1);
}
}
Spawn(&SaphirTask, , "Saphir");