                 ]
                 <bevel-button> add-gadget
 
-              add-gadget
+              suffix
 
             ]
           when

      ]
      <bevel-button> add-gadget

    add-gadget

    ! Fetch button



  [let | REPO [ GADGET repository>> ] |

    ! GADGET clear-gadget

    ! GADGET

    { }

    ! Repository label

    "Repository: " REPO [ current-directory get ] with-directory append
    <label>
    suffix

    ! Branch button
    
