#!/bin/csh -f
#
# XIMTOOL-ALT --  Script wrapper to start XImtool using the alternate GUI.
# The GUI file is contained is this script which is created when the system
# is built, it may be used to run any alternate GUI by simply replacing the
# Tcl script making up the GUI at the end of this script or by using the
# "-gui" command line flag.  The only configurable item is the path to the
# XImtool binary to be used, by default the one found in the user's path will
# be used.
#	Arguments specific to this GUI include:
#
#	    -showToolBar <bool>		show toolbar on startup
#	    -showPanelBar <bool>	show panelbar on startup
#
#----------------------------------------------------------------------------

# Configurable parameters
set	XIMTOOL		= ximtool	# Path to default ximtool binary


#------------------------------------------------------------------
#--------------- Do not modify below this line --------------------
#------------------------------------------------------------------
unset 	noclobber
onintr	cleanup

set	SKIP		= 99		# offset to GUI file

# Dump the GUI from this script file.
tail +$SKIP $0 > /tmp/_gui.$$

# Check for no arguments.
set q	= '"'
set cmd = "-gui /tmp/_gui.$$ -title $q XImtool V1.3 - Alternative GUI $q"

# Process the script arguments, quoting args when necessary.
if ($#argv > 0) then
    while ("$1" != "")
        if ("$1" == "-xrm") then
	    if ("$2" != "") then
	        shift
	    else
	        echo "missing argument to '-xrm <resource>' switch"
	        exit 1
	    endif
	    set cmd = "$cmd -xrm $q$1$q"
        else if ("$1" == "-help") then
	     $XIMTOOL -help
	     exit 0
        else if ("$1" == "-defgui") then
	    tail +$SKIP $0
	    exit 0
        else if ("$1" == "-showToolBar") then
	    if ("$2" != "") then
	        shift
	    else
	        echo "missing argument to '-showToolBar <bool>' switch"
	        exit 1
	    endif
	    set cmd = "$cmd -xrm $q XImtool.showToolBar:$1$q"
        else if ("$1" == "-showPanelBar") then
	    if ("$2" != "") then
	        shift
	    else
	        echo "missing argument to '-showPanelBar <bool>' switch"
	        exit 1
	    endif
	    set cmd = "$cmd -xrm $q XImtool.showPanelBar:$1$q"
        else
	    set cmd = "$cmd $1"
        endif

        if ("$2" == "") then
	    break
	else
	    shift
	endif
    end
endif

# Run the command.
echo  "$XIMTOOL $cmd ; /bin/rm -f /tmp/_gui*.$$" > /tmp/_gui.cmds.$$
sh /tmp/_gui.cmds.$$
exit 0

cleanup:
	/bin/rm -f /tmp/_gui*.$$
	exit 0

#--------------------------------------------------------------------------
#-------------------------- XIMTOOL-ALT.GUI -------------------------------
#------								     ------
#------  To change the GUI run by this script just delete everything ------
#------  below here and replace with the new GUI Tcl script.         ------
#------								     ------
#--------------------------------------------------------------------------
#--------------------------------------------------------------------------

#!/usr/local/bin/obmsh
#
# XIMTOOL-ALT.GUI -- Default GUI for the Ximtool-alt image display server.
#
# Version 1.3 -- EXPORT VERSION

set Version     "NOAO/IRAF XImtool Version 1.3EXPORT"

reset-server

set Objects(ximtool) { \
	toplevel	Layout		display\
\
	display		Group		menuGroup\
	menuGroup	Layout		menubar\
	menubar		MenuButton	fileButton\
	menubar		MenuButton	viewButton\
	menubar		MenuButton	optionsButton\
	menubar		Label		imageTitle\
	menubar		Toggle		mXflipButton\
	menubar		Toggle		mYflipButton\
	menubar		Command		mPrevButton\
	menubar		MenuButton	mFrameButton\
	menubar		Command		mNextButton\
	menubar		Toggle		toolButton\
	menubar		Toggle		panelButton\
\
	display		Layout		toolbar\
	toolbar		Command		tbZoomIn\
	toolbar		Command		tbZoom0\
	toolbar		Command		tbZoomOut\
	toolbar		Command		tbInvert\
	toolbar		Command		tbNormalize\
	toolbar		Command		tbMatchLUT\
	toolbar		Toggle		tbAutoReg\
	toolbar		Command		tbRegister\
	toolbar		Command		tbCenter\
	toolbar		Command		tbBlinkDec\
	toolbar		Toggle		tbBlink\
	toolbar		Command		tbBlinkInc\
	toolbar		Toggle		xflipButton\
	toolbar		Toggle		yflipButton\
	toolbar		Toggle		tbTile\
	toolbar		Toggle		tbCompass\
	toolbar		Command		prevButton\
	toolbar		MenuButton	frameButton\
	toolbar		Command		nextButton\
\
	display		Frame		imageFrame\
	imageFrame	Gterm		imagewin\
	display		Frame		cbarFrame\
	cbarFrame	Gterm		colorbar\
	display		Toggle		hcut\
	display		Toggle		vcut\
	display		Frame		hcutFrame\
	hcutFrame	Gterm		hcutPlot\
	display		Frame		vcutFrame\
	vcutFrame	Gterm		vcutPlot\
\
	display		Group		plotOpts\
	plotOpts	Layout		poptsLayout\
	poptsLayout	TextToggle	plotSpeed\
	poptsLayout	TextToggle	plotAccurate\
	poptsLayout	TextToggle	plotImgPix\
	poptsLayout	Frame		optLine\
	poptsLayout	TextToggle	curJump\
	poptsLayout	TextToggle	curSmooth\
	poptsLayout	TextToggle	curTrack\
\
	display		Layout		panelbar\
	panelbar	Toggle		pbDisplayP\
	panelbar	Toggle		pbLoadP\
	panelbar	Toggle		pbSaveP\
	panelbar	Toggle		pbPrintP\
	panelbar	Toggle		pbInfoP\
	panelbar	Toggle		pbTileP\
	panelbar	Toggle		pbCoordP\
	panelbar	Toggle		pbPanM\
	panelbar	Toggle		pbMagM\
	panelbar	Toggle		pbWcsM\
	panelbar	Toggle		pbIsm\
	panelbar	Toggle		helpButton\
	panelbar	Command		pbQuit\
}


set Objects(panelShell) { \
	toplevel	TopLevelShell	panelShell\
	panelShell	Layout		panel\
\
	panel		Frame		panelMenuFrame\
	panelMenuFrame	Layout		panelMenuBar\
	panelMenuBar	Command		panelHelp\
	panelMenuBar	Command		panelClose\
\
	panel		Frame		tabFrame\
	tabFrame	Tabs		panelTabs\
	panelTabs	Frame		display_panel\
	panelTabs	Frame		print_panel\
	panelTabs	Frame		load_panel\
	panelTabs	Frame		save_panel\
	panelTabs	Frame		info_panel\
	panelTabs	Frame		tile_panel\
	panelTabs	Frame		wcs_panel\
\
\
	display_panel	Layout		controlPanel\
	controlPanel	Group		viewBox\
	controlPanel	Group		enhancementBox\
	controlPanel	Group		blinkBox\
	controlPanel	Group		optionsBox\
	controlPanel	Frame		controlBox\
\
	viewBox		Layout		view\
	view		Group		frameSelect\
	frameSelect	Layout		frameBox\
	frameBox	Box		frlistBox\
	frlistBox	Viewport	framePort\
	framePort	Layout		frameList\
	frameList	TextToggle	frame1\
	frameList	TextToggle	frame2\
	frameList	TextToggle	frame3\
	frameList	TextToggle	frame4\
	frameList	TextToggle	frame5\
	frameList	TextToggle	frame6\
	frameList	TextToggle	frame7\
	frameList	TextToggle	frame8\
	frameList	TextToggle	frame9\
	frameList	TextToggle	frame10\
	frameList	TextToggle	frame11\
	frameList	TextToggle	frame12\
	frameList	TextToggle	frame13\
	frameList	TextToggle	frame14\
	frameList	TextToggle	frame15\
	frameList	TextToggle	frame16\
	frameBox	Command		prevFrame\
	frameBox	Command		nextFrame\
	view		Frame		frameDataBox\
	frameDataBox	TextBox		frameData\
	view		Group		zoomBox\
	zoomBox		Layout		zoom\
	zoom		TextButton	toggleZoom\
	zoom		TextButton	zoomIn\
	zoom		Command		x1\
	zoom		Command		z2\
	zoom		Command		z3\
	zoom		Command		z4\
	zoom		Command		z5\
	zoom		Command		z8\
	zoom		TextButton	zoomOut\
	zoom		TextButton	centerFrame\
	zoom		Command		d2\
	zoom		Command		d3\
	zoom		Command		d4\
	zoom		Command		d5\
	zoom		Command		d8\
	view		Layout		viewButtons\
	viewButtons	Command		aspect\
	viewButtons	Command		flipX\
	viewButtons	Command		flipY\
	viewButtons	Command		flipXY\
	viewButtons	Command		clearFrame\
	viewButtons	Command		fitFrame\
\
	enhancementBox	Layout		enhance\
	enhance		Frame		colorlistFrame\
	colorlistFrame	Viewport	colorlistView\
	colorlistView	MultiList	colorlist\
	enhance		Frame		colordataFrame\
	colordataFrame	TextBox		colordata\
	enhance		Label		contrastLabel\
	enhance		Slider2d	contrastSlider\
	enhance		Label		brightnessLabel\
	enhance		Slider2d	brightnessSlider\
	enhance		Command		invertButton\
	enhance		Command		optimizeButton\
\
	blinkBox	Layout		blink\
	blink		Label		blinkFramesLabel\
	blink		Command		blinkFrame1\
	blink		Command		blinkFrame2\
	blink		Command		blinkFrame3\
	blink		Command		blinkFrame4\
	blink		Toggle		blinkPanel\
	blink		Command		blinkReset\
	blink		Label		blinkRateLabel\
	blink		Frame		BRframe\
	BRframe		Layout		BRlayout\
	BRlayout	Arrow		BRdecrease\
	BRlayout	TextBox		BRtext\
	BRlayout	Arrow		BRincrease\
	blink		Command		registerButton\
	blink		Command		matchButton\
	blink		TextToggle	blinkButton\
	blink		TextToggle	autoregButton\
\
	optionsBox	TextToggle	pannerButton\
	optionsBox	TextToggle	magnifierButton\
	optionsBox	TextToggle	coordsBoxButton\
	optionsBox	TextToggle	autoscaleButton\
	optionsBox	TextToggle	antialiasButton\
	optionsBox	TextToggle	tileFramesButton\
	optionsBox	TextToggle	warningsButton\
	optionsBox	TextToggle	peakupButton\
\
	controlBox	Layout		control\
	control		Command		initializeButton\
	control		Command		normalizeButton\
\
\
	print_panel	Layout		printLayout\
\
	printLayout	Group		printCmdGroup\
	printLayout	Group		optGroup\
	printLayout	Group		cmdGroup\
\
	printCmdGroup	Layout		printCmdLayout\
	printCmdLayout	Layout		labelLayout\
	labelLayout	Label		toLabel\
	labelLayout	Label		printerLabel\
	printCmdLayout	Layout		inputLayout\
	inputLayout	TextToggle	toPrinter\
	inputLayout	TextToggle	toFile\
	inputLayout	Frame		printcmdFrame\
	printcmdFrame	AsciiText	printcmd\
\
	optGroup	Layout		optLayout\
	optLayout	Group		epsPageGroup\
	optLayout	Group		optionsGroup\
	optLayout	Group		printColorGroup\
	optLayout	Group		printerGroup\
	optLayout	Group		annOptsGroup\
\
	epsPageGroup	Layout		epsPage\
	epsPage		Label		epsOrientLabel\
	epsPage		TextToggle	epsPortButton\
	epsPage		TextToggle	epsLandButton\
	epsPage		TextToggle	epsSquareButton\
	epsPage		Label		epsSizeLabel\
	epsPage		TextToggle	epsLetterButton\
	epsPage		TextToggle	epsLegalButton\
	epsPage		TextToggle	epsA4Button\
	epsPage		TextToggle	epsB5Button\
	epsPage		Label		epsScaleLabel\
	epsPage		Frame		ScaleFrame\
	ScaleFrame	Layout		ScaleLayout\
	ScaleLayout	Arrow		SCdecrease\
	ScaleLayout	TextBox		SCtext\
	ScaleLayout	Arrow		SCincrease\
\
	optionsGroup	Layout		options\
	options		TextToggle	epsscaleButton\
	options		TextToggle	autorotateButton\
	options		TextToggle	aspectButton\
	options		TextToggle	compressButton\
\
	annOptsGroup	Layout		annOpts\
	annOpts		TextToggle	annotateButton\
	annOpts		TextToggle	colorbarButton\
	annOpts		TextToggle	titleButton\
	annOpts		TextToggle	bordersButton\
	annOpts		Label		titleLabel\
	annOpts		Frame		titleFrame\
	titleFrame	AsciiText	titleString\
\
	printColorGroup	Layout		printColor\
	printColor	TextToggle	prGrayButton\
	printColor	TextToggle	prPseudoButton\
	printColor	TextToggle	prRGBButton\
\
	printerGroup	Layout		printers\
	printers	Frame		printlistFrame\
	printlistFrame	Viewport	printlistView\
	printlistView	MultiList	printlist\
\
	cmdGroup	Layout		cmdLayout\
	cmdLayout	Command		okayPrint\
	cmdLayout	Label		printStatus\
\
\
	load_panel	Layout		filesLayout\
	filesLayout	Group		imlistGroup\
	imlistGroup	Layout		imlistLayout\
	imlistLayout	Command		rootButton\
	imlistLayout	Command		homeButton\
	imlistLayout	Command		upButton\
	imlistLayout	Command		rescanButton\
	imlistLayout	Label		dirLabel\
	imlistLayout	Label		fnameLabel\
	imlistLayout	Frame		filnamFrame\
	filnamFrame	AsciiText	fnameText\
	imlistLayout	Label		imtemplateLabel\
	imlistLayout	Frame		imtemplateFrame\
	imtemplateFrame	AsciiText	imtemplateText\
	imlistLayout	Label		imlistLabel\
	imlistLayout	Frame		imlistFrame\
	imlistFrame	Viewport	imlistView\
	imlistView	MultiList	imageList\
\
	filesLayout	Group		imoptsGroup\
	imoptsGroup	Layout		imoptsLayout\
	imoptsLayout	TextToggle	grayscale\
	imoptsLayout	TextToggle	autoload\
	imoptsLayout	TextToggle	browseHdrs\
	imoptsLayout	TextToggle	zscale\
	imoptsLayout	TextToggle	zrange\
	imoptsLayout	Label		z1Label\
	imoptsLayout	Frame		z1Frame\
	z1Frame		AsciiText	z1Value\
	imoptsLayout	Label		z2Label\
	imoptsLayout	Frame		z2Frame\
	z2Frame		AsciiText	z2Value\
	imoptsLayout	Label		nsampLabel\
	imoptsLayout	Frame		nsampFrame\
	nsampFrame	AsciiText	nsampValue\
	imoptsLayout	Label		frameLabel\
	imoptsLayout	MenuButton	frameFrame\
\
	filesLayout	Group		loadCmdGroup\
	loadCmdGroup	Layout		loadCmdLayout\
	loadCmdLayout	Command		filesLoadButton\
	loadCmdLayout	Label		filesStatus\
\
\
	save_panel	Layout		saveLayout\
	saveLayout	Group		saveNameGroup\
	saveNameGroup	Layout		saveNameLayout\
	saveNameLayout	Label		saveLabel\
	saveNameLayout	Frame		fnameFrame\
	fnameFrame	AsciiText	saveFile\
\
	saveLayout	Group		saveOptGroup\
	saveOptGroup	Layout		saveOptLayout\
	saveOptLayout	Group		fmtGroup\
	saveOptLayout	Group		saveColorGroup\
	saveOptLayout	Frame		saveDataBox\
	saveDataBox	TextBox		saveData\
\
	fmtGroup	Layout		formats\
	formats		TextToggle	rasButton\
	formats		TextToggle	gifButton\
	formats		TextToggle	jpegButton\
	formats		TextToggle	tiffButton\
	formats		TextToggle	fitsButton\
	formats		TextToggle	epsButton\
	formats		TextToggle	x11Button\
	formats		TextToggle	rawButton\
\
	saveColorGroup	Layout		saveColor\
	saveColor	TextToggle	svGrayButton\
	saveColor	TextToggle	svPseudoButton\
	saveColor	TextToggle	svRGBButton\
\
	saveLayout	Group		saveCmdGroup\
	saveCmdGroup	Layout		saveCmdLayout\
	saveCmdLayout	Command		okaySave\
	saveCmdLayout	Label		saveStatus\
\
\
	info_panel	Layout		infoLayout\
	infoLayout	Group		infoBox\
	infoBox		Layout		infoBoxL\
	infoBoxL	Frame		infoFrame\
	infoFrame	AsciiText	infoText\
	infoBoxL	TextToggle	infoOptFr\
	infoBoxL	TextToggle	infoOptWCS\
	infoBoxL	TextToggle	infoOptSvr\
	infoBoxL	TextToggle	infoOptClients\
	infoBoxL	TextToggle	infoOptIsm\
	infoBoxL	TextToggle	infoOptFB\
\
\
	wcs_panel	Layout		wcsLayout\
	wcsLayout	Group		wcsGroup\
	wcsGroup	Layout		wcsBox\
\
	wcsBox		Frame		wcsFrame\
	wcsFrame	Layout		wcsText\
	wcsText		AsciiText	wtName\
	wcsText		AsciiText	wtTitle\
	wcsText		AsciiText	wtFBCfg\
	wcsText		AsciiText	wtIPixval\
	wcsText		AsciiText	wtSPixval\
	wcsText		AsciiText	wtBPixval\
	wcsText		AsciiText	wtWcs1\
	wcsText		AsciiText	wtWcs2\
	wcsText		AsciiText	wtWcs3\
	wcsText		AsciiText	wtWcs4\
\
	wcsBox		TextToggle	ismToggle\
	wcsBox		TextToggle	pixelTable\
	wcsBox		TextToggle	imageHeader\
	wcsBox		TextToggle	compass\
	wcsBox		TextToggle	wcsOptions\
\
\
        wcsLayout       Group           wcsOptGroup\
        wcsOptGroup     Layout          wcsOptLayout\
\
	wcsOptLayout	Group		wcsCoords\
	wcsCoords	Layout		wcLayout\
	wcLayout	Label		wcTitle\
	wcLayout	Frame		wcLine\
	wcLayout	Label		wlWcs1\
	wcLayout	Label		wlWcs2\
	wcLayout	Label		wlWcs3\
	wcLayout	Label		wlWcs4\
	wcLayout	MenuButton	sysWcs1\
	wcLayout	MenuButton	sysWcs2\
	wcLayout	MenuButton	sysWcs3\
	wcLayout	MenuButton	sysWcs4\
	wcLayout	MenuButton	fmtWcs1\
	wcLayout	MenuButton	fmtWcs2\
	wcLayout	MenuButton	fmtWcs3\
	wcLayout	MenuButton	fmtWcs4\
	wcLayout	TextToggle	wpWcs1\
	wcLayout	TextToggle	wpWcs2\
	wcLayout	TextToggle	wpWcs3\
	wcLayout	TextToggle	wpWcs4\
	wcLayout	TextToggle	wiWcs1\
	wcLayout	TextToggle	wiWcs2\
	wcLayout	TextToggle	wiWcs3\
	wcLayout	TextToggle	wiWcs4\
\
	wcsOptLayout	Group		wcsOpts\
	wcsOpts		Layout		woLayout\
	woLayout	TextToggle	woptLabels\
	woLayout	TextToggle	woptTitles\
	woLayout	TextToggle	woptFBinfo\
	woLayout	TextToggle	woptBPM\
\
	wcsOptLayout	Group		wcsIsmGroup\
	wcsIsmGroup	Layout		wcsIsmLayout\
	wcsIsmLayout	Label		wcsIsmLabel\
	wcsIsmLayout	Frame		wcsIsmFrame\
	wcsIsmFrame	AsciiText	wcsIsmCmd\
	wcsIsmLayout	Command		wcsIsmInit\
\
\
	tile_panel 	Frame	 	tileOpts\
	tileOpts	Layout	 	toptLayout\
	toptLayout 	Group	 	tFramesG\
	toptLayout 	Group	 	tileMode\
	tileMode	TextToggle	tileDisabled\
	tileMode	TextToggle	tileManual\
	tileMode	TextToggle	tileBest\
	tileMode	TextToggle	tileSquare\
	tileMode	TextToggle	tileHorizontal\
	tileMode	TextToggle	tileVertical\
	tileMode	TextToggle	tileRow\
	tileMode	TextToggle	tileCol\
	toptLayout 	Group	 	userOrientG\
	toptLayout	Group		fillStyle\
	fillStyle	TextToggle	byCols\
	fillStyle	TextToggle	bottomUp\
	toptLayout	Group		tileLabel\
	tileLabel	TextToggle	labelImname\
	tileLabel	TextToggle	labelTitles\
	tileLabel	TextToggle	labelFrames\
	toptLayout	Frame		geomFrame\
	geomFrame	Label		tileGeometry\
\
	userOrientG	Layout		userOrientL\
	userOrientL  	Label	 	nrowLab\
	userOrientL  	Frame	 	nrFrame\
	nrFrame	 	Layout	 	nrLayout\
	nrLayout	Arrow	 	nrdecrease\
	nrLayout	Label	 	nrtext\
	nrLayout	Arrow	 	nrincrease\
	userOrientL  	Label	 	ncolLab\
	userOrientL  	Frame	 	ncFrame\
	ncFrame	 	Layout	 	ncLayout\
	ncLayout	Arrow	 	ncdecrease\
	ncLayout	Label	 	nctext\
	ncLayout	Arrow	 	ncincrease\
\
	tFramesG  	Layout	 	tFrames\
	tFrames  	Command  	tAll\
	tFrames  	Command  	tNone\
	tFrames  	Toggle  	tFrame1\
	tFrames  	Toggle  	tFrame2\
	tFrames  	Toggle  	tFrame3\
	tFrames  	Toggle  	tFrame4\
	tFrames  	Toggle  	tFrame5\
	tFrames  	Toggle  	tFrame6\
	tFrames  	Toggle  	tFrame7\
	tFrames  	Toggle  	tFrame8\
	tFrames  	Toggle  	tFrame9\
	tFrames  	Toggle  	tFrame10\
	tFrames  	Toggle  	tFrame11\
	tFrames  	Toggle  	tFrame12\
	tFrames  	Toggle  	tFrame13\
	tFrames  	Toggle  	tFrame14\
	tFrames  	Toggle  	tFrame15\
	tFrames  	Toggle  	tFrame16\
}


set Objects(parameters) { \
	toplevel	Parameter	ximtool\
	ximtool		Parameter	alert\
	ximtool		Parameter	initialize\
	ximtool		Parameter	resize\
	ximtool		Parameter	frame\
	ximtool		Parameter	nframes\
	ximtool		Parameter	frameSize\
	ximtool		Parameter	frameRegion\
	ximtool		Parameter	frameView\
	ximtool		Parameter	frameTitle\
	ximtool		Parameter	frameFit\
	ximtool		Parameter	enhancement\
	ximtool		Parameter	colortables\
	ximtool		Parameter	autoscale\
	ximtool		Parameter	antialias\
	ximtool		Parameter	tileFrames\
	ximtool		Parameter	cursorMode\
	ximtool		Parameter	xflip\
	ximtool		Parameter	yflip\
	ximtool		Parameter	printerList\
	ximtool		Parameter	printOptions\
	ximtool		Parameter	loadOptions\
	ximtool		Parameter	saveOptions\
	ximtool		Parameter	tileOptions\
	ximtool		Parameter	filelist\
	ximtool		Parameter	help\
	ximtool		Parameter	info\
	ximtool		Parameter	ism_msg\
}


set Objects(help_panel) { \
	toplevel	TopLevelShell 	help_panel\
	help_panel  	Layout	 	helpLayout\
	helpLayout  	Group	 	helpMenuGroup\
	helpMenuGroup  	Layout	 	helpMenubar\
	helpLayout  	Layout	 	helpInfoLayout\
\
	helpMenubar	Command	 	helpClose\
\
	helpLayout	Command	 	helpBack\
	helpLayout	Command	 	helpForward\
	helpLayout	Command	 	helpHome\
        helpLayout      Frame           hfFrame\
        hfFrame         AsciiText       hfEntry\
        helpLayout      Command         hfFind\
        helpLayout      Command         hfClear\
	helpLayout  	Frame	 	helpTextFrame\
	helpTextFrame 	HTML	 	helpText\
\
	helpInfoLayout	Label	 	helpIRAFLogo\
	helpInfoLayout	Label	 	helpInfo1\
	helpInfoLayout	Label	 	helpInfo2\
	helpInfoLayout	Label	 	helpInfo3\
	helpInfoLayout	Label	 	helpNOAOLogo\
}


set Objects(blink_panel) { \
	toplevel	TopLevelShell 	blink_panel\
	blink_panel  	Layout	 	bpLayout\
\
	bpLayout  	Frame	 	brMenuFrame\
	brMenuFrame  	Layout	 	brMenuBar\
	brMenuBar  	Command	 	brClose\
\
	bpLayout	Frame		brFrame\
	brFrame		Layout		brLayout\
\
	brLayout	Group	 	brFramesG\
	brFramesG  	Layout	 	brFrames\
	brFrames	MenuButton  	brFrame1\
	brFrames	MenuButton  	brFrame2\
	brFrames	MenuButton  	brFrame3\
	brFrames	MenuButton  	brFrame4\
	brFrames	MenuButton  	brFrame5\
	brFrames	MenuButton  	brFrame6\
	brFrames	MenuButton  	brFrame7\
	brFrames	MenuButton  	brFrame8\
	brFrames	MenuButton  	brFrame9\
	brFrames	MenuButton  	brFrame10\
	brFrames	MenuButton  	brFrame11\
	brFrames	MenuButton  	brFrame12\
	brFrames	MenuButton  	brFrame13\
	brFrames	MenuButton  	brFrame14\
	brFrames	MenuButton  	brFrame15\
	brFrames	MenuButton  	brFrame16\
\
	brLayout	Group	 	brCmdG\
	brCmdG	 	Layout	 	brCmd\
	brCmd	 	Command	 	brReset\
	brCmd	 	Label	 	brRateLabel\
	brCmd	 	Frame	 	brBRframe\
	brBRframe  	Layout	 	brBRlayout\
	brBRlayout  	Arrow	 	brBRdecrease\
	brBRlayout  	TextBox	 	brBRtext\
	brBRlayout  	Arrow	 	brBRincrease\
	brCmd	 	Command	 	brRegButton\
	brCmd	 	Command	 	brMatchButton\
	brCmd	 	TextToggle  	brBlinkButton\
	brCmd	 	TextToggle  	brAregButton\
}


set Objects(hdr_panel) { \
	toplevel	TopLevelShell 	hdr_panel\
	hdr_panel	Layout		hdrLayout\
\
	hdrLayout	Frame		hdrMenuFrame\
	hdrMenuFrame	Layout		hdrMenuBar\
	hdrMenuBar	Command		hdrClose\
\
	hdrLayout  	Group	 	hdrObjGroup\
	hdrObjGroup  	Layout	 	hdrObjLayout\
	hdrObjLayout 	Label	 	hdrObjLabel\
	hdrObjLayout	MenuButton  	hdrObjMenu\
\
	hdrLayout  	Frame	 	hdrTabFrame\
	hdrTabFrame  	Tabs	 	hdrTabs\
	hdrTabs	 	Group	 	hdrHdrGroup\
	hdrTabs	 	Group	 	hdrWcsGroup\
\
	hdrHdrGroup  	Layout	 	hdrHdrLayout\
        hdrHdrLayout    Frame           hFindFrame\
        hFindFrame      AsciiText       hFindEntry\
        hdrHdrLayout    Command         hdrFilter\
        hdrHdrLayout    Command         hdrFind\
        hdrHdrLayout    Command         hdrClear\
	hdrHdrLayout 	HTML  		hdrText\
\
	hdrWcsGroup	Layout		hdrWcsLayout\
	hdrWcsLayout	Group		hdrInfoGroup\
	hdrInfoGroup	Frame		hdrIGFrame\
	hdrIGFrame	AsciiText	hdrIGText\
	hdrWcsLayout	Group		hdrKeywGroup\
	hdrKeywGroup	Frame		hdrKGFrame\
	hdrKGFrame	AsciiText	hdrKGText\
}


set Objects(pixel_table) { \
	toplevel	TopLevelShell	pixel_panel\
\
	pixel_panel	Layout		pixel_table\
	pixel_table	Frame		pixtabMenuFrame\
	pixtabMenuFrame	Layout		pixtabMenuBar\
	pixtabMenuBar	MenuButton	pixtabSize\
	pixtabMenuBar	Command		pixtabHelp\
	pixtabMenuBar	Command		pixtabClose\
\
	pixel_table	Frame		pixtabFrame\
	pixtabFrame  	Porthole	ptPort\
	ptPort	 	Layout	 	ptLayout\
	ptLayout	Frame	 	ptColFrame\
	ptColFrame  	MultiList  	ptColLabs\
	ptLayout  	Frame	 	ptRowFrame\
	ptRowFrame  	MultiList  	ptRowLabs\
	ptLayout	Frame		ptFrame\
	ptFrame		MultiList	pixtab\
\
	ptLayout	Label		meanLabel\
	ptLayout	Frame		meanFrame\
	meanFrame	Label		meanValue\
\
	ptLayout	Label		sigLabel\
	ptLayout	Frame		sigFrame\
	sigFrame	Label		sigValue\
}


set Objects(tcl_panel) { \
	toplevel	TopLevelShell tcl_panel\
	tcl_panel  	Layout		tclLayout\
	tclLayout  	Group		tclCmdGroup\
	tclCmdGroup  	Layout	 	tclCmd\
	tclCmd	 	Command	 	tclClear\
	tclCmd	 	Command	 	tclExecute\
	tclCmd	 	Command	 	tclDismiss\
	tclLayout  	Frame	 	tclFrame\
	tclFrame	AsciiText  	tclEntry\
}


set Objects(warning) { \
	toplevel	TransientShell	warning\
	warning		Layout		warn\
	warn		Frame		warnFrame\
	warnFrame	Layout		WFlayout\
	WFlayout	Icon		warnIcon\
	WFlayout	TextBox		warnText\
	warn		Command		warnOk\
	warn		Command		warnCancel\
}


set Resources(global) {	\

    !---------------------------------------------------------
    ! Define some global widget resources for the main panels.
    !---------------------------------------------------------
    *shadowWidth:			1
    *background:			gray77
!   *foreground:			black
    *Arrow.width:			16
    *Arrow.height:			25
    *Text*height:			21
    *Command.height:			21
    *Command.highlightThickness:	1
    *MenuButton.height:			21
    *MenuButton.highlightThickness:	1
    *Label.borderWidth:			0
    *Label.shadowWidth:			0
    *TextButton.shadowWidth:		0
    *TextButton.highlightThickness:	1
    *TextToggle*borderWidth:		0
    *TextToggle.highlightThickness:	0
    *Toggle.highlightThickness:		1
    *Group.shrinkToFit:			True

    *Arrow.foreground:			gray
    *Arrow.background:			gray68
    *Text*background:			gray68
    *AsciiText*background:		gray68
    *TextBox.background:		gray68
    *MultiList*background:		gray68
    *Slider2d.thumbColor:		gray77


    !-------------------------------------------------------------
    ! Define resources to take advantage of the	3D scrollbar look.
    !-------------------------------------------------------------
    *Scrollbar*background:		gray77
    *Scrollbar*shadowWidth:		1
    *Scrollbar*width:			15
    *Scrollbar*height:			15
    *Scrollbar*cursorName:		top_left_arrow
    *Scrollbar*pushThumb:		true

    *HTML.Scrollbar.shadowWidth:	1
    *HTML*Scrollbar*width:		15
    *HTML*Scrollbar*height:		15


    !----------------------------------------
    ! Menu resources giving a shadow effect.
    !----------------------------------------
    *SmeBSB.leftMargin:			10
    *SmeBSB.rightMargin:		5
    *SmeBSB.shadowWidth:		2
    *SmeBSB.foreground:			gray90
    *SmeBSB.background:			SteelBlue
    *SimpleMenu.background:		gray77
    *SimpleMenu.borderWidth:		2
    *SimpleMenu.borderColor:		black
    *SimpleMenu.line1.foreground:	gray61
    *SimpleMenu.line2.foreground:	gray91
    *SimpleMenu.line3.foreground:	gray61
    *SimpleMenu.line4.foreground:	gray91
    *SimpleMenu.line5.foreground:	gray61
    *SimpleMenu.line6.foreground:	gray91
    *SimpleMenu.line7.foreground:	gray61
    *SimpleMenu.line8.foreground:	gray91
    *SimpleMenu.line9.foreground:	gray61
    *SimpleMenu.line10.foreground:	gray91
    *SimpleMenu.line11.foreground:	gray61
    *SimpleMenu.line12.foreground:	gray91
    *SimpleMenu.line13.foreground:	gray61
    *SimpleMenu.line14.foreground:	gray91
    *SimpleMenu.line15.foreground:	gray61
    *SimpleMenu.line16.foreground:	gray91
    *SimpleMenu.line17.foreground:	gray61
    *SimpleMenu.line18.foreground:	gray91
    *SimpleMenu.line19.foreground:	gray61
    *SimpleMenu.line20.foreground:	gray91
    *SimpleMenu.line21.foreground:	gray61
    *SimpleMenu.line22.foreground:	gray91
    *SimpleMenu.line23.foreground:	gray61
    *SimpleMenu.line24.foreground:	gray91
    *SimpleMenu.line25.foreground:	gray61
    *SimpleMenu.line26.foreground:	gray91
    *SimpleMenu.line27.foreground:	gray61
    *SimpleMenu.line28.foreground:	gray91
    *SimpleMenu.line29.foreground:	gray61
    *SimpleMenu.line30.foreground:	gray91
    *SimpleMenu.line31.foreground:	gray61
    *SimpleMenu.line32.foreground:	gray91
    *SimpleMenu.line33.foreground:	gray61
    *SimpleMenu.line34.foreground:	gray91
    *SimpleMenu.line35.foreground:	gray61
    *SimpleMenu.line36.foreground:	gray91
    *SimpleMenu.line37.foreground:	gray61
    *SimpleMenu.line38.foreground:	gray91
    *SimpleMenu.line39.foreground:	gray61
    *SimpleMenu.line40.foreground:	gray91
}
    
    

set Resources(ximtool) { \

    ! Main image window	resources.
    ! -------------------------------
    *allowShellResize:				True
    *beNiceToColormap:				False
    *menuLabel.foreground:			Gold
    *markerMenu.foreground:			White
    *rulerMenu.foreground:			White
    *display.imagewin.markerMenu.foreground:	White
    *display.imagewin.rulerMenu.foreground:	White
    *markerMenu.background:			SteelBlue
    *markerMenu*SimpleMenu.foreground:		White
    *markerMenu*SimpleMenu.background:		SteelBlue
    *rulerMenu.background:			SteelBlue
    *rulerMenu*SimpleMenu.foreground:		White
    *rulerMenu*SimpleMenu.background:		SteelBlue
    *rulerColor.SmeBSB.leftMargin:		16
    *magzoomMenu.foreground:			White
    *magzoomMenu.background:			SteelBlue
    *magzoomMenu*SimpleMenu.foreground:		White
    *magzoomMenu*SimpleMenu.background:		SteelBlue
    *markerColor.SmeBSB.leftMargin:		64
    *markerColor.SmeBSB.rightMargin:		0
    *markerColor.menuLabel.leftMargin:		5
    *markerColor.menuLabel.rightMargin:		5
    *rulerColor.SmeBSB.leftMargin:		64
    *rulerColor.SmeBSB.rightMargin:		0
    *rulerColor.menuLabel.leftMargin:		5
    *rulerColor.menuLabel.rightMargin:		5

    *ximtool.title:				XIMTOOL_VERSION

    *display.borderWidth:			0
    *display.layout: horizontal	{ \
	-0 \
	vertical { \
	    menuGroup  < +inf -inf * > \
	    horizontal { 1 toolbar < +inf -inf * > 1 } \
	    1 < -1 > \
	    horizontal { 1 panelbar < +inf -inf * > 1 } \
	    1 < -1 > \
	    vertical { \
	        horizontal { \
	            imageFrame < +inf -inf * +inf -inf > \
	            vcutFrame  < * +inf -inf > \
	        } \
	        horizontal { \
	            hcutFrame  < +inf -inf * > 1 \
		    vertical { 4 plotOpts -4 } \
	        } \
	        horizontal { \
	            cbarFrame  < +inf -inf * > \
	            hcut 2 vcut  \
	        } \
	    } \
	} \
	-0 \
    }
    *hcut.label:				H
    *hcut.font:					*lucida-bold-r*10*
    *vcut.label:				V
    *vcut.font:					*lucida-bold-r*10*

    *hcutFrame.frameType:                       sunken
    *hcutFrame.frameWidth:                      1
    *hcutFrame.innerOffset:                     0
    *hcutFrame.outerOffset:                     0
    *hcutPlot.color0:                           gray77
    *hcutPlot.color1:                           black
    *hcutPlot.color0:                           darkslategray
    *hcutPlot.color1:                           ivory2
    *hcutPlot.crosshairCursorColor:		red
    *hcutPlot.width:                            512
    *hcutPlot.height:                           5
    *hcutPlot.borderWidth:			0
    *hcutPlot.alphaFont1:			6x10
    *hcutPlot.alphaFont2:			6x10
    *hcutPlot.alphaFont3:			6x10
    *hcutPlot.alphaFont4:			6x10
    *hcutPlot.alphaFont5:			6x10
    *hcutPlot.alphaFont6:			6x10
    *hcutPlot.alphaFont7:			6x10
    *hcutPlot.alphaFont8:			6x10
    *hcutPlot.translations:	\
	 !Ctrl	<Key>1:	call(cpZoom,1,1,fixed) 		\n\
	 !Ctrl	<Key>2:	call(cpZoom,2,2,fixed) 		\n\
	 !Ctrl	<Key>3:	call(cpZoom,3,3,fixed) 		\n\
	 !Ctrl	<Key>4:	call(cpZoom,4,4,fixed) 		\n\
	 !Ctrl	<Key>5:	call(cpZoom,5,5,fixed) 		\n\
	 !Ctrl	<Key>6:	call(cpZoom,6,6,fixed) 		\n\
	 !Ctrl	<Key>7:	call(cpZoom,7,7,fixed) 		\n\
	 !Ctrl	<Key>8:	call(cpZoom,8,8,fixed) 		\n\
	 !Ctrl	<Key>9:	call(cpZoom,9,9,fixed) 		\n\
	 !Ctrl	<Key>b:	call(prevFrame,$name)		\n\
	 !Ctrl	<Key>f:	call(nextFrame,$name)		\n\
	 !Ctrl	<Key>i:	call(cpInvert)		       	\n\
	 !Ctrl	<Key>m:	call(toggleMagnifier)		\n\
	 !Ctrl	<Key>n:	call(normalize)			\n\
	 !Ctrl	<Key>p:	call(togglePanner)		\n\
      !Ctrl Alt <Key>q: call(Quit)			\n\
	 !Ctrl	<Key>r:	call(cpRegisterFrames)		\n\
	 !Ctrl	<Key>s:	call(cpMatchFrames)		\n\
	 !Ctrl	<Key>u:	call(cpZoom,1,1,fixed) 		\n\
	  Ctrl	<Key>+:	call(cpZoom,2.0,2.0,relative)	\n\
	  Ctrl	<Key>-:	call(cpZoom,0.5,0.5,relative)	\n\
	  Ctrl <Key>\<:	call(cpSetBlinkRate,BRdecrease)	\n\
	  Ctrl <Key>\>:	call(cpSetBlinkRate,BRincrease)	\n\
	  !Alt	<Key>b:	call(toggleBlink)	     	\n\
	  !Alt	<Key>c:	call(controlPanel)		\n\
	  !Alt	<Key>h:	call(Help)		 	\n\
	  !Alt	<Key>i:	call(infoPanel)		      	\n\
      !Ctrl Alt <Key>f: call(fitFrame)		 	\n\
	  !Alt	<Key>l:	call(loadPanel)		      	\n\
	  !Alt	<Key>p:	call(printPanel)	       	\n\
	  !Alt	<Key>s:	call(savePanel)		      	\n\
	  !Alt	<Key>t:	call(tclPanel)		     	\n\
	   !<Btn1Down>:	call(makeMarker,$name,$x,$y) m_create()	\n\
	 <EnterWindow>:	enter-window()			\n\
	 <LeaveWindow>:	leave-window()			\n\
	    <KeyPress>:	graphics-input()		\n\
         !Alt <Motion>:	call(curtrack_msg,$x,$y)	\n\
	      <Motion>:	track-cursor() call(hcutWCSUpdate,$x,$y)


    *vcutFrame.frameType:                       sunken
    *vcutFrame.frameWidth:                      1
    *vcutFrame.innerOffset:                     0
    *vcutFrame.outerOffset:                     0
    *vcutPlot.color0:                           gray77
    *vcutPlot.color1:                           black
    *vcutPlot.color0:                           darkslategray
    *vcutPlot.color1:                           ivory2
    *vcutPlot.crosshairCursorColor:		red
    *vcutPlot.width:                            5
    *vcutPlot.height:                           512
    *vcutPlot.borderWidth:			0
    *vcutPlot.alphaFont1:			6x10
    *vcutPlot.alphaFont2:			6x10
    *vcutPlot.alphaFont3:			6x10
    *vcutPlot.alphaFont4:			6x10
    *vcutPlot.alphaFont5:			6x10
    *vcutPlot.alphaFont6:			6x10
    *vcutPlot.alphaFont7:			6x10
    *vcutPlot.alphaFont8:			6x10
    *vcutPlot.translations:	\
	 !Ctrl	<Key>1:	call(cpZoom,1,1,fixed) 		\n\
	 !Ctrl	<Key>2:	call(cpZoom,2,2,fixed) 		\n\
	 !Ctrl	<Key>3:	call(cpZoom,3,3,fixed) 		\n\
	 !Ctrl	<Key>4:	call(cpZoom,4,4,fixed) 		\n\
	 !Ctrl	<Key>5:	call(cpZoom,5,5,fixed) 		\n\
	 !Ctrl	<Key>6:	call(cpZoom,6,6,fixed) 		\n\
	 !Ctrl	<Key>7:	call(cpZoom,7,7,fixed) 		\n\
	 !Ctrl	<Key>8:	call(cpZoom,8,8,fixed) 		\n\
	 !Ctrl	<Key>9:	call(cpZoom,9,9,fixed) 		\n\
	 !Ctrl	<Key>b:	call(prevFrame,$name)		\n\
	 !Ctrl	<Key>f:	call(nextFrame,$name)		\n\
	 !Ctrl	<Key>i:	call(cpInvert)		       	\n\
	 !Ctrl	<Key>m:	call(toggleMagnifier)		\n\
	 !Ctrl	<Key>n:	call(normalize)			\n\
	 !Ctrl	<Key>p:	call(togglePanner)		\n\
      !Ctrl Alt <Key>q: call(Quit)			\n\
	 !Ctrl	<Key>r:	call(cpRegisterFrames)		\n\
	 !Ctrl	<Key>s:	call(cpMatchFrames)		\n\
	 !Ctrl	<Key>u:	call(cpZoom,1,1,fixed) 		\n\
	  Ctrl	<Key>+:	call(cpZoom,2.0,2.0,relative)	\n\
	  Ctrl	<Key>-:	call(cpZoom,0.5,0.5,relative)	\n\
	  Ctrl <Key>\<:	call(cpSetBlinkRate,BRdecrease)	\n\
	  Ctrl <Key>\>:	call(cpSetBlinkRate,BRincrease)	\n\
	  !Alt	<Key>b:	call(toggleBlink)	     	\n\
	  !Alt	<Key>c:	call(controlPanel)		\n\
	  !Alt	<Key>h:	call(Help)		 	\n\
	  !Alt	<Key>i:	call(infoPanel)		      	\n\
      !Ctrl Alt <Key>f: call(fitFrame)		 	\n\
	  !Alt	<Key>l:	call(loadPanel)		      	\n\
	  !Alt	<Key>p:	call(printPanel)	       	\n\
	  !Alt	<Key>s:	call(savePanel)		      	\n\
	  !Alt	<Key>t:	call(tclPanel)		     	\n\
	   !<Btn1Down>:	call(makeMarker,$name,$x,$y) m_create()	\n\
	 <EnterWindow>:	enter-window()			\n\
	 <LeaveWindow>:	leave-window()			\n\
	    <KeyPress>:	graphics-input()		\n\
         !Alt <Motion>:	call(curtrack_msg,$x,$y)	\n\
	      <Motion>:	track-cursor() call(vcutWCSUpdate,$x,$y)


    *plotOpts.label:                            Options
    !*plotOpts*location:                         0 0 105 18
    *plotOpts*location:                         0 0 1 18
    *plotOpts.shrinkToFit:                      True
    *plotOpts.outerOffset:                      5
    *plotOpts.innerOffset:                      3
    *plotOpts.frameWidth:                       2
    *plotOpts*TextToggle.offIcon:               square0s
    *plotOpts*TextToggle.onIcon:                square1s
    *plotOpts*TextToggle.highlightColor:        yellow
    *plotOpts*TextToggle.outerOffset:           0
    *plotOpts*TextToggle.frameWidth:            0
    *plotOpts*TextToggle.selectionStyle:	multi
    *plotOpts*TextToggle.leftMargin:		3
    *plotOpts*TextToggle.alignment:		left

    *poptsLayout.borderWidth:			0
    *poptsLayout.layout: vertical { \
	-1 \
        plotSpeed plotAccurate plotImgPix \
	2 < -2 > \
        horizontal { -4 optLine < +inf -inf * > -4 } \
	2 < -2 > \
        curJump curSmooth curTrack \
	-1 \
     }
    *plotSpeed.label:				Better Speed
    *plotSpeed.on:			 	True
    *plotAccurate.label:			Better Accuracy
    *plotAccurate.on:				False
    *plotImgPix.label:				Image Pixels
    *plotImgPix.on:				False
    *plotImgPix.sensitive:			False
    *optLine.height:                            2
    *optLine.width:				120
    *optLine.outerOffset:			0
    *optLine.innerOffset:			0
    *optLine.frameWidth:                        2
    *optLine.frameType:                         chiseled
    *curJump.label:				Jump Cursor
    *curJump.on:				True
    *curSmooth.label:				Smooth Cursor
    *curSmooth.on:				False
    *curTrack.label:				Graphics Cursors
    *curTrack.on:				True


    *menuGroup.label:				
    *menuGroup.height:				40
    *menuGroup.width:				518
    *menuGroup.frameType:			raised
    *menuGroup.frameWidth:			2
    *menubar.layout: horizontal	{ \
	2 < -2 > \
	fileButton 1 < -1 > viewButton	1 < -1 > optionsButton \
	1 < -1	> \
	imageTitle < +inff -inff * > \
	1 < -1	> \
	mXflipButton 1	< -1 > mYflipButton \
	1 < -1	> \
	mPrevButton 1 < -1 > mFrameButton 1 < -1 > mNextButton	\
	1 < -1	> \
	toolButton 1 <	-1 > panelButton \
	2 < -2 > \
    }

    *menubar*SimpleMenu.foreground:		Black
    *menubar*SimpleMenu.borderWidth:		1
    *menubar*SimpleMenu.foreground:		White
    *menubar*SimpleMenu.background:		SteelBlue
    *SmeBSB.vertSpace:				10

    *menubar.width:				518
    *menubar*borderWidth:			0
    *menubar*Command.internalWidth:		0
    *menubar*Command.borderWidth:		0
    *menubar*Toggle.label:			x
    *menubar*Toggle.internalWidth:		0
    *menubar*Toggle.borderWidth:		0

    *toolbar.layout: horizontal	{ \
	tbZoomIn    < +inf -inf * > 1 < -1 > \
	tbZoom0     < +inf -inf * > 1 < -1 > \
	tbZoomOut   < +inf -inf * > 1 < -1 > \
	tbInvert    < +inf -inf * > 1 < -1 > \
	tbNormalize < +inf -inf * > 1 < -1 > \
	tbMatchLUT  < +inf -inf * > 1 < -1 > \
	tbAutoReg   < +inf -inf * > 1 < -1 > \
	tbRegister  < +inf -inf * > 1 < -1 > \
	tbCenter    < +inf -inf * > 1 < -1 > \
	tbBlinkDec  < +inf -inf * > 1 < -1 > \
	tbBlink	    < +inf -inf * > 1 < -1 > \
	tbBlinkInc  < +inf -inf * > 1 < -1 > \
	xflipButton < +inf -inf * > 1 < -1 > \
	yflipButton < +inf -inf * > 1 < -1 > \
	tbCompass   < +inf -inf * > 1 < -1 > \
	tbTile      < +inf -inf * > 1 < -1 > \
	prevButton  < +inf -inf * > 1 < -1 > \
	frameButton < +inf -inf * > 1 < -1 > \
	nextButton  < +inf -inf * > 1 < -1 > \
    }
    *toolbar.width:				518
    *toolbar.height:				25
    *toolbar*borderWidth:			0
    *toolbar*Command.internalWidth:		3
    *toolbar*Command.borderWidth:		0
    *toolbar*Toggle.internalWidth:		2
    *toolbar*Toggle.borderWidth:		0

    *panelbar.layout: horizontal { \
        pbDisplayP < +inf -inf * > 1 < -1 > \
	pbPrintP   < +inf -inf * > 1 < -1 > \
	pbLoadP    < +inf -inf * > 1 < -1 > \
	pbSaveP    < +inf -inf * > 1 < -1 > \
	pbInfoP    < +inf -inf * > 1 < -1 > \
	pbTileP    < +inf -inf * > 1 < -1 > \
	pbCoordP   < +inf -inf * > 1 < -1 > \
        pbPanM	   < +inf -inf * > 1 < -1 > \
	pbMagM     < +inf -inf * > 1 < -1 > \
	pbWcsM     < +inf -inf * > 1 < -1 > \
	pbIsm      < +inf -inf * > 1 < -1 > \
        helpButton < +inf -inf * > 1 < -1 > \
	pbQuit     < +inf -inf * > 1 < -1 > \
    }
    *panelbar*SimpleMenu.borderColor:		 Black
    *panelbar*SimpleMenu.borderWidth:		 1
    *SmeBSB.vertSpace:				 10

    *panelbar.width:				 12
    *panelbar.height:				 25
    *panelbar*borderWidth:			 0
    *panelbar*Label.internalWidth:		 4
    *panelbar*Label.borderWidth:		 0
    *panelbar*Command.internalWidth:		 4
    *panelbar*Command.borderWidth:		 0
    *panelbar*Toggle.internalWidth:		 3
    *panelbar*Toggle.borderWidth:		 0

    *pbLoadP.label:				Load
    *pbDisplayP.label:				Display
    *pbSaveP.label:				Save
    *pbPrintP.label:				Print
    *pbInfoP.label:				Info
    *pbTileP.label:				Tile
    *pbCoordP.label:				Coords
    *pbPanM.label:				Pan
    *pbPanM.state:				1
    *pbMagM.label:				Mag
    *pbMagM.state:				0
    *pbWcsM.label:				WCS
    *pbWcsM.state:				1
    *pbIsm.label:				ISM
    *pbIsm.state:				0
    *helpButton.label:				

    *fileButton.label:				File
    *fileButton.menuName:			fileMenu
    *viewButton.label:				View
    *viewButton.menuName:			viewMenu
    *optionsButton.label:			Options
    *optionsButton.menuName:			optionsMenu
    *toolButton.label:			
    *toolButton.state:				0
    *panelButton.label:			
    *panelButton.state:				0
    *imageTitle*font:				*times-bold-r*12*
    *imageTitle.width:				40
    *imageTitle.height:				20
    *frameButton.menuName:			frameMenu
    *frameButton.label:				1
    *frameButton.width:				20
    *mFrameButton.menuName:			mFrameMenu
    *mFrameButton.label:			1
    *mFrameButton.width:			20
    *pbQuit.label:				Quit
    *tbZoom0.label:				Mag
    *tbBlink.label:				Blink
    *tbBlink.internalWidth:			3
    *tbCenter.label:				Cntr
    *tbAutoReg.label:				AReg
    *tbRegister.label:				Reg
    *tbInvert.label:				Inv
    *tbNormalize.label:				Norm
    *tbMatchLUT.label:				Match

    *SimpleMenu*font:     -adobe-times-bold-r-normal-*-12-*-*-*-*-*-iso8859-1
    *fileButton.font:     -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
    *optionsButton.font:  -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
    *viewButton.font:     -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
    *panelbar*font:	  -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
    *toolbar*font:	  -adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1

    *Gterm.cmapName:				image
    *Gterm.basePixel:				64
    *imageFrame.frameType:			sunken
    *imageFrame.frameWidth:			1
    *imageFrame.outerOffset:			0
    *imageFrame.innerOffset:			0
    *imageFrame.width:                          518
    *imageFrame.height:                         518
    *cbarFrame.frameType:			sunken
    *cbarFrame.frameWidth:			1
    *cbarFrame.outerOffset:			0
    *cbarFrame.innerOffset:			0
    *cbarFrame.width:                           518
    *imagewin.warpCursor:			true
    *imagewin.raiseWindow:			true
    *imagewin.deiconifyWindow:			true
    *imagewin.idleCursor:			crosshair
    *imagewin.ginmodeCursor:			circle
    *imagewin.ginmodeBlinkInterval:		500
    *imagewin.resizable:			true
    *imagewin.copyOnResize:			false
    *imagewin.width:				512
    *imagewin.height:				512
    *imagewin.color8:				#7c8498
    *imagewin.color9:				SteelBlue
    *imagewin.maxMappings:			64
    *imagewin.borderWidth:			0


    *imagewin.translations:	\
	 None<Key>Left:	call(move_cursor,-1,0)		\n\
	 None<Key>Down:	call(move_cursor,0,1)		\n\
	   None<Key>Up:	call(move_cursor,0,-1)		\n\
        None<Key>Right: call(move_cursor,1,0)		\n\
      !Shift <Key>Left: call(move_cursor,-10,0)		\n\
      !Shift <Key>Down: call(move_cursor,0,10)		\n\
        !Shift <Key>Up: call(move_cursor,0,-10)		\n\
     !Shift <Key>Right: call(move_cursor,10,0)		\n\
	 !Ctrl	<Key>h:	call(move_cursor,-1,0)		\n\
	 !Ctrl	<Key>j:	call(move_cursor,0,1)		\n\
	 !Ctrl	<Key>k:	call(move_cursor,0,-1)		\n\
	 !Ctrl	<Key>l:	call(move_cursor,1,0)		\n\
    !Ctrl Shift <Key>h: call(move_cursor,-10,0)		\n\
    !Ctrl Shift <Key>j: call(move_cursor,0,10)		\n\
    !Ctrl Shift <Key>k: call(move_cursor,0,-10)		\n\
    !Ctrl Shift <Key>l: call(move_cursor,10,0)		\n\
       !Ctrl <Key>Left: call(moveFrame,-1,0)		\n\
       !Ctrl <Key>Down: call(moveFrame,0,1)		\n\
	 !Ctrl <Key>Up:	call(moveFrame,0,-1)		\n\
      !Ctrl <Key>Right: call(moveFrame,1,0)		\n\
   !Ctrl Alt <Key>Left: call(moveFrame,-0.5,0)		\n\
   !Ctrl Alt <Key>Down: call(moveFrame,0,0.5)		\n\
     !Ctrl Alt <Key>Up: call(moveFrame,0,-0.5)		\n\
  !Ctrl Alt <Key>Right: call(moveFrame,0.5,0)		\n\
	  !Alt	<Key>1:	call(cpSetFrame,frame1)		\n\
	  !Alt	<Key>2:	call(cpSetFrame,frame2)		\n\
	  !Alt	<Key>3:	call(cpSetFrame,frame3)		\n\
	  !Alt	<Key>4:	call(cpSetFrame,frame4)		\n\
	 !Ctrl	<Key>1:	call(cpZoom,1,1,fixed) 		\n\
	 !Ctrl	<Key>2:	call(cpZoom,2,2,fixed) 		\n\
	 !Ctrl	<Key>3:	call(cpZoom,3,3,fixed) 		\n\
	 !Ctrl	<Key>4:	call(cpZoom,4,4,fixed) 		\n\
	 !Ctrl	<Key>5:	call(cpZoom,5,5,fixed) 		\n\
	 !Ctrl	<Key>6:	call(cpZoom,6,6,fixed) 		\n\
	 !Ctrl	<Key>7:	call(cpZoom,7,7,fixed) 		\n\
	 !Ctrl	<Key>8:	call(cpZoom,8,8,fixed) 		\n\
	 !Ctrl	<Key>9:	call(cpZoom,9,9,fixed) 		\n\
	 !Ctrl	<Key>a:	call(tbToggleAutoReg)		\n\
	 !Ctrl	<Key>b:	call(prevFrame,$name)		\n\
	 !Ctrl	<Key>c:	call(cpZoomAction,centerFrame)	\n\
	 !Ctrl	<Key>f:	call(nextFrame,$name)		\n\
	 !Ctrl	<Key>i:	call(cpInvert)		       	\n\
	 !Ctrl	<Key>m:	call(toggleMagnifier)		\n\
	 !Ctrl	<Key>n:	call(normalize)			\n\
	 !Ctrl	<Key>o:	call(offset,$x,$y)		\n\
	 !Ctrl	<Key>p:	call(togglePanner)		\n\
      !Ctrl Alt <Key>q: call(Quit)			\n\
	 !Ctrl	<Key>r:	call(cpRegisterFrames)		\n\
	 !Ctrl	<Key>s:	call(cpMatchFrames)		\n\
	 !Ctrl	<Key>t:	call(tbTileFramesToggle)	\n\
	 !Ctrl	<Key>u:	call(cpZoom,1,1,fixed) 		\n\
	 !Ctrl	<Key>x:	call(cpFrameAction,flipX)	\n\
	 !Ctrl	<Key>y:	call(cpFrameAction,flipY)	\n\
	  Ctrl	<Key>+:	call(cpZoom,2.0,2.0,relative)	\n\
	  Ctrl	<Key>-:	call(cpZoom,0.5,0.5,relative)	\n\
      !Ctrl Alt <Key>=: call(Print)			\n\
	  Ctrl <Key>\<:	call(cpSetBlinkRate,BRdecrease)	\n\
	  Ctrl <Key>\>:	call(cpSetBlinkRate,BRincrease)	\n\
	  Ctrl <Key>\[:	call(setCtrBoxSize,$x,$y,-1)	\n\
	  Ctrl <Key>\]:	call(setCtrBoxSize,$x,$y,1)	\n\
	 !Ctrl	<Key>0:	call(centroid,$x,$y,peak) 	\n\
      !Ctrl Alt <Key>0:	call(centroid,$x,$y,min) 	\n\
	  !Alt	<Key>b:	call(toggleBlink)	     	\n\
	  !Alt	<Key>c:	call(controlPanel)		\n\
	  !Alt	<Key>h:	call(Help)		 	\n\
	  !Alt	<Key>i:	call(infoPanel)		      	\n\
      !Ctrl Alt <Key>f: call(fitFrame)		 	\n\
	  !Alt	<Key>l:	call(loadPanel)		      	\n\
	  !Alt	<Key>p:	call(printPanel)	       	\n\
	  !Alt	<Key>s:	call(savePanel)		      	\n\
	  !Alt	<Key>t:	call(tclPanel)		     	\n\
      !Shift<Btn1Down>: call(setDynamicMagnifier,1)	\n\
        !Shift<Btn1Up>: call(setDynamicMagnifier,0)	\n\
	   !<Btn1Down>:	call(makeMarker,$name,$x,$y) m_create()	\n\
     !Shift <Btn2Down>: crosshair(on)			\n\
   !Shift <Btn2Motion>: crosshair(on)			\n\
       !Shift <Btn2Up>: crosshair(off)			\n\
 	     !<Btn2Up>:	crosshair(off)			\n\
	   !<Btn2Down>:	call(zoom,$x,$y)		\n\
	   !<Btn3Down>:	call(windowColormap,$x,$y)	\n\
	 !<Btn3Motion>:	call(windowColormap,$x,$y)	\n\
      !Ctrl <Btn1Down>:	call(makeRuler,$name,$x,$y) 	\n\
    !Ctrl <Btn1Motion>:	track-cursor() call(wcsUpdate,$x,$y) call(magnifierMapImage,$x,$y) call(resizeRuler,$x,$y,0) 	\n\
        !Ctrl <Btn1Up>:	call(deleteRuler,$x,$y) 	\n\
	 <EnterWindow>:	enter-window()			\n\
	 <LeaveWindow>:	leave-window()			\n\
	    <KeyPress>:	graphics-input()		\n\
         !Alt <Motion>:	call(curtrack_msg,$x,$y)	\n\
	      <Motion>:	track-cursor() call(wcsUpdate,$x,$y) call(magnifierMapImage,$x,$y)

! The following	translations can be used to enable windowing of	the
! individual RGB components of the colormap.  It's not very useful but
! included here	for those that may wish	to use it.
!--------------------------------------------------------------------------
!     !Ctrl <Btn1Down>:	call(windowRGB,1,$x,$y,0)	\n\
!   !Ctrl <Btn1Motion>:	call(windowRGB,1,$x,$y,0)	\n\
!	!Ctrl <Btn1Up>:	call(windowRGB,1,$x,$y,1)	\n\
!     !Ctrl <Btn2Down>:	call(windowRGB,2,$x,$y,0)	\n\
!   !Ctrl <Btn2Motion>:	call(windowRGB,2,$x,$y,0)	\n\
!	!Ctrl <Btn2Up>:	call(windowRGB,2,$x,$y,1)	\n\
!     !Ctrl <Btn3Down>:	call(windowRGB,3,$x,$y,0)	\n\
!   !Ctrl <Btn3Motion>:	call(windowRGB,3,$x,$y,0)	\n\
!	!Ctrl <Btn3Up>:	call(windowRGB,3,$x,$y,1)	\n\


    *colorbar.maxRasters:			1
    *colorbar.maxMappings:			1
    *colorbar.height:				17
    *colorbar.width:				50
    *colorbar.borderWidth:			0
}


set Resources(panelShell) { \

    !================================
    !  Main Integrated Control Panel
    !================================
    *panelShell.title:				XImtool Control Panel
    *panelShell.geometry:			480x630
    *panelShell.maxWidth:			480
    *panelShell.minWidth:			480
    *panelTabs.internalHeight:			3
    *panelTabs.internalWidth:			10

    *Text*font:	 	 -*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *TextBox*font:	 -*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *List.font:	 	 -*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *MultiList.font:	 -*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *TextButton.font: 	 -*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *TextToggle.font: 	 -*-helvetica-medium-r-normal-*-12-*-iso8859-1

    *display_panel.tabLabel:			Display
    *display_panel.innerOffset:			5
    *print_panel.tabLabel:			Print
    *print_panel.innerOffset:			5
    *load_panel.tabLabel:			Load
    *load_panel.innerOffset:			5
    *save_panel.tabLabel:			Save
    *save_panel.innerOffset:			5
    *info_panel.tabLabel:			Info
    *info_panel.innerOffset:			5
    *tile_panel.tabLabel:			Tile
    *tile_panel.innerOffset:			5
    *wcs_panel.tabLabel:			Coords
    *wcs_panel.innerOffset:			5

    *panelMenuBar*borderWidth:			0
    *panelMenuBar*Command.internalHeight:	4
    *panelMenuBar*Command.internalWidth:	15
    *panelMenuBar.layout: vertical { \
	5 < -5	> \
	horizontal { \
	    10	< +inf -10> \
	    panelHelp \
	    3 < -3 > \
	    panelClose	\
	    7 < -7 > \
	} \
	5 < -5	> \
    }

    *panelHelp.label:				Help
    *panelClose.label:				Dismiss


    *tabFrame.outerOffset:			3
    *tabFrame.innerOffset:			0
    *tabFrame.frameWidth:			0
    *tabFrame.frameType:			chiseled
    *panelMenuFrame.outerOffset:		0
    *panelMenuFrame.innerOffset:		1
    *panelMenuFrame.frameType:			raised
    *panelMenuFrame.frameWidth:			2
    *panel.layout: vertical { \
	panelMenuFrame	 < +inf	-inf * > \
	3 \
	horizontal { tabFrame < +inf -inf * +inf -inf>	} \
    }
} 


set Resources(display_panel) { \

    !================================
    ! Main Display Control Panel.
    !================================
    *controlPanel*internalWidth:		0
    *controlPanel*borderWidth:			0

    *TextBox.font:	7x13bold
    *TextToggle.font:	-adobe-times-medium-r-normal-*-12-*-*-*-*-*-iso8859-1
    *Command.font:	-adobe-times-bold-i-normal-*-12-*-*-*-*-*-iso8859-1
    *Toggle.font:	-adobe-times-medium-r-normal-*-12-*-*-*-*-*-iso8859-1
    *Label.font:	-*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *MultiList.font:	-adobe-times-medium-r-normal-*-12-*-*-*-*-*-iso8859-1
    *toggleZoom.font:	-*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *centerFrame.font:	-*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *zoom*Command.font:	7x13bold

    *blinkFrame1.font:		-adobe-times-medium-r-normal-*-12-*-iso8859-1
    *blinkFrame2.font:		-adobe-times-medium-r-normal-*-12-*-iso8859-1
    *blinkFrame3.font:		-adobe-times-medium-r-normal-*-12-*-iso8859-1
    *blinkFrame4.font:		-adobe-times-medium-r-normal-*-12-*-iso8859-1
    *matchButton.font:		-adobe-times-medium-r-normal-*-12-*-iso8859-1
    *registerButton.font:	-adobe-times-medium-r-normal-*-12-*-iso8859-1
    *blinkButton.font:		-adobe-times-medium-r-normal-*-12-*-iso8859-1
    *autoregButton.font: 	-adobe-times-medium-r-normal-*-12-*-iso8859-1

    *controlPanel.layout: vertical { \
	5 < -5	> \
	horizontal { \
	    -1	\
	    viewBox < +inf -inf * > \
	    -1	\
	} \
	5 < -5	> \
	horizontal { \
	    -1	\
	    enhancementBox < +inf -inf	* +inf -inf > \
	    -5	\
	    vertical {	\
		-1 \
		blinkBox < * +inf - inf > \
		 1 \
		optionsBox < * +inff -inff > \
		-1 \
	    } \
	    -1	\
	} \
	-5 \
	controlBox < +inf * > \
	-5 \
    }

    ! VIEW
    ! ------------------
    *viewBox.label:				View
    *viewBox.location:				0 0 410 0
    *viewBox.shrinkToFit:			True
    *viewBox.outerOffset:			7

    *view.layout: vertical { \
	5 < +inf -5 > \
	horizontal { \
	    -1	\
	    frameSelect \
	    vertical {	\
		3 < -3 > \
		frameDataBox < +inff -100% * +inff -100% > \
		3 < -3 > \
	    } \
	    zoomBox \
	    -1	\
	} \
	1 < +inf > \
	viewButtons < +inf -inf * +inf	-inf > \
	5 < +inf -5 > \
    }

    *frameDataBox.frameType:			sunken
    *frameDataBox.frameWidth:			1
    *frameData.width:				150
    *frameData.height:				50

    *frameSelect.location:			0 0 72 0
    *frameSelect.shrinkToFit:			True
    *frameSelect.outerOffset:			7
    *frameSelect.innerOffset:			2
    *frameSelect.frameWidth:			2
    *frameSelect*offIcon:			diamond0s
    *frameSelect*onIcon:			diamond1s
    *frameSelect*highlightColor:		blue
    *frameSelect.label:				Frame

    *frameBox.layout: vertical { \
	3 \
	horizontal { -2	frlistBox < * +inff -inff > } \
	3 < +inf -3 > \
	horizontal { prevFrame < +inf -inf * > 4 nextFrame < +inf -inf * > } \
    }
    *framePort.allowVert:			True
    *framePort.allowHoriz:			False
    *framePort.useRight:			True
    *framePort.height:				80

    *frameBox*alignment:			left
    *frameBox*frameWidth:			0
    *frameBox*frame1.label:			1\ \ 
    *frameBox*frame2.label:			2\ \ 
    *frameBox*frame3.label:			3\ \ 
    *frameBox*frame4.label:			4\ \ 

    *frameBox*frame5.label:			5\ \ 
    *frameBox*frame6.label:			6\ \ 
    *frameBox*frame7.label:			7\ \ 
    *frameBox*frame8.label:			8\ \ 
    *frameBox*frame9.label:			9\ \ 
    *frameBox*frame10.label:			10\ 
    *frameBox*frame11.label:			11\ 
    *frameBox*frame12.label:			12\ 
    *frameBox*frame13.label:			13\ 
    *frameBox*frame14.label:			14\ 
    *frameBox*frame15.label:			15\ 
    *frameBox*frame16.label:			16\ 
    *frameBox*Command.width:			24
    *frameBox*prevFrame.label:			xxx
    *frameBox*nextFrame.label:			xxx

    *frameList*location:			0 0 50 20
    *frameList.layout: vertical	{ \
	frame1	< +inf * >\
	frame2	< +inf * >\
	frame3	< +inf * >\
	frame4	< +inf * >\
	frame5	< +inf * >\
	frame6	< +inf * >\
	frame7	< +inf * >\
	frame8	< +inf * >\
	frame9	< +inf * >\
	frame10 < +inf * >\
	frame11 < +inf * >\
	frame12 < +inf * >\
	frame13 < +inf * >\
	frame14 < +inf * >\
	frame15 < +inf * >\
	frame16 < +inf * >\
    }


    *zoomBox.label:				Zoom:
    *zoomBox.location:				0 0 160 127
    *zoomBox.outerOffset:			7
    *zoomBox.shrinkToFit:			True
    *zoomBox*TextButton.frameWidth:		1
    *zoomBox*TextButton.outerOffset:		0

    *controlPanel*zoom*internalWidth:		4
    *zoom.layout: vertical { \
	space = ((50% of width	zoom) -	(50% of	width z5)) \
	1 < +inf > \
	horizontal { \
	    vertical { toggleZoom < +inf * +inf > 1 } \
	    1 \
	    vertical { 1 < +inf > z5 1 < +inf > z3 0 < +inf > } \
	    1 \
	    vertical { zoomIn < +inf	* +inf > 1 } \
	} \
	1 \
	horizontal { \
	    1 < +inf >	\
	    d8	1 d4 1 d2 1 x1 1 z2 1 z4 1 z8 \
	    1 < +inf >	\
	} \
	1 \
	horizontal { \
	    vertical { 1 zoomOut < +inf * +inf	> } \
	    1 \
	    vertical { 0 < +inf > d3 1 < +inf > d5 1 < +inf > } \
	    1 \
	    vertical { 1 centerFrame <	+inf * +inf > } \
	} \
	1 < +inf > \
    }

    *toggleZoom.label:				Toggle\nZoom
    *toggleZoom.outerOffset:			2
    *toggleZoom.width:				30
    *toggleZoom.height:				25

    *zoomIn.label:				Zoom\nIn
    *zoomIn.outerOffset:			2
    *zoomIn.width:				30
    *zoomIn.height:				25

    *x1.label:					1
    *z2.label:					2
    *z3.label:					3
    *z4.label:					4
    *z5.label:					5
    *z8.label:					8

    *controlPanel*zoomIn.foreground:		royalBlue3
    *controlPanel*z4.foreground:		royalBlue3
    *controlPanel*z5.foreground:		royalBlue3
    *controlPanel*z8.foreground:		royalBlue3
    *controlPanel*z2.foreground:		royalBlue3
    *controlPanel*z3.foreground:		royalBlue3

    *zoomOut.label:				Zoom\nOut
    *zoomOut.outerOffset:			2
    *zoomOut.width:				30
    *zoomOut.height:				25

    *centerFrame.label:				Center
    *centerFrame.outerOffset:			2
    *centerFrame.width:				30
    *centerFrame.height:			25

    *d2.label:					2
    *d3.label:					3
    *d4.label:					4
    *d5.label:					5
    *d8.label:					8

    *controlPanel*zoomOut.foreground:		mediumVioletRed
    *controlPanel*d2.foreground:		mediumVioletRed
    *controlPanel*d3.foreground:		mediumVioletRed
    *controlPanel*d4.foreground:		mediumVioletRed
    *controlPanel*d5.foreground:		mediumVioletRed
    *controlPanel*d8.foreground:		mediumVioletRed

    *viewButtons.location:			0 0 100 80
    *viewButtons.layout: horizontal { \
	2 < -2 > \
	aspect     < +inf * > 2 \
	flipX      < +inf * > 2 \
	flipY      < +inf * > 2 \
	flipXY     < +inf * > 2 \
	clearFrame < +inf * > 2 \
	fitFrame   < +inf * >   \
	2 < -2 > \
    }
    *nextFrame.label:				Next Frame
    *prevFrame.label:				Previous Frame
    *fitFrame.label:				Fit Frame
    *aspect.label:				Aspect
    *clearFrame.label:				Clear	Frame
    *flipX.label:				Flip X
    *flipY.label:				Flip Y
    *flipXY.label:				Flip XY


    ! ENHANCEMENT
    ! ------------------
    *enhancementBox.label:			Enhancement
    *enhancementBox.location:			0 0 110	0
    *enhancementBox.shrinkToFit:		True
    *enhancementBox.outerOffset:		7

    *enhance*Viewport.allowVert:		True
    *enhance*Viewport.allowHoriz:		False
    *enhance*Viewport.useRight:			False
    *enhance*Viewport.resizeable:		True
    *enhance*Scrollbar.width:			17
    *enhance*Scrollbar.minimumThumb:		10
    *enhance.layout: vertical {	\
	3 < -3	> \
	horizontal { \
	    2 < -2 > \
	    colorlistFrame < +inf -inf	* +inff	-inff >	\
	    2 < -2 > \
	} \
	2 \
	horizontal { \
	    2 < -2 > \
	    colordataFrame < +inf -inf	* +inf -inf > \
	    2 < -2 > \
	} \
	5 < -5	> \
	horizontal { \
	    2 < -2 > \
	    vertical { -1 contrastLabel 3 < -3 > brightnessLabel -1 } \
	    3 < -3 > \
	    vertical {	\
		-1 \
		contrastSlider < +inf -inf * > \
		3 < -3 > \
		brightnessSlider < +inf -inf * > \
		-1 \
	    } \
	    2 < -2 > \
	} \
	5 < -5	> \
	horizontal { \
	    3 < -3 > \
	    invertButton < +inf -inf *	> \
	    5 < -5 > \
	    optimizeButton < +inf -inf	* > \
	    3 < -3 > \
	} \
	3 < -3	> \
    }

    *enhance*frameType:				sunken
    *enhance*frameWidth:			1
    *enhance*BorderWidth:			0
    *enhance*Label.ShadowWidth:			0

    *colorlist.width:				100
    *colorlist.height:				98
    *colordata.width:				100
    *colordata.height:				45
    *enhance*colordata.frameWidth:		0
    *contrastLabel.label:			x
    *contrastSlider.location:			0 0 100	17
    *brightnessLabel.label:			x
    *brightnessSlider.location:			0 0 100 17
    *invertButton.label:			Invert
    *optimizeButton.label:			Optimize


    ! ---------------------
    ! BLINK/REGISTER
    ! ---------------------
    *blinkBox.label:				Blink/Register
    *blinkBox.location:				0 0 235 0
    *blinkBox.shrinkToFit:			True
    *blinkBox.outerOffset:			7
    *blinkBox*TextToggle.frameWidth:		1

    *blink.layout: vertical { \
	space = (width	blinkFramesLabel - width blinkRateLabel) \
	3 < -3	> \
	horizontal { \
	    0 \
	    blinkFramesLabel \
	    3 < +inf >	\
	    blinkFrame1 < -50%	* > \
	    blinkFrame2 < -50%	* > \
	    blinkFrame3 < -50%	* > \
	    blinkFrame4 < -50%	* > \
	    4 < +inf >	\
	    blinkPanel	 < -50%	* > \
	    blinkReset	\
	    2 \
	} \
	5 < -5	> \
	horizontal { \
	    $space \
	    blinkRateLabel \
	    2	\
	    BRframe < +inf * >	\
	} \
	5 < +inf -100%	> \
	horizontal { \
	    vertical {	\
		2 matchButton	< +inf * > 4 < -4 > registerButton < +inf * > \
	    } \
	    5 < -5 > \
	    vertical {	\
		1 blinkButton	< +inf * > 4 < -4 > autoregButton < +inf * > \
	    } \
	} \
    }

    *BRlayout.layout: horizontal { \
	BRdecrease \
	BRtext	< +inf -100% * > \
	BRincrease \
    }

    *blink.Label.borderWidth:			0
    *blink.Label.shadowWidth:			0
    *controlPanel*blink*internalWidth:		4
    *blink.TextToggle.location:			0 0 102 23
    *blink.TextToggle.frameWidth:		1
    *blink*TextToggle.highlightColor:		yellow
    *blink*TextToggle.offIcon:			square0s
    *blink*TextToggle.onIcon:			square1s
    *blink*TextToggle.outerOffset:		1
    *blink*Command.height:			27
    *blink*Arrow.width:				16
    *blink*Arrow.height:			25


    *blinkFramesLabel.label:			Frames List:
    *blinkFrame1.label:				1
    *blinkFrame2.label:				2
    *blinkFrame3.label:				3
    *blinkFrame4.label:				4
    *blinkPanel.label:				x
    *blinkPanel.width:				20
    *blinkReset.label:				Reset

    *blinkRateLabel.label:			Blink Rate:
    *BRframe.frameType:				sunken
    *BRframe.frameWidth:			1
    *BRtext.width:				40
    *BRtext.height:				23
    *BRdecrease.direction:			left
    *BRincrease.direction:			right
    *registerButton.label:			Register
    *matchButton.label:				Match LUTs
    *blinkButton.label:				Blink
    *autoregButton.label:			Auto-Register

    ! OPTIONS
    ! ---------------------
    *optionsBox.label:				Options
    *optionsBox.location:			0 0 220 0
    *optionsBox.shrinkToFit:			False
    *optionsBox.outerOffset:			7
    *optionsBox*offIcon:			square0s
    *optionsBox*onIcon:				square1s
    *optionsBox*selectionStyle:			multi
    *optionsBox*highlightColor:			yellow
    *optionsBox.TextToggle.location:		0 0 102 20
    *optionsBox.TextToggle.frameWidth:		0
    *optionsBox.TextToggle.highlightThickness:	0
    *optionsBox*alignment:			left

    *pannerButton.label:			Panner
    *coordsBoxButton.label:			Coords Box
    *autoscaleButton.label:			Autoscale
    *antialiasButton.label:			Antialias
    *tileFramesButton.label:			Tile Frames
    *magnifierButton.label:			Magnifier
    *warningsButton.label:			Warnings
    *peakupButton.label:			Centroid Peaks
    *peakupButton.on:				True

    ! CONTROL
    ! ----------------------
    *controlBox.frameType:			chiseled
    *controlBox.frameWidth:			2
    *controlBox.outerOffset:			7
    *controlBox.innerOffset:			5
    *controlBox.height:				30

    *control.layout: horizontal	{ \
	1 \
	initializeButton < +inf * > \
	5 < -5	> \
	normalizeButton < +inf	* > \
	80 < +inf -100% > \
    }

    *initializeButton.label:			Initialize
    *normalizeButton.label:			Normalize
}


set Resources(print_panel) { \

    !=====================================
    !  Print Setup Panel resources.	!
    !=====================================
    *print_panel*TextToggle.alignment:		left
    *print_panel*Arrow.width:			16
    *print_panel*Arrow.height:			20
    *print_panel*TextToggle.frameWidth:		0
    *print_panel*TextToggle.height:		20
    *print_panel*Label.borderWidth:		0
    *print_panel*Label.shadowWidth:		0
    *print_panel*TextButton.width:		40
    *print_panel*TextButton.height:		25

    *printLayout.borderWidth:			0
    *printLayout.layout: vertical { \
	-1 \
	printCmdGroup < +inf *	> \
	-1 \
	optGroup < +inf -inf *	+inf -inf > \
	-3 \
	cmdGroup < +inf * > \
	-1\
    }


    ! Print Group resources.
    !----------------------------------
    *printCmdGroup.borderWidth:			0
    *printCmdGroup.outerOffset:			5
    *printCmdGroup.label:			
    *printCmdGroup.location:			0 0 400 80
    *printCmdGroup*offIcon:			diamond0s
    *printCmdGroup*onIcon:			diamond1s
    *printCmdGroup*highlightColor:		cyan
    *printCmdGroup*Frame.frameType:		sunken
    *printCmdGroup*Frame.frameWidth:		1
    *printCmdGroup*Frame.width:			300
    *printCmdGroup*Label.justify:		right
    *printCmdGroup*Text*editType:		edit
    *printCmdGroup*Text*height:			22
    *printCmdGroup*TextToggle.width:		70
    *printCmdGroup*shadowWidth:			0
    *printCmdGroup*borderWidth:			0
    *printCmdLayout.borderWidth:		0
    *printCmdLayout.layout: horizontal { \
	labelLayout 5 inputLayout < +inf -inf * > \
    }
    *labelLayout.borderWidth:			0
    *labelLayout.layout: vertical { 5 toLabel 7 printerLabel }
    *printerLabel.label:			Print Command:
    *toLabel.label:				Print To:
    *toPrinter.label:				Printer
    *toPrinter.on:				True
    *toFile.label:				File

    *inputLayout.borderWidth:			0
    *inputLayout.layout: horizontal { \
	3 \
	vertical { \
	    5 \
	    horizontal { 5 toPrinter 5 toFile 5 < +inf -inf > } \
	    5 \
	    printcmdFrame < +inf -inf * > \
	    5 \
	} \
	3 \
    }
    *printcmd*string:				lpr
    *printcmd*height:				22
    *printcmd*Text*editType:			edit


    !  Main options groups layout resources.
    !---------------------------------------
    *optGroup.frameWidth:			2
    *optGroup.frameType:			chiseled
    *optGroup.label:			
    *optGroup.location:				0 0 400 330
    *optGroup.outerOffset:			5
    *optGroup.innerOffset:			2
    *optLayout*borderWidth:			0
    *optLayout.layout: vertical	{ \
	-1 \
	horizontal { \
	    vertical {	\
		5 \
		epsPageGroup < +inf -inf * >	\
		optionsGroup < +inf -inf * +inf -inf > \
		-1 \
	    } \
	    vertical {	\
		5 \
		printColorGroup  < +inf -inf * > \
		printerGroup	< +inf -inf * >	\
		-1 \
	    } \
	    -1	\
	} \
	5 \
	horizontal { annOptsGroup < +inf * +inf	> -1 } \
	-1 \
    }


    ! Postscript Options group resources.
    ! -----------------------------------
    *epsPageGroup.label:			Postscript Options
    *epsPageGroup.outerOffset:			7
    *epsPageGroup.innerOffset:			5
    *epsPageGroup.location:			0 0 250 150
    *epsPageGroup*offIcon:			diamond0s
    *epsPageGroup*onIcon:			diamond1s
    *epsPageGroup*highlightColor:		cyan
    *epsPage*Label.justify:			left
    *epsPage.layout: vertical {	\
	-1 \
	epsOrientLabel	4 < -4 > \
	horizontal { 25 epsPortButton epsLandButton epsSquareButton -1 } \
	4 \
	epsSizeLabel -1 \
	horizontal { \
	    25 epsLetterButton epsLegalButton epsA4Button epsB5Button -1 \
	} \
	10 \
	horizontal { 5 epsScaleLabel 4 ScaleFrame < +inf -inf * > } \
	-1 \
    }


    ! Page Layout resources.
    ! -------------------------------
    *epsOrientLabel.label:			Orientation:
    *epsPortButton.label:			Portrait
    *epsPortButton.width:			65
    *epsLandButton.label:			Landscape
    *epsLandButton.width:			85
    *epsSquareButton.label:			Square
    *epsSquareButton.width:			70
    *epsSquareButton.sensitive:			False

    *epsSizeLabel.label:			Paper Size:
    *epsLetterButton.label:			Letter
    *epsLetterButton.width:			60
    *epsLegalButton.label:			Legal
    *epsLegalButton.width:			60
    *epsA4Button.label:				A4
    *epsA4Button.width:				50
    *epsB5Button.label:				B5
    *epsB5Button.width:				50

    ! Image scale box resources.
    ! -------------------------------
    *epsScaleLabel.label:			Output  Image  Scale:
    *epsScaleLabel.justify:			right
    *ScaleFrame.frameType:			sunken
    *ScaleFrame.frameWidth:			1
    *ScaleFrame*shadowWidth:			0
    *ScaleLayout.location:			0 0 100 35
    *ScaleLayout.label:			 
    *ScaleLayout.layout: horizontal { \
	SCdecrease SCtext < +inf -100% * > SCincrease \
    }
    *SCdecrease.direction:			left
    *SCtext.width:				75
    *SCtext.height:				22
    *SCtext.label:				100 %
    *SCincrease.direction:			right


    ! Miscellaneous print options box resources.
    ! ------------------------------------
    *optionsGroup.outerOffset:			7
    *optionsGroup.innerOffset:			5
    *optionsGroup*onIcon:			square1s
    *optionsGroup*offIcon:			square0s
    *optionsGroup.label:			Processing Options
    *optionsGroup*TextToggle.width:		125
    *optionsGroup*TextToggle.highlightColor:	yellow
    *options.location:				0 0 250 60
    *options.frameWidth:			2
    *options.layout: horizontal	{ \
	5 \
	vertical { -1 epsscaleButton 2	autorotateButton -1 } \
	3 \
	vertical { -1 aspectButton   2	compressButton	 -1 } \
	-1 \
    }
    *epsscaleButton.label:			Auto Scale
    *autorotateButton.label:			Auto Rotate
    *aspectButton.label:			Max Aspect
    *compressButton.label:			RLE Compress
    *compressButton.sensitive:			False


    ! Annotation options box resources.
    ! ------------------------------------
    *annOptsGroup.outerOffset:			7
    *annOptsGroup.innerOffset:			5
    *annOptsGroup*onIcon:			square1s
    *annOptsGroup*offIcon:			square0s
    *annOptsGroup.label:			Annotation Options
    *annOptsGroup*TextToggle.width:		90
    *annOptsGroup*TextToggle.highlightColor:	yellow
    *annOptsGroup*Frame.frameType:		sunken
    *annOptsGroup*Frame.frameWidth:		1
    *annOptsGroup*Frame.width:			300
    *annOptsGroup*Text*editType:		edit
    *annOpts.frameWidth:			2
    *annOpts.location:				0 0 400 70
    *annOpts.layout: vertical {	\
	2 \
	horizontal { \
	    5 annotateButton 2 titleButton 2 bordersButton 2 colorbarButton 5 \
	} \
	3 \
	horizontal { -1 titleLabel 2 titleFrame < +inf -inf * > -1 } \
	-1 \
    }
    *annotateButton.label:			\ Annotate
    *titleButton.label:				\ Title
    *bordersButton.label:			\ Borders
    *colorbarButton.label:			\ Colorbar
    *titleLabel.label:				Title	String
    *titleString*string:			imtitle
    *titleString*height:			23
    *titleString*Text*editType:			edit


    ! Output color box resources.
    ! ------------------------------
    *printColorGroup.location:			0 0 150 90
    *printColorGroup.outerOffset:		7
    *printColorGroup.frameWidth:		2
    *printColorGroup*offIcon:			diamond0s
    *printColorGroup*onIcon:			diamond1s
    *printColorGroup*highlightColor:		cyan
    *printColorGroup.innerOffset:		5
    *printColorGroup.label:			Output Color
    *printColorGroup*TextToggle.width:		110
    *printColor.frameWidth:			2
    *printColor.location:			0 0 250 75
    *printColor.layout:	horizontal { \
	1 \
	vertical { -1 prGrayButton 2 prPseudoButton 2 prRGBButton -1 }	\
	-1 \
    }
    *prGrayButton.label:			Grayscale
    *prPseudoButton.label:			PseudoColor
    *prRGBButton.label:				RGB

    ! Printer Selection.
    ! --------------------------
    *printerGroup.label:			Printers
    *printerGroup.location:			0 0 110 130
    *printerGroup.shrinkToFit:			True
    *printerGroup.outerOffset:			7

    *printers*Viewport.allowVert:		True
    *printers*Viewport.allowHoriz:		False
    *printers*Viewport.useRight:		True
    *printers*Viewport.resizeable:		True
    *printers*Scrollbar.width:			17
    *printers*Scrollbar.minimumThumb:		10
    *printers.layout: vertical { \
	3 < -3	> \
	horizontal { \
	    2 < -2 > \
	    printlistFrame < +inf -inf	* +inff	-inff >	\
	    2 < -2 > \
	} \
	3 < -3	> \
    }

    *printers*frameType:			sunken
    *printers*frameWidth:			1
    *printers*BorderWidth:			0
    *printers*Label.ShadowWidth:		0

    *printlist.width:				100
    *printlist.height:				78


    ! Panel command resources.
    ! ------------------------------
    *cmdGroup.frameType:			chiseled
    *cmdGroup.frameWidth:			2
    *cmdGroup.outerOffset:			5
    *cmdGroup.innerOffset:			5
    *cmdGroup.label:
    *cmdGroup.location:				0 0 150 50
    *cmdLayout.borderWidth:			0
    *cmdLayout*Command.internalWidth:       	12
    *cmdLayout.layout: horizontal { \
	2 \
	okayPrint 1 < +inf > printStatus < +inf -inf *	+inf -inf > \
	2 \
    }
    *cmdGroup*TextButton*location:		0 0 80 0
    *okayPrint.label:				Print
}


set Resources(info_panel) { \

    !--------------------
    ! Information Panel
    !--------------------
    *infoLayout*borderWidth:			0
    *infoLayout*Frame.frameType:		sunken
    *infoLayout*Frame.frameWidth:		1
    *infoLayout*Command.internalWidth:		12
    *infoLayout*Text*editType:			read
    *infoLayout*Text*scrollVertical:		whenNeeded
    *infoLayout*Text*scrollHorizontal:		whenNeeded
    *infoLayout*Text*displayCaret:		False
    *infoLayout*Scrollbar.background:		gray77
    *infoLayout*Scrollbar.width:		17
    *infoLayout*Scrollbar.height:		17

    *infoText.height:				240
    *infoText*font:      			6x13
    *infoLayout.layout:	vertical { \
	infoBox  < +inf -inf * > \
    }

    *infoBox.label:
    *infoBox.outerOffset:			0
    *infoBox.innerOffset:			3
    *infoBoxL*TextToggle.frameType:		raised
    *infoBoxL*TextToggle.frameWidth:		1
    *infoBoxL*TextToggle*outerOffset:		0
    *infoBoxL*TextToggle*innerOffset:		1
    *infoBoxL*TextToggle.location:		0 0 100 25
    *infoBoxL*TextToggle*onIcon:		square1s
    *infoBoxL*TextToggle*offIcon:		square0s
    *infoBoxL*TextToggle*highlightColor:	cyan
    *infoBoxL.layout: vertical { \
	infoFrame < +inf -inf * +inf -inf > 1 \
	4 \
	horizontal { \
	    infoOptFr	< +inf -inf * > 1 \
	    infoOptSvr  < +inf -inf * > 1 \
	    infoOptClients  < +inf -inf * > 1 \
	    infoOptWCS  < +inf -inf * > 1 \
	    infoOptIsm  < +inf -inf * > 1 \
	    infoOptFB	< +inf -inf * >   \
	}\
 	2 \
    }
    *infoOptFr.label:				Frame
    *infoOptFr.on:				True
    *infoOptSvr.label:				Server
    *infoOptWCS.label:				WCS
    *infoOptIsm.label:				ISM
    *infoOptClients.label:			Clients
    *infoOptFB.label:				Imtoolrc
}



set Resources(load_panel) { \

    !-------------------------------
    ! File Load	Control	Panel.
    !-------------------------------
    *filesLayout*borderWidth:			0
    *filesLayout*Group.shrinkToFit:		True
    *filesLayout*Group.frameType:		chiseled
    *filesLayout*Frame*frameType:		sunken
    *filesLayout*Frame*frameWidth:		1
    *filesLayout*TextToggle.frameWidth:		0
    *filesLayout*TextToggle.height:		28
    *filesLayout*TextToggle.alignment:		left
    *filesLayout*TextToggle.ledtMargin:		3
    *filesLayout*SimpleMenu.borderWidth:        1
    *filesLayout*SimpleMenu.borderColor:        black
    *filesLayout*SimpleMenu.foreground:         White
    *filesLayout*SimpleMenu.background:         SteelBlue
    *filesLayout*Label.borderWidth:		0
    *filesLayout*Label.shadowWidth:		0
    *filesLayout.layout: vertical { \
	imlistGroup   < +inf -inf * > \
	3 \
	horizontal { -5 imoptsGroup < +inf -inf * > -5 } \
	-1 \
	loadCmdGroup < +inf -inf * > \
    }

    *imlistGroup.label:
    *imlistGroup.frameWidth:			2
    *imlistGroup.outerOffset:			2
    *imlistLayout*Label.shadowWidth:		0
    *imlistLayout*Label.justify:		left
    *imlistLayout*Command.width:		90
    *imlistLayout*Command.height:		23
    *imlistLayout*Command.shadowWidth:		1
    *imlistLayout*Viewport.allowVert:           True
    *imlistLayout*Viewport.allowHoriz           True
    *imlistLayout*Viewport.useRight:            True
    *imlistLayout*Viewport.useBottom:           True
    *imlistLayout*Viewport.resizeable:		True
    *imlistLayout*Scrollbar.height:		17
    *imlistLayout*Scrollbar.width:		17
    *imlistLayout.layout: vertical { \
	3 \
	horizontal { \
	    3 \
	    rootButton	 < +inf -inf * > 1 \
	    homeButton	 < +inf -inf * > 1 \
	    upButton     < +inf -inf * > 1 \
	    rescanButton < +inf -inf * >   \
	    3 \
	    imtemplateLabel 3 imtemplateFrame < +inf -inf  * > \
	    3 \
	} \
	5 \
	horizontal { 1 imlistLabel < +inf -inf * > 1 } \
	imlistFrame < +inf -inf * +inf -inf > \
	3 \
	dirLabel < +inf -inf * > \
	3 \
	horizontal { 5 fnameLabel 5 filnamFrame < +inf -inf * > } \
	3 \
    }
    *imtemplateLabel.label:			Filter:
    *imtemplateText*editType:			edit
    *imtemplateText*height:			23
    *imtemplateText*font:			7x13
    !*imageList.width:				100
    *imageList*height:				140
    *imageList.shadeSurplus:			False
    *imageList.defaultColumns:			3
    *imageList.font:				7x13
    *imlistView.resizeable:			True
    *imlistLabel.height:			0
    *imlistLabel.label:				xxx
    *imlistLabel.justify:			left
    *imlistLabel.font:				*lucida-bold-r*10*
    *upButton.label:				Up
    *rootButton.label:				Root
    *homeButton.label:				Home
    *rescanButton.label:			Rescan
    *dirLabel.label:				\ \ Directory:
    *dirLabel.alignment:			left
    *fnameLabel.label:				Load File:
    *fnameText*editType:			edit
    *fnameText.height:				22

    *imoptsGroup.label:				Options
    *imoptsGroup.frameWidth:			2
    *imoptsGroup.outerOffset:			7
    *imoptsGroup*offIcon:			square0s
    *imoptsGroup*onIcon:			square1s
    *imoptsGroup*highlightColor:		yellow
    *imoptsLayout*Label.shadowWidth:		0
    *imoptsLayout*Label.justify:		left
    *imoptsLayout.layout: vertical { \
	3 \
	horizontal { \
	    3 \
	    autoload 6 grayscale \
	    3 < +inf > \
	    browseHdrs \
	    3 < +inf > \
	    frameLabel 2 frameFrame \
	    3 \
	} \
	6 \
	horizontal { \
	    3 \
	    zscale 6 zrange \
	    3 \
	    z1Label z1Frame < +inf * >  2 \
	    z2Label z2Frame < +inf * >  2 \
	    nsampLabel nsampFrame < +inf * > \
	    3 \
	} \
	3 \
    }
    *grayscale.label:				Auto Grayscale
    *grayscale.location:			0 0 100 22
    *autoload.label:				Auto Load
    *autoload.location:				0 0 80 22
    *autoload.on:				True
    *browseHdrs.label:				List Image Headers
    *browseHdrs.location:			0 0 120 22
    *browseHdrs.on:				False
    *zscale.label:				Zscale
    *zscale.location:				0 0 60 22
    *zrange.label:				Zrange
    *zrange.location:				0 0 60 22
    *z1Label.label:				z1
    *z1Value*width:				60
    *z1Value*height:				22
    *z1Value*editType:				edit
    *z2Label.label:				z2
    *z2Value*width:				60
    *z2Value*height:				22
    *z2Value*editType:				edit
    *nsampLabel.label:				Nsample
    *nsampValue*width:				60
    *nsampValue*height:				22
    *nsampValue*editType:			edit
    *frameLabel.label:				Frame:\ 
    *frameFrame.width:				50
    *frameFrame.resize:				False
    *frameFrame.label:				Current
    *frameFrame.font:				6x13
    *frameFrame.menuName:			loadFrames


    *loadCmdGroup.label:
    *loadCmdGroup*frameWidth:			2
    *loadCmdGroup*outerOffset:			5
    *loadCmdGroup.outerOffset:			2
    *loadCmdGroup*innerOffset:			5
    *loadCmdGroup.frameType:			sunken
    *loadCmdGroup.label:
    *loadCmdGroup.location:                     0 0 400 45
    *loadCmdLayout*Command.internalWidth:	12
    *loadCmdLayout.layout: horizontal { \
	2 \
	filesLoadButton \
	1 < +inf > \
	filesStatus \
	2 \
    }
    *filesLoadButton.label:			Load
    *filesStatus.label:
}



set Resources(save_panel) { \

    !=====================================
    !  Save Setup Panel	resources.	!
    !=====================================
    *save_panel*TextToggle.alignment:		left
    *save_panel*TextToggle.frameWidth:		0
    *save_panel*TextToggle.height:		20
    *save_panel*Label.borderWidth:		0
    *save_panel*Label.shadowWidth:		0
    *save_panel*TextButton.width:		80

    *saveLayout.borderWidth:			0
    *saveLayout.layout:	vertical { \
	saveNameGroup < +inf *	> \
	saveOptGroup <	+inf -inf * > -3 \
	saveCmdGroup <	+inf * > \
    }

    ! Save Name	Group resources.
    !----------------------------------
    *saveNameGroup.borderWidth:			0
    *saveNameGroup.outerOffset:			5
    *saveNameGroup.label:
    *saveNameGroup.location:			0 0 400 50
    *saveNameGroup*offIcon:			diamond0s
    *saveNameGroup*onIcon:			diamond1s
    *saveNameGroup*highlightColor:		cyan
    *saveNameGroup*Frame.frameType:		sunken
    *saveNameGroup*Frame.frameWidth:		1
    *saveNameGroup*Label.justify:		right
    *saveNameGroup*Text*editType:		edit
    *saveNameGroup*shadowWidth:			0
    *saveNameGroup*borderWidth:			0
    *saveNameLayout.borderWidth:		0
    *saveNameLayout.layout: vertical { \
	2 \
	horizontal { 5 saveLabel 5 fnameFrame < +inf -inf * > 5 } \
	2 \
    }
    *saveLabel.label:				File Name:
    *saveFile.height:				22

    !  Main options groups layout resources.
    !---------------------------------------
    *saveOptGroup.frameWidth:			2
    *saveOptGroup.frameType:			chiseled
    *saveOptGroup.label:
    *saveOptGroup.location:			0 0 400 140
    *saveOptGroup.outerOffset:			5
    *saveOptGroup.innerOffset:			0
    *saveOptLayout*borderWidth:			0
    *saveOptLayout.layout: horizontal {	\
	-1 \
	vertical { 5 <	-5 > fmtGroup <	+inf * +inf > -1 } \
	-1 \
	vertical { \
	    10	< -10 >	\
	    saveDataBox < +inff -inff * +inff -inff > \
	    5 < -5 > \
	} \
	-1 \
	vertical { 5 <	-5 > saveColorGroup < +inf * +inf > -1 } \
	-1 \
    }

    ! Output color box resources.
    ! ------------------------------
    *saveColorGroup.location:			0 0 140	120
    *saveColorGroup.outerOffset:		7
    *saveColorGroup.frameWidth:			2
    *saveColorGroup*offIcon:			diamond0s
    *saveColorGroup*onIcon:			diamond1s
    *saveColorGroup*highlightColor:		cyan
    *saveColorGroup.innerOffset:		5
    *saveColorGroup.label:			Output Color
    *saveColorGroup*TextToggle.width:		110
    *saveColor.frameWidth:			2
    *saveColor.layout: horizontal { \
	3 \
	vertical { 5 svGrayButton 2 svPseudoButton 2 svRGBButton -1 } \
	-1 \
    }
    *svGrayButton.label:			Grayscale
    *svPseudoButton.label:			PseudoColor
    *svRGBButton.label:				RGB

    *saveDataBox.frameType:			sunken
    *saveDataBox.frameWidth:			1


    ! Output format box	resources.
    ! -----------------------------------
    *fmtGroup.location:				0 0 140 120
    *fmtGroup.outerOffset:			7
    *fmtGroup.frameWidth:			2
    *fmtGroup*offIcon:				diamond0s
    *fmtGroup*onIcon:				diamond1s
    *fmtGroup*TextToggle.width:			55
    *fmtGroup*highlightColor:			cyan
    *fmtGroup.label:				File Format
    *formats.layout: horizontal	{ \
	3 \
	vertical { 5 fitsButton 2 gifButton 2 tiffButton 2 rawButton  1 } \
	2 < -2	> \
	vertical { 5 epsButton	2 rasButton 2 x11Button  2 jpegButton 1 } \
	-1 \
    }
    *rasButton.label:				RAS
    *gifButton.label:				GIF
    *jpegButton.label:				JPEG
    *tiffButton.label:				TIFF
    *fitsButton.label:				FITS
    *x11Button.label:				X11
    *epsButton.label:				EPS
    *rawButton.label:				Raw

    ! Change the sensitivity once these	formats	are implemented. !
    !-------------------------------------------------------------
    *jpegButton.sensitive:			False
    *x11Button.sensitive:			False
    *rawButton.sensitive:			False


    ! Panel command resources.
    ! ------------------------------
    *saveCmdLayout.borderWidth:			0
    *saveCmdGroup.frameType:			chiseled
    *saveCmdGroup.frameWidth:			2
    *saveCmdGroup.outerOffset:			5
    *saveCmdGroup.innerOffset:			5
    *saveCmdGroup.label:
    *saveCmdGroup.location:			0 0 400 50
    *saveCmdLayout*Command.internalWidth:	12
    *saveCmdLayout.layout: horizontal {	\
	2 \
	okaySave 1 < +inf -1 >	saveStatus < +inf -inf * > \
	2 \
    }
    *okaySave.label:				Save
}


set Resources(tile_panel) { \

    *tileOpts.frameType:		    	chiseled
    *tileOpts.frameWidth:		    	2
    *tileOpts.outerOffset:			5
    *tileOpts.innerOffset:			7
    *tileOpts*shrinkToFit:			True
    *tileOpts*borderWidth:		      	0

    *toptLayout.layout:	vertical { \
	horizontal { -6 tFramesG < +inf -inf * > -6 } \
	horizontal { \
	    -1 \
	    horizontal { -6 tileMode < * +inf -inf > -6 } \
	    vertical { \
		horizontal { -3 userOrientG < +inf -inf * > -3 } \
		horizontal { -3 fillStyle   < +inf -inf * > -3 } \
		horizontal { -3 tileLabel   < +inf -inf * > -3 } \
		-7 \
		horizontal { -3 geomFrame   < +inf -inf * > -3 } \
	    } \
	    -1 \
	} \
	-4 \
    }
    *tileMode.label:				Tile Mode
    *tileMode.outerOffset:			7
    *tileMode.innerOffset:			5
    *tileMode*location:				0 0 150 20
    *tileMode*TextToggle.outerOffset:		2
    *tileMode*TextToggle.innerOffset:		1
    *tileMode*TextToggle.frameWidth:		0
    *tileMode*TextToggle.leftMargin:		10
    *tileMode*TextToggle.rightMargin:		20
    *tileMode*TextToggle.onIcon:		diamond1s
    *tileMode*TextToggle.offIcon:		diamond0s
    *tileMode*TextToggle.highlightColor:	yellow

    *tileDisabled.label:			Disabled
    *tileManual.label:				Manual
    *tileBest.label:				Best
    *tileSquare.label:				Square
    *tileHorizontal.label:			Horizontal
    *tileVertical.label:			Vertical
    *tileRow.label:				One Row
    *tileCol.label:				One Column

    *fillStyle.label:				Fill Style
    *fillStyle.location:			0 0 160 30
    *fillStyle.outerOffset:			7
    *fillStyle.innerOffset:			5
    *fillStyle.rows:				1
    *fillStyle*selectionStyle:			multi
    *fillStyle*outerOffset:			0
    *fillStyle*innerOffset:			1
    *fillStyle*leftMargin:			7
    *fillStyle*onIcon:				square1s
    *fillStyle*offIcon:				square0s
    *fillStyle*highlightColor:			yellow
    *fillStyle.TextToggle.frameWidth:		0
    *fillStyle.TextToggle.location:		0 0 85 23
    *byCols.label:				Fill by Columns
    *bottomUp.label:				Fill from Bottom

    *tileLabel.label:				Tile Labels
    *tileLabel.location:			0 0 175 30
    *tileLabel.outerOffset:			7
    *tileLabel.innerOffset:			5
    *tileLabel.rows:				1
    *tileLabel*selection:			-1
    *tileLabel*outerOffset:			0
    *tileLabel*innerOffset:			1
    *tileLabel*leftMargin:			7
    *tileLabel*onIcon:				square1s
    *tileLabel*offIcon:				square0s
    *tileLabel*highlightColor:			yellow
    *tileLabel.TextToggle.frameWidth:		0
    *tileLabel.TextToggle.location:		0 0 85 23
    *labelFrames.label:				Frameno
    *labelImname.label:				Img Name
    *labelTitles.label:				Img Title

    *geomFrame.frameWidth:			0
    *geomFrame.frameType:			sunken
    *geomFrame.outerOffset:			7
    *geomFrame.innerOffset:			4
    *tileGeometry.width:			220
    *tileGeometry.height;			37
    *tileGeometry.background:			gray77
    *tileGeometry.font:				7x13bold
    *tileGeometry.label:			Tile Geometry:  1 x 2

    *userOrientG.label:				Manual Configuration
    *userOrientG.height:			90
    *userOrientG.width:				220
    *userOrientG.outerOffset:			7
    *userOrientG.innerOffset:			5
    *userOrientG.shrinkToFit:			True
    *userOrientG*Frame.frameWidth:		1
    *userOrientG*Frame.frameType:		sunken
    *userOrientG*Text.height:			21
    *userOrientG*Text*editType:			edit
    *userOrientL.borderWidth:			0
    *userOrientL.layout: vertical { \
	1 \
	horizontal { 18 nrowLab < +50% -inf * >  nrFrame < +inf -inf * > 5 } \
	1 \
	horizontal { ncolLab < +50% -inf * > ncFrame < +inf -inf * > 5 } \
    }
    *nrowLab.justify:				right
    *ncolLab.justify:				right

    *nrLayout.layout: horizontal {nrdecrease nrtext < +inf -inf * > nrincrease}
    *nrdecrease.direction:			left
    *nrincrease.direction:			right
    *nrowLab.label:				Tile Rows:
    *nrtext.background:				gray68
    *nrtext.justify:				center
    *nrtext.font:				7x13bold
    *nrtext.label:				1

    *ncLayout.layout: horizontal {ncdecrease nctext < +inf -inf * > ncincrease}
    *ncdecrease.direction:			left
    *ncincrease.direction:			right
    *ncolLab.label:				Tile Columns:
    *nctext.background:				gray68
    *nctext.justify:				center
    *nctext.font:				7x13bold
    *nctext.label:				2

    *tFramesG.label:				Tile Frames
    *tFramesG.outerOffset:			7
    *tFramesG.innerOffset:			7
    *tFrames.borderWidth:			0
    *tFrames*Toggle.height:			17
    *tFrames.layout: horizontal	{ \
	tAll \
	2 \
	tFrame1  tFrame2  tFrame3  tFrame4  tFrame5  \
	tFrame6  tFrame7  tFrame8  tFrame9  tFrame10 \
	tFrame11 tFrame12 tFrame13 tFrame14 tFrame15 tFrame16 \
	2 \
	tNone \
    }
    *tAll.label:				All\ 
    *tNone.label:				None
}


set Resources(wcs_panel) { \

    !--------------------
    ! WCS Readout Panel
    !--------------------
    *wcsGroup*TextToggle.offIcon:               square0s
    *wcsGroup*TextToggle.onIcon:                square1s

    !*wcsLayout*TextToggle.location:             0 0 160 23
    *wcsLayout*TextToggle.height:		23
    *wcsLayout*TextToggle.outerOffset:          0
    *wcsLayout*Layout.borderWidth:		0
    *wcsLayout.borderWidth:			0
    *wcsLayout.layout: vertical { \
	0 < +0 -0 > \
	wcsGroup < +inf -inf * > \
	5 \
	horizontal { -1 wcsOptGroup < +inf -inf * > -1 } \
	-2 \
    }

    *wcsOptGroup.label:
    *wcsOptGroup.outerOffset:                   0
    *wcsOptGroup.innerOffset:                   5
    *wcsOptGroup.frameType:                     chiseled
    *wcsOptGroup.frameWidth:                    0
    *wcsOptLayout.layout: vertical { \
	horizontal { -9 wcsCoords   < +inf -inf * > -9 } \
	-3 \
	horizontal { -5 wcsOpts     < +inf -inf * > -5 } \
	horizontal { -5 wcsIsmGroup < +inf -inf * > -5 } \
	1 \
    }

    *wcsOpts.label:
    *wcsOpts.width:				265
    *wcsOpts.height:				40
    *wcsOpts.outerOffset:			3
    *wcsOpts.innerOffset:			3
    *woLayout*TextToggle.frameWidth:		0
    *woLayout*TextToggle.onIcon:		square1s
    *woLayout*TextToggle.offIcon:		square0s
    *woLayout*TextToggle.highlightColor:	cyan
    *woLayout*TextToggle.alignment:		left
    *woLayout*TextToggle.leftMargin:		5
    *woLayout.layout: horizontal { \
	3 \
	woptLabels < +inf -inf * > 2 \
	woptTitles < +inf -inf * > 2 \
	woptFBinfo < +inf -inf * > 2 \
	woptBPM    < +inf -inf * >   \
	3 \
    }
    *woptLabels.label:				WCS Labels
    *woptLabels.on:				True
    *woptTitles.label:				Image Titles
    *woptTitles.on:				True
    *woptFBinfo.label:				Frame Buffer Info
    *woptFBinfo.on:				True
    *woptBPM.label:				BPM Data
    *woptBPM.on:				False
    *woptLabels.location:			0 0 150 21
    *woptTitles.location:			0 0 150 21
    *woptFBinfo.location:			0 0 175 21
    *woptBPM.location:				0 0 120 21


    *wcsCoords.label:				Readout Values
    *wcsCoords.width:				265
    *wcsCoords.height:				135
    *wcsCoords.outerOffset:			7
    *wcsCoords.innerOffset:			3
    *wcLayout*TextToggle.offIcon:           	diamond0s
    *wcLayout*TextToggle.onIcon:            	diamond1s
    *wcLayout*TextToggle.highlightColor:    	yellow2
    *wcLayout*TextToggle.shrinkToFit:		True
    *wcLayout*TextToggle.frameWidth:		0
    *wcLayout*TextToggle.label:
    *wcLayout*TextToggle.on:			True
    *wcLayout*Label.justify:			right
    *wcLayout*Label.font:			7x13bold
    *wcLayout*SimpleMenu.borderColor:           black
    *wcLayout*SimpleMenu.borderWidth:           1
    *wcLayout*SimpleMenu.foreground:            White
    *wcLayout*SimpleMenu.background:            SteelBlue
    *wcLayout*MenuButton.shadowWidth:		1
    *wcLayout*MenuButton.resize:		False
    *wcLayout.layout: vertical {\
	1 \
	horizontal { 20 < -20 > wcTitle < +inf -inf * > 20 < -20 > }\
	1 \
	horizontal { 5 wcLine < +inf -inf * > 5 } \
	5 \
	horizontal { \
	    10 \
	    vertical { 2 wlWcs1  2 wlWcs2  2 wlWcs3  2 wlWcs4  2 }  5 \
	    vertical { 1 sysWcs1 1 sysWcs2 1 sysWcs3 1 sysWcs4 1 }  5 \
	    vertical { 1 fmtWcs1 1 fmtWcs2 1 fmtWcs3 1 fmtWcs4 1 } 20 \
	    vertical { 1 wpWcs1  3 wpWcs2  3 wpWcs3  3 wpWcs4  3 } 20 \
	    vertical { 1 wiWcs1  3 wiWcs2  3 wiWcs3  3 wiWcs4  3 } 15 \
	} \
	3 \
    }
    *wcTitle.label:    Type\ \ \ \ \ \ \ \ \ \ Format\ \ \ \ \ \ Panel\ ImgWin

    *wcLine.height:				2
    *wcLine.frameWidth:				2
    *wcLine.frameType:				ledged

    *wlWcs1.label:				First WCS
    *wlWcs2.label:				Second WCS
    *wlWcs3.label:				Third WCS
    *wlWcs4.label:				Fourth WCS
    *sysWcs1.label:				\ Image Display\ 
    *sysWcs1.menuName:				sysMenu1
    *sysWcs2.label:				None
    *sysWcs2.menuName:				sysMenu2
    *sysWcs3.label:				None
    *sysWcs3.menuName:				sysMenu3
    *sysWcs4.label:				None
    *sysWcs4.menuName:				sysMenu4
    *fmtWcs1.label:				\ Sexigesimal\ 
    *fmtWcs1.menuName:				fmtMenu1
    *fmtWcs2.label:				None
    *fmtWcs2.menuName:				fmtMenu2
    *fmtWcs3.label:				None
    *fmtWcs3.menuName:				fmtMenu3
    *fmtWcs4.label:				None
    *fmtWcs4.menuName:				fmtMenu4

    *editMenu fmtWcsMenu$i fmtWcs$i $items

    *wcsIsmGroup.label:
    *wcsIsmGroup.width:				395
    *wcsIsmGroup.height:			50
    *wcsIsmGroup.outerOffset:			3
    *wcsIsmGroup.innerOffset:			5
    *wcsIsmGroup*borderWidth:			0
    *wcsIsmLayout.layout: horizontal { \
	wcsIsmLabel 1 wcsIsmFrame < +inf -inf * > 3 wcsIsmInit 1 \
     }
    *wcsIsmLabel.label:				ISM Command
    *wcsIsmFrame.frameType:			sunken
    *wcsIsmFrame.frameWidth:			1
    *wcsIsmFrame.outerOffset:			1
    *wcsIsmFrame*height:			23
    *wcsIsmCmd*editType:			edit
    *wcsIsmCmd.displayCaret:			True
    *wcsIsmInit.label:				Initialize
    *wcsIsmInit.internalWidth:			7

    *wcsBox*borderWidth:			0
    *wcsBox*TextToggle.frameType:		raised
    *wcsBox*TextToggle.frameWidth:		1
    *wcsBox*TextToggle.leftMargin:		2
    *wcsBox*borderWidth:			0
    *wcsBox.layout: vertical { \
	wcsFrame < +inf -inf * > \
	2 \
	horizontal { \
	    2 \
	    ismToggle   < +inf -inf * > 2 \
	    pixelTable  < +inf -inf * > 2 \
	    imageHeader < +inf -inf * > 2 \
	    compass     < +inf -inf * > 2 \
	    wcsOptions  < +inf -inf * >   \
	    2 \
	} \
    }
    *ismToggle.label:				ISM Mod
    *ismToggle.label:				WCS/Pix
    *pixelTable.label:				Pix Table
    *imageHeader.label:				Header
    *imageHeader.sensitive:			False
    *compass.label:				Compass
    *wcsOptions.label:				Options

    *wcsGroup.label:
    *wcsGroup.outerOffset:                      0
    *wcsGroup.innerOffset:                      5
    *wcsGroup.frameType:                        chiseled
    *wcsGroup.frameWidth:                       2
    *wcsGroup*Text*width:			260
    *wcsGroup*Text*height:			17
    *wcsGroup*Text*font:			7x13
    *wcsGroup*Text*displayCaret:		False
    *wcsGroup*Text*editType:			read
    *wcsGroup*Text*background:			black
    *wcsGroup*Text*foreground:			yellow2
    *wcsGroup*TextToggle.highlightColor:        cyan
    *wcsFrame.frameType:			sunken
    *wcsFrame.frameWidth:			1
    *wcsText*background:			yellow4
    *wcsText.layout: vertical { \
	wtName    < +inf -inf * > -3 \
	wtTitle   < +inf -inf * > -3 \
	wtFBCfg   < +inf -inf * >    \
	1 < -1 > \
	wtWcs1  < +inf -inf * > -3 \
	wtWcs2  < +inf -inf * > -3 \
	wtWcs3  < +inf -inf * > -3 \
	wtWcs4  < +inf -inf * >    \
	1 < -1 > \
	horizontal { \
	    wtIPixval < +inf -inf * +inf > 1 \
	    wtSPixval < +inf -inf * +inf > 1 \
	    wtBPixval < +inf -inf * +inf > \
	} \
    }
}


set Resources(blink_panel) { \

    *blink_panel.geometry:			425x200
    *blink_panel.title:				Blink/Register Frames

    *brMenuBar*Command.internalHeight:	       	4
    *brMenuBar*Command.internalWidth:	       	12
    *brMenuBar*Command.height:			27
    *brMenuBar*borderWidth:			0

    *brMenuBar*Label.font:	  7x13bold
    *brLayout*Command.font:	  -*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *brRegButton.font:		  -*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *brReset.font:  		  -*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *brMatchButton.font:  	  -*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *brBlinkButton.font:  	  -*-helvetica-medium-r-normal-*-12-*-iso8859-1
    *brAregButton.font:		  -*-helvetica-medium-r-normal-*-12-*-iso8859-1


    *brMenuBar.layout: vertical	{ \
	5 < -5	> \
	horizontal { 10	< +inf -10> brClose 5 } \
	5 < -5	> \
    }
    *brClose.label:			       	Dismiss

    *brMenuFrame.frameType:		       	raised
    *brMenuFrame.frameWidth:		       	2
    *bpLayout.layout: vertical { \
	brMenuFrame  <	+inf -inf * > \
	1 < -1	> \
	brFrame < +inf	-inf * +inf -inf > \
    }

    *brFrame.frameType:			       	chiseled
    *brFrame.frameWidth:		       	2
    *brFrame.outerOffset:			4
    *brFrame.innerOffset:			4

    *brLayout.borderWidth:			0
    *brLayout.layout: vertical { \
	3 < -3	> \
	horizontal { -3 brFramesG < +inf -inf * > -3 } \
	-5  \
	horizontal { -3 brCmdG	< +inf -inf * +inf -inf	> -3 } \
	-5 \
    }

    *brCmdG.label:
    *brCmdG.outerOffset:			7
    *brCmdG.innerOffset:			7
    *brCmdG*borderWidth:			0
    *brCmd.layout: horizontal {	\
	2 \
	vertical { \
	    2 \
	    horizontal	{ \
		2 \
		brRateLabel \
		2 \
		brBRframe < +inf -inf	* >\
		4 \
		brReset \
		2 \
	    } \
	    8 < -8 > \
	    horizontal	{ \
		4 \
		brMatchButton	< +inf -inf * >	\
		5 < -5 > \
		brRegButton <	+inf -inf * > \
		2 \
	    } \
	    1 < +inf >	\
	} \
	10 \
	vertical { \
	    2 \
	    brBlinkButton < +inf * > \
	    10	< -10 >	\
	    brAregButton < +inf * > \
	    1 < +inf >	\
	} \
	2 \
    }

    *brFramesG.label:				Frames List
    *brFramesG.outerOffset:			7
    *brFramesG.innerOffset:			7
    *brFramesG*SimpleMenu.borderColor:		black
    *brFramesG*SimpleMenu.borderWidth:		1
    *brFramesG*SimpleMenu.foreground:           White
    *brFramesG*SimpleMenu.background:           SteelBlue

    *brFrames.borderWidth:			0
    *brFrames.layout: horizontal { \
	5 < +inf > \
	brFrame1  < +inf * > 1 \
	brFrame2  < +inf * > 1 \
	brFrame3  < +inf * > 1 \
	brFrame4  < +inf * > 1 \
	brFrame5  < +inf * > 1 \
	brFrame6  < +inf * > 1 \
	brFrame7  < +inf * > 1 \
	brFrame8  < +inf * > 1 \
	brFrame9  < +inf * > 1 \
	brFrame10 < +inf * > 1 \
	brFrame11 < +inf * > 1 \
	brFrame12 < +inf * > 1 \
	brFrame13 < +inf * > 1 \
	brFrame14 < +inf * > 1 \
	brFrame15 < +inf * > 1 \
	brFrame16 < +inf * >   \
	5 < +inf > \
    }

    *brBRlayout.layout:	horizontal { \
	brBRdecrease \
	brBRtext < +inf -100% * > \
	brBRincrease \
    }

    *blink_panel*TextToggle.location:		0 0 110	23
    *blink_panel*TextToggle.frameWidth:		1
    *blink_panel*TextToggle.highlightColor:	yellow
    *blink_panel*TextToggle.offIcon:		square0s
    *blink_panel*TextToggle.onIcon:		square1s
    *blink_panel*TextToggle.outerOffset:	0
    *blink_panel*TextToggle.innerOffset:	2
    *blink_panel*Command.height:		23
    *blink_panel*Arrow.width:			16
    *blink_panel*Arrow.height:			20


    *brFramesLabel.label:		     	Frames:
    *brFrame1.menuName:				frame1Menu
    *brFrame2.menuName:				frame2Menu
    *brFrame3.menuName:				frame3Menu
    *brFrame4.menuName:				frame4Menu
    *brFrame5.menuName:				frame5Menu
    *brFrame6.menuName:				frame6Menu
    *brFrame7.menuName:				frame7Menu
    *brFrame8.menuName:				frame8Menu
    *brFrame9.menuName:				frame9Menu
    *brFrame10.menuName:			frame10Menu
    *brFrame11.menuName:			frame11Menu
    *brFrame12.menuName:			frame12Menu
    *brFrame13.menuName:			frame13Menu
    *brFrame14.menuName:			frame14Menu
    *brFrame15.menuName:			frame15Menu
    *brFrame16.menuName:			frame16Menu
    *brReset.label:			     	Reset

    *brRateLabel.label:			     	Rate:
    *brBRframe.frameType:			sunken
    *brBRframe.frameWidth:			1
    *brBRtext.width:				40
    *brBRtext.height:				23
    *brBRdecrease.direction:			left
    *brBRincrease.direction:			right
    *brRegButton.label:			     	Register
    *brMatchButton.label:			Match LUTs
    *brBlinkButton.label:			Blink
    *brAregButton.label:		       	Auto-Register
}


set Resources(hdr_panel) { \

    *hdr_panel.geometry:			550x600
    *hdr_panel.title:				Image Header

    *hdr_panel*SimpleMenu.borderColor:          black
    *hdr_panel*SimpleMenu.borderWidth:          1
    *hdr_panel*SimpleMenu.foreground:           White
    *hdr_panel*SimpleMenu.background:           SteelBlue

    *hdrMenuFrame.frameType:			raised
    *hdrMenuFrame.frameWidth:			2
    *hdrLayout.layout: vertical	{ \
	hdrMenuFrame < +inf -inf * > \
	hdrObjGroup  < +inf -inf * > \
	hdrTabFrame  < +inf -inf * +inf	-inf> \
    }

    *hdrMenuBar*borderWidth:			0
    *hdrMenuBar*Command.internalHeight:		5
    *hdrMenuBar*Command.internalWidth:		12
    *hdrMenuBar.layout:	vertical { \
	5 < -5	> \
	horizontal { 10 < +inf -10> hdrClose 7 } \
	5 < -5	> \
    }
    *hdrClose.label:				Dismiss

    *hdrObjGroup.label:
    *hdrObjGroup.outerOffset:			7
    *hdrObjGroup.innerOffset:			4
    *hdrObjLayout.borderWidth:			0
    *hdrObjLayout.layout: vertical { \
	horizontal { hdrObjLabel 2 hdrObjMenu < +inf -inf * > 2 } \
    }
    *hdrObjLabel.label:				Image Name:
    *hdrObjMenu.label:
    *hdrObjMenu.justify:			left
    *hdrObjMenu.font:				7x13
    *hdrObjMenu.menuName:			objMenu
    *hdrObjMenu.internalWidth:			5
    *hdrObjMenu.internalHeight:			1
    *hdrObjMenu.shadowWidth:			1

    *hdrHdrGroup.tabLabel:			Image Header
    *hdrHdrGroup.label:
    *hdrHdrGroup.outerOffset:			7
    *hdrHdrGroup.innerOffset:			5
    *hdrHdrLayout.borderWidth:			0
    *hdrHdrLayout.layout: vertical { \
	horizontal { \
	    hdrFilter 2 hFindFrame < +inf -inf * > 2 hdrFind 1 hdrClear \
	} \
	5 \
	hdrText < +inf -inf * +inf -inf > \
    }
    *hFindEntry*editType:                       edit
    *hFindEntry*font:                           7x13
    *hFindEntry*displayCaret:                   True
    *hFindEntry*width:                          150
    *hFindFrame.frameWidth:                     1
    *hFindFrame*borderWidth:			0
    *hFindFrame.frameType:                      sunken
    *hFindFrame.width:                          150
    *hFindFrame.height:                         23
    *hdrFilter.label:                           Keyword Filter
    *hdrFind.label:                             Search
    *hdrClear.label:                            Clear

    ! Resources if the header text widget is AsciiText
!   *hdrText*scrollVertical:			Always
!   *hdrText*scrollHorizontal:			Always
!   *hdrText*editType:				edit
!   *hdrText*font:				7x13
!   *hdrText*background:			gray77
!   *hdrText*displayCaret:			False
!   *hdrText*bottomMargin:			10
!   *hdrText*Scrollbar.width:			15
!   *hdrText*Scrollbar.height:			15

    ! Resources if the header text widget is HTML
    *hdrText.width:                             600
    *hdrText.height:                            500
    *hdrText.anchorUnderlines:                  1
    *hdrText.visitedAnchorUnderlines:           1
    *hdrText.verticalScrollOnRight:             True
    *hdrText.plainFont:                         7x13
    *hdrText.marginWidth:			5
    *hdrText.marginHeight:			5


    *hdrWcsGroup.tabLabel:			Image WCS Info
    *hdrWcsGroup.label:
    *hdrWcsGroup.outerOffset:			5
    *hdrWcsGroup.innerOffset:			5
    *hdrWcsGroup*Text*scrollVertical:		whenNeeded
    *hdrWcsGroup*Text*scrollHorizontal:		whenNeeded
    *hdrWcsGroup*Text*editType:			edit
    *hdrWcsGroup*Text*displayCaret:		False
    *hdrWcsGroup*Text*borderWidth:		0
    *hdrWcsGroup*Text*editType:			edit
    *hdrWcsGroup*Text*font:			7x13
    *hdrWcsGroup*Text*Scrollbar.width:		15
    *hdrWcsGroup*Text*Scrollbar.height:		15
    *hdrWcsLayout.borderWidth:			0
    *hdrWcsLayout.layout: vertical { \
	2 < -2	> \
	hdrInfoGroup <	+inf -inf * > \
	2 < -2	> \
	hdrKeywGroup <	+inf -inf * +inf -inf >	\
	-4 \
    }
    *hdrInfoGroup.label:			Basic WCS Information
    *hdrInfoGroup.outerOffset:			7
    *hdrInfoGroup.innerOffset:			0
    *hdrIGFrame.frameType:			sunken
    *hdrIGFrame.frameWidth:			1
    *hdrIGText.height:				130
!   *hdrIGText*background:			black
!   *hdrIGText*foreground:			yellow2
    *hdrIGText*background:			gray68
    *hdrIGText*foreground:			black
    *hdrWcsGroup*hdrIGText*scrollVertical:	never
    *hdrWcsGroup*hdrIGText*scrollHorizontal:	never
    *hdrWcsGroup*hdrIGText*font:  		7x13
    *hdrKeywGroup.label:			WCS Header Keywords
    *hdrKeywGroup.outerOffset:			7
    *hdrKeywGroup.innerOffset:			5
    *hdrKGFrame.frameType:			sunken
    *hdrKGFrame.frameWidth:			1
    *hdrKGText*background:			gray77
    *hdrKGText*bottomMargin:			10

    *hdrIGText*background:			gray77
    *hdrIGFrame.frameWidth:			0
}


set Resources(pixel_table) { \

    *pixel_panel.title:				Image Pixel Table
    *pixel_panel*SimpleMenu.borderWidth:	1
    *pixel_panel*SimpleMenu.borderColor:	black
    *pixel_panel*SimpleMenu.foreground:         White
    *pixel_panel*SimpleMenu.background:         SteelBlue

    *pixtabMenuBar*borderWidth:			0
    *pixtabMenuBar*Command.internalHeight:	4
    *pixtabMenuBar*Command.internalWidth:	12
    *pixtabMenuBar.layout: vertical { \
	5 \
	horizontal { \
	    5 \
	    pixtabSize 10 < +inf -10> pixtabHelp 5 pixtabClose \
	    7 \
	} \
	5 \
    }
    *pixtabSize.label:				Size
    *pixtabSize.menuName:			pixtabMenu
    *pixtabHelp.label:				Help
    *pixtabHelp.sensitive:			False
    *pixtabClose.label:				Dismiss

    *pixtabMenuFrame.frameType:			raised
    *pixtabMenuFrame.frameWidth:		2
    *pixel_table.layout: vertical { \
	1 \
	pixtabMenuFrame  < +inf -inf * > \
	1 \
	pixtabFrame < +inf -inf * +inf -inf > \
	1 \
    }
    

    *pixtabFrame.frameType:			raised
    *pixtabFrame.frameWidth:			0
    *pixtabFrame*borderWidth:			0
    *pixtabFrame*font:                          6x10
    *pixtabFrame*MultiList.font: 	-*-helvetica-medium-r-normal-*-10-*
    *pixtabFrame*Label.font: 		-*-helvetica-medium-r-normal-*-10-*
    *pixtabFrame*TextToggle.font: 	-*-helvetica-medium-r-normal-*-10-*

    *pixtabFrame*MultiList.forceColumns:	True
    *pixtabFrame*MultiList.defaultColumns:	5
    *pixtabFrame*MultiList.shadeSurplus:	False
    *pixtabFrame*MultiList.borderWidth:		0
    *pixtabFrame*MultiList.rowHeight:		25
    *pixtabFrame*MultiList.rowSpacing:		7
    *pixtabFrame*MultiList.internalWidth:	7
    *pixtabFrame*MultiList.internalHeight:	4
    *pixtabFrame*MultiList.width:		410
    *pixtabFrame*MultiList.height:		160
    *pixtabFrame*MultiList.columnWidth:		50
    *pixtabFrame*MultiList.columnSpacing:	2
    *pixtabFrame*MultiList.maxSelectable:	1
    *pixtabFrame*MultiList.highlightForeground:	red
    *pixtabFrame*MultiList.highlightBackground:	gray77
    *pixtabFrame*MultiList.background:		gray77
    *pixtabFrame*TextToggle.background:		gray77

    *pixtabFrame*Label.width:			00
    !*pixtabFrame*Label.resize:			False

    *meanFrame.frameWidth:			2
    *meanFrame.frameType:			chiseled
    *meanFrame.outerOffset:			0
    *meanFrame.width:				120
    *meanLabel.label:				Mean:
    *meanValue.label:
    *meanValue.resize:				False

    *sigFrame.frameWidth:			2
    *sigFrame.frameType:			chiseled
    *sigFrame.outerOffset:			0
    *sigFrame.width:				120
    *sigLabel.label:				Stdev:
    *sigValue.label:
    *sigValue.resize:				False

    *ptColFrame.frameWidth:			0
    *ptColFrame.outerOffset:			0
    *ptRowFrame.frameWidth:			0
    *ptRowFrame.outerOffset:			0

    *pixtabFrame*ptColLabs.width:		410
    *pixtabFrame*ptColLabs.height:		23
    *pixtabFrame*ptColLabs.defaultColumns:	5
    *pixtabFrame*ptColLabs.forceColumns:	True
    *pixtabFrame*ptColLabs.columnWidth:		50
    *pixtabFrame*ptColLabs.columnSpacing:	2
    *pixtabFrame*ptRowLabs.width:		60
    *pixtabFrame*ptRowLabs.height:		110
    *pixtabFrame*ptRowLabs.defaultColumns:	1
    *pixtabFrame*ptRowLabs.forceColumns:	True
    *pixtabFrame*ptRowLabs.verticalList:	True
    *pixtabFrame*ptRowLabs.columnWidth:		50
    *pixtabFrame*ptRowLabs.columnSpacing:	2
    *pixtabFrame*pixtab.verticalList:		True

    *ptFrame.outerOffset:           		0
    *ptFrame.innerOffset:           		0
    *ptFrame.borderWidth:			0
    *ptFrame.frameWidth:            		1
    *ptFrame.frameType:             		sunken
    *ptLayout.layout: vertical { \
        3 \
        horizontal { 65 ptColFrame < +inf -inf * > 5 } \
        1 \
        horizontal { \
          vertical { ptRowFrame< * +inf -inf > 5  } \
	  1 \
	  vertical { ptFrame } \
	  5 \
        } \
	1 \
        horizontal { \
	    2 < +inf > \
	    meanLabel meanFrame < +inf -inf * > 2 \
	    sigLabel  sigFrame  < +inf -inf * >   \
	    10 \
	} \
    }
}


set Resources(help_panel) { \

    !----------------------
    ! Help panel resources.
    !----------------------
    *help_panel.title:				XImtool	Help Summary
    *help_panel.width:				500
    *help_panel.height:				550
    *helpLayout*borderWidth:			0
    *helpLayout*Command.internalHeight:		4
    *helpLayout*Command.internalWidth:		12
    *helpLayout*HTML*shadowWidth:		1
    *helpLayout*helpText*Scrollbar.shadowWidth:		1

    *helpMenuGroup.label:               
    *helpMenuGroup.height:                      45
    *helpMenuGroup.outerOffset:                 0
    *helpMenuGroup.innerOffset:                 0
    *helpMenuGroup.frameType:			raised
    *helpMenubar.layout: vertical { \
	5 < -5 > \
	horizontal { 20 < +inf -20 > helpClose 7 } \
	5 < -5 > \
    }
    *helpBack.label:				Back
    *helpBack.sensitive:			False
    *helpForward.label:				Forward
    *helpForward.sensitive:			False
    *helpHome.label:				Home
    *helpClose.label:				Dismiss


    *hfEntry*editType:                          edit
    *hfEntry*font:                              7x13
    *hfEntry*displayCaret:                      True
    *hfFrame.frameWidth:			1
    *hfFrame.frameType:				sunken
    *hfFrame.width:				250
    *hfFind.label:                              Search
    *hfFind.shadowWidth:                        1
    *hfClear.label:                             Clear
    *hfClear.shadowWidth:                       1

    *helpLayout.layout:	vertical { \
	-1 \
	horizontal { helpMenuGroup < +inf -inf * > 	     } \
	5 \
        horizontal { \
            5 \
	    helpBack 2 helpForward 2 helpHome \
	    20 < +inf -20 > \
            hfFrame < +inf -inf * > 3 hfFind 1 hfClear \
            5 \
        } \
	5 \
	horizontal { helpTextFrame < +inf -inf * +inf -inf > } \
	horizontal { helpInfoLayout < +inf -inf	* > 	     } \
	-1 \
    }
    *helpTextFrame.frameWidth:			1
    *helpTextFrame.frameType:			sunken
    *helpText.width:				600
    *helpText.height:				500
    *helpText.anchorUnderlines:			1
    *helpText.visitedAnchorUnderlines:		1
    *helpText.verticalScrollOnRight:		true
    *helpText*Scrollbar.shadowWidth:		1
    *helpText.plainFont:       -adobe-courier-medium-r-normal-*-12-*-*-*-*-*-*-*
    *helpText.plainboldFont:   -adobe-courier-bold-r-normal-*-12-*-*-*-*-*-*-*
    *helpText.plainitalicFont: -adobe-courier-medium-o-normal-*-12-*-*-*-*-*-*-*
!   *helpText.boldFont:				6x12bold


    ! Contact info at the bottom of the panel.
    *helpInfoLayout*Label.justify:		center
    *helpInfoLayout*Label.internalHeight:	0
    *helpInfoLayout.layout: horizontal { \
	5 \
	vertical { 5 helpIRAFLogo 5 } \
	1 < +inf > \
	vertical { \
	    5 \
	    helpInfo1 < +inf -inf * +inf -inf > \
	    helpInfo2 < +inf -inf * +inf -inf > \
	    helpInfo3 < +inf -inf * +inf -inf > \
	    5 \
	} \
	1 < +inf > \
	vertical { 5 helpNOAOLogo 5 } \
	5 \
    }
    *helpInfo1.label:		XIMTOOL_VERSION
    *helpInfo2.label:		iraf@noao.edu     (520) 318-8160
    *helpInfo3.label: \
	NOAO is operated by AURA under cooperative agreement with the NSF

    *helpInfoLayout*helpInfo1.font: -*-helvetica-medium-r-normal-*-12-*-*-*
    *helpInfoLayout*helpInfo2.font: -*-helvetica-medium-r-normal-*-12-*-*-*
    *helpInfoLayout*helpInfo3.font: -*-helvetica-medium-r-normal-*-10-*-*-*

    *helpInfoLayout.helpIRAFLogo.internalWidth:		0
    *helpInfoLayout.helpIRAFLogo.internalHeight:	0
    *helpInfoLayout.helpIRAFLogo.foreground:		SteelBlue
    *helpInfoLayout.helpIRAFLogo.background:		white
    *helpInfoLayout.helpNOAOLogo.internalWidth:		0
    *helpInfoLayout.helpNOAOLogo.internalHeight:	0
    *helpInfoLayout.helpNOAOLogo.foreground:		SteelBlue
    *helpInfoLayout.helpNOAOLogo.background:		white
}

set Resources(tcl_panel) { \

    !--------------------------------
    ! Define a debug Tcl shell.
    !--------------------------------
    *tcl_panel.width:                           550
    *tcl_panel.height:                          180
    *tcl_panel.title:                           Debug TCL Command Entry
    *tclLayout*borderWidth:                     0
    *tclLayout*Frame.frameType:                 sunken
    *tclLayout*Frame.frameWidth:                2
    *tclLayout.layout:  vertical { \
        0 < +0 -0 > \
        tclCmdGroup   < +inf -inf * > \
        tclFrame < +inf -inf * +inf -inf> \
        0 < +0 -0 > \
    }
    *tclEntry*foreground:                       black
    *tclEntry*editType:                         edit
    *tclEntry*type:                             string
    *tclEntry*font:				7x13
    *tclEntry*scrollVertical:                   Always
    *tclEntry*scrollHorizontal:                 whenNeeded

    *tclCmdGroup.label:         
    *tclCmdGroup.outerOffset:                   0
    *tclCmdGroup.innerOffset:                   0
    *tclCmd.layout: vertical { \
        5 \
        horizontal { \
            5 \
            tclClear   3 \
            tclExecute   \
            10 < +inf -10>    \
            tclDismiss   \
            5 \
        } \
        5 \
    }
    *tclClear.label:                            Clear
    *tclExecute.label:                          Execute
    *tclDismiss.label:                          Dismiss
}


set Resources(warning) { \

    ! ---------------------
    ! WARNING dialog.
    ! ---------------------
    *warning.geometry:				+400+300
    *warning*borderWidth:			0
    *warning*TextBox.frameWidth:		0

    *warn.layout: vertical { \
	5 < -5	> \
	horizontal { 5 warnFrame < +inf * +inf > 5 } \
	5 < -5	> \
	horizontal { \
	    10 \
	    warnOk < +inf * > \
	    5 < +inf -5 > \
	    warnCancel < +inf * > \
	    10 \
	} \
	5 < -5	> \
    }
    *warnOk.label:				Okay
    *warnCancel.label:				Cancel

    *WFlayout.layout: horizontal { \
	5 < -5	> \
	vertical { 5 < +inf -5 > warnIcon 5 < +inf -5 > } \
	5 < -5	> \
	warnText < +inf -inf *	+inf -inf > \
	5 < -5	> \
    }

    *warnLabel.label:				Warning
    *warnLabel.width:				300
    *warnLabel.height:				20
    *warnFrame.frameType:			sunken
    *warnFrame.frameWidth:			2
    *warnIcon.location:				0 0 40 40
    *warnIcon.image:				WARNING
    *warnText.label:				generic warning text
    *warnText.width:				270
    *warnText.height:				60
    *warnText.background:			gray77
}




set Resources(gui) { \

    ! GUI resources.
    ! ------------------------------
    *autoscale:					True
    *zoomfactors:				1 2 4 8
    *displayCoords:				True
    *displayPanner:				True
    *displayMagnifier:				False
    *blinkRate:					1.0
    *pannerArea:				150*150
    *pannerGeom:				-5+5
    *magnifierArea:				100*100
    *magnifierGeom:				+5+5
    *wcsboxGeom:				-5-5
    *maxContrast:				5.0
    *showToolBar:				False
    *showPanelBar:				False
    *warnings:					True
    *centerBoxSize:				5
    *peakCentroid:				True
}





################################################################################
#  GUI Bootstrap Procedures
################################################################################

# Initialize the widget tree.
proc InitWidgetTree args \
{
    global Objects Resources Version


    # Add a new objects description for each of the panels found so we can
    # create them by name later rather that with the defaults.

    set guiResources ""
    foreach obj [array names Objects] {
	set guiResources \
		[ format "%s\n\n*%s_objects:%s\n" \
		    $guiResources $obj $Objects($obj) ]
    }

    # Now append all the Resource strings, changing any version strings as
    # needed.

    foreach res [array names Resources] {
	regsub -all XIMTOOL_VERSION $Resources($res) $Version ver
	set guiResources [ format "%s\n\n%s\n\n" $guiResources $ver ]
    }

    # Define all of the GUI objects and resources.
    appInitialize ximtool XImtool $guiResources
}


# Realize a window module, i.e. create it's objects.
proc Realize { module args } \
{
    global Objects

    # Create any widgets for the module.  We only do this once and set a
    # flag to indicate the objects have been created so we don't do it on
    # subsequent realizations.
    if { [info exists Objects($module)] } {
	createObjects [format "%s_objects" $module]
	reset-server
    }
}


# Bootstrap up the GUI.
InitWidgetTree
Realize ximtool
Realize parameters
Realize panelShell
Realize tcl_panel
Realize pixel_table
Realize hdr_panel
Realize blink_panel
Realize help_panel
Realize xpan_panel
Realize xmag_panel
Realize warning

reset-server

# Set the gterm widget focus.
send colorbar setGterm ; send colorbar activate
send imagewin setGterm ; send imagewin activate

# Crank it up.
activate




##############################################################################
#  Utility Procedures.
##############################################################################

# Utility procedure to test True/False strings in resources.
proc true {v} {expr {$v == "true" || $v == "True" || $v == "TRUE"}}

# Utility functions.
proc min {a b} { expr {($a < $b) ? $a : $b} }
proc max {a b} { expr {($a > $b) ? $a : $b} }

# Global variables.
set version	"NOAO/IRAF XImtool Version 1.3EXPORT"

set winWidth 	[send imagewin get width ]	;# display window width
set winHeight 	[send imagewin get height]	;# display window height
set appWidth 	[send display  get width ]	;# application window width
set appHeight 	[send display  get height]	;# application window height
set marker 		none			;# selected marker
set markno 		0			;# used to name new markers
set ruler 		none			;# selected ruler
set ruleno 		0			;# used to name new rulers
set blinkFrames 	"1 2"			;# list of blink frames
set auto_reg 		0

set panel_up 		0			;# control panel mapped
set help_up 		0			;# help panel mapped
set ism_enable		0			;# ISM is running
set ism_capable		1			;# Client is ISM capable
set frameCache(0)	""			;# ISM frame cache

set ctype		"equatorial"		;# default coord type
set eqtype		"fk5"			;# default equatorial type

# Global constants.
set MAX_FRAMES 		16			;# max frame buffers

# TCL constants
set tcl_precision 	8



# Window resize callbacks.
proc winResize {w width height} { 
    global winWidth winHeight

    if {$width <= 1 || $height <= 1} \
	return

    set winWidth  $width
    set winHeight $height 
} ; send imagewin addCallback winResize resize

proc appResize {w width height} \
{
    global doHcut doVcut cutXPos cutYPos
    global appWidth appHeight

    set appWidth $width
    set appHeight $height 

    catch {
        if {$doHcut} { 
	    send hcutPlot clearScreen
	    hcutInit
	    send hcutAxes1 redraw ; send hcutAxes2 redraw
	    cutPlots $cutXPos $cutYPos 
        }
        if {$doVcut} { 
	    send vcutPlot clearScreen
	    vcutInit
	    send vcutAxes1 redraw ; send vcutAxes2 redraw
	    cutPlots $cutXPos $cutYPos 
        }
    }
} ; #send imagewin addCallback appResize resize



# Additional global variables, taking default values from resources.
getResources {
    { zoomfactors }
    { displayCoords }
    { displayPanner }
    { displayMagnifier }
    { blinkRate }
    { pannerArea }
    { pannerGeom }
    { magnifierArea }
    { magnifierGeom }
    { wcsboxGeom }
    { maxContrast }
    { showToolBar }
    { showPanelBar }
    { warnings }
    { centerBoxSize }
    { peakCentroid }
    { highlight }
}

set warnings [true $warnings]
set defaultBlinkRate $blinkRate

# Client state variables (UI parameter objects).  Certain of these parameters
# we mirror in Tcl variables here, updating the values with a callback when
# the parameter value changes.  Others require special callbacks.

set frame       1		;# current display frame
set nframes     0		;# number of frame buffers
set frames {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16} ;# list of image frames
set frameWidth  0		;# frame buffer width, pixels
set frameHeight 0		;# frame buffer height, pixels
set frameDepth  8		;# frame buffer pixel size, bits
set cursorMode  0		;# true when cursor read pending

foreach i $frames {
    set frameZoomX($i) 0	;# X zoom factor
    set frameZoomY($i) 0	;# Y zoom factor
    set frameCenterX($i) 0	;# X center of field
    set frameCenterY($i) 0	;# Y center of field
    set frameScaleX($i) 0	;# X scale factor
    set frameScaleY($i) 0	;# Y scale factor
    set frameOffsetX($i) 0	;# X register offset
    set frameOffsetY($i) 0	;# Y register offset
    set enhancement($i) none	;# colortable enhancement
}


#trace variable frameOffsetX w debug_pvar	;# Debug stuff
#trace variable frameOffsetY w debug_pvar
#trace variable frameZoomX w debug_pvar
#trace variable frameZoomY w debug_pvar
#trace variable frameScaleX w debug_pvar
#trace variable frameScaleY w debug_pvar

proc debug_pvar { name element op } \
{
    if {$element != ""} {
	set name ${name}($element)
    }
    upvar $name x
    puts "Variable $name set to $x"
}




################################################################################
# Cut-plot handling routines.
################################################################################

set doHcut	0
set doVcut	0
set plotSpeed	1 ; send plotSpeed  set on True
set curJump	1 ; send curJump  set on True
set curTrack	1 ; send curTrack set on True

set cutXPos	[expr "$winWidth  / 2"]
set cutYPos	[expr "$winHeight / 2"]
set cutXScale 	1.0
set cutYScale 	1.0



# Change the cursor to the crosshair when in the plot
proc cutCursor { widget event args } \
{
    global doHcut doVcut curTrack

    if {! $curTrack} \
	return

    if { $event == "enterNotify" } {
	send $widget setCursorType ginMode

	# Disable the update of the graph we're in while in the plot window.
	if {$widget == "hcutPlot"} { set doHcut 0 } else { set doVcut 0 }
    } elseif { $event == "leaveNotify" } {
        send $widget setCursorType idle

	# Enable the update of the graph we're leaving.
	if {$widget == "hcutPlot"} { set doHcut 1 } else { set doVcut 1 }
    }
    cutPlotRefresh
}
foreach w {hcutPlot vcutPlot} {
    send $w addEventHandler cutCursor enterWindowMask
    send $w addEventHandler cutCursor leaveWindowMask
}

proc cutPlotRefresh args \
{
    global doHcut doVcut cutXPos cutYPos

    if {$doHcut} {
        send hcutPlot clearScreen
        hcutInit
        send hcutAxes1 redraw ; send hcutAxes2 redraw
        cutPlots $cutXPos $cutYPos
    }
    if {$doVcut} {
        send vcutPlot clearScreen
        vcutInit
        send vcutAxes1 redraw ; send vcutAxes2 redraw
        cutPlots $cutXPos $cutYPos
    }
} ; send imagewin addEventHandler cutPlotRefresh enterWindowMask

proc cutPlotRedraw args \
{
    global doHcut doVcut cutXPos cutYPos

    if {$doHcut} {
        send hcutAxes1 redraw ; send hcutAxes2 redraw
        cutPlots $cutXPos $cutYPos
    }
    if {$doVcut} {
        send vcutAxes1 redraw ; send vcutAxes2 redraw
        cutPlots $cutXPos $cutYPos
    }
}


# Disable the options when we first start up.
#send plotOpts "set height 1 ; set width 1 ; unmap"
foreach w {plotOpts hcutFrame vcutFrame} { send $w unmap }


# Cut-Plot options callback.
proc doPlotOpts { widget type state args } \
{
    global plotSpeed curJump curTrack doHcut doVcut
    global cutXPos cutYPos

    if {$state} { set not 0 } else { set not 1 }

    switch $widget {
    plotSpeed 	 { if {$state} {
    		       send plotAccurate set on 0 ; send plotImgPix set on 0
		   } else {
    		       send plotSpeed set on True ; 
		   }
		   set plotSpeed $not
		 }
    plotAccurate { if {$state} {
    		       send plotImgPix set on 0 ; send plotSpeed set on 0
		   } else {
    		       send plotSpeed set on True ; 
		   }
		   set plotSpeed $not
		 }
    plotImgPix   { if {$state} {
    		       send plotAccurate set on 0 ; send plotSpeed set on 0
		   } else {
    		       send plotSpeed set on True ; 
		   }
		   set plotSpeed $not
		 }
    curJump	 { send curSmooth set on $not    ; set curJump   $state }
    curSmooth	 { send curJump set on $not      ; set curJump   $not 	}
    curTrack	 { set curTrack $state 					}
    }

    # Redraw the plots right away.
    if {$widget == "plotSpeed" || $widget == "plotAccurate"} { 
	cutPlots $cutXPos $cutYPos
    }
}
foreach w { plotSpeed plotAccurate plotImgPix curJump curSmooth curTrack } {
    send $w addCallback doPlotOpts 
}


# Toggle the display of the horizontal or vertical cut plot windows.

proc cutPlotToggle { widget type state args } \
{
    global doHcut doVcut cutXPos cutYPos
    set    debug  0

    set hstate [send hcut get state]
    set vstate [send vcut get state]
    set w [send display get width]
    set h [send display get height]

    if {$debug} { print " " ; print [format "display: %d x %d\n" $w $h] }

    if {$widget == "hcut"} {
	set hfw [expr [send hcutFrame get width] - 4]
	set hpw [send hcutPlot  get width]
        if {$state} {
	    # Enable the plot and resize the main window
	    if {$vstate} { 
		send plotOpts set width 134 
	    }
	    send hcutFrame "set width $hpw ; set height 132; map"
	    send hcutPlot "set width $hfw ; set height 128"
	    send display "set height [ expr ($h + 132) ]; set width $w"
            drawHcutAxes  1
	    setHcutCursor 1
	    if {$vstate} { 
		send plotOpts "set height 134 ; map"
	        vcutInit
	    }
	    hcutInit 				;# Initialize the plot.
        } else {
	    # Disable the plot and resize the main window
	    setHcutCursor 0
            drawHcutAxes  0
	    send hcutPlot clearScreen
	    send plotOpts "unmap; set height 4"
	    send hcutFrame "unmap; set width $hfw; set height 4"
	    send plotOpts "set width 4"
	    send display "set height [ expr ($h - 128) ] ; set width $w"
	    if {$vstate} { 
	        vcutInit
	    }
        }
        set doHcut $state
    } else {
	set vfh  [expr [send vcutFrame get height] - 4]
	set vph  [send vcutPlot  get height]
        if {$state} {
	    # Enable the plot and resize the main window
	    if {$hstate} { 
		send plotOpts set height 134
	    }
	    send vcutFrame "set height $vph ; set width 132 ; map"
	    send vcutPlot "set height $vfh ; set width 128"
	    send display "set height $h; set width [ expr ($w + 132) ]"
            drawVcutAxes  1
	    setVcutCursor 1
	    if {$hstate} { 
		send plotOpts "set height 134 ; set width 134; map"
     	        hcutInit
	    }
     	    vcutInit 				;# Initialize the plot.
        } else {
	    # Disable the plot and resize the main window
	    setVcutCursor 0
            drawVcutAxes  0
	    send vcutPlot clearScreen
	    send plotOpts "unmap; set width 4"
	    send vcutFrame "unmap; set height $vfh; set width 4"
	    send plotOpts "set height 4"
	    send display "set width [ expr ($w - 128) ] ; set height $h"
	    if {$hstate} { 
	        hcutInit
	    }
        }
        set doVcut $state
    }
		
    if {$debug} {
	print [format " hFrame: %d x %d\n" \
		[send hcutFrame get width] [send hcutFrame get height] ]
	print [format "  hPlot: %d x %d\n" \
		[send hcutPlot get width] [send hcutPlot get height] ]
	print [format " vFrame: %d x %d\n" \
		[send vcutFrame get width] [send vcutFrame get height] ]
	print [format "  vPlot: %d x %d\n" \
		[send vcutPlot get width] [send vcutPlot get height] ]
	print [format "state: %d  %d\n" $hstate $vstate]
	print [format "display: %d x %d\n" $w $h]
    }

    cutPlots $cutXPos $cutYPos
} ; foreach w { hcut vcut } { send $w addCallback cutPlotToggle }


# Draw the cut plots.
proc cutPlots { xpos ypos args } \
{
    global doHcut doVcut cutXPos cutYPos

    catch {
        if {$doHcut} { plotHcut $xpos $ypos }
        if {$doVcut} { plotVcut $xpos $ypos }
    }

    set cutXPos $xpos  ;  set cutYPos $ypos
}


################################################################################
# Horizontal Cut-Plot Routines
################################################################################

set hcutVec	{}

# Initiailize the horizontal cut-plot
proc hcutInit args \
{
    global logz cutXScale winWidth cutXPos cutYPos

    # Just get some dummy pixels, we only want the z1/z2 values so we can 
    # initialize the labels.
    set xp   [expr [send imagewin get width] / 2 ]
    set yp   [expr [send imagewin get height] / 2 ]
    set pix  [send client getPixels $xp $yp 2 2 ]
    set z1   [lindex $pix 0]
    set z2   [lindex $pix 1]

    send hcutPlot getPhysRes  xr  yr
    send hcutPlot setLogRes  $xr $yr

    set logx    [send imagewin get width]
    set logz    [expr ($z2 - $z1)]
    set cutXScale [expr ($xr * 1.0) / ($logx * 1.0)]

    # Initialize the labels.
    send vcutPlot "setColorIndex 6"
    drawHcutLabels $z1 $z2
}

# Draw the horizontal cut-plot.
proc plotHcut { xpos ypos } \
{
    global doHcut cutXScale
    global hcutVec cutXPos plotSpeed


    if { ($xpos == 0 && $ypos == 0) || ! $doHcut } \
	return

    # Do the horizontal cut plot.
    set width [send imagewin get width]
    if {$plotSpeed} {
        set pix  [send client getPixels 0 $ypos $width 1 2 5 $cutXScale]
    } else {
        set pix  [send client getPixels 0 $ypos $width 1 2 1 $cutXScale]
    }
    set z1   [lindex $pix 0]
    set z2   [lindex $pix 1]
    set vec  [lrange $pix 2 end]

    # Erase the last plot rather than clear the screen and redraw 
    # the new vector.
    send hcutPlot setColorIndex background
    send hcutPlot drawPolyline $hcutVec
    send hcutPlot setColorIndex foreground
    send hcutPlot drawPolyline $vec
    set  hcutVec $vec 			;# save for later erasure

    # Mark the cursor position.
    drawHcutIndicator $xpos

    # Minimize the screen refreshes to speed things up.
    if { [expr "$ypos % 3"] == 0} {
	catch {
            drawHcutLabels $z1 $z2	;# redraw the labels
	}
        send hcutAxes1 redraw		;# redraw the axes markers
        send hcutAxes2 redraw
    }
}


# Create markers to indicate axes on the horizontal cut-plot.
proc drawHcutAxes { state } \
{
    if {$state} {
        send hcutPlot createMarker hcutAxes1 \
            type            box \
            createMode      noninteractive \
            lineColor       gray60 \
            lineStyle       0 \
            x               1 \
            y               60 \
            height          30 \
	    width           4096 \
            activated       True \
            visible         True \
            sensitive       False
        send hcutPlot createMarker hcutAxes2 \
            type            box \
            createMode      noninteractive \
            lineColor       gray60 \
            lineStyle       0 \
            x               1 \
            y               1 \
            height          60 \
	    width           4096 \
            activated       True \
            visible         True \
            sensitive       False
    } else {
	send hcutAxes1 destroy ; send hcutAxes2 destroy
    }
}

# Create a marker to be used as the cursor indicator.
proc setHcutCursor { state } \
{
    if {$state} {
	set pts { {252 10} {260 10} {256 1} }

        send hcutPlot createMarker hcutCursor \
            type          polygon \
            createMode    noninteractive \
            lineColor     black \
            fill     	  True \
            fillColor     yellow \
            x             256 \
            y             12 \
            width         8 \
            height        10 \
            knotSize      0 \
            activated     True \
            visible       False \
            sensitive     False
        send hcutCursor setVertices $pts
        send hcutCursor set visible True

    } else {
	send hcutCursor destroy
    }
}

# Label the axes on the horizontal cut plot.
proc drawHcutLabels { z1 z2 } \
{
    set mid  [expr "($z2-$z1)/2.0+$z1"]
    set low [expr "($mid-$z1)/2.0+$z1"]
    set high  [expr "($z2-$mid)/2.0+$mid"]

    send hcutPlot "setColorIndex 6 ; \
	 drawAlphaText 2 10  [format "%.1f" $z2] ; \
         drawAlphaText 2 34  [format "%.1f" $high] ; \
         drawAlphaText 2 64  [format "%.1f" $mid] ; \
         drawAlphaText 2 94  [format "%.1f" $low] ; \
         drawAlphaText 2 120 [format "%.1f" $z1]"
}

# Draw the cursor position indicator on the horizontal cut plot.
proc drawHcutIndicator { xpos } \
{
    global cutXScale cutXPos

    send hcutCursor move [expr ($xpos * $cutXScale)] 12
    set cutXPos $xpos
}

# Track the cursor while in the cut-graph window.
proc hcutWCSUpdate { x y args } \
{
    global cutYPos curTrack
    if {$curTrack} { 
        wcsUpdate $x $cutYPos 
    }
    drawHcutIndicator $x
}




################################################################################
# Vertical Cut-Plot Routines
################################################################################

set vcutVec	{}

# Initiailize the vertical cut-plot
proc vcutInit args \
{
    global cutYScale winWidth cutXPos cutYPos

    # Just get some dummy pixels, we only want the z1/z2 values so we can 
    # initialize the labels.
    set xp   [expr [send imagewin get width] / 2 ]
    set yp   [expr [send imagewin get height] / 2 ]
    set pix  [send client getPixels $xp $yp 2 2 ]
    set z1   [lindex $pix 0]
    set z2   [lindex $pix 1]

    send vcutPlot getPhysRes  xr  yr
    send vcutPlot setLogRes  $xr $yr

    set logy    [send imagewin get height]
    set logz    [expr ($z2 - $z1)]
    set cutYScale [expr ($yr * 1.0) / ($logy * 1.0)]

    # Initialize the labels.
    send vcutPlot "setColorIndex 6; reset"
    drawVcutLabels $z1 $z2
}

# Draw the horizontal cut-plot.
proc plotVcut { xpos ypos } \
{
    global doVcut cutYScale
    global vcutVec cutXPos plotSpeed


    if { ($xpos == 0 && $ypos == 0) || ! $doVcut } \
	return

    # Do the vertical cut plot.
    set height [send imagewin get height]
    if {$plotSpeed} {
        set pix  [send client getPixels $xpos 0 1 $height 3 5 $cutYScale]
    } else {
        set pix  [send client getPixels $xpos 0 1 $height 3 1 $cutYScale]
    }
    set z1   [lindex $pix 0]
    set z2   [lindex $pix 1]
    set vec  [lrange $pix 2 end]

    # Draw the vector.
    send vcutPlot setColorIndex background
    send vcutPlot drawPolyline $vcutVec
    send vcutPlot setColorIndex foreground
    send vcutPlot drawPolyline $vec
    set  vcutVec $vec 			;# save for later erasure

    # Mark the cursor position.
    drawVcutIndicator $ypos

    # Minimize the screen refreshes to speed things up.
    if { [expr "$xpos % 3"] == 0} {
	catch {
            drawVcutLabels $z1 $z2	;# redraw the labels
	}
        send vcutAxes1 redraw		;# redraw the axes markers
        send vcutAxes2 redraw
    }
}

# Erase the last plot rather than clear the screen and redraw it all. The
# erase is done by redrawing the last vector in the the background color.
proc eraseOldVcut args \
{
    global cutYPos vcutVec

    send vcutPlot setColorIndex background
    send vcutPlot drawPolyline $vcutVec
    send vcutPlot setColorIndex foreground
}

# Draw the horizontal cut-plot.
# Create markers to indicate axes on the vertical cut-plot.
proc drawVcutAxes { state } \
{
    if {$state} {
        send vcutPlot createMarker vcutAxes1 \
            type            box \
            createMode      noninteractive \
            lineColor       gray60 \
            lineStyle       0 \
            x               60 \
            y               1 \
            height          4096 \
            width           30 \
            activated       True \
            visible         True \
            sensitive       False
        send vcutPlot createMarker vcutAxes2 \
            type            box \
            createMode      noninteractive \
            lineColor       gray60 \
            lineStyle       0 \
            x               1 \
            y               1 \
            width           60 \
            height          4096 \
            activated       True \
            visible         True \
            sensitive       False
    } else {
	send vcutAxes1 destroy ; send vcutAxes2 destroy
    }
}

# Create a marker to be used as the cursor indicator.
proc setVcutCursor { state } \
{
    if {$state} {
	set pts { {10 252} {10 260} {1 256} }

        send vcutPlot createMarker vcutCursor \
            type          polygon \
            createMode    noninteractive \
            lineColor     black \
            fill     	  True \
            fillColor     yellow \
            x             12 \
            y             256 \
            width         10 \
            height        8 \
            knotSize      0 \
            activated     True \
            visible       False \
            sensitive     False
        send vcutCursor setVertices $pts
        send vcutCursor set visible True

    } else {
	send vcutCursor destroy
    }
}

# Label the axes on the vertical cut plot.
proc drawVcutLabels { z1 z2 } \
{
    set mid  [expr "($z2-$z1)/2.0+$z1"]
    set low  [expr "($mid-$z1)/2.0+$z1"]
    set high [expr "($z2-$mid)/2.0+$mid"]

    # Initialize the label strings and positions.
    set labels {}
    foreach i [list $z2 $high $mid $low $z1] {
	lappend labels  [ format "%.1f" $i ]
    }
    set xposns { 2 28 58 88 112 }

    send vcutPlot "setColorIndex 6"

    # Draw each label vertically down the position since we can't rotate
    # the text.
    set xp  0
    foreach lab $labels {
	set chars [split $lab {} ]
        set yp  12
	set xpos [lindex $xposns $xp]
        foreach ch $chars {
	    if {$ch == "."} { incr yp -4 }
    	    send vcutPlot drawAlphaText $xpos $yp $ch
	    incr yp 10
        }
	incr xp
    }
}


# Draw the cursor position indicator on the horizontal cut plot.
proc drawVcutIndicator { ypos } \
{
    global cutYScale cutYPos

    send vcutCursor move 12 [expr ($ypos * $cutYScale)]
    set cutYPos $ypos
}


# Track the cursor while in the cut-graph window.
proc vcutWCSUpdate { x y args } \
{
    global cutXPos curTrack
    if {$curTrack} { 
        wcsUpdate $cutXPos $y 
    }
    drawVcutIndicator $y
}



################################################################################
# UTILITY ROUTINES
################################################################################


# TICSTEP -- Utility routine to compute nice ticmark steps in plots.
# [ NOT CURRENTLY USED. ]

proc ticstep { range nsteps } \
{
    set t2 0.301029996
    set t5 0.698970004
    set df [ expr "$range / double($nsteps + 1)" ]
    if {$df > 0.0} {
        set p1 [ expr "log10(double($df))" ]
    } else {
        set p1 [ expr "log10(double(-$df))" ]
    }
    set p2 [ expr "int($p1)" ]
    set p3 [ expr "$p1 - $p2" ]

    if { $p3 < 0.0 } {
        set p3 [ expr "$p2 + 1.0" ]
        set p2 [ expr "$p2 - 1.0" ]
    }

    if { $p3 < 1.0e-10 } {
       set ticstep [ expr "pow(double(10.0),double($p2))" ]
    } elseif { $p3 > 0. &&  $p3 <=  $t2 } {
       set ticstep [ expr "pow(double(10.0),double($p2 + $t2))" ]
    } elseif { $p3 >  $t2 &&  $p3 <=  $t5 } {
       set ticstep [ expr "pow(double(10.0),double($p2 + $t5))" ]
    } elseif { $p3 >  $t5 &&  $p3 <= 1.0 } {
       set ticstep [ expr "pow(double(10.0),double($p2 + 1.))" ]
    } else {
       set ticstep $df
    }

    set logtic  [ expr "int(log10($ticstep)) - 1" ]
    set scale   [ expr "pow(double(10.0),double($logtic))" ]
    set ticstep [ expr "int( ($ticstep / $scale) * $scale)" ]

    if {$ticstep < 0.1} { set ticstep 0.10 }

    return $ticstep
}



# Cursor positioning routines
#----------------------------

proc move_cursor { xstep ystep args } \
{
    set raster 0
    send imagewin getCursorPos rx ry
    send imagewin setCursorPos [expr $rx + $xstep] [expr $ry + $ystep] $raster
}


# Called when the number of frames changes.
proc setNFrames {param old new} \
{
    global frameMenuDescription nframes frames

    set nframes $new
    if {$old != $new} {
	foreach i {prevButton nextButton} {
	    send $i set sensitive [expr "$nframes > 1"]
	}

	if {$nframes > 0} {

	    # Creates the Frames menu on the main image window.
	    set items { }
	    for {set i 1} {$i <= $nframes} {incr i} {
		set l [format "%2d" $i]
		lappend  items "$l f.exec \{send client setFrame $i\} sensitive \{[expr \"$nframes >= $i\"]\}"
	    }
	    editMenu frameMenu frameButton $items

	    # Create the menu for the blink frames list.
	    set items { }
	    for {set i 0} {$i <= $nframes} {incr i} {
		set j [expr ($i + 1)]
		if {$i == 0} {
	   	    set s "\"none\" f.exec \{send brFrameBTN set label \" \"\}"
		    lappend items $s
		} else {
		    set l [format "%2d" $i]
		    lappend items "$l f.exec \{send brFrameBTN set label $l\} sensitive \{[expr \"$nframes >= $i\"]\}"
		}
	    }
	    for {set i 1} {$i <= $nframes} {incr i} {
		send brFrame$i setSensitive True
		send tFrame$i  setSensitive True
	        regsub -all BTN $items $i nmenu
		editMenu frame${i}Menu brFrame$i $nmenu
	    }

	} else {
	    editMenu frameMenu frameButton $frameMenuDescription

	    for {set i 1} {$i <= $nframes} {incr i} {
		send brFrame$i setSensitive True
		send tFrame$i  setSensitive True
		editMenu frame${i}Menu brFrame$i $frameMenuDescription
	    }
	}
    }

    for {set i 1} {$i <= 16} {incr i} {
	if {$i <= $nframes} {
	    send frame$i map
	} else {
	    send frame$i unmap
	}
    }

    if {$nframes > 2} {
        setAllTileFrames
    }
}; send nframes addCallback setNFrames


# Set the default main window frame menu.
set frameMenuDescription {
    {" 1" f.exec "send client setFrame 1"  sensitive {[expr "$nframes >= 1"]} }
    {" 2" f.exec "send client setFrame 2"  sensitive {[expr "$nframes >= 2"]} }
    {" 3" f.exec "send client setFrame 3"  sensitive {[expr "$nframes >= 3"]} }
    {" 4" f.exec "send client setFrame 4"  sensitive {[expr "$nframes >= 4"]} }
}; createMenu frameMenu  frameButton  $frameMenuDescription




# Initialize the frame lists panels (blink panel and tile tab).
for {set i 1} {$i <= 16} {incr i} {
    send brFrame$i set label [format "%2d" $i]
    send tFrame$i  set label [format "%2d" $i]
    if {$i <= 4} {
	send brFrame$i setSensitive True
	send tFrame$i  "setSensitive True ; set state 1"
    } else {
	send brFrame$i setSensitive False
	send tFrame$i  "setSensitive False ; set state 0"
    }
    createMenu frame${i}Menu brFrame$i $frameMenuDescription
}


# Called when the frame being displayed changes.
proc frameChanged {param old new} \
{
    global frame

    set frame $new
    send frameButton set label [format "%2d" $frame]

    # The first time we request frame 5 or higher reset 
    # the extra frame buttons on the control panel to make
    # them visible.
    if {$new >= 5} {
	send frlistBox set width 49
    }
    wcsFmtFBConfig
    drawCompass
}; send frame addCallback frameChanged


# Called when the frame buffer configuration changes.
proc setFrameSize {param old new} \
{
    global frameWidth frameHeight frameDepth
    set frameWidth [lindex $new 0]
    set frameHeight [lindex $new 1]
    set frameDepth [lindex $new 2]

    wcsFmtFBConfig
}; send frameSize addCallback setFrameSize

# Called when the current frame is zoomed or panned.
proc setFrameView {param old new} \
{
    global frameZoomX frameZoomY frameCenterX frameCenterY
    global frameScaleX frameScaleY frameOffsetX frameOffsetY
    global frame auto_reg blinkFrames

    # Update the position.
    set frameZoomX($frame)   [lindex $new 0]
    set frameZoomY($frame)   [lindex $new 1]
    set frameCenterX($frame) [lindex $new 2]
    set frameCenterY($frame) [lindex $new 3]
    set frameScaleX($frame)  [lindex $new 4]
    set frameScaleY($frame)  [lindex $new 5]
    set frameOffsetX($frame) [lindex $new 6]
    set frameOffsetY($frame) [lindex $new 7]

    # If auto-registering is enabled, do it now, but only when we're updating
    # the current display frame, and only if that frame is in the framelist.

    if {$auto_reg == 1 && $frame == [send frameButton get label]} {
	if {[string first $frame $blinkFrames] != -1} {
	    send client offsetRegister \{$blinkFrames\}
	}

	foreach f $blinkFrames {
	    if {$f != $frame} {
    	        set frameZoomX($f)   $frameZoomX($frame)
    	        set frameZoomY($f)   $frameZoomY($frame)
    	        set frameCenterX($f) $frameCenterX($frame)
    	        set frameCenterY($f) $frameCenterY($frame)
    	        set frameScaleX($f)  $frameScaleX($frame)
    	        set frameScaleY($f)  $frameScaleY($frame)
	    }
	}
    }
    deleteAllRulers

}; send frameView addCallback setFrameView


# Called when the color enhancement for a frame changes.
proc setEnhancement {param old new} \
{
    global enhancement
    set enhancement([lindex $new 0]) [lrange $new 1 end]
}; send enhancement addCallback setEnhancement

# Called when the frame title changes (e.g. frame change or new frame loaded).
proc setTitle {param old new} \
{
    set lab  [string trimright $new]
    send imageTitle set label $lab

    set image [lindex [ split $lab '-'] 0 ]
    wcsFmtImname $image

    set title [lindex [ split $lab '-'] 1 ]
    wcsFmtImtitle $title
    deleteAllRulers
}; send frameTitle addCallback setTitle

# Called when the image is flipped in an axis.
proc setFlip {param old new} \
{
    if {$param == "xflip"} { 
	send xflipButton set state [true $new]
    } else {
	send yflipButton set state [true $new]
    }
    deleteAllRulers
}; foreach i {xflip yflip} { send $i addCallback setFlip }


# Various general callbacks.

proc Quit args \
{
    global ism_enable

    if {$ism_enable} {
        catch { send wcspix quit }
    }
    send client Quit 			  
}
proc nextFrame args	    { send client nextFrame 		  }
proc prevFrame args	    { send client prevFrame 		  }
proc setColormap { mapno }  { send client setColormap $mapno 	  }
proc xflip  args	    { send client flip x   ; flipRegister }
proc yflip  args	    { send client flip y   ; flipRegister }
proc xyflip args	    { send client flip x y ; flipRegister }
proc flipRegister args \
{
    global auto_reg frame blinkFrames

    if {$auto_reg == 1 && $frame == [send frameButton get label]} {
	if {[string first $frame $blinkFrames] != -1} {
	   send client offsetRegister \{$blinkFrames\}
	}
    }
}



# Initialize bitmaps.
createBitmap xflip 16 16 {
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x08, 0x18, 0x18,
   0x1c, 0x38, 0xfe, 0x7f, 0xfe, 0x7f, 0x1c, 0x38, 0x18, 0x18, 0x10, 0x08,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}

createBitmap yflip 16 16 {
   0x00, 0x00, 0x80, 0x01, 0xc0, 0x03, 0xe0, 0x07, 0xf0, 0x0f, 0x80, 0x01,
   0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0xf0, 0x0f,
   0xe0, 0x07, 0xc0, 0x03, 0x80, 0x01, 0x00, 0x00}

createBitmap qmark 16 16 {
   0x00, 0x00, 0x00, 0x00, 0xf0, 0x07, 0xf8, 0x0f, 0x18, 0x0c, 0x18, 0x0c,
   0x18, 0x0e, 0x00, 0x07, 0x80, 0x03, 0x80, 0x01, 0x80, 0x01, 0x00, 0x00,
   0x80, 0x01, 0x80, 0x01, 0x00, 0x00, 0x00, 0x00}

createBitmap larrow 16 16 {
   0x00, 0x00, 0x00, 0x03, 0x80, 0x03, 0xc0, 0x03, 0xe0, 0x1e, 0x70, 0x1e,
   0x38, 0x18, 0x1c, 0x18, 0x1c, 0x18, 0x38, 0x18, 0x70, 0x1e, 0xe0, 0x1e,
   0xc0, 0x03, 0x80, 0x03, 0x00, 0x03, 0x00, 0x00}

createBitmap rarrow 16 16 {
   0x00, 0x00, 0xc0, 0x00, 0xc0, 0x01, 0xc0, 0x03, 0x78, 0x07, 0x78, 0x0e,
   0x18, 0x1c, 0x18, 0x38, 0x18, 0x38, 0x18, 0x1c, 0x78, 0x0e, 0x78, 0x07,
   0xc0, 0x03, 0xc0, 0x01, 0xc0, 0x00, 0x00, 0x00}

createBitmap panel 16 16 {
   0x00, 0x00, 0xf8, 0x1f, 0xf8, 0x1f, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18,
   0x98, 0x19, 0x98, 0x19, 0x98, 0x19, 0x98, 0x19, 0x98, 0x19, 0x18, 0x18,
   0x18, 0x18, 0x18, 0x18, 0xf8, 0x1f, 0xf8, 0x1f}

createBitmap brightness 15 15 {
   0x00, 0x00, 0x80, 0x00, 0x84, 0x10, 0xe8, 0x0b, 0x10, 0x04, 0x08, 0x08,
   0x08, 0x08, 0x0e, 0x38, 0x08, 0x08, 0x08, 0x08, 0x10, 0x04, 0xe8, 0x0b,
   0x84, 0x10, 0x80, 0x00, 0x00, 0x00}

createBitmap contrast 15 15 {
   0x00, 0x00, 0x00, 0x00, 0xc0, 0x01, 0x30, 0x07, 0x08, 0x0f, 0x08, 0x0f,
   0x04, 0x1f, 0x04, 0x1f, 0x04, 0x1f, 0x08, 0x0f, 0x08, 0x0f, 0x30, 0x07,
   0xc0, 0x01, 0x00, 0x00, 0x00, 0x00}

createBitmap bar 10 10 {
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7e, 0x00, 0x42, 0x00, 0x7e, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}

createBitmap dot 16 16 {
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x01,
   0xe0, 0x03, 0xf0, 0x07, 0xf0, 0x07, 0xf0, 0x07, 0xe0, 0x03, 0xc0, 0x01,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}

createBitmap null 16 16 {
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}

createBitmap solid 64 24 {
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}

catch { send controlButton "set bitmap panel; addCallback panel" }
catch { send helpButton    "set bitmap qmark; addCallback Help"  }
send xflipButton "set bitmap xflip;	 addCallback xflip"
send yflipButton "set bitmap yflip;	 addCallback yflip"
send prevButton  "set bitmap larrow; addCallback prevFrame"
send nextButton  "set bitmap rarrow; addCallback nextFrame"
send blinkPanel  "set bitmap panel"



# WINDOW the current frame.
proc windowColormap {x y} \
{
    global winWidth winHeight maxContrast

    send client windowColormap \
	[expr "double($x) / $winWidth"] \
	[expr "(double($y) - $winHeight / 2.0) / $winHeight * \
	    $maxContrast * 2.0"]
}


# WINDOW the current frame, but only one color at a time.
proc windowRGB {color x y save_flag} \
{
    global winWidth winHeight maxContrast

    send client windowRGB $color \
	[expr "double($x) / $winWidth"] \
	[expr "(double($y) - $winHeight / 2.0) / $winHeight * \
	    $maxContrast * 2.0"] $save_flag
}


# ZOOM and PAN.
set xcen 0
set ycen 0
foreach i $frames {set zoomindex($i) 0}
set nzoomfactors 0
foreach i $zoomfactors {
    set zoomfactor($nzoomfactors) $i
    incr nzoomfactors
}

# Zoom or pan image at given center.
proc zoom {x y} \
{
    global xcen ycen frame
    global zoomindex zoomfactor
    global nzoomfactors

    set rx $x;  set ry $y
    set raster 0

    # Convert raw screen coordinates to frame buffer raster coordinates.
    send imagewin unmapPixel $x $y raster rx ry

    # Select a pixel.
    set rx [expr "int ($rx)"]
    set ry [expr "int ($ry)"]

    # If the pointer did not move (much) zoom the image, otherwise
    # pan it.

    send imagewin setCursorType busy
    if {sqrt(pow($x-$xcen, 2) + pow($y-$ycen, 2)) < 4} {
	set zoomindex($frame) [expr [incr zoomindex($frame)] % $nzoomfactors]
	set mag $zoomfactor($zoomindex($frame))
	send client zoom $mag $mag $rx $ry
    } else {
	send client pan $rx $ry
	set xcen $x
	set ycen $y
    }

    # Move the pointer so that it tracks the object feature the user
    # selected.

    send imagewin setCursorPos $rx $ry $raster
    send imagewin getCursorPos xcen ycen
    send imagewin setCursorType idle
}


# Zoom using a marker to indicate the region to be displayed.
proc zoomMarker {marker aspect} \
{
    global xcen ycen frame
    global winWidth winHeight
    global zoomindex nzoomfactors
    global auto_reg frame frameOffsetX frameOffsetY

    # getRegion returns: "rectangle raster x y width height rotangle".
    set region [send $marker getRegion unmap]

    set raster [lindex $region 1]
    set xcen [expr "int([lindex $region 2]) + 0.5"]
    set ycen [expr "int([lindex $region 3]) + 0.5"]
    set snx  [expr "[lindex $region 4] * 2"]
    set sny  [expr "[lindex $region 5] * 2"]

    # Compute the magnification ratio.
    set xmag [expr "$winWidth / $snx"]
    set ymag [expr "$winHeight / $sny"]
    if {$aspect == "equal"} {
	set mag [expr "($xmag < $ymag) ? $xmag : $ymag"]
	set xmag $mag;  set ymag $mag
    }

    # Zoom the image.
    send client zoomAbs \
	$xmag $ymag $xcen $ycen \
	$frameOffsetX($frame) $frameOffsetY($frame)

    # The following causes a button2 to redisplay the full image.
    send imagewin setCursorPos $xcen $ycen $raster
    send imagewin getCursorPos xcen ycen
    set zoomindex($frame) [expr "$nzoomfactors - 1"]
}

# Pan the display frame one width/height in a given direction.
proc moveFrame { xs ys args } \
{
    global winWidth winHeight frame
    global frameWidth frameHeight
    global frameZoomX frameZoomY frameCenterX frameCenterY
    global frameOffsetX frameOffsetY

    # Get the step size for the new position.
    set xstep_size [ expr "$xs * $winWidth / $frameZoomX($frame)" ]
    set ystep_size [ expr "$ys * $winHeight / $frameZoomY($frame)" ]

    # Set the boundaries so we only move up to the edges.
    set xl [ expr "($winWidth / $frameZoomX($frame)) / 2 + 1" ]
    set yl [ expr "($winHeight / $frameZoomY($frame)) / 2 + 1" ]
    set xu [ expr "$frameWidth - $xl" ]
    set yu [ expr "$frameHeight - $yl" ]

    # Set the new center position.
    set nxc [ expr "$frameCenterX($frame) + $xstep_size" ]
    set nyc [ expr "$frameCenterY($frame) + $ystep_size" ]
    if {$nxc < $xl} { set nxc $xl }
    if {$nxc > $xu} { set nxc $xu }
    if {$nyc < $yl} { set nyc $yl }
    if {$nyc > $yu} { set nyc $yu }

    # Finally, send the command to move the frame.
    send client zoomAbs \
	$frameZoomX($frame) $frameZoomY($frame) $nxc $nyc \
	$frameOffsetX($frame) $frameOffsetY($frame)
}

proc resetView {param old new} {
    global zoomindex xcen ycen frames
    global frameWidth frameHeight

    if {$new == "done"} {
	foreach i $frames {
	    send client setFrame $i
	    set xcen [expr $frameWidth / 2]
	    set ycen [expr $frameHeight / 2]
	    send client zoom 1 1 $xcen $ycen
	    set zoomindex($i) 0
	    send client setColormap Grayscale
	    normalize
	}
	send client setFrame 1
    }
}; #send initialize addCallback resetView


# CURSOR READ stuff.
proc setCursorMode {param old new} \
{
    global cursorMode

    if {$new == "on"} {
	send imagewin "activate; setCursorType ginMode"
	set cursorMode 1
    } elseif {$new == "off"} {
	send imagewin "setCursorType idle; deactivate"
	set cursorMode 0
    }
}

proc keyInput {widget event sx sy data} \
{
    global cursorMode frame

    if {!$cursorMode || $event != "keyPress"} \
	return
    if {[lindex $data 0] == "??"} \
	return

    # Convert raw screen coordinates to raster pixel coordinates.
    send imagewin unmapPixel $sx $sy raster rx ry

    # Return the cursor value and exit cursor mode.
    send client retCursorVal $rx $ry $frame 1 [lindex $data 0]
}

proc resetCursorMode args {
    global cursorMode frame
    if {$cursorMode} {
	send imagewin getCursorPos x y
	send client retCursorVal $x $y $frame 1 ^D
    }
}; send initialize addCallback resetCursorMode

send cursorMode addCallback setCursorMode
send imagewin   addCallback keyInput input


# MARKER stuff.  The active marker is determined by the global variable
# "marker", which is the marker the pointer is in, or which the pointer
# was most recently in.

# Translations when pointer is inside marker.
set markerTranslations { \
!Shift <Btn1Motion>:	m_rotateResize()
      <Btn1Motion>:	m_moveResize()
 !Shift <Btn1Down>:	m_raise()  m_markpos()
	<Btn1Down>:	m_raise()  m_markposAdd()
	  <Btn1Up>:	m_redraw() m_destroyNull()
	<Btn2Down>:	m_lower()
	<Btn3Down>:	popup(markerMenu)
	  <Btn3Up>:	popdown(markerMenu)
      !Ctrl <Key>b:     call(prevFrame,$name)
      !Ctrl <Key>f:     call(nextFrame,$name)
      !Ctrl <Key>h:     call(move_cursor,-1,0)
      !Ctrl <Key>j:     call(move_cursor,0,1)
      !Ctrl <Key>k:     call(move_cursor,0,-1)
      !Ctrl <Key>l:     call(move_cursor,1,0)
      !Ctrl <Key>n:     call(normalize)
      !Ctrl <Key>c:     call(cpZoomAction,centerFrame)
      !Ctrl <Key>i:     call(cpInvert)
      !Ctrl <Key>m:     call(cpMatchFrames)
      !Ctrl <Key>r:     call(cpRegisterFrames)
      !Ctrl <Key>p:     call(togglePanner)
       !Alt <Key>1: 	call(cpSetFrame,frame1)
       !Alt <Key>2: 	call(cpSetFrame,frame2)
       !Alt <Key>3: 	call(cpSetFrame,frame3)
       !Alt <Key>4: 	call(cpSetFrame,frame4)
      !Ctrl <Key>1: 	call(cpZoom,1,1,fixed)
      !Ctrl <Key>2: 	call(cpZoom,2,2,fixed)
      !Ctrl <Key>3: 	call(cpZoom,3,3,fixed)
      !Ctrl <Key>4: 	call(cpZoom,4,4,fixed)
      !Ctrl <Key>5: 	call(cpZoom,5,5,fixed)
      !Ctrl <Key>6: 	call(cpZoom,6,6,fixed)
      !Ctrl <Key>7: 	call(cpZoom,7,7,fixed)
      !Ctrl <Key>8: 	call(cpZoom,8,8,fixed)
      !Ctrl <Key>9: 	call(cpZoom,9,9,fixed)
    <Key>BackSpace:	m_deleteDestroy()
       <Key>Delete:	m_deleteDestroy()
	<KeyPress>:	m_input()
	  <Motion>:	track-cursor() call(wcsUpdate,$x,$y) call(magnifierMapImage,$x,$y)
}

# Popup menu in effect when inside marker.
createMenu markerMenu imagewin {
    {	Marker		f.title			}
    {			f.dblline		}
    {	Zoom		f.exec {
			    zoomMarker $marker equal
			    send $marker destroy
			}			}
    {	Fill		f.exec {
			    zoomMarker $marker fill
			    send $marker destroy
			}			}
    {	Print		f.exec {
			    send $marker getRect interior x0 y0 nx ny
		            setPrintCorners $x0 [expr $y0 + $ny -1] \
		                [expr $x0 + $nx -1] $y0
			    send client print $x0 $y0 $nx $ny
			}			}
    {	Save		f.exec {
		            send imagewin setCursorType busy
			    send $marker getRect interior x0 y0 nx ny
			    send client save $x0 $y0 $nx $ny
		            send imagewin setCursorType idle
			}			}
    {	Info		f.exec {
			    send infoText append \
				[format "%s\n" [send $marker getRegion unmap]]
			}			}
    {	Unrotate	f.exec {
			    send $marker setAttribute rotangle 0
			}			}
    {			f.dblline		}
    {	Color		f.menu markerColor	}
    {	Type		f.menu markerType	}
    {			f.dblline		}
    {	Destroy		f.exec {
			    send $marker destroy
			}			}
}

createMenu markerType markerMenu {
    {	Type		f.title			}
    {			f.dblline		}
    {	Rectangle	f.exec "m_setType $marker rectangle"	}
    {	Box		f.exec "m_setType $marker box"		}
    {	Circle		f.exec "m_setType $marker circle"	}
    {	Ellipse		f.exec "m_setType $marker ellipse"	}
    {	Polygon		f.exec "m_setType $marker polygon"	}
}

createMenu markerColor markerMenu {
    {	Color		f.title			}
    {			f.dblline		}
    {	""		f.exec "m_setColor $marker black"
			    bitmap solid foreground black }
    {	""		f.exec "m_setColor $marker white" 
			    bitmap solid foreground white }
    {	""		f.exec "m_setColor $marker red" 
			    bitmap solid foreground red }
    {	""		f.exec "m_setColor $marker green" 
			    bitmap solid foreground green }
    {	""		f.exec "m_setColor $marker blue" 
			    bitmap solid foreground blue }
    {	""		f.exec "m_setColor $marker magenta" 
			    bitmap solid foreground magenta }
    {	""		f.exec "m_setColor $marker cyan" 
			    bitmap solid foreground cyan }
    {	""		f.exec "m_setColor $marker yellow" 
			    bitmap solid foreground yellow }
}

proc m_setType {marker type}  {
    send $marker "markpos; set type $type; redraw"
}
proc m_setColor {marker color}  {
    send $marker "markpos;
	set lineColor $color;  set highlightColor $color; redraw"
}

# Callback executed when a marker gets or loses the focus.
proc selectMarker {active_marker event event_data} \
{
    global marker
    switch $event {
	focusIn		{ set marker $active_marker }
	focusOut	{  }
    }
}

# Create marker action.  Makes a new marker.
proc makeMarker {parent x y} \
{
    global markerTranslations markno
    set marker marker$markno;  incr markno

    send $parent createMarker $marker \
	type		rectangle \
	createMode	interactive \
	translations	$markerTranslations \
	x		$x \
	y		$y

    send $marker addCallback selectMarker focusIn focusOut
}


     
# WCSBOX -- Real time coordinate display.

set track_enable 	0
set last_x		0
set last_y		0

proc wcsUpdate {x y} \
{
    global track_enable frame pixtab_up tabTop
    global frameWidth frameHeight redraw_compass
    global ism_enable wcsLabels last_x last_y
    global ct_warn plotSpeed doHcut doVcut


    # If the cursor was frozen release it now.
    if {$ct_warn} {
	curtrack_destroy
    }

    # Convert screen coords to raster pixel.
    send imagewin unmapPixel $x $y raster rx ry rz

    # Set the current frame to the frame the pointer is within.
    if {$frame && $raster} {
	set track_frame [send client getFrame $raster]
	if {$frame != $track_frame} {
	    send client setFrame $track_frame
	}
    }

    # Update coords box.
    if {$raster} {
        set text [send client encodewcs $rx $ry $rz]
        scan $text "%g %g %g" nx ny nz
    } else {
        set text [format " %7.2f %7.2f %9.1f " $rx $ry $rz]
        set nx $rx ; set ny $ry ; set nz $rz
    }
	
    # Update the coords panel and pixel table.
    wcsFmtSValue $nz
    if {$pixtab_up} {
        updatePixelTable $x $y $nx $ny
    }

    # If the ISM is running update the coords box with all the selected
    # options, otherwise just write the one-line frame wcs coords.
    if {$ism_enable} {
        updateCoordsBox

    } else {
	# Update the on-screen marker.
        if {$track_enable} {
	    send wcsbox "set text \{$text\}; redraw noerase"
	}

	# Update the control panel readout (always done).
	if {$wcsLabels} {
	    set ln [format "   X: %12s     Y: %12s  WCS: Display" $nx $ny]
	} else {
	    set ln [format "      %12s        %12s       Display" $nx $ny]
	}
	send wtWcs1 set string $ln

	if {$redraw_compass} \
	    drawCompass
    }


    # Update the cut-plots if enabled.  If we're set for speed the don't 
    # track the really large cursor motions, wait till the differences are
    # small indicating a finer motion. 
    if {$doHcut || $doVcut} {
	set dist [ expr "sqrt(pow(($last_x - $x),2) + pow(($last_y - $y),2))" ]
	if {($plotSpeed && $dist < 30) || ! $plotSpeed} {
	    cutPlots $x $y
	}
    }

    # Save the position so we can track differences with last position.
    set last_x 	$x
    set last_y 	$y
}


proc setTrack {state} \
{
    global ism_enable track_enable wcsboxGeom
    global winWidth winHeight up_todo

    if {$state} {
	if {$track_enable} \
	    return

	send imagewin createMarker wcsbox {
	    type		text
	    createMode		noninteractive
	    width		27ch
	    height		1ch
	    lineWidth		0
	    imageText		true
	    textBgColor		black
	    textColor		yellow
	    visible		false
	}

	set box_width [send wcsbox get width]
	set box_height [send wcsbox get height]
	set defGeom [format "%sx%s-5-5" $box_width $box_height]
	send imagewin parseGeometry $wcsboxGeom $defGeom x y width height

	send wcsbox setAttributes    \
	    x			$x   \
	    y			$y   \
	    activated		true \
	    visible		true \
	    sensitive		true

	send wcsbox {
	    addCallback wcsboxDestroyCallback destroy
	    addCallback wcsboxMoved moveResize
	}

	send imagewin addCallback wcsboxWindowResize resize
	set track_enable 1
	send imagewin getCursorPos x y
	wcsUpdate $x $y
	magnifierMapImage $x $y

	# Turn on the option toggles on the control panel.
	foreach n {1 2 3 4} { 
	    if {[send sysWcs$n get label] != "None"} {
	        send wiWcs$n set on True
	    }
	}
	if {$ism_enable} {
	    resizeCoordsBox $up_todo
	}

    } elseif {$track_enable} {
	set track_enable 0
	send wcsbox destroy

	# Turn off the option toggles on the control panel.
	foreach w {wiWcs1 wiWcs2 wiWcs3 wiWcs4} { send $w set on False }
	resizeCoordsBox 0
    }
    updateCoordsBox
}

proc wcsboxDestroyCallback args \
{
    global track_enable
    send imagewin deleteCallback wcsboxWindowResize
    set track_enable 0
}

# If the window is resized make the wcsbox track the corner.
proc wcsboxWindowResize args \
{
    global track_enable
    global wcsboxGeom

    if {$track_enable} {
	# Get new location.
	set box_width [send wcsbox get width]
	set box_height [send wcsbox get height]
	set defGeom [format "%sx%s-5-5" $box_width $box_height]
	send imagewin parseGeometry $wcsboxGeom $defGeom x y width height

	# Move the marker.
	send wcsbox "\
	    deleteCallback wcsboxMoved; \
	    markpos; setAttributes x $x y $y; redraw; \
	    addCallback wcsboxMoved moveResize"
        set wcsboxGeom [send imagewin getGeometry $x $y $width $height]
    }
}

proc wcsboxMoved {marker event position} \
{
    global wcsboxGeom
    send wcsbox getRect boundary x y width height
    set wcsboxGeom [send imagewin getGeometry $x $y $width $height]
}

proc resetWcsbox {param old new} \
{
    global track_enable wcsboxGeom displayCoords
    if {$new == "done"} {
	setTrack [true $displayCoords]
    } elseif {$track_enable} {
	setTrack 0
	if {$new == "restart"} {
	    set wcsboxGeom -5-5
	}
    }
}; send initialize addCallback resetWcsbox



#---------------------
# FRAME BLINK.
#---------------------
set blinkId 0
set blinkIndex 0

proc toggleBlink args \
{
    global blinkId blinkRate blinkIndex
    global optionsMenuDescription

    if {$blinkId} {
	deleteTimedCallback $blinkId
	set blinkId 0
    } else {
	set blinkId [postTimedCallback blink [expr int($blinkRate * 1000)]]
    }

    set blinkIndex 0
    editMenu optionsMenu viewButton $optionsMenuDescription
}

proc blink args \
{
    global blinkId blinkRate blinkFrames blinkIndex

    send client setFrame [lindex $blinkFrames $blinkIndex]
    incr blinkIndex
    if {$blinkIndex >= [llength $blinkFrames]} {
	set blinkIndex 0
    }

    set blinkId [postTimedCallback blink [expr int($blinkRate * 1000)]]
}

proc resetBlink args \
{
    global blinkId
    if {$blinkId} \
	toggleBlink
}; send initialize addCallback resetBlink



# Normalize -- Reset the view parameters for the current frame.
proc normalize args \
{
    global zoomindex zoomfactor
    global frameWidth frameHeight
    global xcen ycen frame

    #set zoomindex($frame) 0
    #set xcen [expr $frameWidth / 2]
    #set ycen [expr $frameHeight / 2]
    #send client zoom 1 1 $xcen $ycen
    send client windowColormap 0.5 1.0
}


# Popdown menus.
createMenu fileMenu fileButton {
    {	"Info"		f.exec { panelTabToggle info_panel 	} }
    {	"Load"		f.exec {
			    panelTabToggle load_panel
	    		    set panel_up 1
			}					  }
    {	"Save"		f.exec { Save 				} }
    {	"Save As..."	f.exec { panelTabToggle save_panel 	} }
    {	"Print"		f.exec { 
			    send imagewin setCursorType busy
			    Print
			    send imagewin setCursorType idle
			}					  }
    {	"Print Setup"	f.exec { panelTabToggle print_panel 	} }
    {			f.dblline				  }
    {	"Reset"		f.exec {
			    # Do a hard reset.
			    send client Reset
			    #resetView initialize done done
			}					  }
    {	"Quit"		f.exec { Quit				} }
}

createMenu viewMenu viewButton {
    {	"Next frame"	f.exec nextFrame		}
    {	"Prev frame"	f.exec prevFrame		}
    {			f.dblline			}
    {	"Colormap"	f.menu cmapMenu			}
    {	"Flip"		f.menu flipMenu			}
    {			f.dblline			}
    {	"Equal aspect"	f.exec {
			    set xmag $frameZoomX($frame)
			    set ymag $frameZoomY($frame)
			    set zoom [expr ($xmag + $ymag) / 2.0]
			    cpZoom $zoom $zoom fixed
			}				}
    {	"Integer zoom"	f.exec {
			    set xmag [expr round ($frameZoomX($frame))]
			    set ymag [expr round ($frameZoomY($frame))]
			    cpZoom $xmag $ymag fixed
			}				}
    {	"Toggle zoom"	f.exec toggleZoom		}
    {	"Unzoom"	f.exec {
			    set zoomindex($frame) 0
			    set mag $zoomfactor($zoomindex($frame))
			    send client zoom $mag $mag $xcen $ycen
			}				}
}

createMenu cmapMenu viewMenu {
    {	"Normalize"	f.exec normalize	}
    {	"Invert"	f.exec cpInvert		}
    {	"Optimize"	f.exec cpOptimize	sensitive false }
    {			f.dblline		}
    {	"Grayscale"	f.exec "send client setColormap Grayscale" }
    {	"Color"		f.exec "send client setColormap Color" }
    {	"Heat"		f.exec "send client setColormap Heat" }
    {	"HSV"		f.exec "send client setColormap HSV" }
    {	"AIPS0"		f.exec "send client setColormap AIPS0" }
    {	"Halley"	f.exec "send client setColormap Halley" }
    {	"Ramp"		f.exec "send client setColormap Ramp" }
    {	"Standard"	f.exec "send client setColormap Standard" }
    {	"Staircase"	f.exec "send client setColormap Staircase" }
    {	"Rainbow1"	f.exec "send client setColormap Rainbow1" }
    {	"Rainbow2"	f.exec "send client setColormap Rainbow2" }
    {	"Random8"	f.exec "send client setColormap Random8" }
}

createMenu flipMenu viewMenu {
    {	"Flip X"	f.exec xflip		}
    {	"Flip Y"	f.exec yflip		}
    {	"Flip XY"	f.exec xyflip		}
}

set optionsMenuDescription {
    {	"Autoscale"	f.exec {
			    set value [send autoscaleButton get on]
			    send autoscaleButton set on [expr !$value]
			    cpSetAutoscale
			}			}
    {	"Antialias"	f.exec {
			    set value [send antialiasButton get on]
			    send antialiasButton set on [expr !$value]
			    cpSetAntialias
			}			}
    {	"Panner"	f.exec { setPanner [expr !$panner_enable] }	}
    {	"Magnifier"	f.exec { setMagnifier [expr !$magnifier_enable] }}
    {	"Coords box"	f.exec { setTrack [expr !$track_enable] }	}
    {	"Tile frames"	f.exec {
			    set value [send tileFramesButton get on]
			    send tileFramesButton set on [expr !$value]
			    cpSetTileFrames
			}			}
    {	"Clear frame"	f.exec clearFrame	}
    {	"Fit frame"	f.exec fitFrame		}
    {	"Match LUTs"	f.exec cpMatchFrames	}
    {	"Auto-Register"	f.exec cpAutoRegister	}
    {	"Register"	f.exec cpRegisterFrames	}
    {	{$blinkId ? "Stop blink" : "Blink frames"}
			f.exec toggleBlink	}
    {			f.dblline		}
    {   "Control Panel"	f.exec  { panelTabToggle display_panel	} }
    {   "Print Panel"	f.exec  { panelTabToggle print_panel	} }
    {   "Load Panel"	f.exec  { panelTabToggle load_panel	} }
    {   "Save Panel"	f.exec  { panelTabToggle save_panel	} }
}; createMenu optionsMenu optionsButton $optionsMenuDescription



#-------------------------------
# Frozen Cursor Warning Message
#-------------------------------

set ct_warn	0

proc curtrack_msg { x y args } \
{
    global ct_warn last_x last_y winHeight winWidth


    if {! $ct_warn == 0} {
	return
    }
        
    send imagewin createMarker curtrack_warn {
        type                text
        createMode          noninteractive
        width               25ch
        height              21
        lineWidth           0
        imageText           true
        textBgColor         red
        textColor           yellow
        visible             true
        sensitive           true
        activated           true
	x		    5
	y		    5
    }

    send curtrack_warn "set text \{  CURSOR READOUT FROZEN  \}"
    set ypos [ expr ($winHeight - 25) ]
    send curtrack_warn "markpos; setAttributes x 5 y $ypos; redraw"
    send curtrack_warn "redraw noerase"
    set ct_warn 1

    # Mark the position of the cursor.
    send imagewin createMarker x_curpos \
        type            box \
        createMode      noninteractive \
        lineColor       red \
        x               1 \
        y               $last_y \
        width           $winWidth \
        height          1 \
        activated       True \
        visible         True \
        sensitive       False

    send imagewin createMarker y_curpos \
        type            box \
        createMode      noninteractive \
        lineColor       red \
        x               $last_x \
        y               1 \
        width           1 \
        height          $winHeight \
        activated       True \
        visible         True \
        sensitive       False

    # Raise the coordinate marker so we can see where we are.
    send wcsbox raise
}


proc curtrack_destroy args \
{
    global ct_warn

    if {$ct_warn} {
	send curtrack_warn destroy
	send x_curpos destroy
	send y_curpos destroy
	set ct_warn 0
    }
}

################################################################################
# CURSOR CENTEROID AND AUTO-REGISTER FUNCTIONS.
################################################################################

# Set the centroiding box size.
set ctid	0
set cid		0

proc cbxDestroy args \
{
    global centerBoxSize cid ctid
    catch { 
	if {$ctid != 0} {
	    send cbm$cid destroy 
	    deleteTimedCallback $ctid
	    set ctid 0
	}
    }
}

proc setCtrBoxSize { x y delta args } \
{
    global centerBoxSize cid ctid
    global cpXscale cpYscale

    incr centerBoxSize $delta
    if {$centerBoxSize <= 1} { set centerBoxSize 1 }

    # Kill off any old markers before drawing the new one.
    catch { 
	if {$ctid != 0} {
	    send cbm$cid destroy 
	    deleteTimedCallback $ctid
	    set ctid 0
	}
    }

    # create a transient marker indicating the centering box and post a
    # callback to delete it in about a second.
    incr cid
    send imagewin createMarker cbm$cid \
	type            box \
	createMode      noninteractive \
	lineColor       red \
	x               $x \
	y               $y \
	width           [expr $cpXscale * $centerBoxSize] \
	height          [expr $cpXscale * $centerBoxSize] \
	activated       True \
	visible         True \
	sensitive       False

    set ctid [ postTimedCallback cbxDestroy 500]
}


# Compute a centroid offset for the current position to peak-up on the
# feature.

proc centroid { x y type args } \
{
    global centerBoxSize
    global cpXscale cpYscale

    # Convert to image coords.
    set sz [expr "int ($centerBoxSize * $cpXscale)"]

    # Get the centroid position.
    if {$type != "min"} {
        if {[send peakupButton get on]} {
            set center [ send client centroid $x $y $sz ]
        } else {
            set center [ send client centroid $x $y $sz max ]
        }
    } else {
        set center [ send client centroid $x $y $sz min ]
    }

    # Now reposition the cursor.
    set xoff [lindex $center 0 ]
    set yoff [lindex $center 1 ]
    move_cursor $xoff $yoff
}


# Set the auto-register center offset position
proc offset { x y args } \
{
    global frame blinkFrames auto_reg
    global frameCenterX frameCenterY
    global frameOffsetX frameOffsetY

    # No-op of auto-register isn't on.
    if { $auto_reg == 0 } {
	Wexec client "Auto-Register is not enabled!"
	return
    }

    # If we're not in the blink frames list ignore the request.
    if { [string first $frame $blinkFrames] == -1 } {
	Wexec client "Frame not in current\nregister list."
	return
    }

    set rx $x;  set ry $y
    set raster 0

    # Convert raw screen coordinates to frame buffer raster coordinates.
    send imagewin unmapPixel $x $y raster rx ry

    # Select a pixel.
    set xoff  [expr "int ($rx) - $frameCenterX($frame)" ]
    set yoff  [expr "int ($ry) - $frameCenterY($frame)" ]

    set frameOffsetX($frame)  $xoff
    set frameOffsetY($frame)  $yoff

    # Adjust the display.
    send client setOffset $xoff $yoff
}



################################################################################
# MAIN CONTROL PANEL
################################################################################


# Global control panel buttons.
# -------------------------------
proc cpInitialize args \
{
    send imagewin setCursorType busy
    send client initialize
    send imagewin setCursorType idle
}
send initializeButton 	addCallback cpInitialize
send normalizeButton 	addCallback normalize

# Temporarily deactivate some buttons.
send optimizeButton setSensitive false

#-----------------------------------------------------------------------------

foreach i $frames {set saveView($i) "1 1"}

send prevFrame 		set bitmap larrow
send nextFrame 		set bitmap rarrow
send contrastLabel	set bitmap contrast
send brightnessLabel	set bitmap brightness
send contrastSlider	resizeThumb 0.1 1.0
send brightnessSlider	resizeThumb 0.1 1.0


# panel -- Toggle control panel display.
proc panel args \
{
    global panel_up
    if {$panel_up} {
	send panelShell unmap
	set panel_up 0
    } else {
	send panelShell map
	set panel_up 1
    }
}

proc pbTracePanel {name element op} \
{
    catch {
        upvar $name panel_up
        send controlButton set state $panel_up
    }
} ; trace variable panel_up w pbTracePanel


# resetPanel -- Calling during startup or in an initialize, to reset things.
proc resetPanel {param old new} \
{
    global frame nframes frames
    global displayPanner displayMagnifier displayCoords
    global blinkFrames warnings peakCentroid

    switch $new {
    startup	{
		}
    restart	{   foreach i $frames {
			send frame$frame set on 0
		    }

		    # Initialize to hide the extra frames.
		    send frlistBox set width 30
		}
    done	{   if {$frame} {
			send frame$frame set on 1
		    }

		    cpResetBlink
		    set button 1
		    foreach i {1 2 3 4} {
			send blinkFrame$button set label $i
			incr button
		    }
		    for {set i 1} {$i <= 16} {incr i} {
			send brFrame$i set label $i
		    }

		    cpResetEnhance
		    send pannerButton set on [true $displayPanner]
		    send magnifierButton set on [true $displayMagnifier]
		    send coordsBoxButton set on [true $displayCoords]
		    send warningsButton set on $warnings
		    send peakupButton set on [true $peakCentroid]
		}
    }
}; send initialize addCallback resetPanel



#  Control Panel Tabs widget procedures.
#----------------------------------------

set cpTabs   { display_panel print_panel load_panel save_panel \
	       info_panel wcs_panel tile_panel}
set tabTop   "display_panel"


# Resize the control panel depending on the Tab selected.
proc cpResizeCB { widget event a b c d e args } \
{
    global tabTop fileList

    # Handle only the first exposure event generated.
    if { $a == 0 && $b == 0 && $c == 0 && $d == 0 && $e == 0 } {
	set tabTop $widget

	switch $widget {
	display_panel   { send panel set height 595 }
	print_panel     { send panel set height 545 }
	load_panel      { send panel set height 485 
			  if { [send browseHdrs get on] } {
			      send imageList setList $fileList resize
			  } else {
        		      send client setLoadOption rescan
			  }
        		}
	save_panel      { send panel set height 325 }
	info_panel      { send panel set height 380 }
	tile_panel      { send panel set height 405 }
	wcs_panel       { setCoordPanelHeight	    }
	}
    }
} ; foreach w $cpTabs {  send $w addEventHandler cpResizeCB exposureMask }


proc panelDismiss args \
{
    global panel_up
    send panelShell unmap
    set panel_up 0
} ; send panelClose addCallback panelDismiss


proc panelTabToggle { panel args } \
{
    global tabTop panel_up

    if {$tabTop == $panel && $panel_up} {
	send panelShell unmap
	send $widget set state 0
	set panel_up 0
	return
    }

    # Special cases for each panel.
    if {$panel == "load_panel"} {
        send client setLoadOption rescan
    }

    send panelTabs setTop $panel
    set tabTop $panel

    # Now fire it up if it's not already open.
    if {$panel_up == 0} {
	send panelShell map
	set panel_up 1
    }
}

proc displayPanel args  { panelTabToggle display_panel }
proc infoPanel args     { panelTabToggle info_panel    }
proc loadPanel args     { panelTabToggle load_panel    }
proc savePanel args     { panelTabToggle save_panel    }
proc printPanel args    { panelTabToggle print_panel   }
proc tilePanel args     { panelTabToggle tile_panel    }
proc wcsPanel args      { panelTabToggle wcs_panel     }




# Frame selection.
# -------------------------------
proc cpSetFrame {widget args} \
{
    send $widget set on 0
    send client setFrame [send $widget get label]
}

proc cpFrameChanged {param old new} \
{
    global frameCache

    if {$old > 0} {
	send frame$old set on 0
    }
    if {$new > 0} {
	send frame$new set on 1
    }

    # The first time we request frame 5 or higher reset 
    # the extra frame buttons on the control panel to make
    # them visible.
    if {$new >= 5} {
	send frlistBox set width 49
    }

    # Update the header panel object list.
    catch {
        if {[info exists frameCache($new)]} {
            setHdrObjMenu $new
            getHeader [lindex $frameCache($new) 0] [lindex $frameCache($new) 1]
        }
    }
}

send prevFrame addCallback prevFrame
send nextFrame addCallback nextFrame
send frame addCallback cpFrameChanged
for {set i 1} {$i <= 16} {incr i} {send frame$i addCallback cpSetFrame}

# Initialize to hide the extra frames.
send frlistBox  set width 30

proc blinkPanelCB { widget type state args } \
{
    if {$state} {
	send blink_panel map
    } else {
	send blink_panel unmap
    }
} ; send blinkPanel addCallback blinkPanelCB

proc blinkPanelClose args \
{
    send blink_panel unmap
    send blinkPanel set state 0
} ; send brClose addCallback blinkPanelClose



# Frame buttons.
proc cpFrameAction {widget args} \
{
    global frameZoomX frameZoomY frame
    switch $widget {
    aspect	{   set xmag $frameZoomX($frame)
		    set ymag $frameZoomY($frame)
		    set zoom [expr round (($xmag + $ymag) / 2.0)]
		    cpZoom $zoom $zoom fixed
		}
    flipX	{   send client flip x }
    flipY	{   send client flip y }
    flipXY	{   send client flip x y }
    clearFrame	{   clearFrame }
    fitFrame	{   fitFrame }
    }
}
foreach widget {aspect flipX flipY flipXY clearFrame fitFrame} {
    send $widget addCallback cpFrameAction
}

# clearFrame -- Clear the current display frame.
proc clearFrame	args \
{
    global warnings
    if {$warnings} {
	Wexec client \
	    "Clearing the frame will destroy\n\
	    all data in the frame" \
	    clearFrame
    } else {
	send client clearFrame
    }
}

# fitFrame -- Resize the display window to fit the frame buffer.
proc fitFrame args \
{
    global frameWidth frameHeight winWidth winHeight
    set dw [expr [send display get width] - $winWidth]
    set dh [expr [send display get height] - $winHeight]
    send display "resize [expr $frameWidth + $dw] [expr $frameHeight + $dh]"
}

proc initFitFrame { param old new } \
{
    if { [lindex $new 0] == "resize"} {
	fitFrame
    }
    pannerMapImage init
}; send frameFit addCallback initFitFrame



# Zoom and pan buttons.
# -------------------------------
proc cpZoomAction {widget args} \
{
    global frameWidth frameHeight

    switch $widget {
    x1		{   cpZoom 1 1 fixed }
    z2		{   cpZoom 2 2 fixed }
    z3		{   cpZoom 3 3 fixed }
    z4		{   cpZoom 4 4 fixed }
    z5		{   cpZoom 5 5 fixed }
    z8		{   cpZoom 8 8 fixed }

    d2		{   cpZoom [expr 1.0/2] [expr 1.0/2] fixed }
    d3		{   cpZoom [expr 1.0/3] [expr 1.0/3] fixed }
    d4		{   cpZoom [expr 1.0/4] [expr 1.0/4] fixed }
    d5		{   cpZoom [expr 1.0/5] [expr 1.0/5] fixed }
    d8		{   cpZoom [expr 1.0/8] [expr 1.0/8] fixed }

    zoomIn	{   cpZoom 2.0 2.0 relative }
    zoomOut	{   cpZoom 0.5 0.5 relative }

    centerFrame	{   send client pan \
			[expr $frameWidth/2.0] \
			[expr $frameHeight/2.0]
		}
    toggleZoom	{   toggleZoom }
    }
}

proc cpZoom {zoom_x zoom_y mode} \
{
    global frameZoomX frameZoomY zoomindex frame
    global frameOffsetX frameOffsetY frameCenterX frameCenterY

    if {$mode == "fixed"} {
	#send client zoom $zoom_x $zoom_y
	send client zoomAbs $zoom_x $zoom_y \
	    $frameCenterX($frame) $frameCenterY($frame) \
	    $frameOffsetX($frame) $frameOffsetY($frame)
    } else {
	#send client zoom \
	#    [expr $frameZoomX($frame) * $zoom_x] \
	#    [expr $frameZoomY($frame) * $zoom_y]
	send client zoomAbs \
	    [expr $frameZoomX($frame) * $zoom_x] \
	    [expr $frameZoomY($frame) * $zoom_y] \
	    $frameCenterX($frame) $frameCenterY($frame) \
	    $frameOffsetX($frame) $frameOffsetY($frame)
    }

    set zoomindex($frame) 0
}

proc toggleZoom	args \
{
    global frameZoomX frameZoomY frameCenterX frameCenterY
    global frameWidth frameHeight saveView frame

    if {$frameZoomX($frame) != 1 && $frameZoomY($frame) != 1} {
	set saveView($frame) \
	    "$frameZoomX($frame) $frameZoomY($frame) \
	     $frameCenterX($frame) $frameCenterY($frame)"
	send client zoom 1 1 \
	    [expr $frameWidth/2.0] \
	    [expr $frameHeight/2.0]
    } else {
	send client zoom $saveView($frame)
    }
}

foreach widget { toggleZoom centerFrame zoomIn zoomOut \
	x1  z2 z3 z4 z5 z8  d2 d3 d4 d5 d8  } {
    send $widget addCallback cpZoomAction
}

# Frame data display.
# -------------------------------
set cpFrame  0
set cpXcen   0
set cpYcen   0
set cpXmag   0
set cpYmag   0
set cpXscale 0
set cpYscale 0
set cpXoff   0
set cpYoff   0

proc cpDisplayFrameData {name old new} \
{
    global cpFrame cpXcen cpYcen cpXoff cpYoff
    global cpXmag cpYmag cpXscale cpYscale

    set update 0
    switch $name {
    frame	{   if {$new != $cpFrame} {
			set cpFrame $new
			set update 1
		    }
		}
    frameView	{   # Parse the frameView input.
		    set xmag  [lindex $new 0]; set ymag  [lindex $new 1]
		    set xcen  [lindex $new 2]; set ycen  [lindex $new 3]
		    set xnorm [lindex $new 4]; set ynorm [lindex $new 5]
		    set xoff  [lindex $new 6]; set yoff  [lindex $new 7]

		    # We need client coords and the overall scale factors.
		    set text [send client encodewcs $xcen $ycen]
		    set xcen [lindex $text 0]
		    set ycen [lindex $text 1]
		    set xscale [expr $xmag * $xnorm]
		    set yscale [expr $ymag * $ynorm]

		    if {$xcen != $cpXcen || $ycen != $cpYcen ||
			$xmag != $cpXmag || $ymag != $cpYmag ||
			$xoff != $cpXoff || $yoff != $cpYoff ||
			$xscale != $cpXscale || $yscale != $cpYscale} {

			    set cpXcen $xcen;  set cpXscale $xscale
			    set cpYcen $ycen;  set cpYscale $yscale
			    set cpXmag $xmag;  set cpXoff   $xoff;  
			    set cpYmag $ymag;  set cpYoff   $yoff;
			    set update 1
		    }
		}
    }

    if {$update} {
	set header [format "-- Frame %d --" $cpFrame]
	set center [format "X center: %0.1f\nY center: %0.1f" $cpXcen $cpYcen]
	if {int($cpXmag) >= 10} {
	    set zoom1 [format " X zoom: %0.1f" $cpXmag]
	    set zoom2 [format " Y zoom: %0.1f" $cpYmag]
	} else {
	    set zoom1 [format "X zoom: %0.1f" $cpXmag]
	    set zoom2 [format "Y zoom: %0.1f" $cpYmag]
	}
	if {int($cpXscale) >= 10} {
	    set scale1 [format "X scale: %0.1f" $cpXscale]
	    set scale2 [format "Y scale: %0.1f" $cpYscale]
	} else {
	    set scale1 [format "X scale: %0.2f" $cpXscale]
	    set scale2 [format "Y scale: %0.2f" $cpYscale]
	}
	set offset [format "  Offset: (%0.1f,%0.1f)" $cpXoff $cpYoff]

	send frameData set label [format "%s\n%s\n%s\n%s\n%s\n%s\n%s" \
	    $header $center $scale1 $scale2 $zoom1 $zoom2 $offset \
	]
    }
}; foreach p {frame frameView} {send $p addCallback cpDisplayFrameData}


# Frame enhancement.
# -------------------------------
set cpEnhanceDisable 0
set cpEnhanceId 0
set cpEnhanceMode none
set cpEnhanceVal 0
set cpListItem none

# Windowing the colormap is slow when the mouse is not in the image window,
# so it is necessary to execute the windowColormap in a work procedure.
# This allows any number of slider motion events to be processed for each
# windowColormap, preventing slider events from queueing up.

proc cpResetEnhance args \
{
    global cpListItem cpEnhanceId
    set cpListItem none
    set cpEnhanceId 0
}

proc cpSetEnhancement {widget cbtype x y} \
{
    global cpEnhanceMode cpEnhanceVal cpEnhanceId cpEnhanceDisable
    set cpEnhanceMode $widget
    set cpEnhanceVal $x
    if {!$cpEnhanceId && !$cpEnhanceDisable} {
	set cpEnhanceId [postWorkProc cpEnhanceProc]
    }
}
proc cpEnhanceProc args \
{
    global cpEnhanceMode cpEnhanceVal cpEnhanceId
    global enhancement frame maxContrast
    set val $cpEnhanceVal

    if {$cpEnhanceMode == "contrastSlider"} {
	set contrast [lindex $enhancement($frame) 2]
	send client windowColormap [lindex $enhancement($frame) 1] \
	    [expr (($contrast < 0) ? -$val : $val) * $maxContrast] 
    } else {
	send client windowColormap $val
    }

    set cpEnhanceId 0
    return done
}

proc cpInvert args \
{
    global enhancement frame
    set contrast [lindex $enhancement($frame) 2]
    send client windowColormap [lindex $enhancement($frame) 1] \
	[expr -1.0 * $contrast]
}

proc cpDisplayEnhancement {param old new} \
{
    global cpEnhanceId maxContrast cpEnhanceDisable
    global cpListItem enhancement frame

    if {!$frame} \
	return
    set enhance $enhancement($frame)
    if {[llength $enhance] < 3} \
	return

    set colortable [lindex $enhance 0]
    set offset     [lindex $enhance 1]
    set scale      [lindex $enhance 2]

    send colordata set label [format "-- %s --\nCon %0.2f  Brt %0.2f" \
	$colortable $scale $offset]

    if {$colortable != $cpListItem} {
	send colorlist highlight $colortable
	set cpListItem $colortable
    }

    if {!$cpEnhanceId && !$cpEnhanceDisable} {
	set cpEnhanceDisable 1
	send contrastSlider moveThumb [expr abs($scale) / $maxContrast]
	send brightnessSlider moveThumb $offset
	set cpEnhanceDisable 0
    }
}

foreach i {enhancement frame} {
    send $i addCallback cpDisplayEnhancement
}
send contrastSlider addCallback cpSetEnhancement scroll
send brightnessSlider addCallback cpSetEnhancement scroll
send invertButton addCallback cpInvert


# Colortable display and selection.
# -------------------------------
set colorTables	   {}

proc cpSetColorList {param old new} \
{
    set colorTables $new
    send colorlist setList $new resize
}; send colortables addCallback cpSetColorList

proc colorlistResize args \
{
    global colorTables
    send colorlist setList $colorTables resize
}; send colorlist addEventHandler colorlistResize ResizeRedirectMask

proc cpSelectColor {widget cbtype selections indices} \
{
    global colortable
    foreach selection $selections {
	send client setColormap $selection
    }
}; send colorlist addCallback cpSelectColor
    

# Frame blink.
# -------------------------------
send BRtext   set label $blinkRate
send brBRtext set label $blinkRate

proc cpSetBlinkRate {w args} \
{
    global blinkRate
    if {$w == "BRincrease" || $w == "brBRincrease"} {
	if {$blinkRate < 0.01} {
	    set blinkRate 0.125
	} else {
	    set blinkRate [expr $blinkRate * 2.0]
	}
    } else {
	set blinkRate [expr $blinkRate / 2.0]
	if {$blinkRate < 0.01} {
	    set blinkRate 0
	}
    }
    send BRtext   set label $blinkRate
    send brBRtext set label $blinkRate
}
foreach w {BRincrease BRdecrease brBRincrease brBRdecrease} {
    send $w addCallback cpSetBlinkRate
}

proc cpSetBlinkFrame {widget args} \
{
    global blinkFrames frames nframes

    set frame [send $widget get label]
    if {$frame == " "} {
	set frame 1
    } else {
	incr frame
	if {$frame > $nframes} {
	    set frame " "
	}
    }
    send $widget set label $frame

    set blinkFrames {}
    foreach i {1 2 3 4} {
	set frame [send blinkFrame$i get label]
	if {$frame != " "} {
	    lappend blinkFrames $frame
	}
    }
}; foreach i {1 2 3 4} {send blinkFrame$i addCallback cpSetBlinkFrame}

proc cpBlink {widget args} \
{
    global blinkRate blinkId

    if {$blinkRate < 0.01} {
	send blinkButton set on False
	send brBlinkButton set on False
	blink
    } elseif {($blinkId != 0) != [send $widget get on]} {
	toggleBlink
    }
} ; foreach w {blinkButton brBlinkButton} {send $w addCallback cpBlink}


proc cpAutoRegister {widget type state args} \
{
    global auto_reg frame frames blinkFrames
    global frameZoomX frameZoomY frameOffsetX frameOffsetY

    set auto_reg $state
    if {$auto_reg == 1} {
	send autoregButton set on True
	send brAregButton set on True
    } else {
	send autoregButton set on False
	send brAregButton set on False
    }

    # Register the frames to zero the offsets.
    send client registerFrames \{$blinkFrames\}
    foreach f $frames {
	set frameOffsetX($f) 0
	set frameOffsetY($f) 0
    }
} ; foreach w {autoregButton brAregButton} {send $w addCallback cpAutoRegister}


proc toggleAutoReg args \
{
    global auto_reg
    if {$auto_reg} {
	cpAutoRegister autoregButton dummy 0 
	set auto_reg 0
    } else {
	cpAutoRegister autoregButton dummy 1 
	set auto_reg 1
    }
}

proc resetAutoReg args \
{
    global auto_reg
    if {$auto_reg} \
	toggleAutoReg
}; send initialize addCallback resetAutoReg


proc cpResetBlink args \
{
    global blinkRate blinkFrames blinkIndex frames
    global defaultBlinkRate

    foreach i {1 2 3 4} {
	send blinkFrame$i set label " "
    }
    for {set i 1} {$i <= 16} {incr i} {
	send brFrame$i set label $i
    }
    set blinkRate $defaultBlinkRate
    send BRtext   set label $blinkRate
    send brBRtext set label $blinkRate
    set blinkIndex 0
} 
send blinkReset addCallback cpResetBlink
send brReset    addCallback cpResetBlink

proc cpTraceBlink {name element op} \
{
    upvar $name blinkId
    send blinkButton set on [expr $blinkId != 0]
    send brBlinkButton set on [expr $blinkId != 0]
}; trace variable blinkId w cpTraceBlink

proc cpSetBlinkFrames {param old new} \
{
    global blinkFrames frames

    set blinkFrames {}
    foreach i $frames {
	if {$i <= $new} {
	    lappend blinkFrames $i
	}
    }
    cpResetBlink
    set button 1
    for {set i 1} {$i <= $new} {incr i} {
	if {$i <= 4} {
	    send blinkFrame$button set label $i
	}
	send brFrame$button set label $i
	incr button
    }
}; send nframes addCallback cpSetBlinkFrames

proc cpRegisterFrames args \
{
    global frames blinkFrames
    global frameOffsetX frameOffsetY

    foreach f $frames {
	set frameOffsetX($f)  0
	set frameOffsetY($f)  0
    }
    send client registerFrames \{$blinkFrames\}
}
send registerButton addCallback cpRegisterFrames
send brRegButton    addCallback cpRegisterFrames

proc cpMatchFrames args \
{
    global blinkFrames
    send client matchFrames \{$blinkFrames\}
}
send matchButton   addCallback cpMatchFrames
send brMatchButton addCallback cpMatchFrames


# Options buttons.
# -------------------------------
proc cpSetPanner {widget args} \
{
    setPanner [send $widget get on]
}; send pannerButton addCallback cpSetPanner

proc cpTracePanner {name element op} \
{
    upvar $name panner_enable
    send pannerButton set on $panner_enable
}; trace variable panner_enable w cpTracePanner

proc cpSetMagnifier {widget args} \
{
    setMagnifier [send $widget get on]
}; send magnifierButton addCallback cpSetMagnifier

proc cpTraceMagnifier {name element op} \
{
    upvar $name magnifier_enable
    send magnifierButton set on $magnifier_enable
}; trace variable magnifier_enable w cpTraceMagnifier

proc cpSetCoordsBox {widget args} \
{
    setTrack [send $widget get on]
}; send coordsBoxButton addCallback cpSetCoordsBox

proc cpTraceCoordsBox {name element op} \
{
    upvar $name track_enable
    send coordsBoxButton set on $track_enable
}; trace variable track_enable w cpTraceCoordsBox

proc cpSetWarnings args \
{
    global warnings
    set warnings [send warningsButton get on]
}; send warningsButton addCallback cpSetWarnings

proc cpSetAutoscale args \
{
    set value [send autoscaleButton get on]
    send client setOption autoscale [expr {$value ? "True" : "False"}]
}; send autoscaleButton addCallback cpSetAutoscale

proc cpTrackAutoscale {param old new} \
{
    send autoscaleButton set on [true $new]
}; send autoscale addCallback cpTrackAutoscale

proc cpSetAntialias args \
{
    set value [send antialiasButton get on]
    send client setOption antialias [expr {$value ? "True" : "False"}]
}; send antialiasButton addCallback cpSetAntialias

proc cpTrackAntialias {param old new} \
{
    send antialiasButton set on [true $new]
}; send antialias addCallback cpTrackAntialias

proc cpSetTileFrames { widget type state args } \
{
    global tile_frames tileOpt

    set value [send tileFramesButton get on]
    if {$value} {
        selectTileOrientation junk junk [tileSelToLabel $tileOpt]
    } else {
        selectTileOrientation junk junk Disabled
    }
   send client setOption tileFrames \
	[expr {$value ? "True" : "False"}] \{ $tile_frames \}
} ; send tileFramesButton addCallback cpSetTileFrames

proc cpTrackTileFrames {param old new} \
{
    send tileFramesButton set on [true $new]
}; send tileFrames addCallback cpTrackTileFrames

proc tileFramesToggle args \
{
    set value [send tileFramesButton get on]
    send tileFramesButton set on [expr !$value]
    cpSetTileFrames
}


################################################################################
# MAGNIFIER.  A subraster around the cursor in the main image window is
# displayed at a high resolution in a marker (known as the magnifier window)
# within the main image window.
################################################################################

set magnifier_x 0
set magnifier_y 0
set magnifier_width 0
set magnifier_height 0
set mrm_width 0
set mrm_height 0

set magnifier_enable 0
set magnifier_mag_enable 0
set magnifier_mapping 0

createMenu magzoomMenu imagewin {
    {   "Zoom Factors"        	f.title                         }
    {                           f.dblline                       }
    {   "Zoom 1"                f.exec "setMagnifierZoom 1"     }
    {   "Zoom 2"                f.exec "setMagnifierZoom 2"     }
    {   "Zoom 4"                f.exec "setMagnifierZoom 4"     }
    {   "Zoom 8"                f.exec "setMagnifierZoom 8"     }
    {   "Zoom 16"               f.exec "setMagnifierZoom 16"    }
} 

# Magnifier window translations.
set magnifierWinTranslations { \
       !Shift <Btn1Motion>:	m_rotateResize()
	      <Btn1Motion>:	m_moveResize()
	 !Shift <Btn1Down>:	m_raise() m_markpos()
		<Btn1Down>:	m_raise() m_markposAdd()
		  <Btn1Up>:	m_redraw() m_destroyNull()
		<Btn2Down>:	m_lower()
		<Btn3Down>:     popup(magzoomMenu)
		  <Btn3Up>:     popdown(magzoomMenu)
	      !Ctrl <Key>m:     call(toggleMagnifier)
	      !Ctrl <Key>p:     call(togglePanner)
	    <Key>BackSpace:	m_deleteDestroy()
	       <Key>Delete:	m_deleteDestroy()
		<KeyPress>:     graphics-input()
		  <Motion>:	track-cursor() call(wcsUpdate,$x,$y)
}


# setMagnifier -- Turn the magnifier on or off.

set magAlreadyOn	0

proc setDynamicMagnifier {state} \
{
    global magAlreadyOn magnifier_enable

    if {$state} {
	set magAlreadyOn $magnifier_enable
    }
    if {$magAlreadyOn} {
	return
    } else {
	setMagnifier $state
    }
}

proc toggleMagnifier args \
{
    global magnifier_enable
    if {$magnifier_enable} {
	setMagnifier 0
    } else {
	setMagnifier 1
    }
}


proc setMagnifier {state} \
{
    global winWidth winHeight frameWidth frameHeight
    global frame magnifier_mapping magnifierWinTranslations magnifierArea
    global magnifier_enable magnifier_height
    global magnifierGeom magnifier_x magnifier_y magnifier_width

    if {$state} {
	if {$magnifier_enable} \
	    return

	# Determine where to place the magnifier.
	set scale  [expr sqrt(double($magnifierArea) / (512 * 512))]
	set scaled_width [expr int(512 * $scale) / 2 * 2 + 1]
	set scaled_height [expr int(512 * $scale) / 2 * 2 + 1]
	set defGeom [format "%sx%s-5+5" $scaled_width $scaled_height]
	send imagewin parseGeometry $magnifierGeom $defGeom x y width height

	# Create the main magnifier window (marker).
	send imagewin createMarker magnifierWin \
	    type		rectangle \
	    createMode		noninteractive \
	    width		[expr $width / 2] \
	    height		[expr $height / 2] \
	    x			[expr $x + $width / 2] \
	    y			[expr $y + $height / 2] \
	    lineColor		8 \
	    highlightColor	8 \
	    translations	$magnifierWinTranslations \
	    visible		true \
	    sensitive		true \
	    activated		true

	# Update the magnifier window position variables so that it comes up
	# in the same place the next time.

	send magnifierWin getRect boundary \
	    magnifier_x magnifier_y magnifier_width magnifier_height
	set magnifierGeom [send imagewin getGeometry \
	    $magnifier_x $magnifier_y $magnifier_width $magnifier_height]

	# Register callbacks.
	send imagewin addCallback magnifierImagewinResized resize
	send resize addCallback magnifierImagewinResized
	send magnifierWin addCallback magnifierMovedMapImage moveResize

	send magnifierWin {
	    addCallback magnifierMoved moveResize;
	    addCallback magnifierDestroy destroy;
	    addCallback magnifierWinConstraint constraint;
	}

	# Map display frame to magnifier window.
	set magnifier_enable 1
	set magnifier_mapping [send imagewin nextMapping]
	send imagewin refreshMapping $magnifier_mapping

	# create cross-hair
	send imagewin createMarker magPointer \
		type                rectangle \
		createMode          noninteractive \
		width               3 \
		height              3 \
		lineWidth           3 \
		lineColor           green \
		highlightcolor      green \
		activated           true \
		visible             true

	# set its position and size
	setMagPointerPosition 
	magnifierMapImage [expr $winWidth / 2] [expr $winHeight / 2]

    } elseif {$magnifier_enable} {
	magnifierDestroy
    }
}


# magnifierDestroy -- Delete the magnifier.

proc magnifierDestroy args \
{
    global magnifier_enable 
    global magnifier_mapping

    if {$magnifier_enable} {
	set magnifier_enable 0

	send imagewin freeMapping $magnifier_mapping
	send imagewin deleteCallback magnifierImagewinResized
	send resize deleteCallback magnifierImagewinResized
	send frame deleteCallback magnifierMapImage

	if [send server queryObject magnifierWin] {
	    send magnifierWin destroy
	}
	if [send server queryObject magPointer] {
	    send magPointer destroy
	}  
    }
}


# magnifierMoved -- Called when the user moves the magnifier window.  We need to
# move the region marker to the new window location and record the new location
# so that the window will come up in the same place if closed and reopened.

proc magnifierMoved {marker event position} \
{
    global winWidth winHeight magnifierGeom frame 
    global magnifier_x magnifier_y magnifier_width magnifier_height

    # Move the region marker to the new location.
    send client getSource raster sx sy snx sny

    # Update the magnifier window position variables so that it comes up
    # in the same place the next time.

    send magnifierWin getRect boundary \
	magnifier_x magnifier_y magnifier_width magnifier_height
    set magnifierGeom [send imagewin getGeometry \
	$magnifier_x $magnifier_y $magnifier_width $magnifier_height]
}


# magnifierWinConstraint -- Called when the magnifier window is moved, resized,
# or rotated. Constrain the magnifier window to remain within the image window;
# rotation is not permitted.

proc magnifierWinConstraint {marker event attributes} \
{
    global winWidth winHeight
    global magnifier_width magnifier_height

    set width $magnifier_width
    set height $magnifier_height
    set constraints [list {}]

    # Check the width and height first as we need these below.
    foreach i $attributes {
	set new [lindex $i 2]
	switch [lindex $i 0] {
	    width	{   set ww [expr $winWidth / 2]
			    if {$new > $ww} {
				lappend constraints "width $ww"
				set width $ww
			    } else {
				set width $new
			    }
			}
	    height	{   set wh [expr $winHeight / 2]
			    if {$new > $wh} {
				lappend constraints "height $wh"
				set height $wh
			    } else {
				set height $new
			    }
			}
	    rotangle	{    lappend constraints "rotangle 0"
			}
	}
    }

    # Constrain X and Y.
    foreach i $attributes {
	set new [lindex $i 2]
	switch [lindex $i 0] {
	    x		{   set pw [expr $width / 2]
			    if {$new < $pw} {
				lappend constraints "x $pw"
			    } elseif {$new > $winWidth - $pw} {
				lappend constraints "x [expr $winWidth - $pw]"
			    }
			}
	    y		{   set ph [expr $height / 2]
			    if {$new < $ph} {
				lappend constraints "y $ph"
			    } elseif {$new > $winHeight - $ph} {
				lappend constraints "y [expr $winHeight - $ph]"
			    }
			}
	}
    }

    return $constraints
}


# magnifierRegionConstraint -- Called when the region marker in the magnifier
# window is moved, resized, or rotated.

proc magnifierRegionConstraint {marker event attributes} \
{
    global winWidth winHeight

    set constraints [list {}]
    send magnifierWin getRect interior p_x p_y p_width p_height

    # Since the magnifier region marker is a box marker x,y and width,height
    # will not both change in the same call, so we can process them all
    # independently.

    foreach i $attributes {
	set new [lindex $i 2]

	switch [lindex $i 0] {
	    x		{   set left [expr $p_x + $rwidth + 1]
			    set right [expr $p_x + $p_width - $rwidth - 1]
			    if {$new < $left} {
				lappend constraints "x $left"
			    } elseif {$new > $right} {
				lappend constraints "x $right"
			    }
			}
	    y		{   set top [expr $p_y + $rheight + 1]
			    set bottom [expr $p_y + $p_height - $rheight - 1]
			    if {$new < $top} {
				lappend constraints "y $top"
			    } elseif {$new > $bottom} {
				lappend constraints "y $bottom"
			    }
			}
	    width	{   set ww [expr $winWidth / 2]
			    if {$new > $ww / 2} {
				lappend constraints "width $ww"
			    }
			}
	    height	{   set wh [expr $winHeight / 2]
			    if {$new > $wh / 2} {
				lappend constraints "height $wh"
			    }
			}
	    rotangle	{    lappend constraints "rotangle 0"
			}
	}
    }

    return $constraints
}


# magnifierImagewinResized -- If the display window is resized make the
# magnifier track the corner.

proc magnifierImagewinResized args \
{
    global magnifier_enable magnifier_mapping magnifier_height
    global magnifierGeom magnifier_x magnifier_y magnifier_width

    if {$magnifier_enable} {
	set old_x $magnifier_x;  set old_width $magnifier_width
	set old_y $magnifier_y;  set old_height $magnifier_height

	# Get new location of magnifier window.
	set defGeom [format "%sx%s+5+5" $magnifier_width $magnifier_height]
	send imagewin parseGeometry $magnifierGeom $defGeom x y width height

	# Reposition the marker.
	send magnifierWin "\
	    markpos; \
	    setAttributes \
		x		[expr $x + $width / 2] \
		y		[expr $y + $height / 2] \
		width		[expr $width / 2] \
		height		[expr $height / 2]; \
	    redraw"

	# Update the magnifier window position variables so that it comes up
	# in the same place the next time.
	send magnifierWin getRect boundary \
	    magnifier_x magnifier_y magnifier_width magnifier_height
	set magnifierGeom [send imagewin getGeometry \
	    $magnifier_x $magnifier_y $magnifier_width $magnifier_height]

	# Make sure the magnifier window is on top.
	send imagewin raiseMapping $magnifier_mapping

	# Refresh the magnifier window if it did not move.
	if {$magnifier_x == $old_x && $magnifier_y == $old_y &&
	    $magnifier_width == $old_width && $magnifier_height == $old_height} {
	    send imagewin refreshMapping $magnifier_mapping
	}
    }
}


# resetMagnifier -- Reinitialize the magnifier.

proc resetMagnifier {param old new} \
{
    global magnifierGeom displayMagnifier

    if {$new == "done"} {
	setMagnifier [true $displayMagnifier]
    } else {
	setMagnifier 0
	if {$new != "startup"} {
	    set magnifierGeom +5+5
	}
    }
}; send initialize addCallback resetMagnifier


set last_mag_x [expr $winWidth / 2]
set last_mag_y [expr $winHeight / 2]

# magnifierMovedMapImage -- Front end to magnifierMapImage, called when 
# magnifier window is moved or resized.

proc magnifierMovedMapImage args \
{
    global last_mag_x last_mag_y

    magnifierMapImage $last_mag_x $last_mag_y
    setMagPointerPosition
}

# The following code was borrowed from the SAOtng GUI by Eric Mandel of SAO
#--------------------------------------------------------------------------

# globals for magnifier
set mag_w 0
set mag_h 0

#
# setMagnifierZoom -- set the zoom factor for the magnifier
#
proc setMagnifierZoom { zoom } \
{
    global mag_w mag_h

    send magnifierWin getRect boundary \
		magnifier_x magnifier_y magnifier_width magnifier_height
    set mag_w [expr int( ( $magnifier_width  + $zoom - 1 ) / $zoom) ]
    set mag_h [expr int( ( $magnifier_height + $zoom - 1 ) / $zoom) ]

    #set mw [expr int (($magnifier_width - 1) / ($mag_w * 2))]
    #if { $mw < 4 } { set mw 4 }
    #set mh [expr int (($magnifier_height - 1) / ($mag_h * 2))]
    #if { $mh < 4 } { set mh 4 }
    #send magPointer "setAttributes width $mw height $mh; redraw"
}

# magnifierMapImage -- Map the of the current display frame centered on the
# pointer into the magnifier window.  Called when the frame changes, the
# pointer moves in the main image window, or (via magnifierMovedMapImage)
# the magnifier window is moved or resized.

set magnifierROP 0

proc magnifierMapImage {x y} \
{
    global magnifier_enable frame
    global last_mag_x last_mag_y
    global magnifier_mapping
    global winWidth winHeight
    global mag_w mag_h
    global magnifierROP

    if {!$magnifier_enable || $frame == 0} \
	return

#    if {abs($last_mag_x-$x) != 1 && abs($last_mag_y-$y) != 1} {
#	# For efficiency we won't compute the sqrt of the distance but instead
#	# just compare the square.  Use a threshold of 6 pixels so when we
#	# narrow in on the ROI the magnifier is still (mostly) correct.
#        set diff  [expr (($last_mag_x-$x) * ($last_mag_x-$x)) + \
#			(($last_mag_y-$y) * ($last_mag_y-$y))]
#        if {$diff > 36} {
#    	    set last_mag_x $x
#    	    set last_mag_y $y
#	    return
#  	}
#    }

    set last_mag_x $x
    set last_mag_y $y

    send magnifierWin getRect interior dx dy dnx dny
    if [send imagewin activeMapping $magnifier_mapping] {
	send imagewin raiseMapping $magnifier_mapping
    }
    # initialize the magnifier zoom factor, if necessary
    if { !$mag_w || !$mag_h } {
	setMagnifierZoom 4
    }

    set sx [expr $x - $mag_w / 2 ]
    set sy [expr $y - $mag_h / 2 ]

    # Constrain the source rectangle within the main image window 
    # (not overlapping an edge or the magnifier window).

    if {$sx > [expr $dx - $mag_w] && $sx < [expr $dx + $dnx] && 
	$sy > [expr $dy - $mag_h] && $sy < [expr $dy + $dny]    } {

	# The source rectangle would overlap the magnifier window; fix that.

	set dist(l) [expr $sx - ($dx - $mag_w)]
	set dist(b) [expr $dy + $dny - $sy]
	set dist(r) [expr $dx + $dnx - $sx]
	set dist(t) [expr $sy - ($dy - $mag_h)]

	#  Put the distances in order.

	foreach j [array names dist] {
	    set alreadyset($j) 0
	}

	for {set i 0} {$i < 4} {incr i} {
	    set candidate ""
	    foreach j [array names dist] {
		if {!$alreadyset($j)} {
		    if {$candidate == ""} {
			set candidate $j
			set minsofar $dist($j)
		    } elseif {$dist($j) < $minsofar} {
			set candidate $j
			set minsofar $dist($j)
		    }
		}
	    }
	    set order($i) $candidate
	    set alreadyset($candidate) 1
	}

	# Try the sides in order, using the first one where there's room.

	for {set i 0} {$i < 4} {incr i} {
	    if {$order($i) == "l"} {
		if {$dx >= $mag_w} {
		    set sx [expr $dx - $mag_w]
		    break
		}
	    } elseif {$order($i) == "b"} {
		if {$winHeight >= $dy + $dny + $mag_h} {
		    set sy [expr $dy + $dny]
		    break
		}
	    } elseif {$order($i) == "r"} {
		if {$winWidth >= $dx + $dnx + $mag_w} {
		    set sx [expr $dx + $dnx]
		    break
		}
	    } elseif {$order($i) == "t"} {
		if {$dy >= $mag_h} {
		    set sy [expr $dy - $mag_h]
		    break
		}
	    }
	}
    }

    # Make sure we don't go beyond an edge of the main window.

    if {$sx < 0} {
	set sx 0
    } else {
	set sxmax [expr $winWidth - $mag_w]
	if {$sx > $sxmax} {
	    set sx $sxmax
	}
    }

    if {$sy < 0} {
	set sy 0
    } else {
	set symax [expr $winHeight - $mag_h]
	if {$sy > $symax} {
	    set sy $symax
	}
    }

    # Map 32 x 32 centered on pointer in main window.
    set err [catch {send imagewin setMapping $magnifier_mapping $magnifierROP \
	0 pixel $sx $sy $mag_w $mag_h \
	0 pixel $dx $dy $dnx   $dny}]
    if { $err != 0 } {
	Print "There was a problem setting up the magnifier ... recovering"
    }
}


# set the position of the magnifier marker in the center of the mag window
proc setMagPointerPosition args \
{
    global magnifier_enable

    if { !$magnifier_enable } \
	return

    send magnifierWin "getAttributes x x y y"
    set xpos [expr $x + 1]
    set ypos [expr $y + 1]

    send magPointer "setAttributes x $xpos y $ypos visible true; redraw"
}



################################################################################
# PANNER.  The full frame mapped into the main image window is displayed at a
# reduced resolution in a marker (known as the panner window) within the main
# image window.  The currently displayed region of the frame is indicated
# using a small marker within the panner window.  This small marker may be
# moved or resized to pan or zoom the image in the main display window.
################################################################################

set panner_x 0
set panner_y 0
set panner_width 0
set panner_height 0
set prm_width 0
set prm_height 0

set panner_enable 0
set panner_pan_enable 0
set panner_mag_enable 0
set panner_region_enable 0
set panner_mapping 0

# Panner window translations.
set pannerWinTranslations { \
       !Shift <Btn1Motion>:	m_rotateResize()
	      <Btn1Motion>:	m_moveResize()
	 !Shift <Btn1Down>:	m_raise() m_markpos()
		<Btn1Down>:	m_raise() m_markposAdd()
		  <Btn1Up>:	m_redraw() m_destroyNull()
		<Btn2Down>:	m_lower()
		  <Btn2Up>:	call(pannerPanXY,$x,$y)
	      !Ctrl <Key>b:     call(prevFrame,$name)
	      !Ctrl <Key>f:     call(nextFrame,$name)
	      !Ctrl <Key>h:     call(move_cursor,-1,0)
	      !Ctrl <Key>j:     call(move_cursor,0,1)
	      !Ctrl <Key>k:     call(move_cursor,0,-1)
	      !Ctrl <Key>l:     call(move_cursor,1,0)
	      !Ctrl <Key>n:     call(normalize)
	      !Ctrl <Key>c:     call(cpZoomAction,centerFrame)
	      !Ctrl <Key>i:     call(cpInvert)
	      !Ctrl <Key>m:     call(toggleMagnifier)
	      !Ctrl <Key>p:     call(togglePanner)
	      !Ctrl <Key>r:     call(cpRegisterFrames)
	      !Ctrl <Key>s:     call(cpMatchFrames)
	       !Alt <Key>1: 	call(cpSetFrame,frame1)
	       !Alt <Key>2: 	call(cpSetFrame,frame2)
	       !Alt <Key>3: 	call(cpSetFrame,frame3)
	       !Alt <Key>4: 	call(cpSetFrame,frame4)
	      !Ctrl <Key>1: 	call(cpZoom,1,1,fixed)
	      !Ctrl <Key>2: 	call(cpZoom,2,2,fixed)
	      !Ctrl <Key>3: 	call(cpZoom,3,3,fixed)
	      !Ctrl <Key>4: 	call(cpZoom,4,4,fixed)
	      !Ctrl <Key>5: 	call(cpZoom,5,5,fixed)
	      !Ctrl <Key>6: 	call(cpZoom,6,6,fixed)
	      !Ctrl <Key>7: 	call(cpZoom,7,7,fixed)
	      !Ctrl <Key>8: 	call(cpZoom,8,8,fixed)
	      !Ctrl <Key>9: 	call(cpZoom,9,9,fixed)
	    <Key>BackSpace:	m_deleteDestroy()
	       <Key>Delete:	m_deleteDestroy()
		<KeyPress>:     graphics-input()
		  <Motion>:	track-cursor() call(wcsUpdate,$x,$y)
}


# setPanner -- Turn the panner on or off.

proc togglePanner args \
{
    global panner_enable

    if {$panner_enable} {
	setPanner 0
    } else {
	setPanner 1
    }
}


proc setPanner {state} \
{
    global winWidth winHeight frameWidth frameHeight
    global frame panner_mapping pannerWinTranslations pannerArea
    global panner_enable panner_region_enable panner_pan_enable
    global pannerGeom panner_x panner_y panner_width panner_height
    global last_compass

    if {$state} {
	if {$panner_enable} \
	    return

	# Determine where to place the panner.
	set scale \
	    [expr sqrt(double($pannerArea) / ($frameWidth * $frameHeight))]
	set scaled_width [expr int($frameWidth * $scale) / 2 * 2 + 1]
	set scaled_height [expr int($frameHeight * $scale) / 2 * 2 + 1]
	set defGeom [format "%sx%s-5+5" $scaled_width $scaled_height]
	send imagewin parseGeometry $pannerGeom $defGeom x y width height

	# Create the main panner window (marker).
	send imagewin createMarker pannerWin \
	    type		rectangle \
	    createMode		noninteractive \
	    width		[expr $width / 2] \
	    height		[expr $height / 2] \
	    x			[expr $x + $width / 2] \
	    y			[expr $y + $height / 2] \
	    lineColor		8 \
	    highlightColor	8 \
	    translations	$pannerWinTranslations \
	    visible		true \
	    sensitive		true \
	    activated		true

	# Update the panner window position variables so that it comes up
	# in the same place the next time.

	send pannerWin getRect boundary \
	    panner_x panner_y panner_width panner_height
	set pannerGeom [send imagewin getGeometry \
	    $panner_x $panner_y $panner_width $panner_height]

	# Register callbacks.
	send frame addCallback pannerMapImage
	send frameRegion addCallback pannerSetRegion
	send imagewin addCallback pannerImagewinResized resize
	send resize addCallback pannerImagewinResized

	send pannerWin {
	    addCallback pannerMapImage moveResize;
	    addCallback pannerMoved moveResize;
	    addCallback pannerDestroy destroy;
	    addCallback pannerWinConstraint constraint;
	}

	# Map display frame to panner window.
	set panner_enable 1
	set panner_region_enable 1
	set panner_mapping [send imagewin nextMapping]
	pannerMapImage init; send imagewin refreshMapping $panner_mapping

	# Redraw the compass if necessary.
	send compass "setSensitive True ; set on $last_compass"
	if { $last_compass } \
	    drawCompass

	# Draw a marker in the panner window outlining displayed region.
	send imagewin createMarker pannerRegionMarker \
	    type		box \
	    createMode		noninteractive \
	    translations	$pannerWinTranslations \
	    lineColor		green \
	    highlightColor	green \
	    sensitive		true

	# Fire up the panner region marker.
	send client getSource raster sx sy snx sny
	pannerSetRegion dummy dummy [concat $frame $sx $sy $snx $sny]
	send pannerRegionMarker "\
	    addCallback pannerPanImage moveResize; \
	    addCallback pannerDestroy destroy; \
	    addCallback pannerRegionConstraint constraint; \
	    setAttributes visible true activated true; \
	    redraw"
	set panner_pan_enable 1

    } elseif {$panner_enable} {
	pannerDestroy
    }
}


# pannerDestroy -- Delete the panner.

proc pannerDestroy args \
{
    global panner_enable panner_region_enable panner_pan_enable
    global panner_mapping

    if {$panner_enable} {
	set panner_enable 0
	set panner_pan_enable 0
	set panner_region_enable 0

	send imagewin freeMapping $panner_mapping
	send imagewin deleteCallback pannerImagewinResized
	send resize deleteCallback pannerImagewinResized
	send frame deleteCallback pannerMapImage
	send frameRegion deleteCallback pannerSetRegion

	if [send server queryObject pannerRegionMarker] {
	    send pannerRegionMarker destroy
	}
	if [send server queryObject pannerWin] {
	    send pannerWin destroy
	}

	# Disable the compass.
	send compass "setSensitive False ; set on False"
    }
}


# pannerMapImage -- Map the current display frame into the panner window.
# Called when the frame changes or the panner window is moved or resized.
# The panner window displays a small dezoomed version of the full frame.

proc pannerMapImage args \
{
    global panner_enable frame
    global panner_mapping

    if {!$panner_enable || $frame == 0} \
	return

    set raster [send client getRaster]
    send pannerWin getRect interior dx dy dnx dny
    send imagewin queryRaster $raster width height

    if [send imagewin activeMapping $panner_mapping] {
	send imagewin raiseMapping $panner_mapping
    }
    send imagewin setMapping $panner_mapping 0 \
	$raster pixel 0 0 $width $height \
	0 pixel $dx $dy $dnx $dny
}


# pannerSetRegion -- Adjust the pannerWin region marker to outline the
# region displayed in the main display window.  This is called in response
# to a frameRegion event when the main display mapping changes, e.g. when
# the frame changes or the user zooms or pans the main window.  The region
# marker is moved and resized to reflect the new view.

proc pannerSetRegion {param old new} \
{
    global panner_enable panner_region_marker
    global panner_region_enable panner_pan_enable
    global frame frameWidth frameHeight prm_width prm_height

    if {!$panner_enable || !$panner_region_enable || $frame == 0} \
	return

    # new: frame sx sy snx sny
    set src_frame [lindex $new 0]
    set sx [lindex $new 1];  set snx [lindex $new 3]
    set sy [lindex $new 2];  set sny [lindex $new 4]

    if {$src_frame != $frame} \
	return

    send pannerWin getRect interior px py pnx pny

    set x [expr ($sx + $snx/2.0) / $frameWidth * $pnx + $px]
    set y [expr ($sy + $sny/2.0) / $frameHeight * $pny + $py]
    set width  [expr ($snx/2.0) / $frameWidth * $pnx + 1]
    set height [expr ($sny/2.0) / $frameHeight * $pny + 1]

    set pan_save $panner_pan_enable;  set panner_pan_enable 0
    set panner_region_enable 0

    send pannerRegionMarker "\
	markpos; \
	setAttributes x $x y $y width $width height $height; \
	redraw; raise"
    send pannerRegionMarker getAttributes width prm_width height prm_height

    set panner_region_enable 1
    set panner_pan_enable $pan_save
}


# pannerPanImage -- Pan or zoom the image in the main image window.  This is
# called when the user moves the region marker within the panner window.

proc pannerPanImage {marker event position} \
{
    global panner_pan_enable
    global winWidth winHeight
    global prm_width prm_height
    global frame auto_reg frameOffsetX frameOffsetY

    if {!$panner_pan_enable} \
	return

    # position: x y width height.
    set new_width [lindex $position 2]
    set new_height [lindex $position 3]

    # region: type raster x y width height.
    set region [send pannerRegionMarker getRegion unmap]
    set x [expr [lindex $region 2] + 1];  set width [lindex $region 4]
    set y [expr [lindex $region 3] + 1];  set height [lindex $region 5]

    set panner_pan_enable 0
    if {$new_width == $prm_width && $new_height == $prm_height} {
	send client pan $x $y
    } else {
	set xscale [expr ($winWidth / 2.0) / $width]
	set yscale [expr ($winHeight / 2.0) / $height]
	if {$auto_reg == 1} {
	    send client zoomAbs $xscale $yscale $x $y \
		$frameOffsetX($frame) $frameOffsetY($frame)
	} else {
	    send client zoom $xscale $yscale $x $y
	}
    }
    set panner_pan_enable 1
}


# pannerPanXY -- Pan to the point X,Y in the panner window coordinate
# system.  Called when the user clicks MB2 in the panner window.

proc pannerPanXY {x y} \
{
    send imagewin unmapPixel $x $y raster rx ry
    send client pan $rx $ry
}


# pannerMoved -- Called when the user moves the panner window.  We need to
# move the region marker to the new window location and record the new location
# so that the window will come up in the same place if closed and reopened.

proc pannerMoved {marker event position} \
{
    global winWidth winHeight
    global frame panner_pan_enable pannerGeom
    global panner_x panner_y panner_width panner_height

    # Move the region marker to the new location.
    set pan_save $panner_pan_enable;  set panner_pan_enable 0
    send client getSource raster sx sy snx sny
    pannerSetRegion dummy dummy [concat $frame $sx $sy $snx $sny]
    set panner_pan_enable $pan_save

    # Update the panner window position variables so that it comes up
    # in the same place the next time.

    send pannerWin getRect boundary \
	panner_x panner_y panner_width panner_height
    set pannerGeom [send imagewin getGeometry \
	$panner_x $panner_y $panner_width $panner_height]

    drawCompass

    send pannerRegionMarker raise
}


# pannerWinConstraint -- Called when the panner window is moved, resized, or
# rotated.  Constrain the panner window to remain within the image window;
# rotation is not permitted.

proc pannerWinConstraint {marker event attributes} \
{
    global winWidth winHeight
    global panner_width panner_height

    set width $panner_width
    set height $panner_height
    set constraints [list {}]

    # Check the width and height first as we need these below.
    foreach i $attributes {
	set new [lindex $i 2]
	switch [lindex $i 0] {
	    width	{   set ww [expr $winWidth / 2]
			    if {$new > $ww} {
				lappend constraints "width $ww"
				set width $ww
			    } else {
				set width $new
			    }
			}
	    height	{   set wh [expr $winHeight / 2]
			    if {$new > $wh} {
				lappend constraints "height $wh"
				set height $wh
			    } else {
				set height $new
			    }
			}
	    rotangle	{    lappend constraints "rotangle 0"
			}
	}
    }

    # Constrain X and Y.
    foreach i $attributes {
	set new [lindex $i 2]
	switch [lindex $i 0] {
	    x		{   set pw [expr $width / 2]
			    if {$new < $pw} {
				lappend constraints "x $pw"
			    } elseif {$new > $winWidth - $pw} {
				lappend constraints "x [expr $winWidth - $pw]"
			    }
			}
	    y		{   set ph [expr $height / 2]
			    if {$new < $ph} {
				lappend constraints "y $ph"
			    } elseif {$new > $winHeight - $ph} {
				lappend constraints "y [expr $winHeight - $ph]"
			    }
			}
	}
    }

    return $constraints
}


# pannerRegionConstraint -- Called when the region marker in the panner
# window is moved, resized, or rotated.

proc pannerRegionConstraint {marker event attributes} \
{
    global winWidth winHeight
    global frame

    set constraints [list {}]
    send pannerWin getRect interior p_x p_y p_width p_height
    send pannerRegionMarker getAttributes width rwidth height rheight

    # Since the panner region marker is a box marker x,y and width,height
    # will not both change in the same call, so we can process them all
    # independently.

    foreach i $attributes {
	set new [lindex $i 2]

	switch [lindex $i 0] {
	    x		{   set left [expr $p_x + $rwidth + 1]
			    set right [expr $p_x + $p_width - $rwidth - 1]
			    if {$new < $left} {
				lappend constraints "x $left"
			    } elseif {$new > $right} {
				lappend constraints "x $right"
			    }
			}
	    y		{   set top [expr $p_y + $rheight + 1]
			    set bottom [expr $p_y + $p_height - $rheight - 1]
			    if {$new < $top} {
				lappend constraints "y $top"
			    } elseif {$new > $bottom} {
				lappend constraints "y $bottom"
			    }
			}
	    width	{   set ww [expr $winWidth / 2]
			    if {$new > $ww / 2} {
				lappend constraints "width $ww"
			    }
			}
	    height	{   set wh [expr $winHeight / 2]
			    if {$new > $wh / 2} {
				lappend constraints "height $wh"
			    }
			}
	    rotangle	{    lappend constraints "rotangle 0"
			}
	}
    }
    drawCompass

    return $constraints
}


# pannerImagewinResized -- If the display window is resized make the panner
# track the corner.

proc pannerImagewinResized args \
{
    global panner_enable panner_mapping 
    global pannerGeom panner_x panner_y panner_width panner_height
    global frame

    if {$panner_enable} {
	set old_x $panner_x;  set old_width $panner_width
	set old_y $panner_y;  set old_height $panner_height

        eraseCompass

	# Get new location of panner window.
	set defGeom [format "%sx%s-5+5" $panner_width $panner_height]
	send imagewin parseGeometry $pannerGeom $defGeom x y width height

	# Reposition the marker.
	send pannerWin "\
	    markpos; \
	    setAttributes \
		x		[expr $x + $width / 2] \
		y		[expr $y + $height / 2] \
		width		[expr $width / 2] \
		height		[expr $height / 2]; \
	    redraw"

	# Update the panner window position variables so that it comes up
	# in the same place the next time.
	send pannerWin getRect boundary \
	    panner_x panner_y panner_width panner_height
	set pannerGeom [send imagewin getGeometry \
	    $panner_x $panner_y $panner_width $panner_height]

	# Make sure the panner window is on top.
	send imagewin raiseMapping $panner_mapping

	# Refresh the panner window if it did not move.
	if {$panner_x == $old_x && $panner_y == $old_y &&
	    $panner_width == $old_width && $panner_height == $old_height} {
	    send imagewin refreshMapping $panner_mapping
	}

        drawCompass
    }
}


# resetPanner -- Reinitialize the panner.

proc resetPanner {param old new} \
{
    global pannerGeom displayPanner
    if {$new == "done"} {
	setPanner [true $displayPanner]
    } else {
	setPanner 0
	if {$new != "startup"} {
	    set pannerGeom -5+5
	}
    }
}; send initialize addCallback resetPanner



################################################################################
# Print Panel Functions.
################################################################################

# Global variables needed for the print setup panel

set printColor	prGrayButton
set orientation	epsPortButton
set page_size	epsLetterButton
set imageScale	100

set epsWidgets { epsPageGroup epsOrientLabel epsSizeLabel 
	epsPortButton epsLandButton epsLetterButton epsLegalButton epsA4Button
	ScaleFrame SCdecrease SCtext SCincrease 
}


proc psetup_init args \
{
    global printColor orientation page_size imageScale #format

    set_printer toPrinter callback 1
    send SCtext set label [ format "%d %%" $imageScale ]
    send $printColor set on true
    send $orientation set on true
    send $page_size set on true
}


proc doPrintOptions { param old new } \
{
    global imageScale page_size orientation imageScale printColor
    global warnings

    send printStatus set label {}
    set val [join [lrange $new 1 end] " "]

    # print [format "doPrintOptions %s = %s" [lindex $new 0] $val]
    switch [lindex $new 0] {
    autoscale	    { 	if { $val == "True" } {
			    send epsscaleButton set on true
			} elseif { $val == "False" } {
			    send epsscaleButton set on false
			}
		    }
    autorotate	    { 	if { $val == "True" } {
			    send autorotateButton set on true
			} elseif { $val == "False" } {
			    send autorotateButton set on false
			}
		    }
    maxaspect	    { 	if { $val == "True" } {
			    send aspectButton set on true
			} elseif { $val == "False" } {
			    send aspectButton set on false
			}
		    }
    annotate	    { 	if { $val == "True" } {
			    send annotateButton set on true
		            send titleButton setSensitive true
		            send colorbarButton setSensitive true
		            send bordersButton setSensitive true
		            send titleLabel setSensitive true
		            send titleString setSensitive true
			} elseif { $val == "False" } {
			    send annotateButton set on false
		            send titleButton setSensitive false
		            send colorbarButton setSensitive false
		            send bordersButton setSensitive false
		            send titleLabel setSensitive false
		            send titleString setSensitive false
			}
		    }
    compress	    { 	if { $val == "True" } {
			    send compressButton set on true
			} elseif { $val == "False" } {
			    send compressButton set on false
			}
		    }
    orientation	    { 	send $orientation set on false
			if { $val == "portrait" } {
			    send epsPortButton set on true
			    set orientation epsPortButton
			} elseif { $val == "landscape" } {
			    send epsPortButton set on false
			    set orientation epsLandButton
			}
		    }
    papersize	    { 	send $page_size set on false
			if { $val == "letter" } {
			    send epsLetterButton set on true
			    set page_size epsLetterButton
			} elseif { $val == "legal" } {
			    send epsLegalButton set on true
			    set page_size epsLegalButton
			} elseif { $val == "A4" } {
			    send epsA4Button set on true
			    set page_size epsA4Button
			} elseif { $val == "B5" } {
			    send epsB5Button set on true
			    set page_size epsB5Button
			}
		    }
    imscale	    { 	set imageScale $val
    			send SCtext set label [ format "%d %%" $imageScale ]
		    }
    colortype	    { 	send $printColor set on false
			if { $val == "gray" } {
			    send prGrayButton set on true
			    set printColor prGrayButton
			} elseif { $val == "pseudo" } {
			    send prPseudoButton set on true
			    set printColor prPseudoButton
			} elseif { $val == "rgb" } {
			    send prRGBButton set on true
			    set printColor prRGBButton
			}
		    }
    printerName	    {	if [send toPrinter get on] {
			    send printlist highlight $val
			}
		    }
    printCmd	    {	if [send toPrinter get on] {
			    send printcmd set string $val
			}
		    }
    printFile	    {	if [send toFile get on] {
			    send printcmd set string $val
			}
		    }
    deviceType      {   if { $val == "Printer" } {
			    send printerLabel set label "Print Command:"
			    send toPrinter set on true
			    send toFile set on false
		        } elseif { $val == "File" } {
			    send printerLabel set label "File Name:"
			    send toPrinter set on false
			    send toFile set on true
			    send printlist unhighlight
		        }
		    }
    dotitle         {   if { $val == "True" } {
		            send titleButton set on true
		        } elseif { $val == "False" } {
		            send titleButton set on false
		        }
		    }
    doborders       {   if { $val == "True" } {
		            send bordersButton set on true
		        } elseif { $val == "False" } {
		            send bordersButton set on false
		        }
		    }
    docolorbar      {   if { $val == "True" } {
		            send colorbarButton set on true
		        } elseif { $val == "False" } {
		            send colorbarButton set on false
		        }
		    }
    title           {   send titleString set string $val
		    }

    status	    {   send printStatus set label $val
			send server synchronize
	 	    }
    warning	    {   if {$warnings} { Wexec server $val }
		    }
    }
}; send printOptions addCallback doPrintOptions


# Print options procedures.
# -------------------------------

set prOptsWidgets { 
    toPrinter toFile
    prGrayButton prPseudoButton prRGBButton
    epsLandButton epsPortButton
    epsLetterButton epsLegalButton epsA4Button epsB5Button
    SCincrease SCdecrease
}
set prSimpleOptions { 
    epsscaleButton autorotateButton aspectButton annotateButton compressButton 
    titleButton bordersButton colorbarButton
}

proc prPrintCommand { widget cbtype args } \
{
    if [send toFile get on] {
	send client setPrintOption printfile $args
	send printStatus set label [format "output file set to %s" $args]
    } else {
	send client setPrintOption printcmd $args
	send printStatus set label [format "print command set to %s" $args]
    }
}; send printcmd addCallback prPrintCommand

proc prTitleString { widget cbtype args } \
{
    send client setPrintOption title $args
}; send titleString addCallback prTitleString

proc prOptionToggle { widget cbtype args } \
{
    global imageScale

    # Handle the image scale widgets first.
    switch $widget {
    SCincrease	{ set scale [expr $imageScale + 5] 
  		  send client setPrintOption imscale $scale
		  return
		}
    SCdecrease	{ set scale [ expr $imageScale - 5 ]
		  send client setPrintOption imscale $scale
		  return
		}
    }

    # If it's not one of those it must be one of the radio toggles.
    set val [ send $widget get on ]
    #print [ format "prOptionToggle %s = %s" $widget $val ]
    if { $val == 1 } {
	switch $widget {
	toPrinter  	{ send client setPrintOption devicetype printer }
	toFile  	{ send client setPrintOption devicetype file }

	epsLandButton   { send client setPrintOption orientation landscape }
	epsPortButton   { send client setPrintOption orientation portrait }

	epsLetterButton { send client setPrintOption papersize letter }
	epsLegalButton  { send client setPrintOption papersize legal }
	epsA4Button     { send client setPrintOption papersize A4 }
	epsB5Button     { send client setPrintOption papersize B5 }

	prGrayButton    { send client setPrintOption colortype gray }
	prPseudoButton  { send client setPrintOption colortype pseudo }
	prRGBButton     { send client setPrintOption colortype rgb }
	}
    } else {
	send $widget set on true
    }

} ; foreach w $prOptsWidgets { send $w addCallback prOptionToggle }

proc prSimpleOptionToggle { widget args } \
{
    set val [ send $widget get on ]
    #print [ format "prSimpleOptionToggle %s = %s" $widget $val ]

    switch $widget {
    epsscaleButton   { send client setPrintOption autoscale  $val }
    autorotateButton { send client setPrintOption autorotate $val }
    aspectButton     { send client setPrintOption maxaspect  $val }
    annotateButton   { send client setPrintOption annotate   $val }
    compressButton   { send client setPrintOption compress   $val }

    titleButton      { send client setPrintOption dotitle    $val }
    bordersButton    { send client setPrintOption doborders  $val }
    colorbarButton   { send client setPrintOption docolorbar $val }
    }
} ; foreach w $prSimpleOptions { send $w addCallback prSimpleOptionToggle }



# Printer display and selection.
# -------------------------------
set lprList	{}

proc psSetPrintList {param old new} \
{
    global lprList
    set lprList $new
    send printlist setList $new resize
    send printlist highlight 0
}; send printerList addCallback psSetPrintList

proc lprResize args \
{
    global lprList
    send printlist setList $lprList resize
    send printlist highlight 0
}; send printlist addEventHandler lprResize ResizeRedirectMask

proc psSelectPrint {widget cbtype selections indices} \
{
    global printerlist
    foreach selection $selections {
	send client setPrintOption printername $selection
    }
}; send printlist addCallback psSelectPrint


proc Print args \
{
    global winWidth winHeight
    send imagewin setCursorType busy

    # Get the print command or file template if not previous reset.
    set val [ send printcmd get string ]
    if [send toFile get on] {
	send client setPrintOption printfile $val
    } else {
	send client setPrintOption printcmd $val
    }
    set val [ send titleString get string ]
    send client setPrintOption title $val
    setPrintCorners 0 [expr $winWidth - 1] [expr $winHeight - 1] 0

    send client print
    send imagewin setCursorType idle
} ; send okayPrint addCallback Print



# setPrintCorners -- Tell the client the WCS of the image being printed.

proc setPrintCorners { lx ly ux uy args } \
{
    global winWidth winHeight

    # Convert raw corner screen coordinates to frame buffer raster coords.
    send imagewin unmapPixel $lx $ly raster llx lly
    set llx [expr "int ($llx)"]
    set lly [expr "int ($lly)"]
    set str  [send client encodewcs $llx $lly]
    scan $str "%g %g %g" llx_r lly_r z
    set llx_i [expr "int ($llx_r)"]
    set lly_i [expr "int ($lly_r)"]

    send imagewin unmapPixel $ux $uy raster urx ury
    set urx [expr "int ($urx)"]
    set ury [expr "int ($ury)"]
    set str [send client encodewcs $urx $ury]
    scan $str "%g %g %g" urx_r ury_r z
    set urx_i [expr "int ($urx_r)"]
    set ury_i [expr "int ($ury_r)"]

    send client setPrintOption corners $llx_i $lly_i $urx_i $ury_i
}



################################################################################
# INFO box.
################################################################################

set	infoMode	infoOptFr


# Current Frame information.
proc infoFrameUpdate args \
{
    global version frame nframes
    global frameWidth frameHeight frameDepth
    global enhancement
    global cpXcen cpYcen cpXoff cpYoff
    global cpXmag cpYmag cpXscale cpYscale

    if { [send infoOptWCS get on] } {
	send client info wcs
	return
    } elseif {! [send infoOptFr get on]} \
	return


    if {$frame == 0} {
       send infoText set string "initializing display..."
    } else {
       set line1 $version
       set line2 [format "Image:\t\t%s" [send imageTitle get label]]
       set line3 [format "Frame %d of %d:\t%d x %d" \
	    		$frame $nframes $frameWidth $frameHeight]
       set cmap  [lindex $enhancement($frame) 0]
       set brt   [lindex $enhancement($frame) 1]
       set con   [lindex $enhancement($frame) 2]
       set line4 [format "Colormap:\t%s" $cmap]
       set line5 [format "Enhancement:\tBrt=%s  Cont=%s" $brt $con]

       set cntr  [format "X: %0.1f\n\t\tY: %0.1f" $cpXcen $cpYcen]
       set line6 [format "Center:\t\t%s" $cntr]

       set line7 [format "Zoom:\t\tX: %0.2f\n\t\tY: %0.2f" $cpXmag $cpYmag]
       set line8 [format "Scale:\t\tX: %0.2f\n\t\tY: %0.2f" $cpXscale $cpYscale]
       set line9 [format "Offset:\t\tX: %0.2f\n\t\tY: %0.2f" $cpXoff $cpYoff]

       send infoText set string [
	    format "%s\n\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n\n" \
		$line1 $line2 $line3 $line4 $line5 $line6 $line7 $line8 $line9
       ]
    }
}
set params {frame frameView nframes frameSize frameTitle enhancement}
foreach p $params { send $p addCallback infoFrameUpdate }


# Server Program State information.
proc infoOptToggle { widget type state args } \
{
    global infoMode ismInfoText

    if {$state} { set not False } else { set not True }

    send $infoMode set on $not
    set infoMode $widget

    switch $widget {
    infoOptFr	   { infoFrameUpdate				}
    infoOptSvr	   { set bp [send imagewin get basePixel] 
		     set mc [send imagewin get maxColors]
		     send client info server $bp $mc
		   }
    infoOptIsm     { send infoText set string $ismInfoText	}
    infoOptClients { send client info clients			}
    infoOptWCS     { send client info wcs			}
    infoOptFB	   { send client info imtoolrc			}
    }
}
set iopts {infoOptFr infoOptSvr infoOptIsm infoOptClients infoOptWCS infoOptFB }
foreach w $iopts { send $w addCallback infoOptToggle }


proc infoSetText { param old new } \
{
   send infoText set string $new
} ; send info addCallback infoSetText



################################################################################
# Image and objects list display and section
################################################################################

proc filesTextHighlight { widget event args } \
{
    if { $event == "enterNotify" } {
	send $widget set displayCaret True
    } elseif { $event == "leaveNotify" } {
	send $widget set displayCaret False
    }
}
foreach w {imtemplateText fnameText z1Value z2Value} {
    send $w addEventHandler filesTextHighlight enterWindowMask
    send $w addEventHandler filesTextHighlight leaveWindowMask
}

send rootButton     addCallback "send client setLoadOption root"
send homeButton     addCallback "send client setLoadOption home"
send upButton       addCallback "send client setLoadOption up"
send rescanButton   addCallback "send client setLoadOption rescan"

set label \
    [format "%-35.35s %6s   %12s  %12s"\
         "              Image" "Bitpix" "  Size" "          Title"]
send imlistLabel set label $label
send imlistLabel "set height 0 ; unmap"


# Create the Frames menu on the load panel window.
set loadItems { "Current f.exec \{send frameFrame set label Current\}"}
for {set i 1} {$i <= $MAX_FRAMES} {incr i} {
    lappend loadItems "\"\ \ $i\ \ \" f.exec \{send frameFrame set label $i\}"
}; createMenu loadFrames frameFrame $loadItems





# Filename pattern callback.
proc setPattern { widget mode pattern args } \
{
    send client setLoadOption pattern $pattern
} ; send imtemplateText addCallback setPattern


# Load options parameter callback.
proc doLoadOptions { param old new } \
{
    global warnings panel_up

    set val     [ join [lrange $new 1 end] " " ]

    switch [lindex $new 0] {
    pattern  	{ send imtemplateText set string [format "%s" $val ] }
    curdir   	{ send dirLabel set label [format "  Directory:    %s" $val ] }
    newfile  	{ send fnameText set string $val }
    status  	{ send filesStatus set label $val
	          if { ! $panel_up } { send imageTitle set label $val }
	          send server synchronize
	    	}
    warning 	{ if {$warnings} { Wexec server $val } 		}
    gray	{ send grayscale set on $val 			}
    zscale	{ send zscale set on $val
    		  if {$val} {
		      send zrange setSensitive False
		  } else {
		      send zrange setSensitive True
		  }
		}
    zrange	{ send zrange set on $val
    		  if {$val} {
		      foreach w {z1Label z1Value z2Label z2Value} {
		          send $w setSensitive False
		      }
		  } else {
		      foreach w {z1Label z1Value z2Label z2Value} {
		          send $w setSensitive True
		      }
		  }
		}
    z1		{ send z1Value    set string [format "%s" $val ] }
    z2		{ send z2Value    set string [format "%s" $val ] }
    nsample	{ send nsampValue set string [format "%s" $val ] }
    }
} ; send loadOptions addCallback doLoadOptions

# Option utility routines.
proc toggleGraymap args \
{
    send client setLoadOption gray [ send grayscale get on ]
} ; send grayscale addCallback toggleGraymap

proc toggleHeaders args \
{
    if { [send browseHdrs get on] } {
        send client setLoadOption headers 
	send rootButton   setSensitive False
	send homeButton   setSensitive False
	send upButton     setSensitive False
	send rescanButton setSensitive False
	send imlistLabel "set height 10 ; map"
    } else {
        send client setLoadOption rescan 
	send rootButton   setSensitive True
	send homeButton   setSensitive True
	send upButton     setSensitive True
	send rescanButton setSensitive True
	send imlistLabel "set height 0 ; unmap"
    }
} ; send browseHdrs addCallback toggleHeaders

proc toggleZscale args \
{
    send client setLoadOption zscale [send zscale get on]
} ; send zscale addCallback toggleZscale

proc toggleZrange args \
{
    send client setLoadOption zrange [send zrange get on]
} ; send zrange addCallback toggleZrange

proc setZ1 { widget mode pattern args } \
{
    send client setLoadOption z1 $pattern
} ; send z1Value addCallback setZ1

proc setZ2 { widget mode pattern args } \
{
    send client setLoadOption z2 $pattern
} ; send z2Value addCallback setZ2

proc setNsamp { widget mode pattern args } \
{
    send client setLoadOption nsample $pattern
} ; send nsampValue addCallback setNsamp

proc fileLoad { widget mode fname args } \
{
    loadImage $fname
} ; send fnameText addCallback fileLoad



# Image list selection routines.

set fileList	{}

proc setFileList { param old new } \
{
    global fileList
    set fileList $new

    # Get the max length of the strings so we can set
    # the list columns appropriately.
    set max 0
    foreach n $new {
	set len [string length $n]
	if {$len > $max} { set max $len }
    }

    # Optimize the number of columns for the file list.
    if {$max > 35}  { 
	send imageList set defaultColumns 1
    } elseif {$max > 21} { 
	send imageList set defaultColumns 2
    } elseif {$max > 12} { 
	send imageList set defaultColumns 3
    } elseif {$max > 5} { 
	send imageList set defaultColumns 4
    } else { 
	send imageList set defaultColumns 5
    }

    send imageList setList $new resize
}; send filelist addCallback setFileList

proc flResize args \
{
    global fileList
    send imageList setList $fileList resize
}; send imageList addEventHandler flResize ResizeRedirectMask

proc flSelectPrint { widget cbtype selections args } \
{
    if {! [send autoload get on]} \
	return

    foreach selection $selections { 
        if { [send zrange get on] } {
	    loadImage [lindex $selection 0]
        } else {
	    loadImage $selection
        }
    }
}; send imageList addCallback flSelectPrint


# Load the named image in the display.
proc loadImage { name } \
{
    global frame

    set fr [send frameFrame get label]

    if { $fr == "Current" } { set fr $frame }

    if { [fileSetOptions] >= 0 } {
        send imagewin setCursorType busy
        send client load $name $fr
        send imagewin setCursorType idle
        send fnameText set string $name
    }
}

# Load button callback.
proc fileLoadB args \
{
    set fname [send fnameText get string]
    if {$fname == ""} {
	Wexec client "No image name specified"
    } else {
	loadImage $fname
    }
} ; send filesLoadButton addCallback fileLoadB


# Send and selected options to the client before loading the image.
proc fileSetOptions args \
{
    if { ![send zscale get on] && ![send zrange get on] } {
        set z1 [send z1Value get string]
        set z2 [send z2Value get string]

        if {$z1 == $z2} {
	    Wexec client "z1/z2 values are not set properly"
	    return -1
	} else {
            send client setLoadOption z1 $z1
            send client setLoadOption z2 $z2
	}
    }

    return 0
}


################################################################################
# Save panel functions.
################################################################################

# Global variables needed for the save setup panel

set format	rasButton
set saveColor	svPseudoButton

set fileFmtButtons {
    rasButton gifButton jpegButton tiffButton 
    fitsButton x11Button epsButton rawButton 
}


# Format group procedures.
#---------------------------------

# Select a format.

proc set_format { widget func state args } \
{
    global format saveColor

    send $format set on false
    if {$widget == $format} {
	send $widget set on true
    } else {
	switch $widget  { 
	rasButton	{ send client setSaveOption format ras  } 
	gifButton	{ send client setSaveOption format gif  }
	jpegButton	{ send client setSaveOption format jpeg }
	tiffButton	{ send client setSaveOption format tiff }
	fitsButton	{ send client setSaveOption format fits }
	x11Button	{ send client setSaveOption format x11  }
	epsButton	{ send client setSaveOption format eps  }
	rawButton	{ send client setSaveOption format raw  }
	}
    }
} ; foreach fmt $fileFmtButtons { send $fmt addCallback set_format }

proc setSaveFile { widget cbtype args } \
{
	send client setSaveOption fname $args
	send saveStatus set label [format "output file set to %s" $args]
}; send saveFile addCallback setSaveFile


proc doSaveOptions { param old new } \
{
    global format saveColor
    global warnings

    send saveStatus set label {}
    set val [join [lrange $new 1 end] " "]

    #print [format "doSaveOptions %s = %s" [lindex $new 0] $val]
    switch [lindex $new 0] {
    format  {   
		# Now (de)sensitize the color options depending on the format,
		# force the color choice when needed.
    		send $format set on false
		switch [lindex $val 0] {
		ras       { #send svRGBButton setSensitive false
		            send svPseudoButton setSensitive true
			    set format rasButton
		          }
		gif       { send svRGBButton setSensitive false
		            send svPseudoButton setSensitive true
		            if {$saveColor == "svRGBButton"} {
		                send $saveColor set on false
		                send svPseudoButton set on true
		                set saveColor svPseudoButton
		            }
			    set format gifButton
		          }
		jpeg      { send svRGBButton setSensitive true
		            send svPseudoButton setSensitive true
			    set format jpegButton
		          }
		tiff      { send svRGBButton setSensitive false
		            send svPseudoButton setSensitive true
			    set format tiffButton
		          }
		fits      { send svRGBButton setSensitive false
		            send svPseudoButton setSensitive false
		            send $saveColor set on false
		            send svGrayButton set on true
		            set saveColor svGrayButton
			    set format fitsButton
		          }
		x11       { send svRGBButton setSensitive true
		            send svPseudoButton setSensitive true
			    set format x11Button
		          }
		eps       { send svRGBButton setSensitive true
		            send svPseudoButton setSensitive true
			    set format epsButton
		          }
		raw       { send svRGBButton setSensitive true
		       	    send svPseudoButton setSensitive true
			    set format rawButton
		          }
		}
    		send $format set on true
	    }
    color   { send $saveColor set on false
	      switch [lindex $val 0] {
	      grayscale   { send svGrayButton set on true
     			    set saveColor svGrayButton
			  }
	      pseudocolor { send svPseudoButton set on true
     			    set saveColor svPseudoButton
			  }
	      rgb	  { send svRGBButton set on true
     			    set saveColor svRGBButton
			  }
	      }
	    }
    fname   { send saveFile set string $val
	    }
    status  { send saveStatus set label $val
	      send server synchronize
	    }
    text    { send saveData set label $val
	    }
    warning { if {$warnings} { Wexec server $val }
	    }
    }
} ; send saveOptions addCallback doSaveOptions


# Color group procedures.
#---------------------------------
send svGrayButton   addCallback "send client setSaveOption color grayscale"
send svPseudoButton addCallback "send client setSaveOption color pseudocolor"
send svRGBButton    addCallback "send client setSaveOption color rgb"


proc Save args \
{
    global panel_up

    send imagewin setCursorType busy

    # Get the print command or file template if not previous reset.
    set val [ send saveFile get string ]
    send client setSaveOption fname $val
    send saveStatus set label [format "output file set to %s" $args]

    send client save
    send imagewin setCursorType idle
} ; send okaySave addCallback Save



################################################################################
# TILE GEOMETRY
################################################################################

set tileSel	2
set tileOpt	0
set tileNcols	2
set tileNrows	1
set tile_frames {}

proc selectTileOrientation { widget type select args } \
{
    global tileSel tileOpt

    set w { nrowLab ncolLab nrdecrease nrincrease ncdecrease ncincrease }
    if {$select == "Manual"} {
	foreach p $w { send $p setSensitive True }
    } elseif {$select != "none"} {
	foreach p $w { send $p setSensitive False }
    }

    set w { byCols bottomUp labelFrames labelImname labelTitles }
    if {$select == "Disabled"} {
	foreach p $w { send $p setSensitive False }
    } else {
	foreach p $w { send $p setSensitive True }
    }

    switch $select {
    Disabled	 { set tileSel 0 }
    Manual	 { set tileSel 1
		   set nx [send nctext get label]
    		   set ny [send nrtext get label]
		   set select [format "%dx%d" $nx $ny]
		 }
    Best	 { set tileSel 2 }
    Square	 { set tileSel 3 }
    Horizontal	 { set tileSel 4 }
    Vertical	 { set tileSel 5 }
    "One Row"	 { set tileSel 6 }
    "One Column" { set tileSel 7 }
    none	 { send tileMode set selection $tileSel	; return }
    }

    # Reset the button in case we're called directly from elsewhere.
    send tileMode set selection $tileSel

    # Send the option to the client.
    if {$tileSel > 0} {
        setTileFrames
        send client setOption tileFrames "True"
	set tileOpt $tileSel
    } else {
        send client setOption tileFrames "False"
    }

} ; send tileMode addCallback selectTileOrientation

proc tileSelToLabel { selection args } \
{
    switch $selection {
    0    { return "Disabled"	}
    1    { return "Manual"	}
    2    { return "Best"	}
    3    { return "Square"	}
    4    { return "Horizontal"	}
    5    { return "Vertical"	}
    6    { return "One Row"	}
    7    { return "One Column"	}
    }
    return "Best"
}

# Callback for the fill style options.
proc selectFillStyle { widget type state args } \
{
    if {$state} { set not False } else { set not True }

    switch $widget {
    byCols   	{ send client setOption tileByRows $not  }
    bottomUp 	{ send client setOption tileTopDown $not }
    }
} ; foreach w {byCols bottomUp} { send $w addCallback selectFillStyle }

# Callback for the tile labelling options.
proc selectTileLabels { widget type state args } \
{
    if {$state} { 
        switch $widget {
        labelFrames { send client setOption tileLabels 1 }
        labelImname { send client setOption tileLabels 2 }
        labelTitles { send client setOption tileLabels 3 }
        }
    } else {
	send client setOption tileLabels 0
    }
    send $widget set on $state
}
foreach w {labelFrames labelImname labelTitles} {
   send $w addCallback selectTileLabels
}

# Callback for the Tile Frame selection toggles.
proc setTileFrames args \
{
    global tile_frames tileSel tileNcols tileNrows

    # No-op if tiling isn't enabled.
    if {$tileSel == 0} \
	return

    # Get the new tile frames list.
    set tile_frames {}
    for {set i 1} {$i <= 16} {incr i} {
	if {[send tFrame$i get state]} {
	    lappend tile_frames $i
	}
    }

    # Reset the geometry.
    set geom [format "%dx%d" $tileNcols $tileNrows]
    switch $tileSel {
    1   { send client setOption tileGeom $geom      \{ $tile_frames \} }
    2   { send client setOption tileGeom Best       \{ $tile_frames \} }
    3   { send client setOption tileGeom Square     \{ $tile_frames \} }
    4   { send client setOption tileGeom Horizontal \{ $tile_frames \} }
    5   { send client setOption tileGeom Vertical   \{ $tile_frames \} }
    6   { send client setOption tileGeom Row        \{ $tile_frames \} }
    7   { send client setOption tileGeom Column     \{ $tile_frames \} }
    }
}; for {set i 1} {$i <= 16} {incr i} {send tFrame$i addCallback setTileFrames}

proc setAllTileFrames args \
{
    global tileNcols tileNrows
    for {set i 1} {$i <= 16} {incr i} {
	if {[send tFrame$i get sensitive]} {
	    send tFrame$i set state True
	}
    }
    setTileFrames
} ; send tAll addCallback setAllTileFrames

proc setNoTileFrames args \
{
    global tileNcols tileNrows
    for {set i 1} {$i <= 16} {incr i} {
	if {[send tFrame$i get sensitive]} {
	    send tFrame$i set state False
	}
    }
    setTileFrames
} ; send tNone addCallback setNoTileFrames

proc tileOptions { param old new } \
{
    global tileNcols tileNrows

    set tileNcols [lindex $new 0]
    set tileNrows [lindex $new 1]

    # Set the geometry.
    send nctext set label $tileNcols
    send nrtext set label $tileNrows
    send tileGeometry set label [format \
    	"Tile Geometry:  %-2dx%2d" $tileNcols $tileNrows]

} ; send tileOptions addCallback tileOptions


proc tileSetRows { widget args } \
{
    global nframes tile_frames

    set nx [send nctext get label]
    set ny [send nrtext get label]

    if {$widget == "nrdecrease" && [expr ($ny-1)] > 0} {
	incr ny -1
    } elseif {$widget == "nrincrease" && [expr ($ny+1)] <= $nframes} {
	incr ny 1
    } else {
	return
    }
    set geom [format "%dx%d" $nx $ny]
    send client setOption tileGeom $geom $tile_frames
} ; foreach w { nrdecrease nrincrease } { send $w addCallback tileSetRows }

proc tileSetCols { widget args } \
{
    global nframes tile_frames

    set nx [send nctext get label]
    set ny [send nrtext get label]

    if {$widget == "ncdecrease" && [expr ($nx-1)] > 0} {
	incr nx -1
    } elseif {$widget == "ncincrease" && [expr ($nx+1)] <= $nframes} {
	incr nx 1
    } else {
	return
    }
    set geom [format "%dx%d" $nx $ny]
    send client setOption tileGeom $geom $tile_frames
} ; foreach w { ncdecrease ncincrease } { send $w addCallback tileSetCols }


# Initialize the frame tiling.
setAllTileFrames
selectTileOrientation junk junk Disabled
selectFillStyle byRows  junk True
selectFillStyle topDown junk True
selectTileLabels labelImname junk False

################################################################################
#  Coords Panel Callbacks.
################################################################################

# In case we need to change the values....
#global wcsPHeight wcsPTxtHeight wcsPGrHeight wcsPOptHeight
#set wcsPHeight		267
#set wcsPTxtHeight	132
#set wcsPGrHeight	175
#set wcsPOptHeight	233
#setCoordPanelHeight

set wcsPHeight		267		;# full panel no options
set wcsPTxtHeight	132		;# size of text area box
set wcsPGrHeight	175		;# size of text area group
set wcsPOptHeight	233		;# extra height for opts boxes

# Set the WCS readout panel sensitivity depending on whether the ISM
# is currently enabled.
proc setCoordPanelSensitivity args \
{
    set widgets { 
	wpWcs2 wpWcs3 wpWcs4 
	wiWcs2 wiWcs3 wiWcs4 
	wlWcs2 wlWcs3 wlWcs4
	sysWcs2 sysWcs3 sysWcs4 
	fmtWcs2 fmtWcs3 fmtWcs4
    }

    send sysWcs1 set label "Display"
    send fmtWcs1 set label "Default"

    for {set i 2} {$i <= 4} {incr i} {
        send sysWcs$i set label "None" ; send fmtWcs$i set label "Default"
        send wpWcs$i  set on False     ; send wiWcs$i  set on False
        send wtWcs$i  set height 4
    }

    if {[send ismToggle get on]} {
        send sysWcs2 set label "World" ; send fmtWcs2 set label "Default"
	send wpWcs2  set on True       ; send wiWcs2  set on True
        send wtWcs2  set height 17

        foreach w $widgets { send $w setSensitive True }
    } else {
        foreach w $widgets { send $w setSensitive False }
    }
}


# Set the Coords Panel height  depending on the option settings.
proc setCoordPanelHeight args \
{
    global wcsPHeight wcsPOptHeight wcsPTxtHeight wcsPGrHeight
    global tabTop

    if {$tabTop != "wcs_panel"} \
	return

    # Get the height of the text area
    set panel_h $wcsPHeight
    set shrinkage 0
    foreach w { wpWcs1 wpWcs2 wpWcs3 wpWcs4 woptFBinfo } {
	if {[send $w get on] == 0} {
	    incr shrinkage 13
	}
    }
    if {[send woptTitles get on] == 0} {
	incr shrinkage 26
    }

    set ph [expr ($wcsPHeight - $shrinkage)]
    if {[send wcsOptions get on] == 1} {
	incr ph $wcsPOptHeight
    }

    send wcsGroup set height [ expr ($wcsPGrHeight - $shrinkage) ]
    send wcsFrame set height [ expr ($wcsPTxtHeight - $shrinkage) ]
    send panel    set height $ph
}

# Toggle the options display for the panel.
proc wcsOptToggle { widget type state args } \
{
    global wcsPOptHeight
    set h [ send panel get height ] 
    if {$state == 1} {
	send panel set height [ expr ($h + $wcsPOptHeight) ]
    } else { 
	send panel set height [ expr ($h - $wcsPOptHeight) ]
    }
} ; send wcsOptions addCallback wcsOptToggle

# Handle the panel display toggles.
proc wcsCoordsCB { widget type state args } \
{

    set hght [ expr (($state == 1) ? 17 : 4)]
    switch $widget {
    wpWcs1	{ send wtWcs1 set height $hght	}
    wpWcs2	{ send wtWcs2 set height $hght	}
    wpWcs3	{ send wtWcs3 set height $hght	}
    wpWcs4	{ send wtWcs4 set height $hght	}
    woptFBinfo	{ send wtFBCfg set height $hght }
    woptTitles	{ send wtName set height $hght ; send wtTitle set height $hght }
    }
    setCoordPanelHeight                 
}
set wcValues { wpWcs1 wpWcs2 wpWcs3 wpWcs4 woptFBinfo woptTitles }
foreach w $wcValues { send $w addCallback wcsCoordsCB }


# Handle WCS label string options.
set wcsLabels 1
proc wcsLabelsCB { widget type state args } \
{
    global up_todo wcsLabels
    set wcsLabels $state
    #resizeCoordsBox 0
    resizeCoordsBox $up_todo
    updateCoordsBox
} ; send woptLabels addCallback wcsLabelsCB


# Toggle the BPM tracking state.
proc wcsBPMCB { widget type state args } \
{
    global ism_enable
    if ($ism_enable) { catch { send wcspix set bpm $state } }
} ; send woptBPM addCallback wcsBPMCB


# Procedures to format lines in the wcsText box.
proc wcsFmtImname { name } \
{
    send wtName    set string [format "     Name:  %s" [string trimleft $name]]
}

proc wcsFmtImtitle { title } \
{
    send wtTitle   set string [format "    Title:  %s" [string trimleft $title]]
}

proc wcsFmtFBConfig args \
{
    global frameWidth frameHeight frame nframes
    set buf [ format "%5d x %-5d" $frameWidth $frameHeight ]
    set line [ format "Frame Buf:  %-13s             Frame:  %d of %d" \
	[string trimleft $buf] $frame $nframes ]
    send wtFBCfg set string $line
}

proc wcsFmtIValue { value } \
{
    global coord
    set line [ format " Pixel:  %.11s" $value ]
    send wtIPixval set string $line
    if {[info exists coord(ival)]} {
        set coord(ival) $value
        updateCoordsBox
    }
}

proc wcsFmtSValue { value } \
{
    global coord
    set line [ format " Scaled:  %.8s" $value ]
    send wtSPixval set string $line
    set coord(sval) [format "%s" $value]
}

proc wcsFmtBValue { value } \
{
    global coord

    if { [send woptBPM get on] } {
        set line [ format " BPM:  %s" $value ]
        set color [expr { ($value == 0) ? "black" : "red" } ]
        set msg [format "set string \{%s\}; set background %s" $line $color ]
        set coord(bval) [format "%s" $value]
    } else {
        set line [ format " BPM:  (off)" ]
        set msg [format "set string \{%s\}" $line]
    }
    send wtBPixval $msg
}

proc wcsFmtWcs { num wcsname x y xunit yunit args } \
{ 
    global coord coordLab wcsLabels

    if {$wcsLabels} {
        set line [ format "%4s: %12s  %4s: %12s  WCS: %s" \
            $xunit $x $yunit $y [string trimleft $wcsname] ]
    } else {
        set line [ format "%4s  %12s  %4s  %12s       %s" \
            "    " $x "    " $y [string trimleft $wcsname] ]
    }
    send wtWcs$num set string $line

    if {[info exists coord(wcs$num)]} {
	if {$num == 1} {
            set coord(wcs1) [ format "\{%s\} \{%s\} \{%s\}" $x $y $coord(sval) ]
	} elseif {$num == 2} {
            set coord(wcs2) [ format "\{%s\} \{%s\} \{%s\}" $x $y $coord(ival) ]
	} else {
	    set coord(wcs$num) [ format "\{%s\} \{%s\} \{%s\}" $x $y $wcsname  ]
	}

	set coordLab(wcs$num) [ format "\{%s\} \{%s\} \{%s\}" \
	    $xunit $yunit [string trimleft $wcsname ] ]
        updateCoordsBox
    }
}



# Handle the wcsbox readout.
#------------------------------
set  up_todo	  2
set  up_done	  0
set  coord(ival)  0.
set  coord(sval)  0.
set  coord(bval)  0
set  coord(wcs1)  { 0. 0. 0. }
set  coord(wcs2)  { 0. 0. 0. }
set  coord(wcs3)  { 0. 0. 0. }
set  coord(wcs4)  { 0. 0. 0. }

proc wcsCoordB { widget type state args } \
{
    global coord up_todo

    switch $widget {
    wiWcs1	{ set line wcs1  ;set coord($line) { 0. 0. "" } }
    wiWcs2	{ set line wcs2  ;set coord($line) { 0. 0. "" } }
    wiWcs3	{ set line wcs3  ;set coord($line) { 0. 0. "" } }
    wiWcs4	{ set line wcs4  ;set coord($line) { 0. 0. "" } }
    }

    if {$state} {
	incr up_todo
    } else {
	unset coord($line)
	incr up_todo -1
    }

    resizeCoordsBox $up_todo
    updateCoordsBox
}
set wiValues { wiWcs1 wiWcs2 wiWcs3 wiWcs4 }
foreach w $wiValues { send $w addCallback wcsCoordB }


# Resize the coords box depending on the panel options.
proc resizeCoordsBox { nlines } \
{
    global track_enable wcsLabels winWidth winHeight wcsboxGeom 

    if {! $track_enable} \
	return

    send wcsbox getAttributes width cur_w height cur_h 
    set defGeom [format "%sx%s-5-5" $cur_w $cur_h]
    send imagewin parseGeometry $wcsboxGeom $defGeom x y width height

    set ew [expr (($wcsLabels == 1) ? 125 : 65)]

    # Reset to the default geometry
    if {$nlines == 0} {
	set x [expr ($x + $ew)]
	set y [expr ($y + $height - 17 + 1)]
	set new_w  166
	set new_h  17

    } else {
	if {$width > 166} {			;# not using default wcsbox
	    set new_w $width
	} else {
	    set new_w [expr ($width + $ew)]
	    set x [expr ($x - $ew)]
	    if {$wcsLabels == 0} {
		incr x 60
	    }
	}
        set new_h [ expr ($nlines * 17) ]
	set y [expr ($y + $height - $new_h + 1)]
    }

    # Bounds checking.
    if {$x < 5} {
	set x 5
    } elseif {$x > [expr ($winWidth - $new_w - 5)]} {
        set x [expr ($winWidth - $new_w - 5)]
    }
    if {$y < 5} {
	set y 5
    } elseif {$y > [expr ($winHeight - $new_h - 5)]} {
        set y [expr ($winHeight - $new_h - 5)]
    }

    # Finally redraw the marker.
    send wcsbox "\
        setAttributes     \
	    width  $new_w \
	    height $new_h \
	    x	   $x     \
	    y	   $y;    \
	redraw"

    set wcsboxGeom [send imagewin getGeometry $x $y $new_w $new_h]
    send client encodewcs [expr ($winWidth / 2)] [expr ($winHeight / 2)]
    updateCoordsBox
}


# Shortcuts for known WCS labels.
set labels(display)		"TV"
set labels(logical)		"Log"
set labels(physical)		"Phys"
set labels(equatorial)		"Eq"
set labels(ecliptic)		"Ecl"
set labels(galactic)		"Gal"
set labels(supergalactic)	"SGal"
set labels(amplifier)		"Amp"
set labels(ccd)			"CCD"
set labels(detector)		"Det"


# Format the coords box marker with the selected output options.
proc updateCoordsBox args \
{
    global ism_enable coord coordLab wcsLabels
    global up_done up_todo labels track_enable
    global coord

    if {! $ism_enable} \
	return

    incr up_done

    set text ""
    foreach l {wcs1 wcs2 wcs3 wcs4} {
	if {[info exists coord($l)]} {
	    set x [lindex $coord($l) 0]
	    set y [lindex $coord($l) 1]
	    set z [string tolower [string trimleft [lindex $coord($l) 2] ] ]
	    if {[info exists labels($z)]} {
		set z $labels($z)
	    }

	    if {$wcsLabels && [info exists coordLab($l)]} {
	        set lx [lindex $coordLab($l) 0]
	        set ly [lindex $coordLab($l) 1]
	        append text [format " %4s %12.12s %4s %12.12s %9.9s \n" \
		    $lx $x $ly $y $z ]
	    } else {
	        append text [format " %12.12s %12.12s %9.9s \n" $x $y $z ]
	    }
	}
    }

    # Now send the string.
    if {$track_enable} {
	set color [expr { ($coord(bval) == 0) ? "black" : "red" } ]
        set txt [format "set text \{%s\}; set textBgColor %s; redraw noerase" \
		$text $color ]
        send wcsbox $txt
    }

    if {$up_done >= $up_todo} {
        set up_done	0			;# reset counter
    }
}


# Create the WCS format menus.
#------------------------------------
proc setWcsFmt { format line } \
{
    catch { send wcspix set format $format $line }
}

for {set i 1} {$i <= 4} {incr i} {
   set items {}
   lappend items "\"Default\"     f.exec \{setWcsFmt default $i\}"
   lappend items "\"Sexigesimal\" f.exec \{setWcsFmt hms     $i\}"
   lappend items "\"Degrees\"     f.exec \{setWcsFmt deg     $i\}"
   lappend items "\"Radians\"     f.exec \{setWcsFmt rad     $i\}"
   editMenu fmtMenu$i fmtWcs$i $items
}


# Create the default WCS type menus.
#------------------------------------

set defaultWcsMenu {
   { "None"		f.exec	{setWcsSys none     WCS_LINE } }
   { "Display"		f.exec	{setWcsSys display  WCS_LINE } }
   { "World"		f.exec	{setWcsSys world    WCS_LINE } }
   { "Logical"		f.exec	{setWcsSys logical  WCS_LINE } }
   { "Physical"		f.exec	{setWcsSys physical WCS_LINE } }
   { 			f.dblline	}
}

proc setWcsSys { sys line } \
{
    if {[string tolower $sys] == "none"} {
        wcsCoordB wiWcs$line junk 0
        send sysWcs$line set label "None"; send fmtWcs$line set label "Default"
        send wpWcs$line  set on False    ; send wiWcs$line  set on False
        send wtWcs$line  set height 4
	setCoordPanelHeight

    } else {
        catch { send wcspix set wcs $sys $line }
    }
}

proc resetDefaultWcsMenu args \
{
    global defaultWcsMenu

    for {set i 1} {$i <= 4} {incr i} {
        regsub -all WCS_LINE $defaultWcsMenu $i menu_def
        editMenu sysMenu$i sysWcs$i $menu_def
    }
} ; resetDefaultWcsMenu


# Initialize the coordinates panel.
#------------------------------------

proc initCoordsPanel args \
{
    #send wcLine set height 2		;# kludge for label widget

    # Initialize the display strings in the coords box.
    wcsFmtImname   ""
    wcsFmtImtitle  ""
    wcsFmtFBConfig
    wcsFmtIValue  "0." ; wcsFmtSValue "0." ; wcsFmtBValue "0"
    wcsFmtWcs      1 "" "" "" "   X" "   Y"
    wcsFmtWcs      2 "" "" "" "   X" "   Y"
    wcsFmtWcs      3 "" "" "" "   X" "   Y"
    wcsFmtWcs      4 "" "" "" "   X" "   Y"

    send fmtWcs1 set label Default
    send wpWcs1 set on True  ;send wiWcs1 set on True
    send wpWcs2 set on True  ;send wiWcs2 set on True
    send wpWcs3 set on False ;send wiWcs3 set on False ;send wtWcs3 set height 4
    send wpWcs4 set on False ;send wiWcs4 set on False ;send wtWcs4 set height 4

    # Set the Coords Panel height.
    set wcsPTxtHeight [send wcsText get height]
    setCoordPanelHeight

    # Set the WCS readout panel sensitivity.
    setCoordPanelSensitivity

} ; initCoordsPanel




################################################################################
# Compass indicator procedures.
################################################################################

set compassColor	207			;# normally this is yellow
set last_compass	[send compass get on]	;# save compass state

proc drawCompass args \
{
    global ism_enable frame frameCache compassColor Compass Orient
    global panner_x panner_y panner_width panner_height cur_objid
    global redraw_compass last_compass


    if {! [send compass get on]} \
	return

    eraseCompass 				;# erase the old compass

    if {! [info exists frameCache($frame)] } {
        set id -1
    } elseif {$cur_objid != [lindex $frameCache($frame) 1]} {
        set id [lindex $frameCache($frame) 1]
    } else {
        set id $cur_objid
    }

    if { [info exists Compass($id)] } {
        set angle     [lindex $Compass($id) 0]
        set n_x   [lindex $Compass($id) 1]
        set n_y   [lindex $Compass($id) 2]
        set e_x    [lindex $Compass($id) 3]
        set e_y    [lindex $Compass($id) 4]
        set trans [lindex $Compass($id) 5]
        set xlab      [lindex $Compass($id) 6]
        set ylab      [lindex $Compass($id) 7]
    } else {
	set n_x  0.0   	; set n_y  1.0
	set e_x   1.0	; set e_y   0.0
	set xlab       X   	; set ylab       Y
        set angle    0.0   	; set trans  0
	set Compass($id) { 0.0 1.0 0.0 1.0 0.0 0 X Y }
    }
    set xflip 1
    set yflip 1

    # Adjust the compass for the display orientation (e.g. image sections
    # used to flip an image during display).
    if { [info exists Orient($id)] } {
        set xflip [expr $xflip * [lindex $Orient($id) 1] ]
        set yflip [expr $yflip * [lindex $Orient($id) 2] ]
    }

    # Get the panner center position.
    set pcx [expr ($panner_x + $panner_width  / 2)]
    set pcy [expr ($panner_y + $panner_height / 2)]

    # Setup for the overlay.
    send imagewin getLogRes  sv_xl sv_yl
    send imagewin getPhysRes sv_xp sv_yp
    send imagewin setLogRes $sv_xp $sv_yp
    send imagewin setLineWidth 2

    set xflip [ expr ($xflip * ([send xflipButton get state] ?  -1 : 1))]
    set yflip [ expr ($yflip * ([send yflipButton get state] ?  -1 : 1))]

    # Normalized compass points.  The first row are the axes, second is
    # the pointer head, and last are the X/Y label coords.  Assumes a
    # zero rotation with North up and East left, or standard X/Y orientation.
    set cpoints {
	{-1 0} {0 0} {0 -1}
	{-0.07 -0.85} {0 -1} {0.07 -0.85} {-0.07 -0.85}
	{-1.2 0} {0 -1.2}
    }


    # Get rotation and scale factors.
    set angle [expr "atan2($n_y,$n_x)"]
    set scale [expr ([min $panner_width $panner_height] * 0.3)]

    # Initialize the graphics.
    send imagewin setColorIndex $compassColor
    send imagewin setFillType solid

    # Now draw the parts of the compass.
    drawCompassAxes   $n_x $n_y $e_x $e_y $trans $xflip $yflip $scale \
	$pcx $pcy
    drawCompassLabels $n_x $n_y $e_x $e_y $trans $xflip $yflip $scale\
	 $pcx $pcy $xlab $ylab
    drawCompassPtr   $n_x $n_y $e_x $e_y $trans $xflip $yflip $scale \
	$pcx $pcy $angle

    # Reset the logical resolution of the window.
    send imagewin setLogRes $sv_xl $sv_yl
    set redraw_compass 0

} ; foreach w {xflip yflip} { send $w addCallback drawCompass }


proc drawCompassAxes {n_x n_y e_x e_y trans xflip yflip scale pcx pcy} {

    set cpoints { }
    lappend cpoints [list $e_x  $e_y ]
    lappend cpoints [list 0 0]
    lappend cpoints [list $n_x $n_y]
    foreach p $cpoints {
	# Get the scaled position.
	set sx [expr ($scale * [lindex $p [expr "($trans > 0) ? 1 : 0"]])]
	set sy [expr ($scale * [lindex $p [expr "($trans > 0) ? 0 : 1"]])]

	# Translate to the scaled position.
	set rx [expr int($pcx + $sx + 0.5)]
	set ry [expr int($pcy - $sy + 0.5)]

	# Now handle the axis flip.
	set rx [expr (($xflip < 0) ? ($pcx + ($pcx - $rx)) : $rx)]
	set ry [expr (($yflip < 0) ? ($pcy + ($pcy - $ry)) : $ry)]
	lappend pts $rx $ry
    }

    # Draw the compass axes.
    send imagewin drawPolyline $pts
}

proc drawCompassLabels {n_x n_y e_x e_y trans xflip yflip scale pcx pcy xlab ylab} {

    set pts { }
    set lpoints { }
    lappend lpoints [list [expr "$e_x-0.2"] $e_y ]
    lappend lpoints [list $n_x [expr "$n_y+0.2"] ]
    foreach p $lpoints {
	# Get the scaled position.
	set sx [expr ($scale * [lindex $p [expr "($trans > 0) ? 1 : 0"]])]
	set sy [expr ($scale * [lindex $p [expr "($trans > 0) ? 0 : 1"]])]

	# Translate to the scaled position.
	set rx [expr int($pcx + $sx + 0.5)]
	set ry [expr int($pcy - $sy - 0.5)]

	# Now handle the axis flip.
	set rx [expr (($xflip < 0) ? ($pcx + ($pcx - $rx)) : $rx)]
	set ry [expr (($yflip < 0) ? ($pcy + ($pcy - $ry)) : $ry)]
	lappend pts $rx $ry
    }

    # Draw the labels.
    send imagewin drawAlphaText [lindex $pts 0] [lindex $pts 1] $xlab
    send imagewin drawAlphaText [lindex $pts 2] [lindex $pts 3] $ylab
}

proc drawCompassPtr {n_x n_y e_x e_y trans xflip yflip scale pcx pcy angle} {

    set coso  [expr "cos (-$angle)"]
    set sino  [expr "sin (-$angle)"]

    # Initialize the drawing points.
    set pts {}
    set hpoints { {0.0 0.0} {-0.1 -0.07} {-0.1 0.07} {0.0 0.0} }
    foreach p $hpoints {
	# Break out the position.
	set sx [lindex $p [expr "($trans > 0) ? 1 : 0"]]
	set sy [lindex $p [expr "($trans > 0) ? 0 : 1"]]

	# Do the rotation of the head at the origin.
	set rx [expr ($n_x + ($sx * $coso + $sy * $sino))]
	set ry [expr ($n_y - ($sx * $sino + $sy * $coso))]

	# Get the scaled position.
	set sx [expr ($scale * $rx)]
	set sy [expr ($scale * $ry)]

	# Translate to the scaled position.
	set rx [expr int($pcx + $sx + 0.5)]
	set ry [expr int($pcy - $sy + 0.5)]

	# Now handle the axis flip.
	set rx [expr (($xflip < 0) ? ($pcx + ($pcx - $rx)) : $rx)]
	set ry [expr (($yflip < 0) ? ($pcy + ($pcy - $ry)) : $ry)]
	lappend pts $rx $ry
    }

    # Draw the compass pointer.
    send imagewin drawPolygon $pts
}

proc eraseCompass args \
{
    global panner_mapping
    send imagewin refreshMapping $panner_mapping
}

proc toggleCompass { widget type state args } \
{
    global last_compass

    if {$state} {
	drawCompass
	set last_compass True
    } else {
	eraseCompass
	set last_compass False
    }
} ; send compass addCallback toggleCompass



     
################################################################################
# RULER MARKERS
################################################################################

set rulerX	0			;# ruler start in screen coords
set rulerY	0
set rulerPts	{ {0 0} {0 0} {0 0} }	;# ruler vertices
set rulerList	{ }			;# ruler list

set rulerSticky	{ }			;# list of sticky rulers
set isSticky	"Sticky"		;# menu label

set rulerWCS	0			;# use WCS coords
set rulerXWCS	0			;# ruler start in WCS units
set rulerYWCS	0
set rulerXWCS2	0			;# ruler end in WCS units
set rulerYWCS2	0
set rulerFmt	pixel			;# ruler label format


# Translations when pointer is inside marker.
set rulerTranslations { \
      !Ctrl <Key>b: call(prevFrame,$name)
      !Ctrl <Key>b: call(prevFrame,$name)
      !Ctrl <Key>f: call(nextFrame,$name)
      !Ctrl <Key>h: call(move_cursor,-1,0)
      !Ctrl <Key>j: call(move_cursor,0,1)
      !Ctrl <Key>k: call(move_cursor,0,-1)
      !Ctrl <Key>l: call(move_cursor,1,0)
      !Ctrl <Key>n: call(normalize)
      !Ctrl <Key>c: call(cpZoomAction,centerFrame)
      !Ctrl <Key>i: call(cpInvert)
      !Ctrl <Key>m: call(cpMatchFrames)
      !Ctrl <Key>r: call(cpRegisterFrames)
      !Ctrl <Key>p: call(togglePanner)
       !Alt <Key>1: call(cpSetFrame,frame1)
       !Alt <Key>2: call(cpSetFrame,frame2)
       !Alt <Key>3: call(cpSetFrame,frame3)
       !Alt <Key>4: call(cpSetFrame,frame4)
      !Ctrl <Key>1: call(cpZoom,1,1,fixed)
      !Ctrl <Key>2: call(cpZoom,2,2,fixed)
      !Ctrl <Key>3: call(cpZoom,3,3,fixed)
      !Ctrl <Key>4: call(cpZoom,4,4,fixed)
      !Ctrl <Key>5: call(cpZoom,5,5,fixed)
      !Ctrl <Key>6: call(cpZoom,6,6,fixed)
      !Ctrl <Key>7: call(cpZoom,7,7,fixed)
      !Ctrl <Key>8: call(cpZoom,8,8,fixed)
      !Ctrl <Key>9: call(cpZoom,9,9,fixed)
    <Key>BackSpace: call(deleteNamedRuler,NAME,$x,$y)
       <Key>Delete: call(deleteNamedRuler,NAME,$x,$y)
	<KeyPress>: m_input()
	<Btn3Down>: call(setRulerMenu) popup(rulerMenu)
	  <Btn3Up>: popdown(rulerMenu)
!Ctrl <Btn1Motion>: track-cursor() call(wcsUpdate,$x,$y) call(resizeRuler,$x,$y,0)
    !Ctrl <Btn1Up>: call(deleteRuler,$x,$y)
	  <Motion>: track-cursor() call(wcsUpdate,$x,$y) call(magnifierMapImage,$x,$y)
}



# Popup menu in effect when inside marker.
set rulerMenuDescription {
    {	"Ruler"    	  f.title			}
    {		    	  f.dblline			}
    {	"$isSticky"	  f.exec { 
			      toggleSticky $ruler
			  }				}
    {		    	  f.line			}
    {	"Units"	  	  f.menu rulerUnits		}
    {	"Color"	  	  f.menu rulerColor		}
    {		    	  f.line			}
    {	"Draw into Frame" f.exec { 
			      writeRuler $ruler
			  } sensitive False		}
    {		    	  f.line			}
    {	"Destroy"	  f.exec { 
		              scan $ruler "ruler%d" num
		              deleteNamedRuler $num x y
		    	  }				}
} ; createMenu rulerMenu imagewin $rulerMenuDescription

set rulerUnitsDescription {
    {	Units		f.title				  }
    {			f.dblline			  }
    {	"Pixels"	f.exec { setUnits $ruler pixel  } }
    {	"Arc Seconds"  	f.exec { setUnits $ruler arcsec  
			} sensitive { ($rulerWCS > 0) ? "True" : "False"} }
    {	"Arc Minutes"   f.exec { setUnits $ruler arcmin  
			} sensitive { ($rulerWCS > 0) ? "True" : "False"} }
    {	"Degrees"   	f.exec { setUnits $ruler degrees 
			} sensitive { ($rulerWCS > 0) ? "True" : "False"} }
} ; createMenu rulerUnits rulerMenu $rulerUnitsDescription

set rulerColorDescription {
    {	Color	f.title					}
    {		f.dblline				}
    {	""	f.exec "r_setColor $ruler black yellow"
		    bitmap solid foreground black 	}
    {	""	f.exec "r_setColor $ruler white black" 
		    bitmap solid foreground white 	}
    {	""	f.exec "r_setColor $ruler red yellow" 
		    bitmap solid foreground red 	}
    {	""	f.exec "r_setColor $ruler green black" 
		    bitmap solid foreground green 	}
    {	""	f.exec "r_setColor $ruler blue white" 
		    bitmap solid foreground blue 	}
    {	""	f.exec "r_setColor $ruler magenta black" 
		    bitmap solid foreground magenta 	}
    {	""	f.exec "r_setColor $ruler cyan black" 
		    bitmap solid foreground cyan 	}
    {	""	f.exec "r_setColor $ruler yellow black" 
		    bitmap solid foreground yellow 	}
} ; createMenu rulerColor rulerMenu $rulerColorDescription


proc makeRuler {parent x y} \
{
    global rulerTranslations ruleno rulerWCS rulerXWCS rulerYWCS
    global rulerPts rulerX rulerY rulerList
    global isSticky rulerMenuDescription rulerUnitsDescription
    global coord coordLab


    incr ruleno ; set ruler ruler$ruleno

    # Substitute so the marker translation will delete the marker
    # by it's number rather than the default parent widget name.
    regsub -all NAME $rulerTranslations $ruleno translations

    # Create the polygon for the marker.
    send $parent createMarker $ruler \
	type		polygon\
	createMode	noninteractive\
	translations	$translations\
        lineColor       yellow\
        fill       	False\
        highlightWidth  1\
        highlightColor  yellow\
        knotSize        0\
        activated       True\
        visible         False\
        sensitive       True\
	x		$x\
	y		$y

    # Define a callback so we can identify the ruler.
    send $ruler addCallback selectRuler focusIn focusOut

    # Create the text markers for the labels.
    send $parent set markerTextFont 6x9
    makeLabelMarker $parent rulerXlab$ruleno 5ch 1ch
    makeLabelMarker $parent rulerYlab$ruleno 5ch 1ch
    makeLabelMarker $parent rulerHlab$ruleno 8ch 1ch
    send $parent set markerTextFont 6x13

    set rulerX	$x				;# save the reference point
    set rulerY	$y

    set ref [ list $x $y ]			;# initialize the polygon
    set rx [ list [expr "$x +1"] $y ]
    set ry [ list $x [expr "$y +1"] ]
    set rulerPts [list $ref $rx $ry ]

    send $ruler setVertices $rulerPts		;# set attributes
    send $ruler set visible True"
    send $ruler setAttribute autoRedraw True

    # See whether we have a WCS to use.
    set rulerWCS  0
    set rulerXWCS 0
    set rulerYWCS 0
    for {set num 1} {$num <= 4 && $rulerWCS == 0} {incr num} {
	if { [info exists coordLab(wcs$num)] } {
	    set xl  [string tolower [lindex $coordLab(wcs$num) 0]]
	    set yl  [string tolower [lindex $coordLab(wcs$num) 1]]
	    set fmt [string tolower [send fmtWcs$num get label] ]
	    if {$xl=="  ra" || $xl=="elon" || $xl=="glon" || $xl=="slon"} {
		set rulerWCS $num
        	set rulerXWCS [wcs2log [lindex $coord(wcs$num) 0] $xl $fmt]
        	set rulerYWCS [wcs2log [lindex $coord(wcs$num) 1] $yl $fmt]
	    }
	}
    }

    # Edit the menus.
    set isSticky "Sticky"
    editMenu rulerMenu  imagewin $rulerMenuDescription
    editMenu rulerUnits imagewin $rulerUnitsDescription


    lappend rulerList $ruleno
}

proc wcs2log { val label fmt} \
{
    set newval $val
    if {$fmt == "sexigesimal" || $fmt == "default"} {
	scan $val "%d:%d:%f"  h m s
	set newval [expr "double($h) + double($m) / 60.0 + double($s) / 3600.0"]
	if {$label == "  ra"} {
	    set newval [expr "double($newval * 15.0)"]
	}
    }
    return [expr "double($newval)" ]
}


proc resizeRuler {x y redraw} \
{
    global rulerPts rulerX rulerY ruleno coord coordLab
    global rulerWCS rulerXWCS rulerYWCS rulerFmt
    global rulerXWCS2 rulerYWCS2


    # Track the mouse.
    set ref [ list $rulerX $rulerY ]
    set rx  [ list $x      $rulerY ]
    set ry  [ list $x      $y      ]
    set rulerPts [list $ref $rx $ry ]

    # Compute the distances.
    if {$rulerWCS > 0} {
 	set num $rulerWCS
	set xl  [string tolower [lindex $coordLab(wcs$num) 0]]
	set yl  [string tolower [lindex $coordLab(wcs$num) 1]]
	set fmt [string tolower [send fmtWcs$num get label] ]

	# Save the cursor coords in WCS so we can convert labels.
	if {$redraw} {
            set nx $rulerXWCS2
            set ny $rulerYWCS2
	} else {
            set nx  [wcs2log [lindex $coord(wcs$num) 0] $xl $fmt]
       	    set ny  [wcs2log [lindex $coord(wcs$num) 1] $yl $fmt]
            set rulerXWCS2 $nx
            set rulerYWCS2 $ny
	}
    }

    if {$rulerFmt == "pixel"} {
        set xdist [ expr "abs($x - $rulerX)" ]
        set ydist [ expr "abs($y - $rulerY)" ]
        set hdist [ expr "sqrt($xdist * $xdist + $ydist * $ydist)" ]
    } else {
        set xdist [ expr "abs($nx - $rulerXWCS)" ]
        set ydist [ expr "abs($ny - $rulerYWCS)" ]
        set hdist [ expr "sqrt($xdist * $xdist + $ydist * $ydist)" ]
    }

    # Redraw the polygon.
    send ruler$ruleno setVertices $rulerPts

    # Label the distances.
    setXRulerLabel $x $y $xdist
    setYRulerLabel $x $y $ydist
    setHRulerLabel $x $y $hdist
}

# Create a label marker for the ruler.
proc makeLabelMarker { parent name width height } \
{
    send $parent createMarker $name \
        type            text \
        createMode      noninteractive \
        width           $width \
        height          $height \
        lineWidth       0 \
        imageText       true \
        textBgColor     yellow \
        textColor       black \
        activated       true \
        visible         false
}

proc setXRulerLabel { cx cy dist } \
{
    global rulerX rulerY ruleno winWidth winHeight
    global cpXscale rulerFmt

    send rulerXlab$ruleno set visible False

    if {[expr "abs($cx - $rulerX)"] > 30} {
	switch $rulerFmt {
	pixel	{ set text [format "%.1f" [expr "$dist / $cpXscale"] ]	}
	arcsec	{ set text [format "%.2f\"" [expr "$dist * 3600.0"] ] 	}
	arcmin	{ set text [format "%.2f\'" [expr "$dist * 60.0"] ] 	}
	degrees	{ set text [format "%.2fd" "$dist" ] 			}
	}
	set len [expr [string length $text] + 1]
	send rulerXlab$ruleno "set width ${len}ch"

	# Compute the placement of the label marker.
	if {$cy > $rulerY} {
	    set yp [expr "$rulerY - 14"]
	} else {
	    set yp [expr "$rulerY + 2"]
	}
	if {$cx > $rulerX} {
	    set xp [expr "$rulerX + abs($cx - $rulerX)/2 - 10"]
	} else {
	    set xp [expr "$rulerX - abs($cx - $rulerX)/2 - 10"]
	}

	# Bounds checking.
	if {$xp < 0} { set xp 1 }
	if {$yp < 0} { set yp 1 }
	if {$xp > $winWidth}  { set xp [expr "$winWidth - 20" }
	if {$yp > $winHeight} { set yp [expr "$winHeight - 20" }

	send rulerXlab$ruleno "setAttributes x $xp y $yp"
	send rulerXlab$ruleno "set text \{$text\}; redraw erase"

	send rulerXlab$ruleno set visible True
    }
}

proc setYRulerLabel { cx cy dist } \
{
    global rulerX rulerY ruleno winWidth winHeight
    global cpYscale rulerFmt

    send rulerYlab$ruleno set visible False

    if {[expr "abs($cy - $rulerY)"] > 20} {
	switch $rulerFmt {
	pixel	{ set text [format "%.1f" [expr "$dist / $cpYscale"] ]	}
	arcsec	{ set text [format "%.2f\"" [expr "$dist * 3600.0"] ] 	}
	arcmin	{ set text [format "%.2f\'" [expr "$dist * 60.0"] ] 	}
	degrees	{ set text [format "%.2fd" "$dist" ] 			}
	}
	set len [expr [string length $text] + 1]
	send rulerYlab$ruleno "set width ${len}ch"

	# Compute the placement of the label marker.
	if {$cx > $rulerX} {
	    set xp [expr "$cx + 2"]
	} else {
	    set xp [expr "$cx - $len * 6 - 5"]
	}
	if {$cy > $rulerY} {
	    set yp [expr "$rulerY + abs($cy - $rulerY)/2"]
	} else {
	    set yp [expr "$rulerY - abs($cy - $rulerY)/2"]
	}

	# Bounds checking.
	if {$xp < 0} { set xp 1 }
	if {$yp < 0} { set yp 1 }
	if {$xp > $winWidth}  { set xp [expr "$winWidth - 20" }
	if {$yp > $winHeight} { set yp [expr "$winHeight - 20" }

	send rulerYlab$ruleno "setAttributes x $xp y $yp"
	send rulerYlab$ruleno "set text \{$text\}; redraw erase"
	send rulerYlab$ruleno set visible True
    } 
}

proc setHRulerLabel { cx cy dist } \
{
    global rulerX rulerY ruleno winWidth winHeight
    global cpYscale cpXscale rulerFmt

    send rulerHlab$ruleno set visible False

    set xdist [ expr "abs($cx - $rulerX)" ]
    set ydist [ expr "abs($cy - $rulerY)" ]
    set hdist [ expr "sqrt($xdist * $xdist + $ydist * $ydist)" ]

    if {$hdist > 30} {
	switch $rulerFmt {
	pixel	{ set text [format "%.1f" [expr "$dist / $cpXscale"] ]	}
	arcsec	{ set text [format "%.2f\"" [expr "$dist * 3600.0"] ] 	}
	arcmin	{ set text [format "%.2f\'" [expr "$dist * 60.0"] ] 	}
	degrees	{ set text [format "%.2fd" "$dist" ] 			}
	}
	set len [expr [string length $text] + 1]
	send rulerHlab$ruleno "set width ${len}ch"

	# Compute the placement of the label marker.
	if {$cx > $rulerX} {
	    set xp [expr "$rulerX + abs($cx - $rulerX)/2 - $len * 6"]
	} else {
	    set xp [expr "$rulerX - abs($cx - $rulerX)/2 - $len * 3"]
	}
	if {$cy > $rulerY} {
	    set yp [expr "$rulerY + abs($cy - $rulerY)/2"]
	} else {
	    set yp [expr "$rulerY - abs($cy - $rulerY)/2"]
	}

	# Bounds checking.
	if {$xp < 0} { set xp 1 }
	if {$yp < 0} { set yp 1 }
	if {$xp > $winWidth}  { set xp [expr "$winWidth - 20" }
	if {$yp > $winHeight} { set yp [expr "$winHeight - 20" }

	send rulerHlab$ruleno "setAttributes x $xp y $yp"
	send rulerHlab$ruleno "set text \{$text\}; redraw erase"
	send rulerHlab$ruleno set visible True
    } else {
	send rulerHlab$ruleno set visible False
    }
}


# Callback executed when a marker gets or loses the focus.
proc selectRuler {active_ruler event event_data} \
{
    global ruler
    switch $event {
	focusIn		{ set ruler $active_ruler }
	focusOut	{  }
    }
}

# Reset the ruler format type.
proc setUnits { ruler units } \
{
    global rulerFmt rulerX rulerY

    send $ruler getVertices pts
    set rulerX [lindex [lindex [lindex $pts 0] 0] 0]
    set rulerY [lindex [lindex [lindex $pts 0] 0] 1]
    set cx [lindex [lindex [lindex $pts 0] 1] 0] ; incr cx -1
    set cy [lindex [lindex [lindex $pts 0] 2] 1] ; incr cy -1

    set rulerFmt $units
    resizeRuler $cx $cy 1
}

# Menu option toggle callbacks.
proc toggleSticky { ruler } \
{
    global isSticky rulerSticky rulerMenuDescription

    set index [ lsearch $rulerSticky $ruler]
    if { $index >= 0 } {
	# Remove it from the list.
    	set rulerSticky [lreplace $rulerSticky $index $index]
	set isSticky "Sticky"
    } else {
	# Add it to the list.
	lappend rulerSticky $ruler 
	set isSticky "UnSticky"
    }
    editMenu rulerMenu imagewin $rulerMenuDescription
}

proc setRulerMenu args \
{
    global ruler isSticky rulerSticky rulerMenuDescription

    if { [lsearch $rulerSticky $ruler] >= 0 } {
	set isSticky "UnSticky"
    } else {
	set isSticky "Sticky"
    }
    editMenu rulerMenu imagewin $rulerMenuDescription
}


# Draw the ruler to the frame buffer as a graphic.
proc writeRuler { ruler } \
{
}

# Change the color of the ruler.
proc r_setColor {ruler bgcolor fgcolor}  {
			    
    # Recolor the polygon.
    send $ruler \
	"markpos; set lineColor $bgcolor; set highlightColor $bgcolor; redraw"

    # Recolor the labels.
    scan $ruler "ruler%d" num
    send rulerXlab$num \
	"markpos; set textBgColor $bgcolor; set textColor $fgcolor; redraw"
    send rulerYlab$num \
	"markpos; set textBgColor $bgcolor; set textColor $fgcolor; redraw"
    send rulerHlab$num \
	"markpos; set textBgColor $bgcolor; set textColor $fgcolor; redraw"
}


# Delete the current ruler, called when we have a Btn1Up on the current ruler.
proc deleteRuler {x y} { global ruleno ; deleteNamedRuler $ruleno $x $y }

# Delete all rulers on the screen, usually called when the view changes.
# We preserve the rulers marked as 'sticky'.
proc deleteAllRulers args \
{
    global rulerList rulerSticky

    foreach r $rulerList { 
        # Delete the ruler if it's not in the sticky list.
        if { [lsearch $rulerSticky ruler$r] == -1 } {
	    deleteNamedRuler $r x y 
        }
    }
}

# Delete a particular ruler, usually called from the translation table on
# the marker itself.
proc deleteNamedRuler {name x y} \
{
    global rulerList

    catch {
	send ruler$name      destroy
	send rulerXlab$name  destroy
	send rulerYlab$name  destroy
	send rulerHlab$name  destroy
    }

    # Remove the ruler from the list.
    set index [lsearch $rulerList $name]
    set rulerList [lreplace $rulerList $index $index]
}





###############################################
# Define procedure for the help panel
###############################################

# Help Panel Bitmaps
#-------------------
createBitmap iraf_logo 45 45 {
0xff, 0x3f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xff,
0xff, 0x3f, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xfc, 0xff, 0xff, 0xff,
0xff, 0x3f, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xf0, 0xff, 0xff, 0xff,
0xff, 0x3f, 0xf0, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xe0, 0xff, 0xff, 0xff,
0xff, 0x3f, 0xc0, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xc0, 0xff, 0xff, 0xff,
0xff, 0x3f, 0x80, 0xff, 0xff, 0xff, 0xff, 0x3f, 0x80, 0xfc, 0xff, 0xff,
0xff, 0x3f, 0x84, 0xf8, 0xff, 0xff, 0xff, 0x1f, 0x84, 0xf4, 0xff, 0xff,
0xff, 0x1b, 0x04, 0x09, 0x00, 0xfc, 0xff, 0x11, 0x04, 0x11, 0xf8, 0xff,
0x7f, 0x10, 0x04, 0x21, 0xc0, 0xff, 0x1f, 0x10, 0x04, 0x41, 0xf0, 0xff,
0x00, 0x18, 0x04, 0x01, 0xe0, 0xff, 0x00, 0x18, 0x00, 0x81, 0xc0, 0xff,
0x00, 0x08, 0x00, 0x01, 0xe0, 0xff, 0x07, 0x08, 0x00, 0x01, 0xf1, 0xff,
0x1f, 0x08, 0x80, 0x21, 0xf0, 0xff, 0xff, 0x08, 0xc0, 0x41, 0xf4, 0xff,
0xff, 0x08, 0xc0, 0x41, 0xf8, 0xff, 0xff, 0x09, 0xc0, 0xc1, 0xf0, 0xff,
0xff, 0x0b, 0x80, 0xc1, 0xf1, 0xff, 0xff, 0x07, 0x80, 0x81, 0xe1, 0xff,
0xff, 0x07, 0x80, 0x01, 0xc1, 0xff, 0xff, 0x07, 0x00, 0x01, 0xc0, 0xff,
0xff, 0x07, 0xc2, 0x05, 0x81, 0xff, 0xff, 0x07, 0xf2, 0x07, 0x81, 0xff,
0xff, 0x07, 0xf2, 0x17, 0x03, 0xff, 0xff, 0x03, 0xfa, 0x7f, 0x02, 0xfe,
0xff, 0x03, 0xfe, 0xff, 0x02, 0xfe, 0xff, 0x03, 0xfe, 0xff, 0x03, 0xfc,
0xff, 0x03, 0xff, 0xff, 0x07, 0xfc, 0xff, 0x83, 0xff, 0xff, 0x0f, 0xf8,
0xff, 0xc1, 0xff, 0xff, 0x3f, 0xf0, 0xff, 0xe1, 0xff, 0xff, 0x7f, 0xf8,
0xff, 0xf1, 0xff, 0xff, 0xff, 0xf0, 0xff, 0xf8, 0xff, 0xff, 0xff, 0xe0,
0xff, 0xf8, 0xff, 0xff, 0xff, 0xe3, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xe7,
0xff, 0xfc, 0xff, 0xff, 0xff, 0xef}; send helpIRAFLogo "set bitmap iraf_logo"
 
createBitmap noao_logo 45 45 {
0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
0xff, 0xff, 0xdf, 0xff, 0xff, 0xff, 0xff, 0xff, 0x03, 0xfe, 0xff, 0xff,
0xff, 0xff, 0x01, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x00, 0xf8, 0xff, 0xff,
0xff, 0xff, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x00, 0xf8, 0xff, 0xff,
0xff, 0x7f, 0x00, 0xf0, 0xff, 0xff, 0xff, 0xff, 0x00, 0xf8, 0xff, 0xff,
0xff, 0xff, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x00, 0xf8, 0xff, 0xff,
0xff, 0xff, 0x01, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x03, 0xfe, 0xff, 0xff,
0xff, 0xff, 0xdf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xdf, 0xff, 0xff, 0xff,
0xff, 0xff, 0x8f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x8f, 0xff, 0xff, 0xff,
0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff,
0xff, 0xff, 0x03, 0xfe, 0xff, 0xff, 0xff, 0xff, 0x03, 0xfe, 0xff, 0xff,
0xff, 0xff, 0x01, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x01, 0xfc, 0xff, 0xff,
0xff, 0xff, 0x00, 0xf8, 0xff, 0xff, 0xff, 0x7f, 0x00, 0xf0, 0xff, 0xff,
0xff, 0x7f, 0x00, 0xf0, 0xff, 0xff, 0xff, 0x3f, 0x00, 0xe0, 0xff, 0xff,
0xff, 0x3f, 0x00, 0xe0, 0xff, 0xff, 0xff, 0x1f, 0x00, 0xc0, 0xff, 0xff,
0xff, 0x1f, 0x00, 0xc0, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x80, 0xff, 0xff,
0xff, 0x0f, 0x00, 0x80, 0xff, 0xff, 0xff, 0x07, 0x00, 0x00, 0xff, 0xff,
0xff, 0x03, 0x00, 0x00, 0xfe, 0xff, 0xff, 0x03, 0x00, 0x00, 0xfe, 0xff,
0xff, 0x01, 0x00, 0x00, 0xfc, 0xff, 0xff, 0x01, 0x00, 0x00, 0xfc, 0xff,
0xff, 0x00, 0x00, 0x00, 0xf8, 0xff, 0xff, 0x00, 0x00, 0x00, 0xf8, 0xff,
0x7f, 0x00, 0x00, 0x00, 0xf0, 0xff, 0x7f, 0x00, 0x00, 0x00, 0xf0, 0xff,
0x3f, 0x00, 0x00, 0x00, 0xe0, 0xff}; send helpNOAOLogo "set bitmap noao_logo"
  
send helpInfo1 set label $version

# Stuff for keeping track of visited anchors.
set links       { 0 }
set linkIndex     0
set visited(0)  empty

proc Help args \
{
    global help_up
    if {$help_up == 0} {
	send client help
    } else {
	send help_panel unmap
	set help_up 0
    } 
}

proc helpPanel args \
{
    global help_up
    if {$help_up} {
	send help_panel unmap
	set help_up 0
    } else {
	send help_panel map
	set help_up 1
    }
}

proc panelHelp args \
{
    Help
} ; send panelHelp addCallback panelHelp

proc helpQuit args \
{
    global help_up
    send help_panel unmap
    set help_up 0
}; send helpClose addCallback helpQuit

proc getHelpText { param old new } \
{
    send helpText setText $new
    helpPanel
}; send help addCallback getHelpText

proc anchorSelected {widget cbtype event text href args} \
{
    global visited links linkIndex
    set anchID [send helpText anchorToId $href]
    set visited($href) 1
    if {$linkIndex == 0} {
	send helpBack setSensitive True
	if {[lindex $links 1] != $anchID} {
	    set links { 0 }
	    send helpForward setSensitive False
	}
    }
    if {$linkIndex > 0 && [lindex $links [expr $linkIndex + 1]] != $anchID} {
	set links [lrange $links 0 $linkIndex]
    }
    if {[lindex $links [expr $linkIndex + 1]] != $anchID} {
	lappend links $anchID
	incr linkIndex
    } else {
	send helpForward setSensitive False
	incr linkIndex
    }
    if {$linkIndex == [expr [llength $links] - 1]} {
	send helpForward setSensitive False
    }
    send helpText gotoId $anchID
    send helpText retestAnchors
}; send helpText addCallback anchorSelected anchor     

proc testAnchor {widget cbtype href} \
{
    global visited
    return [info exists visited($href)]
}; send helpText addCallback testAnchor testAnchor


# Callbacks to position forwards and backwards in link list.
proc hlpForward args \
{
    global links linkIndex
    incr linkIndex
    if {$linkIndex <= [llength $links]} {
	set anchID [lindex $links $linkIndex]
	send helpText gotoId $anchID
	send helpText retestAnchors
	if {$linkIndex == [expr [llength $links] - 1]} {
	    send helpForward setSensitive False
	    send helpBack setSensitive True
	} else {
	    send helpBack setSensitive True
	}
    } else {
	incr linkIndex -1
    }
}; send helpForward addCallback hlpForward
       
proc hlpBack args \
{
    global links linkIndex
    incr linkIndex -1
    if {$linkIndex >= 0} {
	set anchID [lindex $links $linkIndex]
	send helpText gotoId $anchID
	send helpText retestAnchors
	if {$linkIndex == 0} { send helpBack setSensitive False   }
	if {$linkIndex >= 0} { send helpForward setSensitive True }
    } else {
	incr linkIndex 1
    }
}; send helpBack addCallback hlpBack

proc hlpHome args \
{
    global links linkIndex
    set links { 0 }
    set linkIndex  0
    send helpText gotoId 0
    send helpForward setSensitive False
    send helpBack setSensitive False
}; send helpHome addCallback hlpHome


proc helpFind args \
{
    set phrase  [send hfEntry get string]

    if { $phrase != "" } {
        if {[send helpText searchText $phrase start end forward caseless] > 0} {
            set elid [lindex [lindex $start 0] 0]
            set id   [max 1 [expr $elid - 10] ]
            send helpText gotoId $id
            send helpText setSelection $start $end
        } else {
            send warnText set label "Search string not found."
            send warning map
        }
    } else {
        send warnText set label "Warning: No search phrase entered."
        send warning map
    }
} ; foreach w { hfEntry hfFind } { send $w addCallback helpFind }

send hfClear addCallback { send hfEntry set string "" }


################################################################################
#  Header Display Callbacks.
################################################################################

set hdrImage		""
set hdrImageId		""
set hdrKeywords		"*"


proc fitsHdrClose args \
{
    global hdr_up

    send hdr_panel unmap
    send imageHeader set on False
    set hdr_up 0
} ; send hdrClose addCallback fitsHdrClose

proc ptFitsHeader {widget type state args} \
{
    global hdr_up

    set hdr_up $state
    if {$hdr_up == 1} {
	send imageHeader set on True
	send hdr_panel map
    } else {
	send imageHeader set on False
	send hdr_panel unmap
    }
}; send imageHeader addCallback ptFitsHeader

proc getHeader { name id } \
{
    global hdrImage hdrImageId hdrKeywords

    set hdrImage $name
    set hdrImageId $id
    send hdrObjMenu set label $name
    send hdrText   setText ""
    send hdrIGText set string ""
    send hdrKGText set string ""

    catch { send wcspix objinfo $hdrImageId $hdrKeywords }
}

proc hdrKeywFilter args \
{
    global hdrImageId hdrKeywords

    set str [ send hFindEntry get string ]
    if {$str != ""} {
	set hdrKeywords $str
	send hdrText setText ""
	catch { send wcspix objinfo $hdrImageId $hdrKeywords }
    }
} ; send hdrFilter addCallback hdrKeywFilter


# Set the image menu in the header panel.
proc setHdrObjMenu { frame args } \
{
    global frameCache ism_enable

    if {! $ism_enable} \
	return

    # Create the menu of images for the header panel.
    set items { }
    foreach i [list $frameCache($frame)] {
        set l [lindex $i 0]
        set lid [lindex $i 1]
        regsub -all {[\[]} $l  "\\\[" l2
	catch {
            lappend items [format "%s f.exec \{getHeader %s %d\}" $l $l2 $lid]
	}
    }
    editMenu objMenu hdrObjMenu $items
}


# Search box for the header.
proc hdrFind args \
{
    set phrase  [send hFindEntry get string]

    if { $phrase != "" } {
        if {[send hdrText searchText $phrase start end forward caseless] > 0} {
            set elid [lindex [lindex $start 0] 0]
            set id   [max 1 [expr $elid - 10] ]
            send hdrText gotoId $id
            send hdrText setSelection $start $end
        } else {
            send warnText set label "Search string not found."
            send warning map
        }
    } else {
        send warnText set label "Warning: No search phrase entered."
        send warning map
    }
} ; foreach w { hFindEntry hdrFind } { send $w addCallback hdrFind }

send hdrClear addCallback { send hFindEntry set string "" }


################################################################################
#  Pixel Table Callbacks.
################################################################################

set psize	5
set pixtab_up	0
set hdr_up	0

createMenu pixtabMenu pixtabSize {
    {   "3x3"          f.exec { pixtabSetSize 3 } }
    {   "5x5"          f.exec { pixtabSetSize 5 } }
    {   "7x7"          f.exec { pixtabSetSize 7 } }
    {   "9x9"          f.exec { pixtabSetSize 9 } }
}


proc updatePixelTable { cx cy wx wy args } \
{
    global psize pixtab_up ism_enable

    if {! $pixtab_up} \
	return
    if {$ism_enable} \
	return

    set delta [expr int($psize / 2) ]
    set x1 [expr ($wx - $delta) ]
    set x2 [expr ($wx + $delta) ]
    set y1 [expr ($wy - $delta) ]
    set y2 [expr ($wy + $delta) ]
    set c [ expr int($psize / 2) ]


    # Update the table labels.
    set x $x1 ;      set xl {}
    set y $y2 ;      set yl {}
    for {set i 0} {$i < $psize} {incr i} {
	lappend xl  [format " %10.1f " $x] ; set x [ expr ($x + 1.) ]
	lappend yl  [format " %10.1f " $y] ; set y [ expr ($y - 1.) ]
    }
    send ptColLabs setList $xl ; send ptColLabs highlight $c
    send ptRowLabs setList $yl ; send ptRowLabs highlight $c

    # Update the pixel table itself.
    #set pix [ send client getPixels $cx $cy $psize True ]

    set x0  [ expr int($cx - $psize / 2. + 0.5)]
    set y0  [ expr int($cy - $psize / 2. + 0.5)]
    set pix [ send client getPixels $x0 $y0 $psize $psize ]
    send pixtab setList [ lrange $pix 4 end ]
    set c [ expr int(($psize * $psize) / 2) ]
    send pixtab highlight $c

    # Update the pixtab stats.
    set sum   0.0
    set sum2  0.0
    set npix  [ expr ($psize * $psize) ]
    set nend  [ expr ($psize * $psize) + 4 ]
    for {set i 4} {$i < $nend} {incr i} {
	set val  [lindex $pix $i]
	catch {
	    set sum  [ expr ($sum + $val) ]
	    set sum2 [ expr ($sum2 + $val * $val) ]
	}
    }

    set mean [ expr ($sum / ($npix * 1.0)) ]
    set var  [ expr (($sum2 - $sum * $mean) / ($npix - 1)) ]
    if {$var <= 0.0} {
	set stdev 0.0
    } else {
	set stdev  [ expr sqrt ($var) ]
    }
    send meanValue set label [ format "%10.2f" $mean ]
    send sigValue set label  [ format "%10.4f" $stdev ]
}


proc pixtabClose args \
{
    global pixtab_up

    send pixel_panel unmap
    send pixelTable set on False
    set pixtab_up 0
    catch { send wcspix set psize 0 }
} ; send pixtabClose addCallback pixtabClose


proc pixtabSetSize { size args } \
{
    global psize ism_enable

    set c [ expr int(($psize * $psize) / 2) ]
    send pixtab highlight $c

    # Now reset the window size.
    switch $size {
    3	{ send pixel_panel "resize 265 175"
	  send pixtab "set width 180 ; set height 60"
	}
    5	{ send pixel_panel "resize 375 215"
	  send pixtab "set width 290 ; set height 105"
	}
    7	{ send pixel_panel "resize 495 265"
	  send pixtab "set width 410 ; set height 150"
	}
    9	{ send pixel_panel "resize 610 310"
	  send pixtab "set width 525 ; set height 195"
	}
    }

    send pixtab    set defaultColumns $size
    send ptColLabs set defaultColumns $size
    set psize $size

    # Notify the ISM we've changed size.
    if ($ism_enable) {
	catch { send wcspix set psize $psize }
    }

    send imagewin getCursorPos xc yc
    updatePixelTable $xc $yc $xc $yc

} ; pixtabSetSize $psize


proc ptPixelTable {widget type state args} \
{
    global pixtab_up psize

    set pixtab_up $state
    if {$pixtab_up == 1} {
	send pixelTable set on True
	send pixel_panel map
	catch { send wcspix set psize $psize }
    } else {
	send pixelTable set on False
	send pixel_panel unmap
	catch { send wcspix set psize 0 }
    }
}; send pixelTable addCallback ptPixelTable


################################################################################
# Warning dialog.  This pops up a dialog box with the given warning message,
# and executes the given command if the user pushes OK.
#
# Usage:	Wexec object message [ok_action [cancel_action]]
#
# The message text is displayed in a popup and the user hits the ok or
# cancel button to close the popup.  If an action has been posted for the
# button selected then it is sent to the named object.  Only one alert can
# be in effect at a time; posting another alert before the first has
# completed causes the new alert to override the first.
################################################################################

set W_object ""
set W_ok_cmd ""
set W_cancel_cmd ""

proc Wexec {object msg args} \
{
    global W_object W_ok_cmd W_cancel_cmd
    set W_object $object
    set W_ok_cmd [lindex $args 0]
    set W_cancel_cmd [lindex $args 1]
    send warnText set label $msg
    send warning map
}

proc Wbutton {widget args} \
{
    global W_object W_ok_cmd W_cancel_cmd
    switch $widget {
    warnOk	{ if [llength $W_ok_cmd] { send $W_object $W_ok_cmd }
		}
    warnCancel	{ if [llength $W_cancel_cmd] { send $W_object $W_cancel_cmd }
		}
    }
    send warning unmap
}
send warnOk     addCallback Wbutton
send warnCancel addCallback Wbutton

# The parameter "alert" is used to forward alerts from the client.
proc setAlert {param old new} \
{
    Wexec client [lindex $new 0] [lindex $new 1]
}; send alert addCallback setAlert



################################################
# Define some TCL debug procedures.
################################################

set tcl_up 0

proc tclCommandClear {widget args}   { send tclEntry set string "" }
proc tclCommandExecute {widget args} { send server [send tclEntry {get string}]
}
proc tclCommand {widget mode command args} { send server $command }
proc tclClose {widget args}                { send tcl_panel unmap }
proc tclOpen args \
{ 
    global tcl_up
    send tcl_panel map 
    set tcl_up 1
}

proc tclPanel args \
{
    global tcl_up
    if {$tcl_up} {
	send tcl_panel unmap
	set tcl_up 0
    } else {
	send tcl_panel map
	set tcl_up 1
    }
}

send tclClear   addCallback tclCommandClear
send tclExecute addCallback tclCommandExecute
send tclEntry   addCallback tclCommand
send tclDismiss addCallback tclClose



################################################
# ISM Module support routines.
################################################


# Turn the ISM on or off.
proc ismToggle { widget type state args } \
{
    global ism_enable ism_capable psize

    set ism_enable $state

    # Set the coord-panel header option availability.
    if {$ism_enable == 1 && $ism_capable} {
	send imageHeader setSensitive True
	send woptBPM setSensitive True
	catch { send client ism_start wcspix }
    } else {
	send imageHeader setSensitive False
	send woptBPM set on False
	send woptBPM setSensitive False
	catch { send client ism_stop wcspix }
	send hdr_panel unmap
    }
    setCoordPanelSensitivity

} ; send ismToggle addCallback ismToggle



# Handle messages from ISM clients and pass them on to the appropiate
# callback.

proc ism_msg { param old new } \
{
    global ism_enable 

    set cmd  [lindex $new 0]				;# command name
    set ism  [lindex $new 1]				;# determine ISM name
    set argv [lrange $new 2 end]			;# get args
    set argc [llength $argv]

    switch  $cmd {
    source   { source [lindex $new 1]		}
    alert    { Wexec client [lindex $new 1]	}
    deliver  { ${ism}_msg $argc $argv		}
    info     { ism_info $ism			}
    }
} ; send ism_msg addCallback ism_msg



# Log a client message to the info panel
set ismInfoText " " 

proc ism_info { text } \
{
    global infoMode ismInfoText

    set ismInfoText [format "%s\n%s" $ismInfoText $text]
    if {$infoMode == "infoOptIsm"} {
	send infoText set string $ismInfoText
    }
}

# Initialize the text.
proc ismInitInfoText args \
{
    global ismInfoText

    set ismInfoText ""
    ism_info  "\t    ISM Client Message Logs"
    ism_info  "\t    -----------------------"
    ism_info  " "
} ; ismInitInfoText



################################################
# WPIX module support routines.
################################################

set cur_objid		0
set cur_regid		0
set redraw_compass	0
#set Compass(0)		{ 0.0 1 1 0 X Y }
set Compass(0)		{ 0.0 0.0 1.0 -1.0 0.0 0 X Y }
set Orient(0)		{ 1 1 1 }

set wcspix_debug	0

proc wcspix_msg { argc argv } \
{
    global wcspix_debug

    set arg [string trimleft [ string trimright [lindex $argv 0] ] ]
    set cmd [lindex $arg 0]

    if {$wcspix_debug} { print "wcspix_msg:  $cmd" }


    switch $cmd {
    startup	{ wcspix_startup				}
    shutdown	{ wcspix_shutdown				}
    disable	{ wcspix_disable				}
    capable	{ wcspix_capable				}

    cache	{ wcspix_cache   [lrange $arg 1 end]		}
    uncache	{ wcspix_uncache [lrange $arg 1 end]		}
    wcstran	{ wcspix_wcstran [lrange $arg 1 end]		}
    wcslist	{ wcspix_wcslist [lrange $arg 1 end] 		}

    imghdr	{ send hdrText \
			setText [format "<pre>%s\n%s</pre>" \
			[string trimright [send hdrText getText simple] "\n"]\
			[lindex $arg 1] ]
		}
    wcshdr	{ send hdrKGText append [lindex $arg 1]		}

    wcsinfo	{ send hdrIGText append [lindex $arg 1]		
		  send hdrText   gotoId 0
		  send hdrKGText set insertPosition 0
		}

    compass	{ wcspix_compass [lrange $arg 1 end] 		}
    orient	{ wcspix_orient  [lrange $arg 1 end] 		}
    wcstype	{ wcspix_wcstype [lindex $arg 1] [lindex $arg 2]}
    wcsfmt	{ set num [lindex $arg 2]
		  send fmtWcs$num set label [lindex $arg 1] 	}

    wcspix_cmd	{ send wcsIsmCmd set string [lindex $arg 1]	}

    pixtab	{ set tab  [lindex [lindex $arg 1] 0]
		  set col  [lindex [lindex $arg 1] 1]
		  set row  [lindex [lindex $arg 1] 2]
		  set stat [lindex [lindex $arg 1] 3]
		  wcspix_pixtab $tab $col $row $stat
		}
    }
}


# Startup and initialize the wcspix module with the GUI state.
proc wcspix_startup args \
{
    global ism_enable frame
    global up_todo psize pixtab_up frameCache

    set ism_enable 1
    send ismToggle set on True
    send imageHeader setSensitive True
    send woptBPM setSensitive True
    setCoordPanelSensitivity
    ismInitInfoText

    if {$up_todo < 3} {
        resizeCoordsBox $up_todo
    }
    updateCoordsBox
    drawCompass

    # Initialize the frame cache.
    foreach c [array names frameCache] {
	if {$c != "0"} { unset frameCache($c) }
    }

    catch { 
	if {$pixtab_up} { send wcspix set psize $psize }
	for {set i 1} {$i <= 4} {incr i} {
    	    send wcspix set wcs    [send sysWcs$i get label] $i
    	    send wcspix set format [send fmtWcs$i get label] $i
	}
    }

    if { [send infoOptClients get on] } {
	send client info clients
    }
}

# Shutdown the WPIX module.
proc wcspix_shutdown args \
{
    global ism_enable frame

    set ism_enable 0
    send ismToggle set on False
    send imageHeader setSensitive False
    send woptBPM set on False
    send woptBPM setSensitive False
    setCoordPanelSensitivity
    setCoordPanelHeight

    wcsFmtIValue "N/A"
    wcsFmtBValue "0"

    resizeCoordsBox 0
    drawCompass

    if { [send infoOptClients get on] } {
	send client info clients
    }
}


# Disable the WPIX module.  We are only called when a display client has
# indicated it doesn't use the new mapping facilities and having the WPIX
# ISM visible will only confuse the user.

proc wcspix_disable args \
{
    global ism_enable ism_capable rulerWCS

    if {$ism_enable} {
        send wcspix quit
    }
    set ism_capable 0
    set rulerWCS 0
    wcspix_shutdown
    send ismToggle setSensitive False
}


# Client connected is capable of using the ISM, but don't necessarily turn
# it on at this point.

proc wcspix_capable args \
{
    global ism_capable

    set ism_capable 1
    wcsFmtIValue "0"
    wcsFmtBValue "0"
    send ismToggle setSensitive True
}


# Cache an image in the GUI.
proc wcspix_cache { argv } \
{
    global frameCache redraw_compass cur_objid

    set name	[lindex $argv 0]
    set frame	[lindex $argv 1]
    set id	[lindex $argv 2]

    # Store the image name and id in a local cache.
    lappend frameCache($frame) $name $id
    send hdrObjMenu set label $name

    # Automatically get the header.
    regsub -all {[\[]} $name  "\\\[" image
    catch { getHeader $image $id }

    setHdrObjMenu $frame

    set cur_objid $id
    set redraw_compass 1
}

# Uncache an image in the GUI.
proc wcspix_uncache { argv } \
{
    global frameCache Compass

    set id [lindex $argv 0]
    foreach c [array names frameCache] {
	set i1 0
	set i2 1
	set new { }
	while { $i2 < [llength $frameCache($c)] } {
            if {[lindex $frameCache($c) $i2] != $id} { 
		lappend new [lindex $frameCache($c) $i1]
		lappend new [lindex $frameCache($c) $i2]
            }
	    incr i1 2
	    incr i2 2
        }
	set frameCache($c) $new
    }
    if [info exists Compass($id)] {
        unset Compass($id)
    }
}

# Format the results of the WCSTRAN method.
proc wcspix_wcstran { argv } \
{
    global frameCache cur_objid cur_regid redraw_compass

    set objid  [ lindex [lindex $argv 0] 1]
    set regid  [ lindex [lindex $argv 1] 1]
    set pixval [ lindex [lindex $argv 2] 1]
    set bpmval [ lindex [lindex $argv 3] 1]

    wcsFmtIValue $pixval
    wcsFmtBValue $bpmval

    set args [lrange $argv 4 end]
    set nargs [llength $args]
    for {set i 0} {$i < 4} {incr i} {
	set coord   [lindex $args $i]
	set wcsname [lindex $coord 1]
	set xval    [lindex $coord 2]
	set yval    [lindex $coord 3]
	set xunits  [lindex $coord 4]
	set yunits  [lindex $coord 5]
	wcsFmtWcs [expr ($i + 1)] $wcsname $xval $yval $xunits $yunits
    }

    set cur_objid $objid
    set cur_regid $regid

    if {$redraw_compass} \
	drawCompass
}

# Save the object compass information.
proc wcspix_compass { argv } \
{
    global Compass

    set objid     [lindex $argv 0]
    set angle     [lindex $argv 1]

    #set xflip     [lindex $argv 2]
    #set yflip     [lindex $argv 3]
    #set transpose [lindex $argv 4]
    #set xlab      [lindex $argv 5]
    #set ylab      [lindex $argv 6]

    set north_x   [lindex $argv 2]
    set north_y   [lindex $argv 3]
    set east_x    [lindex $argv 4]
    set east_y    [lindex $argv 5]
    set transpose [lindex $argv 6]
    set xlab      [lindex $argv 7]
    set ylab      [lindex $argv 8]

    #lappend Compass($objid) $angle $xflip $yflip $transpose $xlab $ylab
    #set Compass($objid) [list $angle $xflip $yflip $transpose $xlab $ylab]
    set Compass($objid) [list $angle $north_x $north_y $east_x $east_y \
	$transpose $xlab $ylab]
    drawCompass
}

# Save the image display orientation information.
proc wcspix_orient { argv } \
{
    global Orient

    set objid [lindex $argv 0]
    set frame [lindex $argv 1]
    set xflip [lindex $argv 2]
    set yflip [lindex $argv 3]

    set Orient($objid) [list $frame $xflip $yflip]
}


# Handle the list of WCSs available for the current image.
proc wcspix_wcslist { argv } \
{
    set wcslist [lindex $argv 0]

    for {set i 1} {$i <= 4} {incr i} {
        set items {}
	foreach nam $wcslist {
	    if {[string tolower $nam] == "line"} {
	        lappend items "f.dblline"
	    } else {
	        lappend items "\"$nam\" f.exec \{setWcsSys $nam $i\}"
	    }
	}
	editMenu sysMenu$i sysWcs$i $items
    }
}

# Set the type of the WCS.
proc wcspix_wcstype { label num } \
{
    global up_todo

    send sysWcs$num set label $label
    if {[string tolower $label] == "none"} {
	send wpWcs$num "set on False ; setSensitive False"
	send wiWcs$num "set on False ; setSensitive False"
	send fmtWcs$num setSensitive False
    	set hght 4
    } else {
        send wpWcs$num "set on True  ; setSensitive True"
        send wiWcs$num setSensitive True
	send fmtWcs$num setSensitive True
    	set hght 17
    }
    send wtWcs$num set height $hght
    setCoordPanelHeight

    #resizeCoordsBox $up_todo
    updateCoordsBox
}

# Display the pixel table.
proc wcspix_pixtab { tab col row stat } \
{
    global psize

    # Update the pixel table.
    send pixtab setList [lindex $tab 1]
    send pixtab highlight [expr int(($psize * $psize) / 2)]

    # Update the table labels.
    set c [ expr int($psize / 2) ]
    send ptColLabs setList $col ; send ptColLabs highlight $c
    send ptRowLabs setList $row ; send ptRowLabs highlight $c

    # Update the pixtab stats.
    send meanValue set label [ format "%10.2f" [lindex $stat 0] ]
    send sigValue  set label [ format "%10.4f" [lindex $stat 1] ]
}




################################################################################
#
#  XIMTOOL-ALT -- Procedures and declarations for the ALT GUI.
#
################################################################################

# Creat the bitmaps needed for the alternate optional bars.

createBitmap tools 16 16 {
   0xff, 0xff, 0xff, 0xff, 0x03, 0xc0, 0xf3, 0xcf, 0xf3, 0xcf, 0xf3, 0xcf,
   0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1,
   0x83, 0xc1, 0x03, 0xc0, 0xff, 0xff, 0xff, 0xff};

createBitmap control 16 16 {
   0xff, 0xff, 0xff, 0xff, 0x03, 0xc0, 0xe3, 0xc7, 0xe3, 0xcf, 0x33, 0xcc,
   0x33, 0xc0, 0x1b, 0xc0, 0x1b, 0xc0, 0x1b, 0xc0, 0x33, 0xcc, 0xf3, 0xcf,
   0xe3, 0xc7, 0x03, 0xc0, 0xff, 0xff, 0xff, 0xff};

createBitmap tile 16 16 {
   0xff, 0xff, 0xff, 0xff, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1,
   0x83, 0xc1, 0xff, 0xff, 0xff, 0xff, 0x83, 0xc1, 0x83, 0xc1, 0x83, 0xc1,
   0x83, 0xc1, 0x83, 0xc1, 0xff, 0xff, 0xff, 0xff};

createBitmap compass 16 16 {
   0x00, 0x00, 0x00, 0x02, 0x00, 0x07, 0x80, 0x0f, 0xc0, 0x1f, 0x00, 0x07,
   0x00, 0x07, 0x00, 0x07, 0x00, 0x07, 0x00, 0x07, 0x00, 0x07, 0xfc, 0x07,
   0xfc, 0x07, 0xfc, 0x07, 0x00, 0x00, 0x00, 0x00}

createBitmap plus 11 11 {
   0x00, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0xfe, 0x03, 0xfe, 0x03,
   0xfe, 0x03, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0x00, 0x00};

createBitmap minus 11 11 {
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x03, 0xfe, 0x03,
   0xfe, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};

createBitmap disk 16 16 {
 0xfe,0x1f,0x11,0x25,0x11,0x45,0x11,0x44,0xf1,0x47,0x01,0x40,0x01,0x40,0xf9,
 0x4f,0x05,0x50,0x05,0x50,0x05,0x50,0x05,0x50,0x05,0x50,0x05,0x50,0xff,0x7f,
 0x00,0x00};

createBitmap printer 32 16 {
   0x00, 0xfe, 0x07, 0x00, 0x00, 0x02, 0x0a, 0x00, 0x00, 0x02, 0x12, 0x00,
   0x00, 0x02, 0x22, 0x00, 0x00, 0x02, 0x3e, 0x00, 0x00, 0x02, 0x20, 0x00,
   0x00, 0x02, 0x20, 0x00, 0xe0, 0x03, 0xe0, 0x03, 0x10, 0x03, 0xe0, 0x06,
   0x08, 0xff, 0x7f, 0x09, 0x04, 0x00, 0x00, 0x10, 0xfc, 0xff, 0xff, 0x1f,
   0x04, 0x00, 0x00, 0x10, 0xfc, 0xff, 0xff, 0x1f, 0x08, 0x00, 0x00, 0x08,
   0xf8, 0xff, 0xff, 0x0f};


send tbBlinkDec   "set bitmap larrow" 	;# Assign the bitmaps to the buttons.
send tbBlinkInc   "set bitmap rarrow"
send tbZoomIn     "set bitmap plus"
send tbZoomOut    "set bitmap minus"
send tbTile       "set bitmap tile"
send tbCompass    "set bitmap compass;  addCallback toggleCompass"
#send helpButton   "set bitmap qmark;    addCallback Help"
send mXflipButton "set bitmap xflip;    addCallback xflip"
send mYflipButton "set bitmap yflip;    addCallback yflip"
send mNextButton  "set bitmap rarrow;   addCallback nextFrame"
send mPrevButton  "set bitmap larrow;   addCallback prevFrame"


# toolBox -- Toggle the toolbox and panelbar display.

set toolbox_up [ true $showToolBar ]
set panelbar_up [ true $showPanelBar ]

proc toolBoxToggle args \
{
    global toolbox_up 

    set w  [send display get width]  ; set h  [send display get height]
    set iw [send imagewin get width] ; set ih [send imagewin get height]

    if {$toolbox_up} {
	send toolbar set height 0
	send toolButton set state 0
        send imagewin "set width $iw; set height $ih"
	set nh [expr $h - 25]
	send display "set width $w; set height $nh"
	set toolbox_up 0
	send mXflipButton map
	send mYflipButton map
	send mPrevButton map
	send mFrameButton map
	send mNextButton map
    } else {
	send toolbar set height 25
	send toolButton set state 1
        send imagewin "set width $iw; set height $ih"
	set nh [expr $h + 25]
	send display "set width $w ; set height $nh"
	set toolbox_up 1
	send mXflipButton unmap
	send mYflipButton unmap
	send mPrevButton unmap
	send mFrameButton unmap
	send mNextButton unmap
    }
}

proc panelBarToggle args \
{
    global panelbar_up

    set w  [send display get width]  ; set h  [send display get height]
    set iw [send imagewin get width] ; set ih [send imagewin get height]

    if {$panelbar_up} {
	send panelbar set height 0
	send panelButton set state 0
        send imagewin "set width $iw; set height $ih"
	set nh [expr $h - 25]
	send display "set width $w ; set height $nh"
	set panelbar_up 0
    } else {
	send panelbar set height 25
	send panelButton set state 1
        send imagewin "set width $iw; set height $ih"
	set nh [expr $h + 25]
	send display "set width $w ; set height $nh"
	set panelbar_up 1
    }
}



# Initialize the bars to be displayed if the resource was set.

send toolButton   "set bitmap tools;    addCallback toolBoxToggle"
if { ! [ true $showToolBar ] } {
    send display set height [expr [send display get height] - 25]
    send toolbar set height 0
    send toolButton set state 0
} else {
    send toolButton set state 1
    send mXflipButton unmap
    send mYflipButton unmap
    send mPrevButton unmap
    send mFrameButton unmap
    send mNextButton unmap
}

send panelButton  "deleteCallback panel"
send panelButton  "set bitmap control;  addCallback panelBarToggle"

if { ! [ true $showPanelBar ] } {
    send display set height [expr [send display get height] - 25]
    send panelbar set height 0
    send panelButton set state 0
} else {
    send panelButton set state 1
}


##############################################
# Panelbar callbacks.
##############################################

send pbQuit  addCallback Quit
send helpClose addCallback "send helpButton set state 0"


# Control Panel.
#------------------------------------------------------
proc pbToggleControl {name element op} \
{
    upvar $name panel_up
    send pbDisplayP set state [expr !($panel_up)]
} ; #trace variable panel_up w pbToggleControl

proc pbResetPanel {param old new} \
{
    global displayPanner displayMagnifier displayCoords
    switch $new {
    done	{ send pbPanM set state [true $displayPanner]
		  send pbMagM set state [true $displayMagnifier]
		  send pbWcsM set state [true $displayCoords]
		}
    }
} ; send initialize addCallback pbResetPanel

set WidgetToTab(pbDisplayP)	display_panel
set WidgetToTab(pbInfoP)	info_panel
set WidgetToTab(pbLoadP)	load_panel
set WidgetToTab(pbPrintP)	print_panel
set WidgetToTab(pbSaveP)	save_panel
set WidgetToTab(pbTileP)	tile_panel
set WidgetToTab(pbCoordP)	wcs_panel

set TabToWidget(display_panel)	pbDisplayP
set TabToWidget(print_panel)	pbPrintP
set TabToWidget(load_panel)	pbLoadP
set TabToWidget(save_panel)	pbSaveP
set TabToWidget(info_panel)	pbInfoP
set TabToWidget(tile_panel)	pbTileP
set TabToWidget(wcs_panel)	pbCoordP

set pbTabTop	"pbDisplayP"

proc pbPanelDismiss args \
{
    global tabTop TabToWidget WidgetToTab
    set panel $TabToWidget($tabTop)
    send $panel set state 0
} ; send panelClose addCallback pbPanelDismiss

proc pbResizeCB {widget event a b c d e args} \
{
    global pbTabTop TabToWidget WidgetToTab
    if { $a == 0 && $b == 0 && $c == 0 && $d == 0 && $e == 0 } {
	send $pbTabTop set state 0
	set new $TabToWidget($widget)
	send $new set state 1
	set pbTabTop $new
    }
} ; foreach w $cpTabs {send $w addEventHandler pbResizeCB exposureMask}

proc pbPanelTabs { widget type state args } \
{
    global pbTabTop tabTop panel_up
    global TabToWidget WidgetToTab

    set panel $WidgetToTab($widget)
    if {$tabTop == $panel && $panel_up} {
        send panelShell unmap
        send $widget set state 0
        set panel_up 0
        return
    }

    send $TabToWidget($tabTop) set state 0
    set tabTop $panel
    set pbTabTop $TabToWidget($panel)
    send panelTabs setTop $panel

    # Now fire it up if it's not already open.
    if {$panel_up == 0} {
        send $widget set state 1
        send panelShell map
        set panel_up 1
    }
}
foreach w { pbDisplayP pbInfoP pbLoadP pbPrintP pbSaveP pbTileP pbCoordP } {
        send $w addCallback pbPanelTabs
}



# Load Panel.  (Really need to clean this up.)
#------------------------------------------------------
proc pbDoLoadOptions { param old new } \
{
    set val     [ join [lrange $new 1 end] " " ]
    switch [lindex $new 0] {
    newfile     { send fnameText set string $val }
    }
} ; send loadOptions addCallback pbDoLoadOptions

proc pbFileLoad { widget mode fname args } \
{
    set fpath [format "%s/%s" \
        [string range [send dirLabel get label] 12 end] $fname ]
    send imagewin setCursorType idle
} ; send fnameText addCallback pbFileLoad

proc pbflSelectPrint {widget cbtype selections args} \
{
    foreach selection $selections {
	;
    }
}; #send imageList addCallback pbflSelectPrint

proc pbFileLoadB args \
{
    set fname [send fnameText get string]
    if {$fname != ""} {
        set fpath [format "%s/%s" \
            [string range [send dirLabel get label] 12 end] $fname ]
    }
} ; send filesLoadButton addCallback pbFileLoadB


# Panner Marker.
#------------------------------------------------------
proc pbTracePanner {name element op} \
{
    global last_compass

    catch {
        upvar $name panner_enable
        send pbPanM set state $panner_enable

	if { $panner_enable } {
	    send tbCompass "setSensitive True  ; set state $last_compass"
	    drawCompass
	} else {
	    send tbCompass "setSensitive False ; set state False"
	    eraseCompass
	}
    }
} ; trace variable panner_enable w pbTracePanner

proc pannerPanel args \
{
    global panner_enable displayPanner

    setPanner [expr !$panner_enable]
    send pannerButton set on [expr $panner_enable]
}; send pbPanM  addCallback pannerPanel


# Magnifier Marker.
#------------------------------------------------------
proc pbTraceMagnifier {name element op} \
{
    upvar $name magnifier_enable
    send pbMagM set state $magnifier_enable
} ; trace variable magnifier_enable w pbTraceMagnifier

proc magnifierPanel args \
{
    global magnifier_enable displayMagnifier
    setMagnifier [expr !$magnifier_enable]
    send magnifierButton set on  [expr $magnifier_enable]
}; send pbMagM addCallback magnifierPanel


# CoordsBox Marker.
#------------------------------------------------------
proc pbTraceCoordsBox {name element op} \
{
    upvar $name track_enable
    send pbWcsM set state $track_enable
} ; trace variable track_enable w pbTraceCoordsBox

proc wcsPanel args \
{
    global track_enable
    setTrack [expr !$track_enable]
}; send pbWcsM  addCallback wcsPanel



# WPIX ISM Callbacks.
#------------------------------------------------------

proc altIsmToggle { widget type state args } \
{
    ismToggle pbIsm junk $state
} ; send pbIsm addCallback altIsmToggle

proc pbTraceIsm {name element op} \
{
    upvar $name ism_enable
    send pbIsm set state $ism_enable
} ; trace variable ism_enable w pbTraceIsm


proc altIsmMsgCB { param old new } \
{
    set cmd  [lindex $new 0]                            ;# command name
    set ism  [lindex $new 1]                            ;# determine ISM name
    set argv [lrange $new 2 end]                        ;# get args
    set argc [llength $argv]

    switch  $cmd {
    deliver  { ${ism}_alt_msg $argc $argv           }
    }
} ; send ism_msg addCallback altIsmMsgCB


proc wcspix_alt_msg { argc argv } \
{
    set arg [string trimleft [ string trimright [lindex $argv 0] ] ]
    set cmd [lindex $arg 0]
    switch $cmd {
    startup	{ }
    shutdown	{ }
    disable	{ send pbIsm "set state False ; setSensitive False" }
    capable	{ send pbIsm "setSensitive True" }
    }
}



##############################################
# Toolbar callbacks.
##############################################

send tbNormalize	addCallback normalize
send tbInvert		addCallback cpInvert
send tbRegister		addCallback cpRegisterFrames
send tbMatchLUT		addCallback cpMatchFrames


# Frame Selection.
#------------------
createMenu mFrameMenu mFrameButton $frameMenuDescription

proc altFrameChanged {param old new} \
{
    send mFrameButton set label $new
} ; send frame addCallback altFrameChanged


# Image Flipping.
#------------------------------------------------------
proc tbSetFlip {param old new} \
{
    if {$param == "xflip"} {
        send mXflipButton set state [true $new]
    } else {
        send mYflipButton set state [true $new]
    }
}; foreach i {xflip yflip} { send $i addCallback tbSetFlip }


# Zoom/Pan buttons.
#------------------------------------------------------
proc tbZoomAction { widget args } \
{
    global frameWidth frameHeight

    switch $widget {
    tbZoom0   { cpZoom 1 1 fixed }
    tbZoomIn  { cpZoom 2.0 2.0 relative }
    tbZoomOut { cpZoom 0.5 0.5 relative }
    tbCenter  { send client pan [expr $frameWidth/2.0] [expr $frameHeight/2.0] }
    }
}
foreach widget { tbCenter tbZoomIn tbZoom0 tbZoomOut } {
    send $widget addCallback tbZoomAction
}


# Frame Blink.
#------------------------------------------------------
proc tbSetBlinkRate {w args} \
{
    if {$w == "tbBlinkInc"} {
	cpSetBlinkRate BRincrease
    } else {
	cpSetBlinkRate BRdeccrease
    }
}
foreach w  {tbBlinkDec tbBlinkInc} { send $w addCallback tbSetBlinkRate }

proc tbBlink { widget args } \
{
    global blinkRate blinkId

    if {$blinkRate < 0.01} {
	send tbBlink set state 0
    } else {
        if {$widget != "tbBlink"} {
            if {($blinkId != 0) != [send $widget get on]} {
                toggleBlink
            }
        } else {
            if {($blinkId != 0) != [send $widget get state]} {
                toggleBlink
            }
        }
    }
} ; send tbBlink addCallback tbBlink

proc tbTraceBlink {name element op} \
{
    upvar $name blinkId
    send tbBlink set state [expr $blinkId != 0]
} ; trace variable blinkId w tbTraceBlink


# Auto-register.
#------------------------------------------------------
proc tbAutoRegister { widget type state args } \
{
    send tbAutoReg set state $state
}
foreach w {autoregButton brAregButton tbAutoReg} {
    send $w addCallback cpAutoRegister
}

proc tbToggleAutoReg args \
{
    global auto_reg
    if {$auto_reg} {
        cpAutoRegister autoregButton dummy 0
        set auto_reg 0
    } else {
        cpAutoRegister autoregButton dummy 1
        set auto_reg 1
    }
}


# Frame Tiles.
#------------------------------------------------------
proc tbSetTileFrames args \
{
    global tileOpt

    # Send the option to the client.
    if {[send tbTile get state ]} {
        selectTileOrientation junk junk [tileSelToLabel $tileOpt]
    } else {
        selectTileOrientation junk junk Disabled
    }
}; send tbTile addCallback tbSetTileFrames

proc tbTrackTileFrames {param old new} \
{
    send tileFramesButton set on [true $new]
    send tbTile set state $new
}; send tileFrames addCallback tbTrackTileFrames

proc tbTileFramesToggle args \
{
    set value [send tileFramesButton get on]
    if {$value} { set not 0 } else { set not 1 }

    send tileFramesButton set on [expr $not]
    send tbTile set on [expr $not]
    cpSetTileFrames
}


# Compass Indicator.
#------------------------------------------------------
proc tbToggleCompass { widget type state args } \
{
    global frame

    if {$state} {
	send compass set on True
	send tbCompass set state 1
        drawCompass
    } else {
	send compass set on False
	send tbCompass set state 0
        eraseCompass
    }
} ; foreach w {compass tbCompass} { send $w addCallback tbToggleCompass }


