git-tool.remote: minor changes

diff --git a/extra/git-tool/remote/remote.factor b/extra/git-tool/remote/remote.factor
index e5291a84591c74f61ba60b90f4616f5efda8bbd9..77539d5ad4e88dbc5d337459c3c3a549b954ff55 100644 (file)
--- a/extra/git-tool/remote/remote.factor
+++ b/extra/git-tool/remote/remote.factor
@@ -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