PLT-7569 changed buttons for actions

input-output-hk · Sep 18, 2023 · be25018 · be25018
1 parent 150d5b9
commit be25018
Showing 1 changed file with 12 additions and 17 deletions.
diff --git a/src/Component/ContractList.purs b/src/Component/ContractList.purs
@@ -456,34 +456,29 @@ mkContractList = do
                                         Just transactionsEndpoint, Just (MarloweInfo { initialContract, state: Just state, currentContract: Just contract }) -> do
                                           let
                                             marloweContext = { initialContract, state, contract }
-                                          linkWithIcon
-                                            { icon: unsafeIcon $ "fast-forward-fill" <> actionIconSizing
-                                            , label: mempty
+                                          buttonWithIcon
+                                            { icon: unsafeIcon mempty
+                                            , label: DOOM.text "Advance"
+                                            , extraClassNames: "font-weight-bold me-2"
                                             , tooltipText: Just "Apply available inputs to the contract"
                                             , tooltipPlacement: Just placement.left
                                             , onClick: setModalAction $ ApplyInputs transactionsEndpoint marloweContext
                                             }
-                                        _, Just (MarloweInfo { state: Nothing, currentContract: Nothing }) -> linkWithIcon
-                                          { icon: unsafeIcon $ "file-earmark-check-fill success-color" <> actionIconSizing
-                                          , tooltipText: Just "Contract is completed - click on contract id to see in Marlowe Explorer"
-                                          , tooltipPlacement: Just placement.left
-                                          , label: mempty
-                                          , onClick: mempty
-                                          }
+                                        _, Just (MarloweInfo { state: Nothing, currentContract: Nothing }) -> DOOM.text "Complete"
                                         _, _ -> mempty
                                   , case marloweInfo, possibleWalletContext of
                                       Just (MarloweInfo { currencySymbol: Just currencySymbol, state: _, unclaimedPayouts }), Just { balance: Cardano.Value balance } -> do
                                         let
                                           balance' = Map.filterKeys (\assetId -> Cardano.assetIdToString assetId `eq` currencySymbol) balance
                                           roleTokens = map Cardano.assetIdToString <<< List.toUnfoldable <<< Set.toUnfoldable <<< Map.keys $ balance'
                                         case Array.uncons (Array.intersect roleTokens (map (\(Payout { role }) -> role) unclaimedPayouts)) of
-                                          Just { head, tail } ->
-                                            linkWithIcon
-                                              { icon: unsafeIcon $ "cash-coin warning-color" <> actionIconSizing
-                                              , label: mempty
-                                              , tooltipText: Just "This wallet has funds available for withdrawal from this contract. Click to submit a withdrawal"
-                                              , onClick: setModalAction $ Withdrawal runtime.withdrawalsEndpoint (NonEmptyArray.cons' head tail) contractId
-                                              }
+                                          Just { head, tail } -> buttonWithIcon
+                                            { icon: unsafeIcon mempty
+                                            , label: DOOM.text "Withdraw"
+                                            , extraClassNames: "font-weight-bold me-2"
+                                            , tooltipText: Just "This wallet has funds available for withdrawal from this contract. Click to submit a withdrawal"
+                                            , onClick: setModalAction $ Withdrawal runtime.withdrawalsEndpoint (NonEmptyArray.cons' head tail) contractId
+                                            }
                                           _ -> mempty
                                       _, _ -> mempty
                                   ]