cde/programs/dtksh/examples/TransTest1.src

   1 XCOMM! CDE_INSTALLATION_TOP/bin/dtksh
   2 XCOMM  $XConsortium: TransTest1.src /main/3 1996/04/23 20:19:11 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 the operation of augmented and
  15 XCOMM  overridden translations.  If the translations are cleared, then both
  16 XCOMM  overriding and augmenting the translations will cause all of the new
  17 XCOMM  translations to take effect.
  18 XCOMM
  19
  20 Enter()
  21 {
  22    echo "EnterNotify ("$1")"
  23 }
  24
  25 BtnDown()
  26 {
  27    echo "ButtonDown ("$1")"
  28 }
  29
  30 Activate()
  31 {
  32    echo "Activate"
  33 }
  34
  35 Augment()
  36 {
  37    XtAugmentTranslations $PB \
  38         '<EnterNotify>:ksh_eval("Enter augmented")
  39         <Btn1Down>:ksh_eval("BtnDown 1")
  40         <Btn3Down>:ksh_eval("BtnDown 3")'
  41 }
  42
  43 Override()
  44 {
  45    XtOverrideTranslations $PB \
  46         '<EnterNotify>:ksh_eval("Enter overridden")
  47         <Btn1Down>:ksh_eval("BtnDown 1")'
  48 }
  49
  50 Uninstall()
  51 {
  52    XtUninstallTranslations $PB
  53 }
  54
  55
  56 XCOMM ###################### Create the Main UI ###############################
  57
  58 XtInitialize TOPLEVEL transTest1 TransTest1 "$0" "$@"
  59 XtSetValues $TOPLEVEL allowShellResize:True
  60
  61 XmCreateForm FORM $TOPLEVEL form
  62 XtManageChild $FORM
  63
  64 XtCreateManagedWidget PB pb XmPushButton $FORM \
  65         labelString:"Test Button"
  66 XtAddCallback $PB activateCallback "Activate"
  67
  68 XtRealizeWidget $TOPLEVEL
  69
  70 XtCreateApplicationShell TOPLEVEL2 listAdd1a TopLevelShell
  71
  72 XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
  73          orientation:HORIZONTAL \
  74          numColumns:2 \
  75          packing:PACK_COLUMN
  76
  77 XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
  78         labelString:"Augment Translations"
  79 XtAddCallback $PB1 activateCallback "Augment"
  80
  81 XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
  82         labelString:"Override Translations"
  83 XtAddCallback $PB2 activateCallback "Override"
  84
  85 XtCreateManagedWidget PB3 pb3 XmPushButton $RC \
  86         labelString:"Uninstall Translations"
  87 XtAddCallback $PB3 activateCallback "Uninstall"
  88
  89 XtRealizeWidget $TOPLEVEL2
  90
  91 XtMainLoop