 
   [let | REPO [ GADGET repository>> ] |
 
-    GADGET clear-gadget
-
-    GADGET
+    ! GADGET clear-gadget
+
+    ! GADGET
+
+    { }
 
     ! Repository label
 
     "Repository: " REPO [ current-directory get ] with-directory append
     <label>
-    add-gadget
+    suffix
 
     ! Branch button
     

      ]
      <bevel-button> add-gadget

    add-gadget

    ! Remote button


                ]
                <bevel-button> add-gadget

              suffix

            ]
          when

        ] ] ]

    GADGET clear-gadget

    GADGET swap

    [ add-gadget ] each
    
    drop

