Scheme_Object* spark_fltk_group::clear(int argc, Scheme_Object** argv) { DEFAULT_RET_INIT; Fl_Group* group = _get_fl_group(argc, argv, 0); if (group) { group->clear(); _ret_ = scheme_true; } DEFAULT_RET_FINISH; }
//callback for delete void OnRemoveCommunity(Fl_Widget* pWidget,void * pParam) { Fl_Tabs* pTab = (Fl_Tabs*)(pParam); if(pTab->children()>1) { if(fl_choice("Really delete Scope of \"%s\" ?", "No", "Yes", NULL, pTab->value()->label())) { Fl_Group* pG = (Fl_Group*)pTab->value(); pG->clear(); pTab->remove(pG); pTab->value(pTab->child(0)); delete pG; } } }