#ifndef _extensions_
#define _extensions_

/*
		Should be in "SUN/ol.h"
*/
operator void  undrawOLBox(float,float,float,float);
operator void  undrawOLCaret();

extern int OLCaretW;
extern int OLCaretH;

 
#postscript

/undrawOLCaret{
    currentfont /olglyph findfont 12 scalefont  setfont BG  setcolor
      -3 2 rmoveto
      OLCaretW 0 rlineto
      0 OLCaretH neg rlineto
      OLCaretW neg 0 rlineto
      closepath
       fill
      setfont
} def

/undrawOLBox { % x y w h 
	matrix currentmatrix 5 1 roll 4 2 roll translate
	0 1 moveto 0 1 index 1 sub rlineto 1 index 1 sub 0 rlineto
	1 2 moveto 1 index 3 sub 0 rlineto 0 1 index 3 sub rlineto
 
	1 2 moveto 0 1 index 3 sub rlineto 1 index 2 sub 0 rlineto
	1 1 moveto exch 2 sub 0 rlineto 0 exch 2 sub rlineto
	BG setcolor stroke
	setmatrix
} def

#end

#endif