steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge commit 'dharmatech/master'

db4
Eduardo Cavazos 2009-01-18 18:43:26 -06:00
parent 70c9a2fb87 3d83cfbbd1
commit 270e48e543
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
extra/git-tool/remote/remote.factor
View File

@ -62,15 +62,17 @@ TUPLE: <git-remote-gadget> < pack
[let | REPO [ GADGET repository>> ] | [let | REPO [ GADGET repository>> ] |
GADGET clear-gadget ! GADGET clear-gadget
GADGET ! GADGET
{ }
! Repository label ! Repository label
"Repository: " REPO [ current-directory get ] with-directory append "Repository: " REPO [ current-directory get ] with-directory append
<label> <label>
add-gadget suffix
! Branch button ! Branch button
@ -103,7 +105,7 @@ TUPLE: <git-remote-gadget> < pack
] ]
<bevel-button> add-gadget <bevel-button> add-gadget
add-gadget suffix
! Remote button ! Remote button
@ -138,7 +140,7 @@ TUPLE: <git-remote-gadget> < pack
] ]
<bevel-button> add-gadget <bevel-button> add-gadget
add-gadget suffix
! Remote branch button ! Remote branch button
@ -172,7 +174,7 @@ TUPLE: <git-remote-gadget> < pack
] ]
<bevel-button> add-gadget <bevel-button> add-gadget
add-gadget suffix
! Fetch button ! Fetch button
@ -184,7 +186,7 @@ TUPLE: <git-remote-gadget> < pack
GADGET refresh-git-remote-gadget GADGET refresh-git-remote-gadget
] ]
<bevel-button> add-gadget <bevel-button> suffix
! Available changes ! Available changes
@ -223,7 +225,7 @@ TUPLE: <git-remote-gadget> < pack
] ]
<bevel-button> add-gadget <bevel-button> add-gadget
add-gadget suffix
] ]
when when
@ -266,12 +268,18 @@ TUPLE: <git-remote-gadget> < pack
] ]
<bevel-button> add-gadget <bevel-button> add-gadget
add-gadget suffix
] ]
when when
] ] ] ] ] ]
GADGET clear-gadget
GADGET swap
[ add-gadget ] each
drop drop