From 3d83cfbbd12056b7884839ea20bde25b40146250 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <wayo.cavazos@gmail.com>
Date: Sun, 18 Jan 2009 18:14:14 -0600
Subject: [PATCH] git-tool.remote: minor changes

---
 extra/git-tool/remote/remote.factor | 26 +++++++++++++++++---------
 1 file changed, 17 insertions(+), 9 deletions(-)

diff --git a/extra/git-tool/remote/remote.factor b/extra/git-tool/remote/remote.factor
index e5291a8459..77539d5ad4 100644
--- 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