package/base/stone/stone_gui_x11.sh

   1 # --- T2-COPYRIGHT-NOTE-BEGIN ---
   2 # T2 SDE: package/*/stone/stone_gui_x11.sh
   3 # Copyright (C) 2004 - 2022 The T2 SDE Project
   4 # Copyright (C) 1998 - 2003 ROCK Linux Project
   5 #
   6 # This Copyright note is generated by scripts/Create-CopyPatch,
   7 # more information can be found in the files COPYING and README.
   8 #
   9 # This program is free software; you can redistribute it and/or modify
  10 # it under the terms of the GNU General Public License version 2.
  11 # --- T2-COPYRIGHT-NOTE-END ---
  12
  13 if ! Xdialog --infobox 'Test' 0 0 1; then
  14         echo
  15         echo "Fatal ERROR: Can't display Xdialog windows!"
  16         echo
  17         echo "Maybe the \$DISPLAY variable is not set or you don't have"
  18         echo "permissions to connect to the X-Server."
  19         exit 1
  20 fi
  21
  22 . ${SETUPD}/gui_dialog.sh
  23
  24 gui_dialog() {
  25         Xdialog --stdout --title 'STONE - Setup Tool ONE - T2 System Configuration' "$@"
  26 }
  27
  28 gui_edit() {
  29         # find editor
  30         for x in $EDITOR vi nvi emacs xemacs pico ; do
  31                 if which $x > /dev/null
  32                 then xx=$x ; break; fi
  33         done
  34         if [ "$xx" ]; then
  35                 xterm -T "STONE - $1" -n "STONE" -e bash -c "$xx $2"
  36         else
  37                 gui_message "Cannot find any editor. Make sure \$EDITOR is set."
  38         fi
  39 }
  40
  41 gui_cmd() {
  42         title="$1" ; shift
  43         xterm -T "STONE - $title" -n "STONE" -e bash -c "$@
  44                         read -p 'Press ENTER to continue'"
  45 }