1 USING: accessors arrays colors.constants file-picker fry
2 io.directories kernel math.rectangles models sequences sets ui
3 ui.gadgets ui.gadgets.buttons ui.gadgets.glass
4 ui.gadgets.labeled ui.gadgets.labels ui.gadgets.tracks ;
7 MAIN-WINDOW: merger-window {
9 { pref-dim { 300 220 } }
12 { "From:" "To:" } f <model> f <model> 2array
18 [ <label> 1array >>children drop ]
19 [ swap set-control-value ] 2bi
21 ] <border-button> swap >>model swap
22 <labeled-gadget> 1 track-add
28 parent>> "processing..." <label> [
29 <zero-rect> show-glass
32 [ [ directory-files ] bi@ diff ] keep copy-files-into
36 ] "merge" swap <border-button> 0.4 track-add