WORD menu_ienable(OBJECT *tree, WORD itemnum, WORD enableit)
{
MM_ITREE = (LONG)tree;
ITEM_NUM = itemnum;
ENABLE_IT = enableit;
return gem_if(MENU_IENABLE);
}
WORD objc_order(OBJECT *tree, WORD mov_obj, WORD newpos)
{
OB_TREE = (LONG)tree;
OB_OBJ = mov_obj;
OB_NEWPOS = newpos;
return gem_if(OBJC_ORDER);
}
/*
* Object Manager
*/
WORD objc_add(OBJECT *tree, WORD parent, WORD child)
{
OB_TREE = (LONG)tree;
OB_PARENT = parent;
OB_CHILD = child;
return gem_if(OBJC_ADD);
}
/* Object Manager */
WORD objc_add(LONG tree, WORD parent, WORD child)
{
OB_TREE = tree;
OB_PARENT = parent;
OB_CHILD = child;
return( gem_if( OBJC_ADD ) );
}
WORD objc_order(LONG tree, WORD mov_obj, WORD newpos)
{
OB_TREE = tree;
OB_OBJ = mov_obj;
OB_NEWPOS = newpos;
return( gem_if( OBJC_ORDER ) );
}
WORD menu_tnormal(LONG tree, WORD titlenum, WORD normalit)
{
MM_ITREE = tree;
TITLE_NUM = titlenum;
NORMAL_IT = normalit;
return( gem_if( MENU_TNORMAL ) );
}
WORD menu_ienable(LONG tree, WORD itemnum, WORD enableit)
{
MM_ITREE = tree;
ITEM_NUM = itemnum;
ENABLE_IT = enableit;
return( gem_if(MENU_IENABLE) );
}
WORD menu_icheck(LONG tree, WORD itemnum, WORD checkit)
{
MM_ITREE = tree;
ITEM_NUM = itemnum;
CHECK_IT = checkit;
return( gem_if(MENU_ICHECK) );
}
WORD menu_icheck(OBJECT *tree, WORD itemnum, WORD checkit)
{
MM_ITREE = (LONG)tree;
ITEM_NUM = itemnum;
CHECK_IT = checkit;
return gem_if(MENU_ICHECK);
}
WORD menu_tnormal(OBJECT *tree, WORD titlenum, WORD normalit)
{
MM_ITREE = (LONG)tree;
TITLE_NUM = titlenum;
NORMAL_IT = normalit;
return gem_if(MENU_TNORMAL);
}
WORD graf_slidebox(LONG tree, WORD parent, WORD obj, WORD isvert)
{
GR_TREE = tree;
GR_PARENT = parent;
GR_OBJ = obj;
GR_ISVERT = isvert;
return( gem_if( GRAF_SLIDEBOX ) );
}
WORD graf_watchbox(LONG tree, WORD obj, UWORD instate, UWORD outstate)
{
GR_TREE = tree;
GR_OBJ = obj;
GR_INSTATE = instate;
GR_OUTSTATE = outstate;
return( gem_if( GRAF_WATCHBOX ) );
}
/* Note: We fake this call in deskmain.c when desktop is in ROM */
WORD rsrc_gaddr(WORD rstype, WORD rsid, LONG *paddr)
{
RS_TYPE = rstype;
RS_INDEX = rsid;
gem_if(RSRC_GADDR);
*paddr = RS_OUTADDR;
return((WORD) RET_CODE );
}
void graf_mkstate(WORD *pmx, WORD *pmy, WORD *pmstate, WORD *pkstate)
{
gem_if(GRAF_MKSTATE);
*pmx = GR_MX;
*pmy = GR_MY;
*pmstate = GR_MSTATE;
*pkstate = GR_KSTATE;
}
WORD graf_handle(WORD *pwchar, WORD *phchar, WORD *pwbox, WORD *phbox)
{
gem_if(GRAF_HANDLE);
*pwchar = GR_WCHAR ;
*phchar = GR_HCHAR;
*pwbox = GR_WBOX;
*phbox = GR_HBOX;
return (WORD)RET_CODE;
}
/*
* Window Manager
*/
WORD wind_create(UWORD kind, WORD wx, WORD wy, WORD ww, WORD wh)
{
WM_KIND = kind;
WM_WX = wx;
WM_WY = wy;
WM_WW = ww;
WM_WH = wh;
return gem_if(WIND_CREATE);
}
WORD objc_offset(OBJECT *tree, WORD obj, WORD *poffx, WORD *poffy)
{
OB_TREE = (LONG)tree;
OB_OBJ = obj;
gem_if(OBJC_OFFSET);
*poffx = OB_XOFF;
*poffy = OB_YOFF;
return (WORD)RET_CODE;
}
WORD objc_find(OBJECT *tree, WORD startob, WORD depth, WORD mx, WORD my)
{
OB_TREE = (LONG)tree;
OB_STARTOB = startob;
OB_DEPTH = depth;
OB_MX = mx;
OB_MY = my;
return gem_if(OBJC_FIND);
}
WORD wind_open(WORD handle, WORD wx, WORD wy, WORD ww, WORD wh)
{
WM_HANDLE = handle;
WM_WX = wx;
WM_WY = wy;
WM_WW = ww;
WM_WH = wh;
return gem_if(WIND_OPEN);
}
WORD shel_write(WORD doex, WORD isgr, WORD iscr, LONG pcmd, LONG ptail)
{
SH_DOEX = doex;
SH_ISGR = isgr;
SH_ISCR = iscr;
SH_PCMD = pcmd;
SH_PTAIL = ptail;
return( gem_if( SHEL_WRITE ) );
}
WORD shel_write(WORD doex, WORD isgr, WORD iscr, BYTE *pcmd, BYTE *ptail)
{
SH_DOEX = doex;
SH_ISGR = isgr;
SH_ISCR = iscr;
SH_PCMD = (LONG)pcmd;
SH_PTAIL = (LONG)ptail;
return gem_if(SHEL_WRITE);
}
WORD wind_open(WORD handle, WORD wx, WORD wy, WORD ww, WORD wh)
{
WM_HANDLE = handle;
WM_WX = wx;
WM_WY = wy;
WM_WW = ww;
WM_WH = wh;
//kprintf("wx=%d, wy=%d, ww=%d, wh=%d, handle=%d !\n", wx, wy, ww, wh, handle);
return( gem_if( WIND_OPEN ) );
}
WORD form_center(LONG tree, WORD *pcx, WORD *pcy, WORD *pcw, WORD *pch)
{
FM_FORM = tree;
gem_if(FORM_CENTER);
*pcx = FM_XC;
*pcy = FM_YC;
*pcw = FM_WC;
*pch = FM_HC;
return((WORD) RET_CODE );
}
WORD graf_mbox(WORD w, WORD h, WORD srcx, WORD srcy, WORD dstx, WORD dsty)
{
GR_I1 = w;
GR_I2 = h;
GR_I3 = srcx;
GR_I4 = srcy;
GR_I5 = dstx;
GR_I6 = dsty;
return( gem_if( GRAF_MBOX ) );
}
WORD form_center(OBJECT *tree, WORD *pcx, WORD *pcy, WORD *pcw, WORD *pch)
{
FM_FORM = (LONG)tree;
gem_if(FORM_CENTER);
*pcx = FM_XC;
*pcy = FM_YC;
*pcw = FM_WC;
*pch = FM_HC;
return (WORD)RET_CODE;
}
/*
* Application Manager
*/
WORD appl_init(void)
{
gb.gb_pcontrol = control;
gb.gb_pglobal = global;
gb.gb_pintin = int_in;
gb.gb_pintout = int_out;
gb.gb_padrin = addr_in;
gb.gb_padrout = addr_out;
return gem_if(APPL_INIT);
}
WORD wind_set(WORD w_handle, WORD w_field, WORD w2, WORD w3, WORD w4, WORD w5)
{
WM_HANDLE = w_handle;
WM_WFIELD = w_field;
WM_IX = w2;
WM_IY = w3;
WM_IW = w4;
WM_IH = w5;
return gem_if(WIND_SET);
}
WORD wind_get(WORD w_handle, WORD w_field, WORD *pw1, WORD *pw2, WORD *pw3, WORD *pw4)
{
WM_HANDLE = w_handle;
WM_WFIELD = w_field;
gem_if(WIND_GET);
*pw1 = WM_OX;
*pw2 = WM_OY;
*pw3 = WM_OW;
*pw4 = WM_OH;
return (WORD)RET_CODE;
}
WORD objc_draw(OBJECT *tree, WORD drawob, WORD depth, WORD xc, WORD yc,
WORD wc, WORD hc)
{
OB_TREE = (LONG)tree;
OB_DRAWOB = drawob;
OB_DEPTH = depth;
OB_XCLIP = xc;
OB_YCLIP = yc;
OB_WCLIP = wc;
OB_HCLIP = hc;
return gem_if(OBJC_DRAW);
}
/*
* Graphics Manager
*/
WORD graf_rubbox(WORD xorigin, WORD yorigin, WORD wmin, WORD hmin,
WORD *pwend, WORD *phend)
{
GR_I1 = xorigin;
GR_I2 = yorigin;
GR_I3 = wmin;
GR_I4 = hmin;
gem_if(GRAF_RUBBOX);
*pwend = GR_O1;
*phend = GR_O2;
return (WORD)RET_CODE;
}
