From 68594ec7fae90111e0b9270f0610bac3c6edfa7c Mon Sep 17 00:00:00 2001
From: Matthias Melcher <github@matthiasm.com>
Date: Tue, 5 Dec 2023 18:38:51 +0100
Subject: #860: FLUID: Increments Shell history to 1000 lines

---
 fluid/alignment_panel.cxx | 1 +
 fluid/alignment_panel.fl  | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/fluid/alignment_panel.cxx b/fluid/alignment_panel.cxx
index 72c5a56a4..8b806ab5a 100644
--- a/fluid/alignment_panel.cxx
+++ b/fluid/alignment_panel.cxx
@@ -3052,6 +3052,7 @@ Fl_Double_Window* make_shell_window() {
     { shell_run_terminal = new Fl_Terminal(10, 10, 535, 375);
       Fl_Group::current()->resizable(shell_run_terminal);
       shell_run_terminal->ansi(1);
+      shell_run_terminal->history_lines(1000);
     } // Fl_Terminal* shell_run_terminal
     { Fl_Group* o = new Fl_Group(10, 395, 535, 25);
       { Fl_Button* o = new Fl_Button(10, 395, 94, 25, "Clear");
diff --git a/fluid/alignment_panel.fl b/fluid/alignment_panel.fl
index 69e73da65..1d9cd78d2 100644
--- a/fluid/alignment_panel.fl
+++ b/fluid/alignment_panel.fl
@@ -1574,16 +1574,17 @@ Function {make_shell_window()} {open
     label {Shell Command Output} open
     xywh {769 585 555 430} type Double align 80 resizable visible
   } {
-    Fl_Terminal shell_run_terminal {
+    Fl_Terminal shell_run_terminal {selected
       xywh {10 10 535 375} resizable
       code0 {shell_run_terminal->ansi(1);}
+      code1 {shell_run_terminal->history_lines(1000);}
     }
     Fl_Group {} {open
       xywh {10 395 535 25}
     } {
       Fl_Button {} {
         label Clear
-        callback {shell_run_terminal->append("\\033[2J\\033[H");} selected
+        callback {shell_run_terminal->append("\\033[2J\\033[H");}
         xywh {10 395 94 25}
       }
       Fl_Box {} {
-- 
cgit v1.2.3