#!/bin/csh
# This is a program for the example Genesis Tooling Forms.
# This file will exist in form 1.
# The purpose of this program is to help the user perform the data input.
# It is called by the "Input Data" button.
# 
# Written by Ian Ticehurst (Autom8 Ltd.)
# Version 1A. Date: 11.09.00 - Initial design and development.
# Version 1B. Date: 11.12.00 - Add source of info. file to support gui creation.
# Version 1C. Date: 12.12.00 - Re-write the gui windows to use the sourced font and colours.
# Version 1D. Date: 05.02.01 - Modify to only check job path if job moved from original location.
#                            - Add save time update to forms.
# Version 1E. Date: 09.02.01 - Modify the setting and useage of $TMP.
# Version 1F. Date: 14.03.01 - Check how "$GENESIS_EDIR" is set to ensure paths are set correctly.
######################################################################### 
source $_genesis_root/sys/scripts/include_me

set_in_progress genform1 inp

# Close Form
COM close_form,job=$JOB,form=genform1

# Open input screen.
COM input_show_page

# Set up basic screen parameters.
COM input_set_params,path=$JOB_PATH/input,job=$JOB,step=pcb

o_tooling
o FONT $NORM_FNT
o BG $NORM_COL
o BW 0
o LABEL Data Input Pop-up
o LABEL Input page has been opened
o LABEL Program will pause. Complete data input.
o LABEL Close pause box when input complete
o END

do_gui

# Pause script and ask user to complete data input.
PAUSE Press continue when input complete

# Close input screen.
COM input_hide_page

# Open Form
COM show_form,job=$JOB,form=genform1

set_complete genform1 inp

sav_job

exit 0
