34 lines
1005 B
Factor
34 lines
1005 B
Factor
USING: accessors arrays fry io.directories kernel
|
|
models sequences sets ui
|
|
ui.gadgets ui.gadgets.buttons ui.gadgets.labeled
|
|
ui.gadgets.tracks ui.gadgets.labels ui.gadgets.glass
|
|
math.rectangles cocoa.dialogs ;
|
|
IN: merger
|
|
|
|
MAIN-WINDOW: merger-window {
|
|
{ title "Merging" }
|
|
{ pref-dim { 300 220 } }
|
|
}
|
|
vertical <track>
|
|
{ "From:" "To:" } f <model> f <model> 2array
|
|
[
|
|
[
|
|
"…" [
|
|
open-panel [ first
|
|
[ <label> 1array >>children drop ]
|
|
[ swap set-control-value ] 2bi ] [ drop ] if*
|
|
] <border-button> swap >>model swap <labeled-gadget>
|
|
1 track-add
|
|
] 2each
|
|
] keep
|
|
dup first2
|
|
'[ _ [ value>> ] all? [ parent>> "processing..." <label> [
|
|
<zero-rect> show-glass
|
|
_ value>> [
|
|
"." _ value>> [ [ directory-files ] bi@ diff ] keep copy-files-into
|
|
] with-directory
|
|
] keep hide-glass
|
|
] [ drop ] if ]
|
|
"merge" swap <border-button> 0.4 track-add
|
|
>>gadgets ;
|