#! /usr/dt/bin/dtksh

#
# This sample shell script demonstrates how the CB_WIDGET and CB_CALL_DATA
# convenience environment variables can be referenced within a callback
# function.
#


#Callback handler for PB1 pushbutton
PB1Call()
{
   XmTextSetString $TEXT "You selected a Text Editor"
   /usr/dt/bin/dtpad&
}

PB2Call()
{
   XmTextSetString $TEXT "You selected a Terminal Window"
   /usr/dt/bin/dtterm&
}

PB3Call()
{
   XmTextSetString $TEXT "You selected a Calculator"
   /usr/dt/bin/dtcalc&
}

PB4Call()
{
   XmTextSetString $TEXT "You selected the Print Program"
   /usr/dt/bin/dtlp&
}

######################### Create the Main UI #################################

XtInitialize TOPLEVEL command1 Command1 "$0" "$@"


XtCreateManagedWidget FORM form XmForm $TOPLEVEL

XtCreateManagedWidget TEXT text XmText $FORM \
	leftAttachment:ATTACH_FORM \
	leftOffset:50  \
	rightAttachment:ATTACH_FORM \
	rightOffset:50  

XtCreateManagedWidget PB1 pushbutton XmPushButton $FORM \
	labelString:"Text Editor" \
	topAttachment:ATTACH_WIDGET \
	topWidget:$TEXT \
	topOffset:30 \
	leftAttachment:ATTACH_FORM \
	leftOffset:10
XtAddCallback $PB1 activateCallback  PB1Call

XtCreateManagedWidget PB2 pushbutton XmPushButton $FORM \
	labelString:"Terminal" \
	topAttachment:ATTACH_WIDGET \
	topWidget:$TEXT \
	topOffset:30 \
	leftAttachment:ATTACH_FORM \
	leftOffset:120
XtAddCallback $PB2 activateCallback  PB2Call

XtCreateManagedWidget PB3 pushbutton XmPushButton $FORM \
	labelString:"Calculator" \
	topAttachment:ATTACH_WIDGET \
	topWidget:$TEXT \
	topOffset:30 \
	leftAttachment:ATTACH_FORM \
	leftOffset:230
XtAddCallback $PB3 activateCallback  PB3Call

XtCreateManagedWidget PB4 pushbutton XmPushButton $FORM \
	labelString:"Print something" \
	topAttachment:ATTACH_WIDGET \
	topWidget:$TEXT \
	topOffset:30 \
	rightAttachment:ATTACH_FORM \
	rightOffset:10 \
	leftAttachment:ATTACH_FORM \
	leftOffset:340
XtAddCallback $PB4 activateCallback  PB4Call

XtCreateManagedWidget SEP sep XmSeparator $FORM \
	topAttachment:ATTACH_WIDGET \
	topWidget:$SCALE \
	topOffset:30 \
	leftAttachment:ATTACH_FORM \
	rightAttachment:ATTACH_FORM


XtRealizeWidget $TOPLEVEL

XtMainLoop