!
!	resource file for xtechinfo
!
!	$Author: brlewis $
!	$Id: searchFrame.ad,v 3.1 93/03/04 17:14:26 brlewis Exp $
!
!	Copyright 1992 by the Massachusetts Institute of Technology.
!	For copying and distribution information, see the file
!	"mit-copyright.h".


!
! | ____________________________________________________________ |
! | |  searchOptions      		searchText	       | |
! | |__________________________________________________________| |
!
!

*searchFrame.wcCreate:	XmCreateFrame
*searchFrame.WcChildren:	searchForm
*searchForm.wcCreate:	XmForm
*searchForm.wcPopups:	searchMenu
*searchForm.wcChildren:	searchOptions, searchText


!   Layout of searchFrame

*searchForm.searchOptions.leftAttachment:	ATTACH_FORM
*searchForm.searchOptions.topAttachment:	ATTACH_FORM
*searchForm.searchOptions.bottomAttachment:	ATTACH_FORM

*searchForm.searchText.leftAttachment:		ATTACH_WIDGET
*searchForm.searchText.leftWidget:		^searchOptions
*searchForm.searchText.rightAttachment:		ATTACH_FORM
*searchForm.searchText.topAttachment:		ATTACH_FORM
*searchForm.searchText.bottomAttachment:	ATTACH_FORM


!   search menu

*searchMenu.wcCreate:	XmCreatePulldownMenu
*searchMenu.wcChildren:	keyword, text, source, date, nodeid

*searchMenu.keyword.wcCreate:	XmPushButton
*searchMenu.text.wcCreate:	XmPushButton
*searchMenu.text.labelString:	full text
*searchMenu.source.wcCreate:	XmPushButton
*searchMenu.date.wcCreate:	XmPushButton
*searchMenu.nodeid.wcCreate:	XmPushButton
*searchMenu.nodeid.labelString:	node id

*searchMenu.keyword.activateCallback:	SetSearch(keyword)
*searchMenu.text.activateCallback:	SetSearch(text)
*searchMenu.text.labelString:		full text
*searchMenu.source.activateCallback:	SetSearch(source)
*searchMenu.date.activateCallback:	SetSearch(date)
*searchMenu.nodeid.activateCallback:	SetSearch(nodeid)
*searchMenu.nodeid.labelString:		node id

!   OptionMenu stuff
*searchOptions.wcCreate:	XmCreateOptionMenu
*searchOptions.labelString:	Search by:
*searchOptions.subMenuId:	*searchMenu
*searchOptions*shadowThickness:	1

!   text

*searchText.wcCreate:		XmText
*searchText.activateCallback:	WaitCursor() DoSearch() StandardCursor()