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

git-tool.remote: minor changes

db4
Eduardo Cavazos 2009-01-18 18:14:14 -06:00
parent 8c6da81121
commit 3d83cfbbd1
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>> ] |
GADGET clear-gadget
! GADGET clear-gadget
GADGET
! GADGET
{ }
! Repository label
"Repository: " REPO [ current-directory get ] with-directory append
<label>
add-gadget
suffix
! Branch button
@ -103,7 +105,7 @@ TUPLE: <git-remote-gadget> < pack
]
<bevel-button> add-gadget
add-gadget
suffix
! Remote button
@ -138,7 +140,7 @@ TUPLE: <git-remote-gadget> < pack
]
<bevel-button> add-gadget
add-gadget
suffix
! Remote branch button
@ -172,7 +174,7 @@ TUPLE: <git-remote-gadget> < pack
]
<bevel-button> add-gadget
add-gadget
suffix
! Fetch button
@ -184,7 +186,7 @@ TUPLE: <git-remote-gadget> < pack
GADGET refresh-git-remote-gadget
]
<bevel-button> add-gadget
<bevel-button> suffix
! Available changes
@ -223,7 +225,7 @@ TUPLE: <git-remote-gadget> < pack
]
<bevel-button> add-gadget
add-gadget
suffix
]
when
@ -266,12 +268,18 @@ TUPLE: <git-remote-gadget> < pack
]
<bevel-button> add-gadget
add-gadget
suffix
]
when
] ] ]
GADGET clear-gadget
GADGET swap
[ add-gadget ] each
drop