chiark - git - mdw - e16/blob - sample-scripts/lcdmover.sh

   1 #!/bin/sh
   2
   3 # Copyright (C) 1999-2004 Hallvar Helleseth (hallvar@ii.uib.no)
   4 #
   5 # Permission is hereby granted, free of charge, to any person obtaining a copy
   6 # of this software and associated documentation files (the "Software"), to
   7 # deal in the Software without restriction, including without limitation the
   8 # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
   9 # sell copies of the Software, and to permit persons to whom the Software is
  10 # furnished to do so, subject to the following conditions:
  11 #
  12 # The above copyright notice and this permission notice shall be included in
  13 # all copies of the Software, its documentation and marketing & publicity
  14 # materials, and acknowledgment shall be given in the documentation, materials
  15 # and software packages that this Software was used.
  16 #
  17 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  18 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  19 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  20 # THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
  21 # IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  22 # CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  23
  24 # Author: Hallvar Helleseth (hallvar@ii.uib.no) - Not that I'm proud ;)
  25 # Instructions: move the top window and see what happends to the lower one.
  26 #
  27
  28 # Open dialog 1
  29 eesh -e "dialog_ok Move this window"
  30 usleep 100000
  31 eesh -e "wop Message title Dlg1"
  32 usleep 100000
  33
  34 # Open dialog 2
  35 eesh -e "dialog_ok Watch me follow the above window"
  36 usleep 100000
  37 eesh -e "wop Message title Dlg2"
  38 usleep 100000
  39
  40 # In one endless loop, get window position of the first window, then move the
  41 # second one accordingly...
  42 while true
  43 do
  44         # Get position
  45         pos=`eesh wop Dlg1 move "?"`
  46         a=0
  47         for i in $pos;do
  48                 a=$(($a + 1))
  49                 if [ $a = 3 ];then
  50                         xpos=$i
  51                 fi
  52                 if [ $a = 4 ];then
  53                         ypos=$i
  54                 fi
  55         done
  56
  57         # Move the second window to the new position
  58         eesh wop Dlg2 move $xpos $(($ypos + 74))
  59 done