64 lines
2.0 KiB
Plaintext
Executable File
64 lines
2.0 KiB
Plaintext
Executable File
XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: XCursorTest1.src /main/3 1996/04/23 20:19:21 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 the 'call' command can be used
|
|
XCOMM to obtain an 'X' cursor, and then how that cursor can be set for a
|
|
XCOMM widget hierarchy.
|
|
XCOMM
|
|
|
|
XCOMM Pushbutton Callback: set the cursor for the widget hierarchy
|
|
DefineCursor()
|
|
{
|
|
XDefineCursor $(XtDisplay "-" $TOPLEVEL) $(XtWindow "-" $TOPLEVEL) $CURSOR
|
|
}
|
|
|
|
XCOMM Pushbutton Callback: unset the cursor for the widget hierarchy
|
|
UndefineCursor()
|
|
{
|
|
XUndefineCursor $(XtDisplay "-" $TOPLEVEL) $(XtWindow "-" $TOPLEVEL)
|
|
}
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL xCursorTest XCursorTest "$0" "$@"
|
|
XtSetValues $TOPLEVEL allowShellResize:True
|
|
|
|
XtCreateManagedWidget DA da XmDrawingArea $TOPLEVEL
|
|
XtSetValues $DA height:200 width:200
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtCreateApplicationShell TOPLEVEL2 xCursorTesta TopLevelShell
|
|
|
|
XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
|
|
orientation:HORIZONTAL \
|
|
numColumns:2 \
|
|
packing:PACK_COLUMN
|
|
|
|
XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
|
|
labelString:"Define Cursor"
|
|
XtAddCallback $PB1 activateCallback "DefineCursor"
|
|
|
|
XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
|
|
labelString:"Undefine Cursor"
|
|
XtAddCallback $PB2 activateCallback "UndefineCursor"
|
|
|
|
XCOMM Call the X function for getting a cursor
|
|
call XCreateFontCursor $(XtDisplay "-" $TOPLEVEL) 10
|
|
CURSOR=$RET
|
|
echo "Cursor = "$CURSOR
|
|
|
|
XtRealizeWidget $TOPLEVEL2
|
|
|
|
XtMainLoop
|