!
! Display manager configuration file.
!
!
! Load in our plot descriptions.
!
message 'Loading:'
message '     ...plot descriptions...'
set libpddir concat(c$libdir,'/pd')
pddir #libpddir
pddir pd
!
! Kludgery for dm modules -- add commands, primarily.
!
set DmModPath 'dmmodules'

!
! The graphics process initialization file.
!
set init_file concat(c$basedir, "/coare/gp.init")

! added by S.E. Yuter 10 March 1993
set ui$menu_mark_file '/usr/local/include/bitmaps/star'

!
! Most of the interesting stuff is in other files -- if you looked here,
! you lose!
!
message '     ...button maps...'
read ButtonMaps
message '     ...display configurations ...'
read DisplayConfigs
message '     ...color tables...'
read ColorTables
message '     ...the icon bar...'
read IconBar
message 'ready!'


!
! Handle zooming out of window menus.
!
procedure zoom window string
	if (dm$config = "zoom")		! Already zoomed -- go back
		display #previous_config
	else
		set previous_config dm$config
		display zoom #window
	endif
endprocedure


!
! The platform list for the position entry widget.
!
define widget plats intmenu 'platforms'
	title 'Platforms'
	line
	submenu 'Aircraft' 'AirPlats'
	submenu 'Ships' 'ShipPlats'
endmenu

define widget airplats intmenu 'air plats'
	title 'Aircraft platforms'
	line
	entry 'n308d (Electra)' 'formtext #ui$form platform n308d'
	entry 'n42rf (P-3)' 'formtext #ui$form platform n42rf'
	entry 'n43rf (P-3)' 'formtext #ui$form platform n43rf'
	entry 'DC-8' 'formtext #ui$form platform dc8'
	entry 'ER-2' 'formtext #ui$form platform er2'
	entry '340-A' 'formtext #ui$form platform 340a'
	entry 'C-130' 'formtext #ui$form platform c130'
endmenu

define widget shipplats intmenu 'ships'
	title 'Ship platforms'
	line
	entry 'Vickers' 'formtext #ui$form platform vickers'
	entry 'Xiangyanghong 5' 'formtext #ui$form platform xiang5'
	entry 'Kexue 1' 'formtext #ui$form platform kexue1'
	entry 'Shiyan 3' 'formtext #ui$form platform shiyan3'
	entry 'Wecoma' 'formtext #ui$form platform wecoma'
	entry 'Moana Wave' 'formtext #ui$form platform moana'
	entry 'Le Noroit' 'formtext #ui$form platform noroit'
	entry 'Franklin' 'formtext #ui$form platform franklin'
	entry 'Alis' 'formtext #ui$form platform alis'
	entry 'Hakuho-Maru' 'formtext #ui$form platform hakuho'
	entry 'Keifu-Maru' 'formtext #ui$form platform keifu'
	entry 'Natsushima' 'formtext #ui$form platform natsu'
	entry 'Kaiyo' 'formtext #ui$form platform kaiyo'
	entry 'Malaita' 'formtext #ui$form platform malaita'
endmenu

!
! When and how long to sleep when creating windows.
! OpenWindows => 1,5	X => 4,1
set sleepafter	4
set sleepfor	1

!
! Come up with an interesting display.
!
set SoundEnabled true
! old version parameter defaults defaults file-path /scr/local
parameter defaults defaults file-path /var/tmp
set config getenv("DEFAULT_CONFIG")
if (config = "UNDEFINED")
	set config "empty"
endif
display #config