#include <hn.h>
#include <canvas.h>
/****************************************************************
 * Here are the definitions of all the scoped variables.
 */

boolean		logging			= false;
boolean		report_errors		= true;
boolean		visible			= true;
boolean		validated		= true;
boolean		dragframeonly		= true;
boolean		autoindent		= true;
name		justification		= /Left;
displayitem	framelabel		= "Untitled";
canvastype	cv			= nullcanvas;

float		iconX			= 50;
float		iconY			= 10;

#postscript
/logo		(hn/sys/logo.ps) run def
#end

/****************************************************************
 * fonts
 */

#define FINDFONT(nm,siz)	printermatchfont(scalefont(findfont(/nm),siz),false)

fonttype	textfont 		= FINDFONT(LucidaSans,12);
fonttype	headerfont 		= FINDFONT(LucidaSans-Bold,12);
fonttype	footerfont 		= FINDFONT(LucidaSans-Bold,10);
fonttype	iconfont 		= FINDFONT(LucidaSans,10);

/****************************************************************
 * objects
 */

drawable	@icon			= null;
drawable	@layout			= null;
drawable	@current_layout		= null;
drawable	@first_layout		= null;
drawable	@window_layout		= null;
drawable	@focus			= null;
drawable	@owner			= null;
drawable	@freezer		= null;

menu		@menu			= null;
menu		@windowmenu		= null;
menu		@iconmenu		= null;
menu		@editmenu		= null;
menu		@scrollhmenu		= null;
menu		@scrollvmenu		= null;

/****************************************************************
 * colors
 * Note that the OL colors are borrowed from the ClassDrawable.
 * This means that they will match the X colors (I don't know
 * how they do it).
 */

colortype 	editSELcolor		= rgbcolor(1,0,0);
colortype 	editCTXcolor		= rgbcolor(1,0.6,0.6);

#postscript
/selFGcolor		{BG} def
/selBGcolor		{FG} def

/BG0 {//ClassDrawable /BG0 get} def
/BG  {//ClassDrawable /BG  get} def
/BG2 {//ClassDrawable /BG2 get} def
/BG3 {//ClassDrawable /BG3 get} def
/FG  {//ClassDrawable /FG  get} def
/2DFG {//ClassDrawable /2DFG get} def
/2DBG {//ClassDrawable /2DBG get} def
#end

/****************************************************************
 * Scrolling paramters
 */

boolean			scrollautorepeat = true;
#postscript
UserProfile begin
/ScrollDelay 50 ?def
/ScrollThresh 100 ?def
end
/scrollthreshold	{//UserProfile /ScrollThresh get} def
/scrolllinedelay	{//UserProfile /ScrollDelay get} def
/scrollpagedelay	{//UserProfile /ScrollDelay get} def
#end