added raden launch

library/lib_list_dialog.ks

@@ -0,0 +1,58 @@
+// lib_list_dialog.ks helps when you want the user to choose a value from a long list.
+// Copyright © 2015,2023 KSLib team 
+// Lic. MIT
+@LAZYGLOBAL OFF.
+@CLOBBERBUILTINS OFF.
+
+run lib_menu.
+
+function open_list_dialog {
+  parameter
+    title,
+    option_list.
+
+  local action_list is list("Next page", "Previous page").
+  return _list_dialog(title, option_list, action_list, -1).
+}
+
+function open_cancelable_list_dialog {
+  parameter
+    title,
+    option_list.
+
+  local action_list is list("Next page", "Previous page", "Cancel").
+  return _list_dialog(title, option_list, action_list, -2).
+}
+
+
+// this function is internal and should not be used outside lib_list_dialog
+function _list_dialog {
+  parameter
+    title,
+    option_list,
+    action_list,
+    internal_action_offset.
+
+  local inaccessible_lines is 11.
+  local page_start is 0.
+  local result is internal_action_offset.
+  until result > internal_action_offset {
+    local page_height is terminal:height - inaccessible_lines - action_list:length.
+    set page_start to page_start - mod(page_start, page_height).
+    local menu_list is action_list:copy.
+    for option in option_list:sublist(page_start, page_height) {
+      menu_list:add(option).
+    }
+    local title is title + " [Page: " + (page_start / page_height + 1) + " / " + (ceiling(option_list:length/page_height)) + "]".
+    set result to open_menu_indexed(title, menu_list) - action_list:length.
+    if result = internal_action_offset - 1 { // next
+      set page_start to min(page_start + page_height, option_list:length - 1).
+    } else if result = internal_action_offset { // previous
+      set page_start to max(0, page_start - page_height).
+    }
+  }
+  if result >= 0 {
+    set result to page_start + result.
+  }
+  return result.
+}