Move execnode into a library function.

init/rocket.ks

@@ -13,16 +13,6 @@ on AG9 {
   return true.
 }
 
-function launchButtonPressed {
-  run "/launch"(
-    targetApo:TEXT:ToNumber(),
-    gravTurnStart:TEXT:ToNumber(),
-    gravPitch:TEXT:ToNumber(),
-    initialPitch:TEXT:ToNumber(),
-    minimumPitch:TEXT:ToNumber()
-  ).
-}
-
 // Main UI.
 local iface is gui(250, 300).
 set iface:X to 200.
@@ -98,7 +88,15 @@ set row to makeRow(box).
 row:AddLabel("Gravity Turn Pitch").
 local gravPitch is row:AddTextField("75").
 
-set top:AddButton("Execute"):onClick to launchButtonPressed@.
+makeButton(top, "Execute", {
+    run "/launch"(
+    targetApo:TEXT:ToNumber(),
+    gravTurnStart:TEXT:ToNumber(),
+    gravPitch:TEXT:ToNumber(),
+    initialPitch:TEXT:ToNumber(),
+    minimumPitch:TEXT:ToNumber()
+  ).
+}).
 // End Launch Menu
 
 // Build conf menu
@@ -115,10 +113,10 @@ set row to makeRow(box).
 row:AddLabel("Max Stopping Time").
 local maxStopTime is row:AddTextField("2.0").
 
-set top:AddButton("Apply"):onClick to {
+makeButton(top, "Apply", {
   set STEERINGMANAGER:TORQUEEPSILONMAX to maxEpsilon:TEXT:ToNumber().
   set STEERINGMANAGER:MAXSTOPPINGTIME to maxStopTime:TEXT:ToNumber().
-}.
+}).
 // end conf menu
 
 // twr menu
@@ -129,7 +127,7 @@ set row to makeRow(top).
 row:AddLabel("Target TWR").
 local twrLock is row:AddTextField("1.6").
 
-set top:AddButton("Lock TWR"):onClick to {
+makeButton(top, "Lock TWR", {
   local done is false.
   on AG9 {
     set done to true.
@@ -140,13 +138,12 @@ set top:AddButton("Lock TWR"):onClick to {
   lock THROTTLE to ThrottleToTWR(tgt).
   wait until done.
   print "Throttle unlocked.".
-}.
+}).
 // end twr menu
 
 // node menu
 local top is stk:AddVLayout().
 panes:Add("node", top).
-local box is top:AddScrollBox().
 
 set row to makeRow(top).
 row:AddLabel("Node dV").
@@ -156,9 +153,7 @@ set row to makeRow(top).
 row:AddLabel("Node Burn Time").
 local nodeBT is row:AddLabel().
 
-set top:AddButton("Execute"):onClick to {
-  run "/execnode".
-}.
+makeButton(top, "Execute", { ExecNode(). }).
 // end node menu
 
 iface:show().