bool
cwm_get_window_value::
proc(int argc, const char **argv)
{
string str = cwm_->sendClientMessage("get_window_value", argc, argv);
setStringResult(str);
return true;
}
bool
cwm_circulate_down::
proc(int argc, const char **argv)
{
string str = cwm_->sendClientMessage("circulate_down", argc, argv);
setStringResult(str);
return true;
}
bool
cwm_focus_window::
proc(int argc, const char **argv)
{
string str = cwm_->sendClientMessage("focus_window", argc, argv);
setStringResult(str);
return true;
}
static int
getSessionStringProperty (
Tcl_Interp *interp, BrlapiSession *session,
int BRLAPI_STDCALL (*getProperty) (brlapi_handle_t *handle, char *buffer, size_t size)
) {
size_t size = 0X10;
while (1) {
char buffer[size];
int result = getProperty(session->handle, buffer, size);
TEST_BRLAPI_OK(result);
if (result <= size) {
setStringResult(interp, buffer, result-1);
return TCL_OK;
}
size = result;
}
}
