programs/acmd/error.ajla

   1 {*
   2  * Copyright (C) 2024 Mikulas Patocka
   3  *
   4  * This file is part of Ajla.
   5  *
   6  * Ajla is free software: you can redistribute it and/or modify it under the
   7  * terms of the GNU General Public License as published by the Free Software
   8  * Foundation, either version 3 of the License, or (at your option) any later
   9  * version.
  10  *
  11  * Ajla is distributed in the hope that it will be useful, but WITHOUT ANY
  12  * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  13  * A PARTICULAR PURPOSE. See the GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License along with
  16  * Ajla. If not, see <https://www.gnu.org/licenses/>.
  17  *}
  18
  19 unit error;
  20
  21 uses common;
  22 uses ui.widget;
  23
  24 fn acmd_error(implicit w : world, implicit app : appstate, str1 str2 : string) : (world, appstate);
  25
  26 implementation
  27
  28 fn acmd_error(implicit w : world, implicit app : appstate, str1 str2 : string) : (world, appstate)
  29 [
  30         var winid := msgbox_new(`Error`, widget_align.center, str1 + [ u_nl ] + str2, "error-", empty(msgbox_button));
  31 ]