VALUE
subSubletUpdate(VALUE self)
{
int id = -1;
VALUE name = Qnil;
/* Check ruby object */
rb_check_frozen(self);
GET_ATTR(self, "@name", name);
/* Check results */
if(-1 != ((id = subSubtlextFindString("SUBTLE_SUBLET_LIST",
RSTRING_PTR(name), NULL, SUB_MATCH_EXACT))))
{
SubMessageData data = { { 0, 0, 0, 0, 0 } };
/* Send message */
data.l[0] = id;
subSharedMessage(display, DefaultRootWindow(display),
"SUBTLE_SUBLET_UPDATE", data, 32, True);
}
else rb_raise(rb_eStandardError, "Failed finding sublet");
return Qnil;
} /* }}} */
VALUE
subViewSave(VALUE self)
{
int id = -1;
VALUE name = Qnil;
/* Check ruby object */
rb_check_frozen(self);
GET_ATTR(self, "@name", name);
subSubtlextConnect(NULL); ///< Implicit open connection
/* Create view if needed */
if(-1 == (id = subSubtlextFindString("_NET_DESKTOP_NAMES",
RSTRING_PTR(name), NULL, SUB_MATCH_EXACT)))
{
SubMessageData data = { { 0, 0, 0, 0, 0 } };
snprintf(data.b, sizeof(data.b), "%s", RSTRING_PTR(name));
subSharedMessage(display, DefaultRootWindow(display),
"SUBTLE_VIEW_NEW", data, 8, True);
id = subSubtlextFindString("_NET_DESKTOP_NAMES",
RSTRING_PTR(name), NULL, SUB_MATCH_EXACT);
}
/* Guess view id */
if(-1 == id)
{
int nnames = 0;
char **names = NULL;
/* Get names of views */
if((names = subSharedPropertyGetStrings(display, DefaultRootWindow(display),
XInternAtom(display, "_NET_DESKTOP_NAMES", False), &nnames)))
{
id = nnames; ///< New id should be last
if(names) XFreeStringList(names);
}
}
/* Set properties */
rb_iv_set(self, "@id", INT2FIX(id));
return self;
} /* }}} */
