! $XConsortium: TranslationsUil.uil /main/4 1996/07/15 15:11:15 drk $
!
! Motif
!
! Copyright (c) 1987-2012, The Open Group. All rights reserved.
!
! These libraries and programs are free software; you can
! redistribute them and/or modify them under the terms of the GNU
! Lesser General Public License as published by the Free Software
! Foundation; either version 2 of the License, or (at your option)
! any later version.
!
! These libraries and programs are distributed in the hope that
! they will be useful, but WITHOUT ANY WARRANTY; without even the
! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
! PURPOSE. See the GNU Lesser General Public License for more
! details.
!
! You should have received a copy of the GNU Lesser General Public
! License along with these librararies and programs; if not, write
! to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
! Floor, Boston, MA 02110-1301 USA
!
!
! HISTORY
!

!
! TranslationsUil.uil
!


module test
    version = 'v1.0'
    names = case_sensitive
    character_set=iso_latin1
    objects = { }

procedure
        quit(string);

list 
  button_translations:
  arguments
  {
     XmNtranslations =
      translation_table
      (
       '#override',
       '<Btn1Down>, <Btn1Up>: actSetTextCb()',
        'Ctrl<Key>q: actquit()'
      );
     XmNaccelerators =
      translation_table
      (
       '#override',
       'Ctrl<Key>a: actSetTextCb()'
      );
  };
  done_translations:
  arguments
  {
     XmNtranslations =
      translation_table
      (
       '#override',
       '<Btn1Down>: actquit()',
        'Ctrl<Key>q: actquit()'
      );
  };
  appMain_translations:
  arguments
  {
     XmNtranslations =
      translation_table
      (
       '#override',
       'Ctrl<Key>q: actquit()'
      );
  };
  text_translations:
  arguments
  {
     XmNtranslations =
      translation_table
      (
       '#override',
       'Ctrl<Key>q: actquit()',
       'Ctrl<Key>b: beginning-of-line()',
       'Ctrl<Key>e: end-of-line()'
      );
  };


object appMain : XmForm {
    arguments {

        arguments appMain_translations;

        XmNdefaultButton = XmPushButton squeeze;
    }; 
    controls {
        XmTextField text;
        XmPushButton squeeze;
        XmPushButton done; 
    };
};

object text : XmTextField {
    arguments {

        arguments text_translations;

        XmNtopAttachment = XmATTACH_POSITION; XmNtopPosition = 0;
        XmNbottomAttachment = XmATTACH_POSITION; XmNbottomPosition = 100;
        XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 10;
        XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 40;
    };
};


object squeeze : XmPushButton {


    arguments {

        arguments button_translations;

        XmNtopAttachment = XmATTACH_POSITION; XmNtopPosition = 0;
        XmNbottomAttachment = XmATTACH_POSITION; XmNbottomPosition = 100;
        XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 50;
        XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 80;

        XmNlabelString = "Change My Label";
     };
};


object done : XmPushButton {

    arguments {

        arguments done_translations;

        XmNtopAttachment = XmATTACH_POSITION; XmNtopPosition = 0;
        XmNbottomAttachment = XmATTACH_POSITION; XmNbottomPosition = 100;
        XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 85;
        XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 95;

        XmNlabelString = "Done";
    };
};

end module;




