705N/A!************************************************************************
705N/A!* Copyright 1987, 1988, 1989, 1990, 1991, 1992, 1993 *
705N/A!* by Digital Equipment Corp., Maynard, MA *
705N/A!* Permission to use, copy, modify, and distribute this software *
705N/A!* and its documentation for any purpose and without fee is hereby *
705N/A!* granted, provided that the above copyright notice appear in all *
705N/A!* copies and that both that copyright notice and this permission *
705N/A!* notice appear in supporting documentation, and that the name of *
705N/A!* Digital not be used in advertising or publicity pertaining to *
705N/A!* distribution of the software without specific, written prior *
705N/A!* DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, *
705N/A!* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND *
705N/A!* FITNESS, IN NO EVENT SHALL DIGITAL BE LIABLE FOR ANY SPECIAL, *
705N/A!* INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER *
705N/A!* RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN *
705N/A!* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, *
705N/A!* ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE *
705N/A!************************************************************************
705N/A!****************************************************************************
705N/A!* Copyright 1993 Sun Microsystems, Inc. All rights reserved.
705N/A!* Permission is hereby granted, free of charge, to any person obtaining a
705N/A!* copy of this software and associated documentation files (the "Software"),
705N/A!* to deal in the Software without restriction, including without limitation
705N/A!* the rights to use, copy, modify, merge, publish, distribute, sublicense,
705N/A!*
and/or sell copies of the Software, and to permit persons to whom the
606N/A!* Software is furnished to do so, subject to the following conditions:
606N/A!* The above copyright notice and this permission notice (including the next
606N/A!* paragraph) shall be included in all copies or substantial portions of the
606N/A!* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
606N/A!* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
606N/A!* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
606N/A!* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
705N/A!* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
705N/A!* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
705N/A!* DEALINGS IN THE SOFTWARE.
606N/A!****************************************************************************
606N/A!************************************************************************
606N/A!* This module is intended to provide access features for people *
606N/A!* with physical disabilities. This is a Motif client that *
606N/A!* communicates with the AccessX server extension and allows us to *
606N/A!* get visual feedback regarding the state of the AccessX features.*
705N/A!* 11-Jun-1993 WDW & MEN *
705N/A!* Develop sample implementation. *
705N/A!* 09-Aug-1993 JMS & WEJ *
705N/A!* Rework the user interface *
705N/A!************************************************************************
705N/A MouseStatusLeftOffset: 10;
705N/A!*************** TOGGLE WIDGETS ***********************!
705N/ASTICKY_MOD_SOUND_TGL : 10;
705N/ASTICKY_TWO_KEYS_TGL : 11;
705N/AKRG_PRESS_SOUND_TGL : 12;
705N/AKRG_ACCEPT_SOUND_TGL : 13;
705N/A!************** SCALE WIDGETS *************************!
705N/AMOUSE_MAX_SPEED_SCL : 15;
705N/AMOUSE_TIME_TO_MAX_SCL : 16;
705N/AKRG_REPEAT_DELAY_SCL : 18;
705N/AKRG_REPEAT_RATE_SCL : 19;
705N/AKRG_SLOW_DELAY_SCL : 20;
705N/A!************** MAIN MENU ITEMS ***********************!
705N/A!*************** HELP WIDGETS *************************!
606N/A!*************** SETTINGS WINDOW **********************!
606N/ASETTINGS_RESET_BTN : 38;
606N/ASETTINGS_DEFAULTS_BTN : 39;
606N/ASETTINGS_CANCEL_BTN : 40;
606N/A!*************** STICKY STATUS ************************!
606N/ACONTROL_LATCHED_LBL : 44;
705N/ACONTROL_LOCKED_LBL : 45;
606N/A!*************** MOUSE STATUS *************************!
606N/ACURRENT_BUTTON_LBL : 57;
606N/A!*************** LOAD-SAVE WIDGETS *******************!
705N/ASAVE_DONE_CANCEL_BTN : 69;
705N/ASAVE_DONE_HELP_BTN : 71;
705N/ASAVE_ERR_CANCEL_BTN : 72;
705N/ALOAD_DONE_CANCEL_BTN : 75;
705N/ALOAD_DONE_HELP_BTN : 77;
705N/ALOAD_ERR_CANCEL_BTN : 78;
705N/AHELP_ERR_CANCEL_BTN : 81;
705N/A!************************************************************************
705N/A!************************************************************************
705N/Aobject AccessXMainWindow: XmMainWindow {
606N/A XmNmenuHelpWidget = XmCascadeButtonGadget HelpCascade;
606N/A XmCascadeButtonGadget FileCascade;
606N/A XmCascadeButtonGadget StatusCascade;
606N/A XmCascadeButtonGadget HelpCascade;
705N/A XmForm AccessXMainForm;
606N/Aobject FileCascade: XmCascadeButton {
606N/A XmNlabelString = FileString;
606N/A XmNmnemonic = FileMnemonic;
606N/A XmNtearOffModel = XmTEAR_OFF_ENABLED;
606N/A XmPushButtonGadget LoadSettingsButton;
606N/A XmPushButtonGadget SaveSettingsButton;
705N/A XmSeparatorGadget MenuSeparator;
606N/A XmPushButtonGadget ExitButton;
606N/Aobject StatusCascade: XmCascadeButton {
606N/A XmNlabelString = StatusString;
606N/A XmNmnemonic = StatusMnemonic;
705N/A XmNtearOffModel = XmTEAR_OFF_ENABLED;
606N/A XmPushButtonGadget StickyKeysStatusButton;
606N/A XmPushButtonGadget MouseKeysStatusButton;
606N/A! XmSeparatorGadget MenuSeparator;
606N/A! XmPushButtonGadget ExitButton;
606N/Aobject LoadSettingsButton: XmPushButtonGadget {
606N/A XmNlabelString = LoadSettingsString;
606N/A XmNmnemonic = LoadMnemonic;
606N/A MrmNcreateCallback = procedure CreateProc(LOAD_BTN);
606N/A XmNactivateCallback = procedure ActivateProc(LOAD_BTN);
705N/Aobject SaveSettingsButton: XmPushButtonGadget {
705N/A XmNlabelString = SaveSettingsString;
705N/A XmNmnemonic = SaveMnemonic;
705N/A MrmNcreateCallback = procedure CreateProc(SAVE_BTN);
705N/A XmNactivateCallback = procedure ActivateProc(SAVE_BTN);
705N/Aobject StickyKeysStatusButton: XmPushButtonGadget {
705N/A XmNlabelString = StickyKeysString & ElipsesString;
705N/A XmNmnemonic = StickyStatusMnemonic;
705N/A MrmNcreateCallback = procedure CreateProc(STICKY_STATUS_BTN);
705N/A XmNactivateCallback = procedure ActivateProc(STICKY_STATUS_BTN);
705N/Aobject MouseKeysStatusButton: XmPushButtonGadget {
705N/A XmNlabelString = MouseKeysString & ElipsesString;
705N/A XmNmnemonic = MouseStatusMnemonic;
705N/A MrmNcreateCallback = procedure CreateProc(MOUSE_STATUS_BTN);
705N/A XmNactivateCallback = procedure ActivateProc(MOUSE_STATUS_BTN);
object MenuSeparator: XmSeparatorGadget {
XmNorientation = XmHORIZONTAL;
object ExitButton: XmPushButtonGadget {
XmNlabelString = ExitString;
MrmNcreateCallback = procedure CreateProc(EXIT_BTN);
XmNactivateCallback = procedure ActivateProc(EXIT_BTN);
object HelpCascade: XmCascadeButton {
XmNlabelString = HelpString;
XmNmnemonic = HelpMnemonic;
XmNtearOffModel = XmTEAR_OFF_ENABLED;
XmPushButtonGadget GeneralHelpButton;
XmPushButtonGadget StickyKeysHelpButton;
XmPushButtonGadget MouseKeysHelpButton;
XmPushButtonGadget ToggleKeysHelpButton;
XmPushButtonGadget RepeatKeysHelpButton;
XmPushButtonGadget SlowKeysHelpButton;
XmPushButtonGadget BounceKeysHelpButton;
object GeneralHelpButton: XmPushButtonGadget {
XmNlabelString = GeneralString & ElipsesString;
MrmNcreateCallback = procedure CreateProc(GENERAL_HELP_BTN);
XmNactivateCallback = procedure ActivateProc(GENERAL_HELP_BTN);
object StickyKeysHelpButton: XmPushButtonGadget {
XmNlabelString = StickyKeysString & ElipsesString;
MrmNcreateCallback = procedure CreateProc(STICKY_HELP_BTN);
XmNactivateCallback = procedure ActivateProc(STICKY_HELP_BTN);
object MouseKeysHelpButton: XmPushButtonGadget {
XmNlabelString = MouseKeysString & ElipsesString;
MrmNcreateCallback = procedure CreateProc(MOUSE_HELP_BTN);
XmNactivateCallback = procedure ActivateProc(MOUSE_HELP_BTN);
object ToggleKeysHelpButton: XmPushButtonGadget {
XmNlabelString = ToggleKeysString & ElipsesString;
MrmNcreateCallback = procedure CreateProc(TOGGLE_HELP_BTN);
XmNactivateCallback = procedure ActivateProc(TOGGLE_HELP_BTN);
object RepeatKeysHelpButton: XmPushButtonGadget {
XmNlabelString = RepeatKeysString & ElipsesString;
MrmNcreateCallback = procedure CreateProc(REPEAT_HELP_BTN);
XmNactivateCallback = procedure ActivateProc(REPEAT_HELP_BTN);
object SlowKeysHelpButton: XmPushButtonGadget {
XmNlabelString = SlowKeysString & ElipsesString;
MrmNcreateCallback = procedure CreateProc(SLOW_HELP_BTN);
XmNactivateCallback = procedure ActivateProc(SLOW_HELP_BTN);
object BounceKeysHelpButton: XmPushButtonGadget {
XmNlabelString = BounceKeysString & ElipsesString;
MrmNcreateCallback = procedure CreateProc(BOUNCE_HELP_BTN);
XmNactivateCallback = procedure ActivateProc(BOUNCE_HELP_BTN);
object AccessXMainForm: XmForm {
XmNmarginWidth = MainMarginSize;
XmNmarginHeight = MainMarginSize;
XmForm CustomizeGeneralForm;
XmFrame TurnOnOffFeatures;
XmForm OptionsSettingsForm;
object CustomizeGeneralForm: XmForm {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNmarginWidth = MainMarginSize;
XmNmarginHeight = MainMarginSize;
XmToggleButtonGadget EnableAccessXToggle;
XmToggleButtonGadget SoundOnOffToggle;
object EnableAccessXToggle: XmToggleButtonGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNlabelString = EnableString & SpaceString & AccessXString;
MrmNcreateCallback = procedure CreateProc(ENABLE_ACCESSX_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(ENABLE_ACCESSX_TGL);
object SoundOnOffToggle: XmToggleButtonGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmToggleButtonGadget EnableAccessXToggle;
XmNlabelString = SoundOnOffString;
MrmNcreateCallback = procedure CreateProc(ONOFF_SOUND_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(ONOFF_SOUND_TGL);
object TurnOnOffFeatures: XmFrame {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmForm CustomizeGeneralForm;
XmNtopOffset = MarginSize;
XmLabelGadget EnableLabel;
XmForm FeaturesManagerForm;
object FeaturesManagerForm: XmForm {
XmRowColumn TurnOnOffForm;
object TurnOnOffForm: XmRowColumn {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNorientation = XmVERTICAL;
XmNpacking = XmPACK_COLUMN;
XmNtopAttachment = XmATTACH_FORM;
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmToggleButtonGadget StickyKeysToggle;
XmToggleButtonGadget MouseKeysToggle;
XmToggleButtonGadget ToggleKeysToggle;
XmToggleButtonGadget RepeatKeysToggle;
XmToggleButtonGadget SlowKeysToggle;
XmToggleButtonGadget BounceKeysToggle;
object TimeOutForm: XmForm {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmRowColumn TurnOnOffForm;
XmToggleButtonGadget TimeOutToggle;
object EnableLabel: XmLabelGadget {
XmNlabelString = TurnOnString;
XmNchildType = XmFRAME_TITLE_CHILD;
object StickyKeysToggle: XmToggleButtonGadget {
XmNlabelString = StickyKeysString;
MrmNcreateCallback = procedure CreateProc(STICKY_KEYS_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(STICKY_KEYS_TGL);
object MouseKeysToggle: XmToggleButtonGadget {
XmNlabelString = MouseKeysString;
MrmNcreateCallback = procedure CreateProc(MOUSE_KEYS_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(MOUSE_KEYS_TGL);
object ToggleKeysToggle: XmToggleButtonGadget {
XmNlabelString = ToggleKeysString;
MrmNcreateCallback = procedure CreateProc(TOGGLE_KEYS_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(TOGGLE_KEYS_TGL);
object RepeatKeysToggle: XmToggleButtonGadget {
XmNlabelString = RepeatKeysString;
MrmNcreateCallback = procedure CreateProc(REPEAT_KEYS_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(REPEAT_KEYS_TGL);
object SlowKeysToggle: XmToggleButtonGadget {
XmNindicatorType = XmONE_OF_MANY;
XmNlabelString = SlowKeysString;
MrmNcreateCallback = procedure CreateProc(SLOW_KEYS_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(SLOW_KEYS_TGL);
object BounceKeysToggle: XmToggleButtonGadget {
XmNindicatorType = XmONE_OF_MANY;
XmNlabelString = BounceKeysString;
MrmNcreateCallback = procedure CreateProc(BOUNCE_KEYS_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(BOUNCE_KEYS_TGL);
object TimeOutToggle: XmToggleButtonGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
XmNlabelString = TimeString;
MrmNcreateCallback = procedure CreateProc(TIME_OUT_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(TIME_OUT_TGL);
object TimeOutScale: XmScale {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmToggleButtonGadget TimeOutToggle;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
XmNorientation = XmHORIZONTAL;
MrmNcreateCallback = procedure CreateProc(TIME_OUT_SCL);
XmNvalueChangedCallback = procedure ChangeControlProc(TIME_OUT_SCL);
object OptionsSettingsForm: XmForm {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmFrame TurnOnOffFeatures;
XmNtopOffset = MarginSize;
XmNbottomAttachment = XmATTACH_FORM;
XmPushButtonGadget OptionsSettingsButton;
object OptionsSettingsButton: XmPushButtonGadget {
XmNlabelString = SettingsString;
MrmNcreateCallback = procedure CreateProc(SETTINGS_BTN);
XmNactivateCallback = procedure ActivateProc(SETTINGS_BTN);
!************************************************************************
!* Edit Settings Dialog *
!************************************************************************
object SettingsDialog: XmFormDialog {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNdialogTitle = SettingsTitle;
! XmNdialogTitle = AccessXString & SpaceString & HyphenString &
! SpaceString & SettingsString;
XmNdefaultButton= XmPushButtonGadget OKButton;
XmFrame CustomizeStickyKeysFrame;
XmFrame CustomizeMouseKeysFrame;
XmFrame CustomizeRepeatKeysFrame;
XmFrame CustomizeSlowKeysFrame;
XmFrame CustomizeBounceKeysFrame;
XmFrame CustomizeFeaturesTestFrame;
object CustomizeStickyKeysFrame: XmFrame {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmLabelGadget CustomizeStickyKeysLabel;
XmForm CustomizeStickyKeysForm;
object CustomizeStickyKeysForm: XmForm {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmToggleButtonGadget StickyModSoundToggle;
XmToggleButtonGadget StickyTwoKeysToggle;
object CustomizeStickyKeysLabel: XmLabelGadget {
XmNlabelString = StickyKeysString;
XmNchildType = XmFRAME_TITLE_CHILD;
object StickyModSoundToggle: XmToggleButtonGadget {
XmNtopAttachment = XmATTACH_FORM;
XmNleftAttachment = XmATTACH_FORM;
XmNlabelString = SoundOnModString;
XmNmarginTop = ScaleOffset;
MrmNcreateCallback = procedure CreateProc(STICKY_MOD_SOUND_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(STICKY_MOD_SOUND_TGL);
object StickyTwoKeysToggle: XmToggleButtonGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmToggleButtonGadget StickyModSoundToggle;
XmNbottomAttachment = XmATTACH_FORM;
XmNlabelString = TwoKeysString;
MrmNcreateCallback = procedure CreateProc(STICKY_TWO_KEYS_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(STICKY_TWO_KEYS_TGL);
object CustomizeMouseKeysFrame: XmFrame {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmFrame CustomizeStickyKeysFrame;
XmNtopOffset = MarginSize;
XmLabelGadget CustomizeMouseKeysLabel;
XmForm CustomizeMouseKeysForm;
object CustomizeMouseKeysForm: XmForm {
XmNmarginHeight = MarginSize;
XmNmarginWidth = MarginSize;
XmLabelGadget MouseMaxSpeedLabel;
XmScale MouseMaxSpeedScale;
XmLabelGadget MouseTimeToMaxLabel;
XmScale MouseTimeToMaxScale;
XmLabelGadget MouseDelayLabel;
object CustomizeMouseKeysLabel: XmLabelGadget {
XmNchildType = XmFRAME_TITLE_CHILD;
XmNlabelString = MouseKeysString;
object MouseMaxSpeedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_WIDGET;
XmNbottomWidget = XmScale MouseTimeToMaxScale;
XmNlabelString = MaxSpeedString;
object MouseMaxSpeedScale: XmScale {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget MouseMaxSpeedLabel;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_WIDGET;
XmNbottomWidget = XmScale MouseTimeToMaxScale;
XmNorientation = XmHORIZONTAL;
MrmNcreateCallback = procedure CreateProc(MOUSE_MAX_SPEED_SCL);
XmNvalueChangedCallback = procedure ChangeControlProc(MOUSE_MAX_SPEED_SCL);
object MouseTimeToMaxLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_WIDGET;
XmNbottomWidget = XmScale MouseDelayScale;
XmNlabelString = TimeToMaxSpeedString;
object MouseTimeToMaxScale: XmScale {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget MouseTimeToMaxLabel;
XmNrightAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_WIDGET;
XmNbottomWidget = XmScale MouseDelayScale;
XmNorientation = XmHORIZONTAL;
MrmNcreateCallback = procedure CreateProc(MOUSE_TIME_TO_MAX_SCL);
XmNvalueChangedCallback = procedure ChangeControlProc(MOUSE_TIME_TO_MAX_SCL);
object MouseDelayLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
XmNlabelString = MouseDelayString;
object MouseDelayScale: XmScale {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget MouseDelayLabel;
XmNrightAttachment = XmATTACH_FORM;
!XmNtopAttachment = XmATTACH_WIDGET;
!XmNtopWidget = XmScale MouseTimeToMaxScale;
XmNbottomAttachment = XmATTACH_FORM;
XmNorientation = XmHORIZONTAL;
MrmNcreateCallback = procedure CreateProc(MOUSE_DELAY_SCL);
XmNvalueChangedCallback = procedure ChangeControlProc(MOUSE_DELAY_SCL);
object CustomizeRepeatKeysFrame: XmFrame {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmFrame CustomizeMouseKeysFrame;
XmNtopOffset = MarginSize;
XmLabelGadget CustomizeRepeatKeysLabel;
XmForm CustomizeRepeatKeysForm;
object CustomizeRepeatKeysLabel: XmLabelGadget {
XmNchildType = XmFRAME_TITLE_CHILD;
XmNlabelString = RepeatKeysString;
object CustomizeRepeatKeysForm: XmForm {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmLabelGadget KRGRepeatRateLabel;
XmScale KRGRepeatRateScale;
XmLabelGadget KRGRepeatDelayLabel;
XmScale KRGRepeatDelayScale;
object KRGRepeatRateLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
XmNlabelString = RepeatRateString;
object KRGRepeatRateScale: XmScale {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget KRGRepeatRateLabel;
XmNrightAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
XmNorientation = XmHORIZONTAL;
MrmNcreateCallback = procedure CreateProc(KRG_REPEAT_RATE_SCL);
XmNvalueChangedCallback = procedure ChangeControlProc(KRG_REPEAT_RATE_SCL);
object KRGRepeatDelayLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_WIDGET;
XmNbottomWidget = XmScale KRGRepeatRateScale;
XmNlabelString = RepeatDelayString;
object KRGRepeatDelayScale: XmScale {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget KRGRepeatDelayLabel;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_WIDGET;
XmNbottomWidget = XmScale KRGRepeatRateScale;
XmNorientation = XmHORIZONTAL;
MrmNcreateCallback = procedure CreateProc(KRG_REPEAT_DELAY_SCL);
XmNvalueChangedCallback = procedure ChangeControlProc(KRG_REPEAT_DELAY_SCL);
object CustomizeSlowKeysFrame: XmFrame {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmFrame CustomizeRepeatKeysFrame;
XmNtopOffset = MarginSize;
XmLabelGadget CustomizeSlowKeysLabel;
XmForm CustomizeSlowForm;
object CustomizeSlowKeysLabel: XmLabelGadget {
XmNchildType = XmFRAME_TITLE_CHILD;
XmNlabelString = SlowKeysString;
object CustomizeSlowForm: XmForm {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmLabelGadget SlowKeysSoundLabel;
XmToggleButtonGadget SlowKeysOnPressToggle;
XmToggleButtonGadget SlowKeysOnAcceptToggle;
XmLabelGadget KRGSlowKeysDelayLabel;
XmScale KRGSlowKeysDelayScale;
object SlowKeysSoundLabel: XmLabelGadget {
XmNtopAttachment = XmATTACH_FORM;
XmNleftAttachment = XmATTACH_FORM;
XmNlabelString = SoundWhenString;
XmNmarginTop = ScaleOffset;
object SlowKeysOnPressToggle: XmToggleButtonGadget {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget SlowKeysSoundLabel;
XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNtopWidget = XmLabelGadget SlowKeysSoundLabel;
XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNbottomWidget = XmLabelGadget SlowKeysSoundLabel;
XmNlabelString = SoundOnPressString;
XmNmarginTop = ScaleOffset;
MrmNcreateCallback = procedure CreateProc(KRG_PRESS_SOUND_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(KRG_PRESS_SOUND_TGL);
object SlowKeysOnAcceptToggle: XmToggleButtonGadget {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmToggleButtonGadget SlowKeysOnPressToggle;
XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNtopWidget = XmLabelGadget SlowKeysSoundLabel;
XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNbottomWidget = XmLabelGadget SlowKeysSoundLabel;
XmNlabelString = SoundOnAcceptString;
XmNmarginTop = ScaleOffset;
MrmNcreateCallback = procedure CreateProc(KRG_ACCEPT_SOUND_TGL);
XmNvalueChangedCallback = procedure ChangeControlProc(KRG_ACCEPT_SOUND_TGL);
object KRGSlowKeysDelayLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
XmNlabelString = SlowKeysDelayString;
object KRGSlowKeysDelayScale: XmScale {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget KRGSlowKeysDelayLabel;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget SlowKeysSoundLabel;
XmNbottomAttachment = XmATTACH_FORM;
XmNorientation = XmHORIZONTAL;
MrmNcreateCallback = procedure CreateProc(KRG_SLOW_DELAY_SCL);
XmNvalueChangedCallback = procedure ChangeControlProc(KRG_SLOW_DELAY_SCL);
object CustomizeBounceKeysFrame: XmFrame {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmFrame CustomizeSlowKeysFrame;
XmNtopOffset = MarginSize;
XmLabelGadget CustomizeBounceKeysLabel;
XmForm CustomizeBounceKeysForm;
object CustomizeBounceKeysLabel: XmLabelGadget {
XmNchildType = XmFRAME_TITLE_CHILD;
XmNlabelString = BounceKeysString;
object CustomizeBounceKeysForm: XmForm {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmLabelGadget KRGDebounceLabel;
XmScale KRGDebounceScale;
object KRGDebounceLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
XmNlabelString = DebounceString;
object KRGDebounceScale: XmScale {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget KRGDebounceLabel;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
XmNorientation = XmHORIZONTAL;
MrmNcreateCallback = procedure CreateProc(KRG_DEBOUNCE_SCL);
XmNvalueChangedCallback = procedure ChangeControlProc(KRG_DEBOUNCE_SCL);
object CustomizeFeaturesTestFrame: XmFrame {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmFrame CustomizeBounceKeysFrame;
XmNtopOffset = MarginSize;
XmLabelGadget FeaturesTestLabel;
object FeaturesTestLabel: XmLabelGadget {
XmNchildType = XmFRAME_TITLE_CHILD;
XmNlabelString = TestString;
object FeaturesTestForm: XmForm {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
object FeaturesTestText: XmText {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
object SettingsOKForm: XmForm {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmFrame CustomizeFeaturesTestFrame;
XmNtopOffset = MarginSize;
XmPushButtonGadget OKButton;
XmPushButtonGadget ResetButton;
XmPushButtonGadget DefaultsButton;
XmPushButtonGadget CancelButton;
XmPushButtonGadget HelpButton;
object OKButton: XmPushButtonGadget {
XmNlabelString = OKString;
MrmNcreateCallback = procedure CreateProc(SETTINGS_OK_BTN);
XmNactivateCallback = procedure ActivateProc(SETTINGS_OK_BTN);
object ResetButton: XmPushButtonGadget {
XmNlabelString = ResetString;
MrmNcreateCallback = procedure CreateProc(SETTINGS_RESET_BTN);
XmNactivateCallback = procedure ActivateProc(SETTINGS_RESET_BTN);
object DefaultsButton: XmPushButtonGadget {
XmNlabelString = DefaultsString;
MrmNcreateCallback = procedure CreateProc(SETTINGS_DEFAULTS_BTN);
XmNactivateCallback = procedure ActivateProc(SETTINGS_DEFAULTS_BTN);
object CancelButton: XmPushButtonGadget {
XmNlabelString = CancelString;
MrmNcreateCallback = procedure CreateProc(SETTINGS_CANCEL_BTN);
XmNactivateCallback = procedure ActivateProc(SETTINGS_CANCEL_BTN);
object HelpButton: XmPushButtonGadget {
XmNlabelString = HelpString;
MrmNcreateCallback = procedure CreateProc(SETTINGS_HELP_BTN);
XmNactivateCallback = procedure ActivateProc(SETTINGS_HELP_BTN);
!*****************************************************************
!* MouseKeys Status Dialog Box *
!*****************************************************************
object MouseKeysStatusDialog: XmForm {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
! XmNdialogTitle = MouseKeysString & SpaceString & StatusString;
XmNdialogTitle = MouseKeysTitle;
XmLabelGadget MouseCurrentLabel;
XmLabelGadget MouseButtonLabel;
XmFrame MouseButtonsFrame;
XmForm MouseKeysCloseForm;
object MouseCurrentLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNlabelString = CurrentButtonString;
object MouseButtonLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget MouseCurrentLabel;
XmNtopAttachment = XmATTACH_FORM;
XmNlabelString = MB1String;
MrmNcreateCallback = procedure CreateProc(CURRENT_BUTTON_LBL);
object MouseButtonsFrame: XmFrame {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget MouseCurrentLabel;
object MouseButtonsForm: XmForm {
XmNmarginWidth = StatusMarginSize;
XmNmarginHeight = StatusMarginSize;
XmLabelGadget MouseReleasedLabel;
XmLabelGadget MousePressedLabel;
XmSeparatorGadget MouseSeparator;
XmLabelGadget MouseReleasedMB1Label;
XmLabelGadget MousePressedMB1Label;
XmLabelGadget MouseReleasedMB2Label;
XmLabelGadget MousePressedMB2Label;
XmLabelGadget MouseReleasedMB3Label;
XmLabelGadget MousePressedMB3Label;
! XmLabelGadget MouseReleasedMB4Label;
! XmLabelGadget MousePressedMB4Label;
! XmLabelGadget MouseReleasedMB5Label;
! XmLabelGadget MousePressedMB5Label;
object MouseReleasedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNlabelString = ReleasedString;
object MousePressedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget MouseReleasedLabel;
XmNleftOffset = MouseStatusLeftOffset;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNlabelString = PressedString;
object MouseSeparator: XmSeparator {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget MouseReleasedLabel;
object MouseReleasedMB1Label: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget MouseReleasedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmSeparator MouseSeparator;
XmNlabelString = MB1String;
MrmNcreateCallback = procedure CreateProc(MB1_RELEASED_LBL);
object MousePressedMB1Label: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget MousePressedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmSeparator MouseSeparator;
XmNlabelString = MB1EmptyString;
MrmNcreateCallback = procedure CreateProc(MB1_PRESSED_LBL);
object MouseReleasedMB2Label: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget MouseReleasedMB1Label;
XmNlabelString = MB2String;
MrmNcreateCallback = procedure CreateProc(MB2_RELEASED_LBL);
object MousePressedMB2Label: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget MousePressedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget MousePressedMB1Label;
XmNlabelString = MB2EmptyString;
MrmNcreateCallback = procedure CreateProc(MB2_PRESSED_LBL);
object MouseReleasedMB3Label: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget MouseReleasedMB2Label;
XmNlabelString = MB3String;
MrmNcreateCallback = procedure CreateProc(MB3_RELEASED_LBL);
object MousePressedMB3Label: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget MousePressedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget MousePressedMB2Label;
XmNlabelString = MB3EmptyString;
MrmNcreateCallback = procedure CreateProc(MB3_PRESSED_LBL);
!object MouseReleasedMB4Label: XmLabelGadget {
! XmNleftAttachment = XmATTACH_FORM;
! XmNtopAttachment = XmATTACH_WIDGET;
! XmNtopWidget = XmLabelGadget MouseReleasedMB3Label;
! XmNlabelString = MB4String;
! MrmNcreateCallback = procedure CreateProc(MB4_RELEASED_LBL);
!object MousePressedMB4Label: XmLabelGadget {
! XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
! XmNleftWidget = XmLabelGadget MousePressedLabel;
! XmNtopAttachment = XmATTACH_WIDGET;
! XmNtopWidget = XmLabelGadget MousePressedMB3Label;
! XmNlabelString = MB4EmptyString;
! MrmNcreateCallback = procedure CreateProc(MB4_PRESSED_LBL);
!object MouseReleasedMB5Label: XmLabelGadget {
! XmNleftAttachment = XmATTACH_FORM;
! XmNtopAttachment = XmATTACH_WIDGET;
! XmNtopWidget = XmLabelGadget MouseReleasedMB4Label;
! XmNlabelString = MB5String;
! MrmNcreateCallback = procedure CreateProc(MB5_RELEASED_LBL);
!object MousePressedMB5Label: XmLabelGadget {
! XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
! XmNleftWidget = XmLabelGadget MousePressedLabel;
! XmNtopAttachment = XmATTACH_WIDGET;
! XmNtopWidget = XmLabelGadget MousePressedMB4Label;
! XmNlabelString = MB5EmptyString;
! MrmNcreateCallback = procedure CreateProc(MB5_PRESSED_LBL);
object MouseKeysCloseForm: XmForm {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmFrame MouseButtonsFrame;
XmNtopOffset = MarginSize;
XmNbottomAttachment = XmATTACH_FORM;
XmPushButtonGadget MouseKeysCloseButton;
object MouseKeysCloseButton: XmPushButtonGadget {
XmNlabelString = CloseString;
MrmNcreateCallback = procedure CreateProc(MOUSE_CLOSE_BTN);
XmNactivateCallback = procedure ActivateProc(MOUSE_CLOSE_BTN);
!**********************************************************************
!* Sticky Keys Status Dialog *
!**********************************************************************
object StickyKeysStatusDialog: XmForm {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNdialogTitle = StickyKeysTitle;
! XmNdialogTitle = StickyKeysString & SpaceString & StatusString;
XmFrame StickyKeysModsFrame;
object StickyKeysModsFrame: XmFrame {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmForm StickyKeysModsForm;
object StickyKeysModsForm: XmForm {
XmNmarginWidth = StatusMarginSize;
XmNmarginHeight = StatusMarginSize;
XmLabelGadget StickyLatchedLabel;
XmLabelGadget StickyLockedLabel;
XmSeparatorGadget StickySeparator;
XmLabelGadget ShiftLatchedLabel;
XmLabelGadget ShiftLockedLabel;
XmLabelGadget ControlLatchedLabel;
XmLabelGadget ControlLockedLabel;
XmLabelGadget Mod1LatchedLabel;
XmLabelGadget Mod1LockedLabel;
XmLabelGadget Mod2LatchedLabel;
XmLabelGadget Mod2LockedLabel;
XmLabelGadget Mod3LatchedLabel;
XmLabelGadget Mod3LockedLabel;
XmLabelGadget Mod4LatchedLabel;
XmLabelGadget Mod4LockedLabel;
XmLabelGadget Mod5LatchedLabel;
XmLabelGadget Mod5LockedLabel;
object StickyLatchedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNlabelString = LatchedString;
object StickyLockedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmLabelGadget StickyLatchedLabel;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmNlabelString = LockedString;
object StickySeparator: XmSeparator {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget StickyLatchedLabel;
object ShiftLatchedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLatchedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmSeparator StickySeparator;
XmNlabelString = ShiftEmptyString;
MrmNcreateCallback = procedure CreateProc(SHIFT_LATCHED_LBL);
object ShiftLockedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLockedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmSeparator StickySeparator;
XmNlabelString = ShiftEmptyString;
MrmNcreateCallback = procedure CreateProc(SHIFT_LOCKED_LBL);
object ControlLatchedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLatchedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget ShiftLatchedLabel;
XmNlabelString = ControlEmptyString;
MrmNcreateCallback = procedure CreateProc(CONTROL_LATCHED_LBL);
object ControlLockedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLockedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget ShiftLockedLabel;
XmNlabelString = ControlEmptyString;
MrmNcreateCallback = procedure CreateProc(CONTROL_LOCKED_LBL);
object Mod1LatchedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLatchedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget ControlLatchedLabel;
XmNlabelString = Mod1EmptyString;
MrmNcreateCallback = procedure CreateProc(MOD1_LATCHED_LBL);
object Mod1LockedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLockedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget ControlLockedLabel;
XmNlabelString = Mod1EmptyString;
MrmNcreateCallback = procedure CreateProc(MOD1_LOCKED_LBL);
object Mod2LatchedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLatchedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget Mod1LatchedLabel;
XmNlabelString = Mod2EmptyString;
MrmNcreateCallback = procedure CreateProc(MOD2_LATCHED_LBL);
object Mod2LockedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLockedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget Mod1LockedLabel;
XmNlabelString = Mod2EmptyString;
MrmNcreateCallback = procedure CreateProc(MOD2_LOCKED_LBL);
object Mod3LatchedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLatchedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget Mod2LatchedLabel;
XmNlabelString = Mod3EmptyString;
MrmNcreateCallback = procedure CreateProc(MOD3_LATCHED_LBL);
object Mod3LockedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLockedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget Mod2LockedLabel;
XmNlabelString = Mod3EmptyString;
MrmNcreateCallback = procedure CreateProc(MOD3_LOCKED_LBL);
object Mod4LatchedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLatchedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget Mod3LatchedLabel;
XmNlabelString = Mod4EmptyString;
MrmNcreateCallback = procedure CreateProc(MOD4_LATCHED_LBL);
object Mod4LockedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLockedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget Mod3LockedLabel;
XmNlabelString = Mod4EmptyString;
MrmNcreateCallback = procedure CreateProc(MOD4_LOCKED_LBL);
object Mod5LatchedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLatchedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget Mod4LatchedLabel;
XmNlabelString = Mod5EmptyString;
MrmNcreateCallback = procedure CreateProc(MOD5_LATCHED_LBL);
object Mod5LockedLabel: XmLabelGadget {
XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET;
XmNleftWidget = XmLabelGadget StickyLockedLabel;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabelGadget Mod4LockedLabel;
XmNlabelString = Mod5EmptyString;
MrmNcreateCallback = procedure CreateProc(MOD5_LOCKED_LBL);
object StickyCloseForm: XmForm {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmFrame StickyKeysModsFrame;
XmNtopOffset = MarginSize;
XmNbottomAttachment = XmATTACH_FORM;
XmPushButtonGadget StickyCloseButton;
object StickyCloseButton: XmPushButtonGadget {
XmNlabelString = CloseString;
MrmNcreateCallback = procedure CreateProc(STICKY_CLOSE_BTN);
XmNactivateCallback = procedure ActivateProc(STICKY_CLOSE_BTN);
!**********************************************************************
!**********************************************************************
object SaveDoneDialog: XmFormDialog {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNdialogTitle = SaveInfoString;
XmMessageBox SaveDoneBox;
object SaveDoneBox: XmMessageBox {
XmNdialogType = XmDIALOG_INFORMATION;
XmNmessageString = SaveDoneString;
XmNcancelCallback = procedure ActivateProc(SAVE_DONE_CANCEL_BTN);
XmNokCallback = procedure ActivateProc(SAVE_DONE_OK_BTN);
object SaveErrorDialog: XmFormDialog {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNdialogTitle = SaveErrorDialogString;
XmMessageBox SaveErrorBox;
object SaveErrorBox: XmMessageBox {
XmNdialogType = XmDIALOG_ERROR;
XmNmessageString = SaveErrorString;
XmNcancelCallback = procedure ActivateProc(SAVE_ERR_CANCEL_BTN);
XmNokCallback = procedure ActivateProc(SAVE_ERR_OK_BTN);
object LoadDoneDialog: XmFormDialog {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNdialogTitle = LoadInfoString;
XmMessageBox LoadDoneBox;
object LoadDoneBox: XmMessageBox {
XmNdialogType = XmDIALOG_INFORMATION;
XmNmessageString = LoadDoneString;
XmNcancelCallback = procedure ActivateProc(LOAD_DONE_CANCEL_BTN);
XmNokCallback = procedure ActivateProc(LOAD_DONE_OK_BTN);
object LoadErrorDialog: XmFormDialog {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNdialogTitle = LoadErrorDialogString;
XmMessageBox LoadErrorBox;
object LoadErrorBox: XmMessageBox {
XmNdialogType = XmDIALOG_ERROR;
XmNmessageString = LoadErrorString;
XmNcancelCallback = procedure ActivateProc(LOAD_ERR_CANCEL_BTN);
XmNokCallback = procedure ActivateProc(LOAD_ERR_OK_BTN);
!****************************************************************
!****************************************************************
object HelpDialog: XmFormDialog {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNdialogTitle = HelpWindowString;
object HelpFrame: XmFrame {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM;
XmScrolledWindow HelpWindow;
object HelpWindow: XmScrolledWindow {
XmNworkWindow = XmText HelpText;
object HelpText: XmText {
XmNeditMode = XmMULTI_LINE_EDIT;
MrmNcreateCallback = procedure CreateProc(HELP_TEXT);
object HelpCloseForm: XmForm {
XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmFrame HelpFrame;
XmNtopOffset = MarginSize;
XmNbottomAttachment = XmATTACH_FORM;
XmPushButtonGadget HelpCloseButton;
object HelpCloseButton: XmPushButtonGadget {
XmNlabelString = CloseString;
MrmNcreateCallback = procedure CreateProc(CLOSE_HELP_BTN);
XmNactivateCallback = procedure ActivateProc(CLOSE_HELP_BTN);
object HelpErrorDialog: XmFormDialog {
XmNmarginWidth = MarginSize;
XmNmarginHeight = MarginSize;
XmNdialogTitle = HelpErrorDialogString;
XmMessageBox HelpErrorBox;
object HelpErrorBox: XmMessageBox {
XmNdialogType = XmDIALOG_ERROR;
XmNmessageString = HelpErrorString;
XmNcancelCallback = procedure ActivateProc(HELP_ERR_CANCEL_BTN);
XmNokCallback = procedure ActivateProc(HELP_ERR_OK_BTN);