140 lines
3.3 KiB
Plaintext
Executable File
140 lines
3.3 KiB
Plaintext
Executable File
#! /usr/dt/bin/dtksh
|
|
#####################################################################
|
|
### File: dthelpgen.dtsh
|
|
###
|
|
### Default Location: /usr/dt/bin/dthelpgen.dtsh
|
|
###
|
|
### Purpose: Display a 'working' dialog for dthelpgen.
|
|
###
|
|
### Description: This shell script provides a graphical interface
|
|
### to notify the user that the help browser is
|
|
### being (re)generated.
|
|
###
|
|
### Invoked by: The the dthelpgen application.
|
|
###
|
|
### Product: @(#)Common Desktop Environment 1.0
|
|
###
|
|
### Note: Please do not modify this file.
|
|
### Later product updates will overwrite this file.
|
|
###
|
|
### Revision: $XConsortium: dthelpgen.dtsh /main/3 1995/11/07 13:13:18 rswiston $
|
|
###
|
|
### Defect(s):
|
|
###
|
|
#####################################################################
|
|
set -u
|
|
|
|
##################################################################
|
|
### Internal Globals
|
|
###
|
|
### Actually, most variables in this script are global.
|
|
###
|
|
### Most are defined in the Initialize() routine.
|
|
###
|
|
##################################################################
|
|
COMMAND_NAME=dthelpgen
|
|
#
|
|
# Exit/Return codes
|
|
#
|
|
SUCCESS=0
|
|
USAGE_EXIT=2
|
|
NO_INIT_FILE_ERR=5
|
|
|
|
failure_flag=$SUCCESS
|
|
|
|
##################################################################
|
|
### Initialize()
|
|
###
|
|
### Initialize the tile, msg and cat id.
|
|
###
|
|
##################################################################
|
|
Initialize()
|
|
{
|
|
CAT_MESG_TITLE=""
|
|
CAT_MESG_MSG=""
|
|
|
|
catopen CAT_ID $COMMAND_NAME
|
|
|
|
}
|
|
|
|
##################################################################
|
|
### Exit()
|
|
###
|
|
### All exits should go through this routine.
|
|
###
|
|
##################################################################
|
|
Exit() {
|
|
exit $1
|
|
}
|
|
|
|
################## GUI Callbacks ####################
|
|
|
|
#
|
|
# This is the callback for the 'OK' button. It will exit the program
|
|
#
|
|
OkButton()
|
|
{
|
|
XtUnmanageChild $_DT_WORKING_DIALOG_HANDLE
|
|
|
|
XSync $DISPLAY True
|
|
|
|
Exit 0
|
|
}
|
|
|
|
#
|
|
# This is the callback if the timer goes off
|
|
#
|
|
# TimerCB()
|
|
# {
|
|
#
|
|
# CAT_MESG_MSG=${CAT_MESG_MSG}"."
|
|
# XtSetValues $_DT_WORKING_DIALOG_HANDLE \
|
|
# messageString:"${CAT_MESG_MSG}"
|
|
#
|
|
# XtAppAddTimeOut TIMER_ID $TIMER_CONTEXT $TIMER_TIME "TimerCB" ""
|
|
#
|
|
# }
|
|
|
|
##################################################################
|
|
### Main()
|
|
###
|
|
### Display a 'working' dialog for dthelpgen.
|
|
###
|
|
##################################################################
|
|
|
|
Initialize
|
|
|
|
if [[ -r /usr/dt/lib/dtksh/DtFuncs.dtsh ]]
|
|
then
|
|
. /usr/dt/lib/dtksh/DtFuncs.dtsh
|
|
else
|
|
echo Sorry--cannot find initialization file.
|
|
Exit $NO_INIT_FILE_ERR
|
|
fi
|
|
|
|
XtInitialize TOPLEVEL dthelpgenDialog Dthelpgen ""
|
|
|
|
XtDisplay DISPLAY $TOPLEVEL
|
|
|
|
catgets CAT_MESG_TITLE $CAT_ID 2 6 "${COMMAND_NAME}"
|
|
catgets CAT_MESG_MSG $CAT_ID 2 7 \
|
|
"Generating browser information. Please wait."
|
|
|
|
DtkshDisplayWorkingDialog "${CAT_MESG_TITLE}" \
|
|
"${CAT_MESG_MSG}" \
|
|
"OkButton" "" "" \
|
|
DIALOG_PRIMARY_APPLICATION_MODAL
|
|
|
|
XtManageChild $_DT_WORKING_DIALOG_HANDLE
|
|
|
|
# XtWidgetToApplicationContext TIMER_CONTEXT $_DT_WORKING_DIALOG_HANDLE
|
|
# XtGetMultiClickTime TIMER_TIME $DISPLAY
|
|
# XtAppAddTimeOut TIMER_ID $TIMER_CONTEXT $TIMER_TIME "TimerCB" ""
|
|
|
|
XtMainLoop
|
|
|
|
#
|
|
# Never reached.
|
|
#
|
|
##################### eof ##############################
|