USING: accessors locals math models.range range-model-label range-model-tie ui ui.gadgets ui.gadgets.packs ui.gadgets.sliders ; IN: temperature-gadget ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! : f->c ( f -- c ) 32 - 5/9 * ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! : temperature-gadget ( -- gadget ) [let | FAHRENHEIT [ 32 1 32 212 ] CELSIUS [ 0 1 0 100 ] | FAHRENHEIT CELSIUS [ f->c ] range-model-tie 1 >>fill "Fahrenheit:" FAHRENHEIT range-model-label add-gadget FAHRENHEIT add-gadget "Celsius:" CELSIUS range-model-label add-gadget CELSIUS add-gadget ] ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! : main ( -- ) [ temperature-gadget "Temperature" open-window ] with-ui ; MAIN: main