static WMenuEntry *preprocess_menu(ExtlTab tab, int *n_entries)
{
WMenuEntry *entries;
ExtlTab entry;
int i, n;
n=extl_table_get_n(tab);
*n_entries=n;
if(n<=0)
return NULL;
entries=ALLOC_N(WMenuEntry, n);
if(entries==NULL)
return NULL;
init_attr();
/* Initialise entries and check submenus */
for(i=1; i<=n; i++){
WMenuEntry *ent=&entries[i-1];
ent->title=NULL;
ent->flags=0;
gr_stylespec_init(&ent->attr);
if(extl_table_geti_t(tab, i, &entry)){
char *attr;
ExtlTab sub;
ExtlFn fn;
if(extl_table_gets_s(entry, "attr", &attr)){
gr_stylespec_load_(&ent->attr, attr, TRUE);
free(attr);
}
if(extl_table_gets_f(entry, "submenu_fn", &fn)){
ent->flags|=WMENUENTRY_SUBMENU;
extl_unref_fn(fn);
}else if(extl_table_gets_t(entry, "submenu", &sub)){
ent->flags|=WMENUENTRY_SUBMENU;
extl_unref_table(sub);
}
if(ent->flags&WMENUENTRY_SUBMENU)
gr_stylespec_set(&ent->attr, GR_ATTR(submenu));
extl_unref_table(entry);
}
}
return entries;
}
/*EXTL_DOC
* Get configuration table for module \var{name}
*/
EXTL_EXPORT
ExtlTab statusd_get_config(const char *name)
{
if(name==NULL){
return extl_ref_table(configtab);
}else{
ExtlTab t;
if(extl_table_gets_t(configtab, name, &t))
return t;
else
return extl_create_table();
}
}
bool extl_table_gets_rectangle(ExtlTab tab, const char *nam,
WRectangle *rect)
{
ExtlTab g;
bool ok;
if(!extl_table_gets_t(tab, nam, &g))
return FALSE;
ok=extl_table_to_rectangle(g, rect);
extl_unref_table(g);
return ok;
}
WRegion *groupws_load(WWindow *par, const WFitParams *fp,
ExtlTab tab)
{
WGroupWS *ws;
ExtlTab io;
ws=create_groupws(par, fp);
if(ws==NULL)
return NULL;
group_do_load(&ws->grp, tab);
if(extl_table_gets_t(tab, "initial_outputs", &io))
ws->initial_outputs=io;
return (WRegion*)ws;
}
WSplit *load_splitfloat(WTiling *ws, const WRectangle *geom, ExtlTab tab)
{
WSplit *tl=NULL, *br=NULL;
WSplitFloat *split;
char *dir_str;
int dir, brs, tls;
ExtlTab subtab;
WRectangle tlg, brg;
int set=0;
set+=(extl_table_gets_i(tab, "tls", &tls)==TRUE);
set+=(extl_table_gets_i(tab, "brs", &brs)==TRUE);
set+=(extl_table_gets_s(tab, "dir", &dir_str)==TRUE);
if(set!=3)
return NULL;
if(strcmp(dir_str, "vertical")==0){
dir=SPLIT_VERTICAL;
}else if(strcmp(dir_str, "horizontal")==0){
dir=SPLIT_HORIZONTAL;
}else{
warn(TR("Invalid direction."));
free(dir_str);
return NULL;
}
free(dir_str);
split=create_splitfloat(geom, ws, dir);
if(split==NULL)
return NULL;
if(!extl_table_is_bool_set(tab, "tls_brs_incl_handles")){
if(split->ssplit.dir==SPLIT_HORIZONTAL){
tls+=split->tlpwin->bdw.right;
brs+=split->brpwin->bdw.left;
}else{
tls+=split->tlpwin->bdw.bottom;
brs+=split->brpwin->bdw.top;
}
}
calc_tlg_brg(geom, tls, brs, dir, &tlg, &brg);
splitfloat_update_handles(split, &tlg, &brg);
if(extl_table_gets_t(tab, "tl", &subtab)){
WRectangle g=tlg;
splitfloat_tl_pwin_to_cnt(split, &g);
tl=tiling_load_node(ws, &g, subtab);
extl_unref_table(subtab);
}
if(extl_table_gets_t(tab, "br", &subtab)){
WRectangle g;
if(tl==NULL){
g=*geom;
}else{
g=brg;
splitfloat_br_pwin_to_cnt(split, &g);
}
br=tiling_load_node(ws, &g, subtab);
extl_unref_table(subtab);
}
if(tl==NULL || br==NULL){
destroy_obj((Obj*)split);
if(tl!=NULL){
split_do_resize(tl, geom, PRIMN_ANY, PRIMN_ANY, FALSE);
return tl;
}
if(br!=NULL){
split_do_resize(br, geom, PRIMN_ANY, PRIMN_ANY, FALSE);
return br;
}
return NULL;
}
tl->parent=(WSplitInner*)split;
br->parent=(WSplitInner*)split;
split->ssplit.tl=tl;
split->ssplit.br=br;
return (WSplit*)split;
}
