! 
!  Copyright (C) Keith Whitwell 1996
! 

module viewer

include file 'application.uih';

object menubar : imported XmMenuBar;

object main_window : XmMainWindow {
  controls {
    XmMenuBar menubar;
    XmForm    form;
  };
};

object form : XmForm {
  controls {
    XmDrawingArea  drawn;
    !XmPanedWindow  light_panes;
    XmTextField    text_output;
  };
};

value
actions : translation_table
('#overide',
 '<Btn1Down>:   arcball(down) ManagerGadgetArm()',
 '<Btn1Up>:     arcball(up) ManagerGadgetActivate()',
 '<Btn1Motion>: arcball(motion) ManagerGadgetButtonMotion()',
 '<Btn2Down>:   move_camera_xy(down) ManagerGadgetArm()',
 '<Btn2Up>:     move_camera_xy(up) ManagerGadgetActivate()',
 '<Btn2Motion>: move_camera_xy(motion) ManagerGadgetButtonMotion()',
 '<Btn3Down>:   move_camera_xz(down) ManagerGadgetArm()',
 '<Btn3Up>:     move_camera_xz(up) ManagerGadgetActivate()',
 '<Btn3Motion>: move_camera_xz(motion) ManagerGadgetButtonMotion()'
);

object drawn : XmDrawingArea {
    arguments {
	XmNshadowThickness = 0;
	arguments attachments;
	XmNbottomAttachment = XmATTACH_WIDGET;
	!XmNbottomWidget = light_panes;
	XmNbottomWidget = text_output;
	XmNwidth = 300;
	XmNheight = 300;
	XmNtranslations = actions;
    };
    callbacks {
	MrmNcreateCallback = procedure register_widget (w_drawing_output);
	XmNresizeCallback = procedure resize_notify();
	XmNexposeCallback = procedure expose_notify();
    };
};
/*
object light_panes : XmPanedWindow {
    controls {
	XmForm light_form;
	XmForm light_buttons;
    };
    arguments {
	XmNsashWidth = 1;
	XmNsashHeight = 1;
	XmNbottomAttachment = XmATTACH_WIDGET;
	
    };
};

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

object light_buttons : XmForm {
    controls {
	unmanaged 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";
    };
    callbacks {
	MrmNcreateCallback = procedure fix_parent_height();
    };
};

object light_dismiss : XmPushButton {
    arguments {
	XmNleftAttachment = XmATTACH_POSITION;
	XmNrightAttachment = XmATTACH_POSITION;
	XmNtopAttachment = XmATTACH_FORM;
	XmNbottomAttachment = XmATTACH_FORM;
	XmNleftPosition = 8;
	XmNrightPosition = 13;
	XmNlabelString = "Dismiss";
    };
};

*/
object text_output : XmTextField {
    arguments {
	XmNeditable = false;
	XmNhighlightThickness = 0;
	XmNcursorPositionVisible = false;
	XmNshadowThickness = 1;
	arguments attachments;
	XmNtopAttachment = XmATTACH_NONE;
    };
    callbacks {
	MrmNcreateCallback = procedure register_widget (w_text_output);
    };
};

end module;