cde/programs/dtksh/examples/DtCursorTest2.src

   1 XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
   2 XCOMM  $XConsortium: DtCursorTest2.src /main/3 1996/04/23 20:18:02 drk $
   3
   4 XCOMM #########################################################################
   5 XCOMM   (c) Copyright 1993, 1994 Hewlett-Packard Company
   6 XCOMM   (c) Copyright 1993, 1994 International Business Machines Corp.
   7 XCOMM   (c) Copyright 1993, 1994 Sun Microsystems, Inc.
   8 XCOMM   (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
   9 XCOMM       Novell, Inc.
  10 XCOMM #########################################################################
  11
  12
  13 XCOMM
  14 XCOMM  This sample shell script demonstrates how a cursor can be defined or
  15 XCOMM  undefined for an X window.
  16 XCOMM
  17
  18 XCOMM  Pushbutton Callback: set the busy cursor for the toplevel window
  19 DefineCursor()
  20 {
  21    XDefineCursor $(XtDisplay "-" $TOPLEVEL) $(XtWindow "-" $TOPLEVEL) $CURSOR
  22 }
  23
  24 XCOMM  Pushbutton Callback: remove the busy cursor from the toplevel window
  25 UndefineCursor()
  26 {
  27    XUndefineCursor $(XtDisplay "-" $TOPLEVEL) $(XtWindow "-" $TOPLEVEL)
  28 }
  29
  30 XCOMM ###################### Create the Main UI ###############################
  31
  32 XtInitialize TOPLEVEL dtCursorTest2 DtCursorTest2 "$0" "$@"
  33 XtSetValues $TOPLEVEL allowShellResize:True
  34
  35 XtCreateManagedWidget DA da XmDrawingArea $TOPLEVEL
  36 XtSetValues $DA height:200 width:200
  37
  38 XtRealizeWidget $TOPLEVEL
  39
  40 XtCreateApplicationShell TOPLEVEL2 dtCursorTest2a TopLevelShell
  41
  42 XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
  43          orientation:HORIZONTAL \
  44          numColumns:2 \
  45          packing:PACK_COLUMN
  46
  47 XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
  48         labelString:"Define Cursor"
  49 XtAddCallback $PB1 activateCallback "DefineCursor"
  50
  51 XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
  52         labelString:"Undefine Cursor"
  53 XtAddCallback $PB2 activateCallback "UndefineCursor"
  54
  55 _DtGetHourGlassCursor CURSOR $(XtDisplay "-" $TOPLEVEL)
  56
  57 XtRealizeWidget $TOPLEVEL2
  58
  59 XtMainLoop