! this whole file is being ignored SEY 23 March 95
!
! Skew-t support stuff.
!
!
! The Skewt Adjust Limits submenu
!
define widget adjust-skewt-limits intmenu 'Adjust Limits'
	title 'Adjust Limits'
	line
	entry 'Pressure' 'i_adjust pres-limit-proc'
	entry 'Temperature' 'i_adjust temp-limit-proc'
endmenu

!
! The Skew-t left button menu.
!
define widget skewt-left intmenu 'Skewt left'
	title 'Overlay Operations'
	line
	submenu 'Adjust Limits' 'adjust-skewt-limits'
	line
	entry 'Raise to top' 'move #icon_component 0'
	entry 'Move to bottom' 'move #icon_component 1'
	entry 'Disable/reenable' 'toggle_bool "disable" "true"'
	entry 'Remove' 'i_remove_component'
endmenu

!
! Menu for top annotation.
!
define widget skewt-topannot intmenu 'stuff'
	title 'Skew-t platforms'
	line
	entry 'Remove this platform' 'skewt-remove'
endmenu

procedure skewt-remove 
	local plats PDParam(icon_component,'platform')
!
! If we are the only platform we really want to substitute "null".  Kludge.
!
	if (plats = icon_platform)
	   	parameter #icon_component platform null
		return
	endif
!
! Nope, there are others.  Just clean this one out.
!
	local pos ListPosition(icon_platform, plats)
	local plats quote(RmElement(plats,pos))
	parameter #icon_component platform #plats
endprocedure



!
! Various skewt params.
!
define widget skewt-right intmenu 'feet/km'
	title 'Skew-t modes'
	line
	entry 'Times in top annotation' 'ToggleBoolean "annot-time"' \
		(PDParam (icon_component, 'annot-time') <> 'false')
	entry 'Overlay new soundings' 'ToggleBoolean "overlay-mode"' \
	        (PDParam (icon_component, 'overlay-mode') <> 'false')
	line
	entry 'Altitude in feet' 'do-feet-proc true' \
		(PDParam (icon_component, 'do-feet') = 'true')
	entry 'Altitude in kilometers' 'do-feet-proc false' \
		(PDParam (icon_component, 'do-feet') <> 'true')
endmenu

procedure do-feet-proc value string
	parameter #icon_component do-feet #value
endprocedure

!
! The Skew-t right button menu. by SEY 24 March 1995
!
define widget skewt-right intmenu 'Skewt right'
	title 'Skewt Options'
	line
	entry 'Ft' 'do-feet-proc true'
	entry 'Km' 'do-feet-proc false'
	line
	entry 'Cyan' 'CTSet Skew-t' \
		(PDParam (icon_component, 'color-table') = 'Skew-t')
	entry 'Pink' 'CTSet Skew-t.0' \
		(PDParam (icon_component, 'color-table') = 'Skew-t.0')
	entry 'Yellow' 'CTSet Skew-t.1' \
		(PDParam (icon_component, 'color-table') = 'Skew-t.1')
	entry 'Green' 'CTSet Skew-t.2' \
		(PDParam (icon_component, 'color-table') = 'Skew-t.2')
	entry 'Magenta' 'CTSet Skew-t.3' \
		(PDParam (icon_component, 'color-table') = 'Skew-t.3')
	entry 'Red' 'CTSet Skew-t.4' \
		(PDParam (icon_component, 'color-table') = 'Skew-t.4')
	entry 'Gold' 'CTSet Skew-t.5' \
		(PDParam (icon_component, 'color-table') = 'Skew-t.5')
endmenu