!
!	resource file for xtechinfo
!
!	$Author: brlewis $
!	$Id: textFileMenu.ad,v 3.2 93/03/05 16:31:23 brlewis Exp $
!
!	Copyright 1992 by the Massachusetts Institute of Technology.
!	For copying and distribution information, see the file
!	"mit-copyright.h".

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Text File menu !!!!!!!!!!!!!!!!!!!!

*textFileMenu.wcCreate: XmCreatePulldownMenu
*textFileMenu.WcChildren: print find close
*textFileMenu.wcManaged: False

*textFileMenu.print.wcCreate: XmPushButton
*textFileMenu.print.labelString:			Print
*textFileMenu.print.mnemonic: P
*textFileMenu.print.accelerator: Alt<Key>p
*textFileMenu.print.acceleratorText:	Meta+P
*textFileMenu.print.activateCallback:	WaitCursor() \
	WcCreatePopups( textShell, printDialog ) \
	WcManage(*printDialog) \
	PrintPrep() \
	WcSetValue( this.activateCallback: \
		WcManage(*printDialog) \
		PrintPrep() \
	) \
	StandardCursor()

*textFileMenu.find.wcCreate: XmPushButton
*textFileMenu.find.labelString:			Find string
*textFileMenu.find.mnemonic: F
*textFileMenu.find.accelerator: Ctrl<Key>s
*textFileMenu.find.acceleratorText:	Ctrl+S
*textFileMenu.find.activateCallback:	TraverseCurrent(*findText)

*textFileMenu.close.wcCreate: XmPushButton
*textFileMenu.close.labelString:			Close
*textFileMenu.close.mnemonic: P
*textFileMenu.close.accelerator: Alt<Key>c
*textFileMenu.close.acceleratorText:	Meta+C
*textFileMenu.close.activateCallback:	WcUnmap(textShell)