!
! Xmtscm Testing
!

*ShadowThickness: 1
*Background: gray75
!*backgroundPixmap: concrete.xpm

! For CDE, comment out the following line
!*fontList: $interface

_FontLists_*interface: *helvetica-medium-r-normal--*-180-*=R,\
	   *helvetica-bold-r-normal--*-180-*=B,\
	   *helvetica-medium-o-normal--*-180-*=I,\
	   *courier-medium-r-normal--*-180-*=T,\
	   *helvetica-bold-r-normal--*-240-*=BIG,\
	   *helvetica-bold-o-normal--*-240-*=BIGI,\

_FontLists_*times*interface: *times-medium-r-normal--*-180-*=R,\
	   *times-bold-r-normal--*-180-*=B,\
	   *times-medium-i-normal--*-180-*=I,\
	   *courier-medium-r-normal--*-180-*=T,\
	   *times-bold-r-normal--*-240-*=BIG,\
	   *times-bold-i-normal--*-240-*=BIGI,\

*XmtHelpBox.titleFontList: *helvetica-bold-o-normal--*-240-*

*BubbleHelp*background: wheat
*BubbleHelp*foreground: red

Combo.xmtChildren:	XmtLayout main; unmanaged XmtPopupMenu popup; 
Combo.title: 		XMT Combination Demo

*main.xmtChildren: 	XmLabel title; \
			XmtMenu askmenu; \
			XmPushButton displayinfo, displayerr, displaywarn; \
			XmPushButton mlset, mlget, mlpush, mlpop; \
			XmPushButton block, getmenuitem; \
			XmtMsgLine output;

*main.layout:	title # \
		Caption "@fIAsking Questions: " askmenu #\
		Caption "@fIDisplaying Messages: " \
			Row { displayinfo displayerr displaywarn} #\
		Caption "@fIMsgLine:" \
			Row { mlset mlget mlpush mlpop } #\
		Caption "@fIMiscellenous: " \
			Row { block getmenuitem } #\
		output

*main.title.foreground: navy
*main.title.labelString: @f[BIG]\
XMTSCM DEMONSTRATION\n\
     @fRby\n\
   Thomas Kwong


*main.askmenu.items:	"_Boolean" -> pop_askbool; \
			"_String" -> pop_askstr; \
		  	"_Item" -> pop_askitem; \
			"_File" -> pop_askfile;

*pop_askbool.items: 	askbool: "_Default"; \
			askboolcancel: "_With Cancel Button";
*pop_askstr.items: 	askstr: "_Default"; \
			askstrinit: "_With Init String";
*pop_askitem.items: 	askitem: "_Default"; \
			askitemdynamic: "D_ynamic Items"; \
		    	askitemmatch: "_Must Match";
*pop_askfile.items:	askfile: "_Default";

*main.displayinfo.labelString:		Information
*main.displayerr.labelString:		Error
*main.displaywarn.labelString:		Warning
*main.block.labelString:		Blocking
*main.input.labelString:		MsgLineGet
*main.list.labelString:			List
*main.getmenuitem.labelString:		MenuGetWidget

*main.mlset.labelString:		Set
*main.mlget.labelString:		Get
*main.mlpush.labelString:		Push
*main.mlpop.labelString:		Pop

*main.mlset.helpCallback: scm("output \"good:\"1 2 3")

*output.foreground:	black
*output.editable:	False
*output.columns:	50
*output.value:		Welcome to Xmt Demo Program!

!
! Dialogs
!
*AskForBoolean.message: 	Have dinner now?
*AskForBoolean.title:		Question
*AskForBoolean.defaultButton: 	XmtNoButton
*AskForBoolean.helpText: 	Nothing @fBBold @fIitalic.

*AskForString.message: 		What is your name?
*AskForString.title: 		Pretty Silly
*AskForString.helpText: 	Please type @fTFirst@fR, @fTMiddle@fR, \
and @fTLast@fR name.

*AskForItem.message: 		What is your job?
*AskForItem.title: 		Also Pretty Silly
*AskForItem.listTitle: 		Job Categories
*AskForItem.items: 		"Programmer", "Software Engineer", \
				"Manager", "Broker", "Banker"
*AskForItem.helpText: 		Please selected one of the listed jobs.

*AskForItem2.message: 		Which platform?
*AskForItem2.title: 		Computer Usage Survey
*AskForItem2.listTitle: 	Available Platforms
*AskForItem2.helpText: 		Please selected one of the listed platforms.

*AskForFilename.message: 	Please choose a source file:
*AskForFilename.title: 		File Selector
*AskForFilename.directory: 	~
*AskForFilename.pattern: 	*
*AskForFilename.helpText: 	It's your home directory.

*ErrorMessage.title: 		Error Message
*ErrorMessage.message: 		@f[BIG]Dammit, I just @f[BIGI]screwed@f[BIG] \
up the databases!

*WarningMessage.title:		 Warning Message
*WarningMessage.message: 	@f[BIG]Warning:\nConfiguration file not found.
*WarningMessage.helpText: \n\
@fIThis application may be installed incorrectly.\n\
Please consult your system administrator.

*InformationMessage.title: 	Information Message
*InformationMessage.message: \
@f[BIG]                The X Motif Toolkit\n\n\
@fIThis toolkit is a shareware developed by David Flanagan\n\
from the O'Reilly & Associates.

!
! This is a sample login window.
! Warning: the password field is not protected from prying eyes.
!
*Login.xmtChildren: 	XmtLayout l;
*Login.l.xmtChildren: 	XmText username, password; \
			XmPushButton OK, Cancel, Help;
*Login.l.autoUnmanage:  False
*Login.l.layout: Caption "Username: " username \
		 Caption "Password: " password \
		 Etched Top Even Equal Row { OK Cancel Help }
*LoginHelp.title: How To Login
*LoginHelp.message: @fRType in @fTusername@fR and @fTpassword@fR,\n\
then press the @fBOK@fR Button.

!
! Here we MUST define "user", "pass", "OK".
!
*XmtGuiLogin.title: Xmt Login Demo
*XmtGuiLogin.xmtChildren: XmtLayout l;
*XmtGuiLogin.l.autoUnmanage: False
*XmtGuiLogin.l.xmtChildren: XmText user, pass; \
			    XmPushButton OK, Cancel, Help;
*XmtGuiLogin.l.layout: 	Caption "Username: " user \
		 	Caption "Password: " pass \
		 	Etched Top Even Equal Row { OK Cancel Help }
!*XmtCuiLogin.l.OK.activateCallback: XtUnmanageChild(^{l});
!*XmtCuiLogin.l.Cancel.activateCallback: XtUnmanageChild(*XmtGuiLogin);

!-- normal help
*XmtGuiLogin.l.Help.activateCallback: XmtDisplayInformation(self,\
This login window provides support for real password\n\
entry.  You must define two text fields in this window: \n\
user and pass.,Login Instructions);


!-- Context Sensitive help?
!*XmtGuiLogin.l.Help.activateCallback: XmtHelpDisplayContextHelp(self);
!*XmtGuiLogin.l.Help.xmtHelpTitle: Login Instructions
!*XmtGuiLogin.l.Help.xmtHelp: \
!This login window provides support for real password\n\
!entry.  You must define two text fields in this window: \n\
!user and pass.

! -- Popup Menu
*popup.menuPost: <Btn3Down>
*popup.menuAccelerator: <Key>F1
*popup.items: \
Title	"@fBScreen Saver"; \
	----; \
	hop  : "_Hop" ; \
	rocks: "_Rocks";
