31 lines
976 B
Factor
31 lines
976 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 ( -- ) [
|
|
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 { 300 220 } >>pref-dim "Merging" open-window
|
|
] with-ui ;
|
|
|
|
MAIN: main |