USING: quotations math.functions math.parser models models.range models.filter ui ui.gadgets ui.gadgets.labels ui.gadgets.packs ui.gadgets.sliders sto ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! M: callable model-changed ( model observer -- ) call ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 50 1 32 212 sto FAHRENHEIT-RANGE-MODEL 50 1 0 100 sto CELSIUS-RANGE-MODEL ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1 >>fill "Fahrenheit:"