$ds->frame1->button->configure(-command => [\&OK_cb]);