cde/programs/dtksh/examples/SelBoxResTest.src

   1 XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
   2 XCOMM  $XConsortium: SelBoxResTest.src /main/3 1996/04/23 20:18:42 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 verifies that the selection box properly
  15 XCOMM  interprets the 'childPlacement' resource.  Using a timer, it will
  16 XCOMM  set the resource to a particular value, verify it is correct, and
  17 XCOMM  then repeat for the next setting.
  18 XCOMM
  19
  20 Timeout3()
  21 {
  22    XtGetValues $SB childPlacement:CP
  23    echo ChildPlacement
  24    echo "   Expected = PLACE_TOP"
  25    echo "   Actual   = " $CP
  26 }
  27
  28 Timeout2()
  29 {
  30    XtGetValues $SB childPlacement:CP
  31    echo ChildPlacement
  32    echo "   Expected = PLACE_BELOW_SELECTION"
  33    echo "   Actual   = " $CP
  34    XtSetValues $SB childPlacement:PLACE_TOP
  35    XtAddTimeOut ID 5000 "Timeout3"
  36 }
  37
  38 Timeout1()
  39 {
  40    XtGetValues $SB childPlacement:CP
  41    echo ChildPlacement
  42    echo "   Expected = PLACE_ABOVE_SELECTION"
  43    echo "   Actual   = " $CP
  44    XtSetValues $SB childPlacement:PLACE_BELOW_SELECTION
  45    XtAddTimeOut ID 5000 "Timeout2"
  46 }
  47
  48
  49 XCOMM ###################### Create the Main UI ###############################
  50
  51 XtInitialize TOPLEVEL selectionBoxTest SelectionBoxTest "$0" "$@"
  52
  53 XtCreateManagedWidget SB sb XmSelectionBox $TOPLEVEL \
  54         childPlacement:PLACE_ABOVE_SELECTION
  55
  56 XtCreateManagedWidget SCALE scale XmScale $SB \
  57         orientation:HORIZONTAL
  58
  59 XtRealizeWidget $TOPLEVEL
  60
  61 XtAddTimeOut ID 5000 "Timeout1"
  62
  63 XtMainLoop