#!/usr/local/gnu/bin/bash
# $Header: /homes/singer/CVSROOT/MIKOSHI/SCRIPT/demo.bash,v 1.9 1994/10/07 02:32:25 singer Exp $ 
# X2gif.sh loops grabs screens and saves them as a GIF. 
# It proposes a name base on a listfile, but this name can be
# interactively changed

# where to put the results
TOBI="/homes/singer/TOBI-TRAINING/SINGER"
GIF="$TOBI/GIF"

COL="-ctb cyan1 -ct cornflowerblue -cf paleturquoise -cb cadetblue -crf white -crb steelblue" 
FONT="-adobe-helvetica-bold-r-normal--34-240-100-100-p-182-iso8859-1"

# programs
XWPICK="xwpick"
XMENU="$MIKOHOME/BIN.$OS/Xmenu"
XINPUT="$MIKOHOME/BIN.$OS/Xinput"

FILES=$(cat gomi.1)
FILES=$(cat gomi.3)	# to start at 2.3

for FILE in $FILES ; do

  COUNT=0

  while [ 1 ] ; do

  MESSAGE="filename $FILE.$COUNT.gif"

  ANSWER=$($XMENU -x 0 -y 0 -w 'file name query' $COL -f $FONT -m 10 -t "$MESSAGE" -n 1 ':::OK:::' ':::EDIT:::' ':::COUNTUP:::' ':::NEXT:::' ':::QUIT:::')

  case $ANSWER in
    :::OK:::)
  	echo "<A HREF=\"AU/$FILE.au\"><IMG SRC=\"GIF/$FILE.$COUNT.gif\" ALT=\"[GIF}\"></A>"
	examples $FILE &
  	$XMENU -x 0 -y 0 $COL -f $FONT -m 10 -t "START" -n 1 ':::OK:::'	
	echo XWPICK is starting
	$XWPICK $GIF/$FILE.$COUNT.gif
	;;
    :::NEXT:::)
	break 
	;;
    :::COUNTUP:::)
	;;
    :::EDIT:::)
	FILE=$($XINPUT -f $FONT -n 16 -t "enter file name")
	COUNT="-1"
	;;
    :::QUIT:::)
	exit 0 ;;
  esac

  let "COUNT = $COUNT + 1"

  done

done

### EOF