117 lines
4.1 KiB
Plaintext
117 lines
4.1 KiB
Plaintext
XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
|
|
XCOMM $XConsortium: XdrawTest.src /main/3 1996/04/23 20:19:28 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 the calling sequence for most of
|
|
XCOMM the X drawing commands.
|
|
XCOMM
|
|
|
|
ExposeCallback()
|
|
{
|
|
XDrawRectangle $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
10 20 100 200 \
|
|
120 20 200 100
|
|
|
|
XFillRectangle $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
-foreground red -background green 20 30 80 180
|
|
|
|
XClearArea $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
30 40 60 40 false
|
|
|
|
XDrawLine $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
-foreground red -background white 130 22 130 117
|
|
|
|
XDrawLines $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
140 30 140 101 \
|
|
150 101 150 30
|
|
|
|
XDrawLines $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
-CoordModePrevious -line_width 3 160 30 0 71 \
|
|
10 0 0 -71
|
|
|
|
XDrawPoint $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
180 30 180 101
|
|
|
|
XDrawPoints $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
190 30 190 40 190 50 190 60 190 70 190 80 190 90 190 101
|
|
|
|
XDrawPoints $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
-CoordModePrevious \
|
|
200 30 0 10 0 10 0 10 0 10 0 10 0 10 0 10
|
|
|
|
XDrawSegments $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
-function clear -foreground green -background red \
|
|
-line_width 3 \
|
|
210 30 210 40 210 50 210 60 210 70 210 80 210 90 210 100
|
|
|
|
XDrawArc $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
-line_width 3 20 300 100 150 300 5760
|
|
|
|
XFillArc $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
-line_width 3 20 270 100 150 11520 5760
|
|
|
|
XDrawString $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
-font fixed -foreground blue -background red 200 200 \
|
|
"XDrawString"
|
|
|
|
XDrawImageString $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
-foreground green -background red 200 250 \
|
|
"XDrawImageString"
|
|
|
|
XFillPolygon $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
|
|
-Convex -CoordModePrevious \
|
|
300 300 30 70 30 -140
|
|
|
|
XTextWidth "-" fixed "Hi Mom"
|
|
}
|
|
|
|
ClearWindow()
|
|
{
|
|
XClearWindow $(XtDisplay "-" $DRAWINGAREA) $(XtWindow "-" $DRAWINGAREA)
|
|
}
|
|
|
|
|
|
XCOMM ###################### Create the Main UI ###############################
|
|
|
|
XtInitialize TOPLEVEL drawingArea DrawingArea "$0" "$@"
|
|
|
|
XtCreateManagedWidget FORM form XmForm $TOPLEVEL
|
|
|
|
XtCreateManagedWidget DRAWINGAREA drawingArea XmDrawingArea $FORM \
|
|
topAttachment:ATTACH_FORM \
|
|
leftAttachment:ATTACH_FORM \
|
|
rightAttachment:ATTACH_FORM
|
|
XtAddCallback $DRAWINGAREA exposeCallback ExposeCallback
|
|
|
|
XtCreateManagedWidget SEP sep XmSeparator $FORM \
|
|
topAttachment:ATTACH_WIDGET \
|
|
topWidget:$DRAWINGAREA \
|
|
leftAttachment:ATTACH_FORM \
|
|
rightAttachment:ATTACH_FORM
|
|
|
|
XtCreateManagedWidget PB pb XmPushButton $FORM \
|
|
labelString:"Clear The Window" \
|
|
topAttachment:ATTACH_WIDGET \
|
|
topWidget:$SEP \
|
|
leftAttachment:ATTACH_FORM \
|
|
rightAttachment:ATTACH_FORM \
|
|
bottomAttachment:ATTACH_FORM
|
|
XtAddCallback $PB activateCallback ClearWindow
|
|
|
|
XtSetValues $DRAWINGAREA \
|
|
height:450 \
|
|
width:450
|
|
|
|
XtRealizeWidget $TOPLEVEL
|
|
|
|
XtMainLoop
|