994772518a
This commit does three thing: 1. Sets appropriate bits on source files 2. Tells imake to build them as script files, not data files 3. Remove broken examples based on unused code
90 lines
2.6 KiB
Plaintext
90 lines
2.6 KiB
Plaintext
XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: CallbackTest2.src /main/3 1996/04/23 20:17:57 drk $
|
|
|
|
XCOMM #########################################################################
|
|
XCOMM (c) Copyright 1993, 1994 Hewlett-Packard Company
|
|
XCOMM (c) Copyright 1993, 1994 International Business Machines Corp.
|
|
XCOMM (c) Copyright 1993, 1994 Sun Microsystems, Inc.
|
|
XCOMM (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
|
|
XCOMM Novell, Inc.
|
|
XCOMM #########################################################################
|
|
|
|
|
|
XCOMM
|
|
XCOMM This sample shell script demonstrates how widget callbacks can be
|
|
XCOMM added and removed. It adds callbacks both using XtAddCallback and
|
|
XCOMM by specifying a callback as a resource, when the test pushbutton
|
|
XCOMM is created.
|
|
XCOMM
|
|
|
|
XCOMM The activate callback which can be dynamically added and removed
|
|
ActivateCallback1()
|
|
{
|
|
echo "activateCallback1 invoked"
|
|
}
|
|
|
|
XCOMM The activate callback which is added when the widget was created
|
|
ActivateCallback2()
|
|
{
|
|
echo "activateCallback2 invoked"
|
|
}
|
|
|
|
XCOMM Pushbutton Callback: Adds an activate callback to the test pushbutton
|
|
AddCallback1()
|
|
{
|
|
XtAddCallback $TESTPB activateCallback ActivateCallback1
|
|
XtGetValues $TESTPB activateCallback:AC
|
|
echo "Callback list = "$AC
|
|
}
|
|
|
|
XCOMM Pushbutton Callback: Removes an activate callback from the test pushbutton
|
|
DeleteCallback1()
|
|
{
|
|
XtRemoveCallback $TESTPB activateCallback ActivateCallback1
|
|
XtGetValues $TESTPB activateCallback:AC2
|
|
echo "Callback list = "$AC2
|
|
}
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL callbackTest CallbackTest "$0" "$@"
|
|
|
|
XtCreateManagedWidget FORM form XmForm $TOPLEVEL
|
|
|
|
XtCreateManagedWidget PB1 pb XmPushButton $FORM \
|
|
labelString:"Add Callback1" \
|
|
topAttachment:ATTACH_FORM \
|
|
topOffset:10 \
|
|
leftAttachment:ATTACH_POSITION \
|
|
leftPosition:10 \
|
|
rightAttachment:ATTACH_POSITION \
|
|
rightPosition:40 \
|
|
activateCallback:AddCallback1
|
|
|
|
XtCreateManagedWidget PB2 pb2 XmPushButton $FORM \
|
|
labelString:"Delete Callback1" \
|
|
topAttachment:ATTACH_FORM \
|
|
topOffset:10 \
|
|
leftAttachment:ATTACH_POSITION \
|
|
leftPosition:60 \
|
|
rightAttachment:ATTACH_POSITION \
|
|
rightPosition:90 \
|
|
activateCallback:DeleteCallback1
|
|
|
|
XtCreateManagedWidget TESTPB testpb XmPushButton $FORM \
|
|
labelString:"Test Button" \
|
|
topAttachment:ATTACH_WIDGET \
|
|
topWidget:$PB2 \
|
|
topOffset:20 \
|
|
leftAttachment:ATTACH_POSITION \
|
|
leftPosition:20 \
|
|
rightAttachment:ATTACH_POSITION \
|
|
rightPosition:80 \
|
|
bottomAttachment:ATTACH_FORM \
|
|
bottomOffset:10 \
|
|
activateCallback:ActivateCallback2
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtMainLoop
|