! 
!  Copyright (C) Keith Whitwell 1996
! 
module viewer_dialogs

include file 'application.uih';

object open_dialog : XmFileSelectionDialog { 
    arguments {
	XmNdialogTitle = "Open File";
	XmNokLabelString = "Open";
    };
    callbacks {
	XmNcancelCallback = procedure popdown_cb();
	XmNokCallback = procedure file_select_cb (FILE_OPEN); 
    };
};

object save_dialog : XmFileSelectionDialog { 
    controls {
	XmFrame { controls { XmForm filetype_form; }; };
    };
    arguments {
	XmNdialogTitle = "Save File";
	XmNokLabelString = "Save"; 
    };
    callbacks {
	XmNcancelCallback = procedure popdown_cb();
	XmNokCallback = procedure file_select_cb (FILE_SAVE); 
    };
};

object filetype_form : XmForm {
    controls {
	unmanaged XmPulldownMenu filetype_pulldown;
	XmOptionMenu filetype_menu;
    };
};
	
object filetype_menu : XmOptionMenu {
    arguments {
	XmNsubMenuId = filetype_pulldown;
	XmNlabelString = " Save file as ";
    };
};

object filetype_pulldown : XmPulldownMenu {
    callbacks {
	MrmNcreateCallback = procedure create_filetype_choices();
    };
};

object error_dialog : XmErrorDialog {
    controls {
	Xm_Cancel unmanaged { };
	Xm_Help unmanaged { };
    };
    arguments {
	XmNdialogTitle = "Error";
	XmNdialogStyle = XmDIALOG_FULL_APPLICATION_MODAL;
    };
};

object light_dialog : XmDialogShell {
    controls {
	!XmFrame  { controls { hellomum : XmLabel { }; }; };
	XmPanedWindow light_panes;
    };
    arguments {
	XmNallowShellResize = true;
	!XmNdialogTitle = "Light Parameters";
    };
};

object light_panes : XmPanedWindow {
    controls {
	XmForm light_form;
	XmForm light_buttons;
    };
    arguments {
	XmNheight = 100;
	XmNwidth = 100;
	!XmNsashWidth = 1;
	!XmNsashHeight = 1;
    };
};

object light_form : XmForm {
    controls {
	light_hello : XmLabel {
	    arguments {
		arguments attachments;
	    };
	};
    };
};

object light_buttons : XmForm {
    controls {
	XmPushButton light_apply;
	XmPushButton light_dismiss;
    };
    arguments {
	XmNfractionBase = 15;
    };
};

object light_apply : XmPushButton {
    arguments {
	XmNleftAttachment = XmATTACH_POSITION;
	XmNrightAttachment = XmATTACH_POSITION;
	XmNtopAttachment = XmATTACH_FORM;
	XmNbottomAttachment = XmATTACH_FORM;
	XmNleftPosition = 2;
	XmNrightPosition = 7;
	XmNlabelString = "Apply";
    };
};

object light_dismiss : XmPushButton {
    arguments {
	XmNleftAttachment = XmATTACH_POSITION;
	XmNrightAttachment = XmATTACH_POSITION;
	XmNtopAttachment = XmATTACH_FORM;
	XmNbottomAttachment = XmATTACH_FORM;
	XmNleftPosition = 8;
	XmNrightPosition = 13;
	XmNlabelString = "Dismiss";
    };
    callbacks {
	MrmNcreateCallback = procedures {
	    !fix_parent_height();
	    !fix_parent_fraction_width();
	    !manage();
	};
    };
};
	
end module;