UI tweak for stub UI

MaxWilson · Feb 14, 2024 · c6718b3 · c6718b3
1 parent 6bb32e9
commit c6718b3
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/src/UI/DFRPG/Chargen.fs b/src/UI/DFRPG/Chargen.fs
@@ -17,7 +17,6 @@ type Multimap<'key, 'value when 'key:comparison and 'value: comparison> = Map<'k
 type OrderedMultimap<'key, 'value when 'key:comparison and 'value: comparison> = Map<'key, List<'value>>
 open Menus
 type style = Feliz.style
-let blank = OfferConfigCore.blank
 type Op with
     static member skill (name: string, bonus: int) = Op.trait' ({ inner = OfferConfigCore.blank; toString = Some (fun (t: Trait) -> t.DisplayString) }, Skill(name, bonus))
     static member skill (name: string, levels: int list) = Op.level (name, { ctor = (fun bonus -> Skill(name, bonus)); toString = fun skill -> skill.DisplayString }, levels)
@@ -28,19 +27,19 @@ let advantage (advantage: Trait) =
 
 open type Op
 
-let label txt = { inner = { blank with label = Some txt }; toString = None }
+let label txt = let b = blank() in { b with inner.label = Some txt }
 let swash = [
     skill("Climbing", 1) |> promote
     skill("Stealth", [1..3]) |> promote
-    budget(thunk 20, [
+    budget(label "Choose 20 points", thunk 20, [
         advantage CombatReflexes
-        skill("Acrobatics", [1..3])
+        skill("Acrobatics Stunts", [1..3])
         ])
     eitherN(Menus.blank(), 3, [
         skill("Rapier", 3) |> promote
+        skill("Two-handed Sword", 3) |> promote
         skill("Sling", 3) |> promote
         skill("Bow", 3) |> promote
-        skill("Two-handed Sword", 3) |> promote
         skill("Stealth", 3) |> promote
         skill("Climbing", 3) |> promote
         ])